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

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

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

http://www.jtbworld.com/images/SmallBasicforkidsorifyouwanttolearnprogr_2E76/SmallBasic.jpg

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

http://smallbasic.com/drop/tetris.png

لتحميل البرنامج : من هذا الموقع (http://www.programmez.com/telechargements.php?id_logiciel=251)

تحميل كتاب بالفرنسية : من هذا الموقع (http://www.microsoft.com/downloads/details.aspx?FamilyID=61481b74-eb45-42b8-a777-8f3644406787&displaylang=fr)
CODE DU jeux pong : MDJ923
Code du jeux casse brique : QRQ360
Code de mon 1er programme : ZLH165
لا تبخلوا علينا بتجاربكم
شكرا

[سوفي ساك]

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

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

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

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

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

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

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

http://www4.0zz0.com/2010/04/01/18/552139428.jpg

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