commit 28/12/2024 13_08

refusi/AnalogClock_primo.bas

@@ -0,0 +1,67 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=13
+@EndOfDesignText@
+Sub Class_Globals
+	Private pnlClock As Panel      ' Pannello in cui disegnare l'orologio
+	Private cvsClock As Canvas     ' Canvas per disegnare l'orologio
+	Private clockDiameter As Float ' Diametro dell'orologio (in pixel)
+	Private centerX As Float       ' Coordinata X del centro dell'orologio
+	Private centerY As Float       ' Coordinata Y del centro dell'orologio
+End Sub
+
+' Inizializza l'orologio
+Public Sub Initialize(ParentPanel As Panel, PercentageOfWidth As Float)
+	pnlClock = ParentPanel
+	cvsClock.Initialize(pnlClock)
+	SetClockSize(PercentageOfWidth)
+End Sub
+
+' Imposta la dimensione dell'orologio come percentuale della larghezza del pannello
+Public Sub SetClockSize(PercentageOfWidth As Float)
+	clockDiameter = pnlClock.Width * PercentageOfWidth / 100
+	centerX = pnlClock.Width / 2
+	centerY = pnlClock.Height / 2
+	DrawClock
+End Sub
+
+' Disegna l'orologio
+Public Sub DrawClock
+	cvsClock.Initialize(pnlClock)
+    
+	' Cancella il canvas
+	cvsClock.DrawColor(Colors.White)
+    
+	' Disegna il cerchio esterno
+	cvsClock.DrawCircle(centerX, centerY, clockDiameter / 2, Colors.Black, False, 5)
+    
+	' Disegna le lancette
+	Dim now As Long = DateTime.Now
+	Dim Hours As Int = DateTime.GetHour(now) Mod 12
+	Dim Minutes As Int = DateTime.GetMinute(now)
+	Dim Seconds As Int = DateTime.GetSecond(now)
+    
+	' Lancetta ore
+	Dim HourAngle As Float = -90 + Hours * 30 + Minutes / 2
+	DrawHand(centerX, centerY, clockDiameter * 0.25, HourAngle, 8, Colors.Black)
+    
+	' Lancetta minuti
+	Dim MinuteAngle As Float = -90 + Minutes * 6
+	DrawHand(centerX, centerY, clockDiameter * 0.4, MinuteAngle, 5, Colors.Blue)
+    
+	' Lancetta secondi
+	Dim SecondAngle As Float = -90 + Seconds * 6
+	DrawHand(centerX, centerY, clockDiameter * 0.45, SecondAngle, 2, Colors.Red)
+    
+	' Aggiorna il pannello
+	pnlClock.Invalidate
+End Sub
+
+' Disegna una singola lancetta
+Private Sub DrawHand(x As Float, y As Float, length As Float, angle As Float, width As Int, color As Int)
+	Dim endX As Float = x + length * CosD(angle)
+	Dim endY As Float = y + length * SinD(angle)
+	cvsClock.DrawLine(x, y, endX, endY, color, width)
+End Sub