بتاريخ 22 يونيو 2011 04:28 م، قطب أسامة السلمان حاجبيه بشدة وهو يقول:
اخي السيد هل من الممكن أن تريني نموذج من إحدى ألعابك لأرى إمكانيات Visual Basicفي 03/جمادى الثانية/1432 07:27 م، عقد السيد فتحى السيد حاجبيه بتفكير وقال:
اما الإجراء MINE فهو افتراضى فى التطبيقات التى لا تعتمد على الويندوزSub Main() End Sub اما جملة Dim test As myGame = New myGame فهى اعلان عن انشاء نسخة من الفئة التى انشأنهاوفي 22 يونيو 2011 11:12 م، ظهر شبح ابتسامة على وجه أسامة السلمان وهو يقول:
ممكن تفصل هادي الجملة أكثر؟أما في 22 يونيو 2011 11:16 م، فقد تنهد أسامة السلمان بارتياح وهو يرد:
نجح الأمر على XPفي 03/جمادى الثانية/1432 08:27 م، غمغم السيد فتحى السيد باستغراب قائلاً:
الأن سوف نضيف صندوقImports Framework
Imports Framework.Irrlicht
Public Class mBox
Inherits Framework.Entity
Private m_node As SceneNode=Nothing
Public Sub New (ByVal mgame AsGame)
MyBase.New(mgame)
Dim texture As Texture=Game.VideoDriver.GetTexture("box.jpg")
m_node = mgame.IrrlichtDevice.SceneManager.AddCubeSceneNode(19,Nothing,-1)
m_node.SetMaterialFlag(MaterialFlag.Lighting,False)
m_node.SetMaterialTexture(0, texture)
m_node.Position = New Vector3D(10,-10,70)
End Sub
End Class
Entities.Add(New mBox(Me))
SceneManager.AddCameraSceneNodeFPS(Nothing,300,300,False)
هيا جرب وتحرك بالكاميره بالأسهمفي 22 يونيو 2011 11:48 م، قال أسامة السلمان بهدوء وتؤدة:
مالكود الذي المفروض عليا في هذه المرحلة فهمه بالتفصيل لأنه هناك الكثير هل يجب أن أفهم كل كلمة فيما سبق الآن أم سأفهمها لاحقا؟في 23 يونيو 2011 12:08 ص، عقد أسامة السلمان حاجبيه بتفكير وقال:
ظهر لي خطأ أثناء تنفيذ الصندوق