طلب مستعجل ... الرجاء من أصحاب الخبرة الرد بسرعة ان امكن

[mohd-as]

السلام عليكم ورحمة الله وبركاته
اخواني الكرام أصحاب الخبرة في مجال visual basic 6.0 الرجاء ان تخبروني كيف أبرمج هذه البرامج باستخدام الفيوجول بيسك ......

* أولاً : برنامج يقوم برسم خط يدور بشكل دائري ......... والنقطة التي يدور حولها هي رأس الخط .
* ثانياً : برنامج يقوم بتحريك كلمة ما ذهاباً وإياباً .

الرجاء من أصحاب الخبرة الرد بسرعة قبل يوم الخميس ان امكن لانه هناك امتحان وانا مبتدئ في فيوجول بيسك .........
أنتظر الردود
إن شاء الله تفيدوني

[Taha Okla]

http://lernvisual.jeeran.com/about%20us/book/book/besm%20(3).gif




بالنسبة للبرنامج الثاني فالكود هو كالتالي
لازم تفتح مشرع جديد وتضيف عليه ثلاثة أزرار

ثم تفتح صفحة الكود وتكتب فيها الكود التالي :


Private Sub Command1_Click()
Dim X1, X2 As Variant

Command3.Caption = "Hello"

X1 = Command3.Left
X2 = 1


Do

If Command3.Left = 0 Then
X2 = 1
ElseIf Me.Width = Command3.Left + Command3.Width Then
X2 = 2
End If

If X2 = 2 Then
X1 = X1 - 0.01
ElseIf X2 = 1 Then
X1 = X1 + 0.01
End If

Command3.Left = X1


DoEvents
Loop
End Sub

Private Sub Command2_Click()
End
End Sub

>

[mohd-as]

مشكور أخي طه على مجهودك الرائع ......
البرنامج اشتغل وان شاء الله تأتونني بالبرنامج الآخر


ان شاء الله بمجهودك هذا تلقى حسنات عند ربك
مشكور

[uoposh]

Private Sub Command1_Click()
Dim X1, X2 As Variant

Command3.Caption = "Hello"

X1 = Command3.Left
X2 = 1


Do

If Command3.Left = 0 Then
X2 = 1
ElseIf Me.Width = Command3.Left + Command3.Width Then
X2 = 2
End If

If X2 = 2 Then
X1 = X1 - 0.01
ElseIf X2 = 1 Then
X1 = X1 + 0.01
End If

Command3.Left = X1


DoEvents
Loop
End Sub

Private Sub Command2_Click()
End
End Sub
وارجو لك الحظ الموفق في الأمتحان

[mohd-as]

مشكور اخي uoposh
البرنامج اشتغل
شكراً لك

[Alexander Max2]

عفواً :
ماهي الإضافة التي تمت بواسطة العضو uoposh
غير أنه أعاد نسخ الكود في المشاركة الثانية وشارك به

أي أنه لم يقم يتوفير البرنامج المطلوب وهو :
برنامج رسم النقطة الحلزونية.