Private Sub Resim0_Click()
Me.Metin10 = SaatBul ' SonDgr \ 60 & ":" & SonDgr Mod 60
End Sub
Private Sub Resim0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const pi = 3.142857
Const nCentreLeft = (7 * 567), nCentreUp = (7 * 567)
XTan = X - nCentreLeft
YTan = nCentreUp - Y
Me.LblSaat.Caption = SaatBul
End Sub
Function SaatBul() As String
Dim SonDgr As Single
Dim Aci As Integer
SaatBul = ""
If YTan = 0 Then Exit Function
SonDgr = Atn(XTan / YTan) * 180 / 3.142857
If XTan > 0 And YTan < 0 Then Aci = 180
If XTan < 0 And YTan < 0 Then Aci = 180
If XTan < 0 And YTan > 0 Then Aci = 360
SonDgr = 2 * (Aci + SonDgr)
SaatBul = IIf(SonDgr \ 60 = 0, 12, SonDgr \ 60) & ":" & SonDgr Mod 60
End Function
tam olarak kaçtayken 0'a bölme hatası veriyor?
kodu düzelttim dilerim hata vermez
dosya 12. mesajdaki AnalogSaat_hy2 dosyasında