بسم الله الرحمان الرحيم

بسم الله الرحمن الرحيم

هذا كود لساعة عقارب انا مو استطعت اعملو ممكن المساعدة لم افهم ما هي الاداة tmrquartz_time


Const PI = 3.14159

Private Sub Command1_Click()
frmClock.Width = 7670
End Sub

Private Sub Command2_Click()
frmClock.Width = 5000
End Sub

Private Sub Form_Load()
Call tmrQuartz_Timer
End Sub



Private Sub Timer1_Timer()
If Image1.Visible = True Then
Image1.Visible = False
Else
Image1.Visible = True
End If
End Sub

Private Sub tmrQuartz_Timer()
Dim Hours As Single, Minutes As Single, Seconds As Single
Dim TrueHours As Single

lblTime.Caption = Time
'Beep
Hours = Hour(Time)
Minutes = Minute(Time)
Seconds = Second(Time)
TrueHours = Hours + Minutes / 60

' I made all the X1 and Y1 equal in the form
LineHour.X2 = 1000 * Cos(PI / 180 * (30 * TrueHours - 90)) + LineHour.X1
LineHour.Y2 = 1000 * Sin(PI / 180 * (30 * TrueHours - 90)) + LineHour.Y1

LineMinute.X2 = 1500 * Cos(PI / 180 * (6 * Minutes - 90)) + LineHour.X1
LineMinute.Y2 = 1500 * Sin(PI / 180 * (6 * Minutes - 90)) + LineHour.Y1

LineSecond.X2 = 1600 * Cos(PI / 180 * (6 * Seconds - 90)) + LineHour.X1
LineSecond.Y2 = 1600 * Sin(PI / 180 * (6 * Seconds - 90)) + LineHour.Y1

End Sub

بسم الله الرحمان الرحيم

كود لتحويل العملات انا سانتظر ردودكم انشاء الله حتى اضع مواضيع جديدة بحول الله وقوته.

Private Sub Command1_Click()
Select Case COB1.ListIndex
Case 0:
Label4.Caption = "USA"
Textout.Text = Val(Textin.Text) * 617.57 / 100
Case 1:
Label4.Caption = "GBP"
Textout.Text = Val(Textin.Text) * 971.35 / 100
Case 2:
Label4.Caption = "JPY"
Textout.Text = Val(Textin.Text) * 525.61 / 100
Case 3:
Label4.Caption = "DZD"
Textout.Text = Val(Textin.Text) * 0.0523 / 100
Case 4:
Label4.Caption = "TND"
Textout.Text = Val(Textin.Text) * 2.838 / 100
Case 5:
Label4.Caption = "BHD"
Textout.Text = Val(Textin.Text) * 10.3005 / 100
Case 6:
Label4.Caption = "KWD"
Textout.Text = Val(Textin.Text) * 2060.04 / 100
Case 7:
Label4.Caption = "AED"
Textout.Text = Val(Textin.Text) * 168.13 / 100
Case 8:
Label4.Caption = "MAD"
Textout.Text = Val(Textin.Text) * 0.368 / 100
Case 9:
Label4.Caption = "LBP"
Textout.Text = Val(Textin.Text) * 0.0026 / 100
Case 10:
Label4.Caption = "SAR"
Textout.Text = Val(Textin.Text) * 164.52 / 100
Case 11:
Label4.Caption = "QAR"
Textout.Text = Val(Textin.Text) * 1.0665 / 100
Case 12:
Label4.Caption = "OMR"
Textout.Text = Val(Textin.Text) * 12.28 / 100
Case 13:
Label4.Caption = "JOD"
Textout.Text = Val(Textin.Text) * 5.4544 / 100
Case 14:
Label4.Caption = "EUR"
Textout.Text = Val(Textin.Text) * 672.71 / 100
Case Else
MsgBox "اختار البلد ", vbCritical, "هتتعبنى معاك ليه"
End Select
End Sub

Private Sub Command2_Click()
End
End Sub

منقول

الموضوع التالي انشاء الله أكثر من 50 كود غلى ملف txt