Chakira
11-01-2013, بتوقيت غرينيتش 09:08 AM
http://www.dzbatna.com/images/icons/icon26.gif [ طھطµظ…ظٹظ… ط³ط§ط¹ظ‡ ط¹ظ‚ط§ط±ط¨ ط¹ظ„ظٹ Microsoft Visual Basic ] (http://www.dzbatna.com/t280457/)
بسم الله الرحمن الرحيم
أفتح برنامج البيزك المرئي
افتح مشروع جديد واختار قائمة (new Project) التي تقلع بعد تشغيل البرنامج مباشرة http://www.dzbatna.com/images/smilies/smoke1.gif
(ActiveX control) وضع فيه (timer1) وحدد الخاصية
Interval = 1000 ثم ضع ايضاً (line) عدد3 لايهم موقعها ولا طولها ودع خصائصها كما هي باستثناء
اللون والسماكة او العرض ان احببت تغييرها
ثم انسخ الكود code التالي وضعيه في صفحة الكود code http://www.dzbatna.com/images/smilies/icon30.gif
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) في اي مشروع ثاني بالطريقة التالية http://www.dzbatna.com/images/smilies/in_love.gif
من (file) استدعي الامر (make Project1.ocx) واكتب الاسم الذي تريده بالانكليزي
بهذا يكون العمل قد اكتمل
و الف مبروك عليك العمل يا بطل http://www.dzbatna.com/images/smilies/shiny.gif
محبكم فى الله
النمر ,,
ألعاب الأندرويد مجانا و حصريا (http://www.apotox.info/forum)
https://fbcdn-sphotos-d-a.akamaihd.net/hphotos-ak-ash4/482113_236967293114455_1193518507_n.png (http://www.dzbatna.com)
©المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى (http://www.dzbatna.com)©
بسم الله الرحمن الرحيم
أفتح برنامج البيزك المرئي
افتح مشروع جديد واختار قائمة (new Project) التي تقلع بعد تشغيل البرنامج مباشرة http://www.dzbatna.com/images/smilies/smoke1.gif
(ActiveX control) وضع فيه (timer1) وحدد الخاصية
Interval = 1000 ثم ضع ايضاً (line) عدد3 لايهم موقعها ولا طولها ودع خصائصها كما هي باستثناء
اللون والسماكة او العرض ان احببت تغييرها
ثم انسخ الكود code التالي وضعيه في صفحة الكود code http://www.dzbatna.com/images/smilies/icon30.gif
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) في اي مشروع ثاني بالطريقة التالية http://www.dzbatna.com/images/smilies/in_love.gif
من (file) استدعي الامر (make Project1.ocx) واكتب الاسم الذي تريده بالانكليزي
بهذا يكون العمل قد اكتمل
و الف مبروك عليك العمل يا بطل http://www.dzbatna.com/images/smilies/shiny.gif
محبكم فى الله
النمر ,,
ألعاب الأندرويد مجانا و حصريا (http://www.apotox.info/forum)
https://fbcdn-sphotos-d-a.akamaihd.net/hphotos-ak-ash4/482113_236967293114455_1193518507_n.png (http://www.dzbatna.com)
©المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى (http://www.dzbatna.com)©