افتحي مشروع جديد واختاري قائمة (new Project)التي تقلع بعد تشغيل البرنامج مباشرة
(ActiveX control) وضعي فيه (timer1) وحددي الخاصية
Interval = 1000
ثم ضعي ايضاً (line) عدد3 لايهم موقعها ولا طولها ودعي خصائصها كما هي باستثناء
اللون والسماكة او العرض ان احببت تغييرها
ثم انسخي الكود التالي وضعيه في صفحة الكود
Public XS
Public YS
Private Function DtoR(X)
Pi = 3.1415
RAD = Pi / 180
DtoR = X * RAD
End Function

Private Sub Timer1_Timer()
W = Timer
X = W / 120
Y = W * 6
Z = W / 10
A = Sin(DtoR(X))
B = -(Cos(DtoR(X)))
Line1.X2 = (A * 600) + XS
Line1.Y2 = (B * 600) + YS
C = Sin(DtoR(Y))
D = -(Cos(DtoR(Y)))
Line3.X2 = (C * 800) + XS
Line3.Y2 = (D * 800) + YS
E = Sin(DtoR(Z))
f = -(Cos(DtoR(Z)))
Line2.X2 = (E * 800) + XS
Line2.Y2 = (f * 800) + YS
End Sub


Private Sub UserControl_Paint()
XS = Width / 2
YS = (Height / 2) - 120
For AB = 0 To 359 Step 30
A = Sin(DtoR(AB))
B = -(Cos(DtoR(AB)))
If AB = 0 Then CNT = 360 Else CNT = AB
TX$ = Trim(Int((CNT) / 30))
Line ((A * 800) + XS, (B * 800) + YS)-((A * 1000) + XS, (B * 1000) + YS), RGB(0, 0, 0)
CurrentX = (A * 1200) + XS - (TextWidth(TX$) / 2)
CurrentY = (B * 1200) + YS - (TextHeight(TX$) / 2)
Print TX$
Next AB
Line1.X1 = XS
Line1.Y1 = YS
Line2.X1 = XS
Line2.Y1 = YS
Line3.X1 = XS
Line3.Y1 = YS
Call Timer1_Timer
End Sub
عند الانتهاء من العمل ومشاهدة النتيجة يمكنك حزم الملف لاستخدامه كاداة (ocx) في اي مشروع ثاني بالطريقة التالية
من (file) استدعي الامر (make Project1.ocx) واكتبي الاسم الذي تريدينه بالانكليزي
بهذا يكون العمل قد اكتمل
  • Currently 76/5 Stars.
  • 1 2 3 4 5
26 تصويتات / 759 مشاهدة
نشرت فى 16 مايو 2006 بواسطة nsma

ساحة النقاش

عدد زيارات الموقع

235,756