Small basic البرمجة السهلة بالبرنامج المجاني من Microsoft

[ولد الميلود]

السلام عليكم
هذا البرنامج للمبتدئين في البرمجة يستحق التجريب.



هذا البرنامج 'tetris ' مصنوع به



لتحميل البرنامج : من هذا الموقع

تحميل كتاب بالفرنسية : من هذا الموقع
CODE DU jeux pong : MDJ923
Code du jeux casse brique : QRQ360
Code de mon 1er programme : ZLH165
لا تبخلوا علينا بتجاربكم
شكرا

[سوفي ساك]

لك الف تحية و خير

[ولد الميلود]

وهذا أيضا من صنعي تفضلوا الكود:
njs841

على فكرة س أقدم لكم طريقة إدخال الكود لرأية البرنامج

إظغط على importer فوق و أكتب الكود المطلوب , ستخرج لك نافذة جديدة لن تأثر على أي شيء.....

و بعدها إظغط على exécuter فوق أقصد على المثلث الأزرق المقلوب و يأتي البرنامج

أقدم لكم الكود الخاص بتحريك shapes في كل الإتجاهات

nom = Shapes.AddRectangle(30,30)
Graphics********KeyUp = onkeyup
Graphics********KeyDown = onkeydown
key1 = "Left"
key2 = "Right"
key3 = "Down"
key4 = "Up"
sub onkeyup
x = Shapes.GetLeft(nom)
y = Shapes.GetTop(nom)
endsub
Sub onkeydown
If (Graphics********LastKey = key1) Then
Shapes.Move(nom,x-10,y)
ElseIf (Graphics********LastKey = key2) then
Shapes.Move(nom,x+10,y)
elseif (Graphics********LastKey = key3) then
Shapes.Move(nom,x,y+10)
elseif (Graphics********LastKey = key4) then
Shapes.Move(nom,x,y-10)
EndIf

EndSub