جربوا برنامجي هذا وارسلوا لي التعليقات ( ضروري )

[الطيار الصغير]

اعمل Form جديد واعمل فيه اثنين Command Button الاولى Command1 والثانية Command2 واعمل ايضا Text1 والصق البرنامج التالي عندك وارسل لي تعليقك على البرنامج :

Option Explicit

Private Sub Command1_Click()
Const PI = 3.141592653589
Dim Cy As Integer, Y As Double, X As Double
Me.Scale (0, -1.1)-(2 * PI, 1.1)
If Text1 = "" Then
MsgBox "الادخال بين 1 - 10"
Text1 = ""
Exit Sub
ElseIf Text1 < 1 Or Text1 > 10 Then
MsgBox "الادخال بين 1 - 10"
Text1 = ""
Exit Sub
End If
Do
Cy = Text1
Cls
If Cy > 0 Then
For X = 0 To 2 * PI Step 0.0001
DoEvents
Y = Sin(Cy * X)
Line -(X, Y)
Me.ForeColor = QBColor(15 * Rnd)
Next X
End If
Loop While Cy > 0
End
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "ابدأ"
Command2.Caption = "خروج"
Me.Caption = "الطيار الصغير يرحب بكم"
Me.RightToLeft = True
Me.WindowState = 2
End Sub



------------------
ابقت بني الاصفر الممراض كاسْمِهمُ
صفر الوجوه وجلت اوجه العرب