Disegnare in una DrawingArea un goniometro - Cronologia

Vuott il 02:57, 28 lug 2025

2025-07-28T02:57:39Z

@@ Riga 18: / Riga 18: @@
   Public Sub DrawingArea1_Draw()
-   rag = DrawingArea1.H * 0.4
+ <FONT Color=gray>' ''Raggio del cerchio su cui posizionare i numeri, pari al 40% dell'altezza dell'area di disegno:''</font>
    With Paint
      .Brush = Paint.Color(Color.Blue)
      For an = 0 To FINEANGOLO - 10 Step 10
-       .Text(CStr(an), (DrawingArea1.W / 2) + (rag + 20) * -Sin(Rad(-an)), (DrawingArea1.H / 2) - (rag + 20) * Cos(Rad(-an)))
+ <FONT Color=gray>' ''Converte l'angolo corrente in stringa per disegnare il numero:''</font>
      Next
-    .Stroke
      .Brush = Paint.Color(Color.Red)
      .LineWidth = 3.0
-     .Arc(DrawingArea1.W / 2 + 10, DrawingArea1.H / 2 - 6, rag, Rad(0), Rad(360), False)
      .Stroke
    End With
   End
 Un altro codice possibile:

Vuott il 02:06, 28 lug 2025

2025-07-28T02:06:21Z

← Versione meno recente		Versione delle 20:06, 27 lug 2025
Riga 7:		Riga 7:

	With Me		With Me
	.~~W =~~ Screen.AvailableWidth		.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)
	~~.H =~~ Screen.AvailableHeight
	.Arrangement = Arrange.Fill		.Arrangement = Arrange.Fill
	End With		End With
Riga 34:		Riga 33:
	.Arc(DrawingArea1.W / 2 + 10, DrawingArea1.H / 2 - 6, rag, Rad(0), Rad(360), False)		.Arc(DrawingArea1.W / 2 + 10, DrawingArea1.H / 2 - 6, rag, Rad(0), Rad(360), False)
	.Stroke		.Stroke
	~~.End~~
	End With		End With

	End		End
	Un altro codice possibile:		Un altro codice possibile:
			Private DrawingArea1 As DrawingArea


	Public Sub Form_Open()		Public Sub Form_Open()

	Me.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)		With Me
			.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)
			.Arrangement = Arrange.Fill
			End With

	Me.~~Arrangement~~ = ~~Arrange~~.~~Fill~~		With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
			.Background = Color.Lighter(Color.White)
	~~DrawingArea1.Refresh~~		End With

	End		End
Riga 79:		Riga 83:
	<FONT Color=gray>' ''Coordinate interne della tacca (più corta o più lunga):''</font>		<FONT Color=gray>' ''Coordinate interne della tacca (più corta o più lunga):''</font>
	If a Mod 30 = 0 Then		If a Mod 30 = 0 Then
	x2 = cx + Cos(angleRad) * (r - 20) ' Tacca lunga ogni 30°''</font>		x2 = cx + Cos(angleRad) * (r - 20) <FONT Color=gray>' ''Tacca lunga ogni 30°''</font>
	y2 = cy + Sin(angleRad) * (r - 20)		y2 = cy + Sin(angleRad) * (r - 20)
	Else		Else
	x2 = cx + Cos(angleRad) * (r - 10) ' Tacca corta ogni 10°''</font>		x2 = cx + Cos(angleRad) * (r - 10) <FONT Color=gray>' ''Tacca corta ogni 10°''</font>
	y2 = cy + Sin(angleRad) * (r - 10)		y2 = cy + Sin(angleRad) * (r - 10)
	EndIf		EndIf

	Paint.MoveTo(x1, y1) ' Inizio linea tacca''</font>		Paint.MoveTo(x1, y1) <FONT Color=gray>' ''Inizio linea tacca''</font>
	Paint.LineTo(x2, y2) ' Fine linea tacca''</font>		Paint.LineTo(x2, y2) <FONT Color=gray>' ''Fine linea tacca''</font>

	<FONT Color=gray>' ''Disegna numeri ogni 30°, escluso il 360 per non sovrapporre lo 0:''</font>		<FONT Color=gray>' ''Disegna numeri ogni 30°, escluso il 360 per non sovrapporre lo 0:''</font>
Riga 96:		Riga 100:
	ty = cy + Sin(angleRad) * (r - 35)		ty = cy + Sin(angleRad) * (r - 35)

	Paint.Font.Size = 10 ~~' Dimensione font''</font>~~		Paint.Font.Size = 10
	Paint.Text(Str(a), tx - 10, ty - 6, 20, 12, Align.Center) <FONT Color=gray>' ''Disegna numero angolo''</font>		Paint.Text(Str(a), tx - 10, ty - 6, 20, 12, Align.Center) <FONT Color=gray>' ''Disegna numero angolo''</font>
	End If		End If
Riga 110:		Riga 114:
	Paint.LineTo(cx, cy + r)		Paint.LineTo(cx, cy + r)

	~~Paint.Stroke()~~ <FONT Color=gray>' ''Applica il disegno''</font>		<FONT Color=gray>' ''Applica il disegno''</font>
			Paint.Stroke()

	End		End

Vuott il 08:26, 22 lug 2025

2025-07-22T08:26:57Z

← Versione meno recente		Versione delle 02:26, 22 lug 2025
Riga 37:		Riga 37:
	End With		End With

			End
			Un altro codice possibile:
			Public Sub Form_Open()

			Me.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)

			Me.Arrangement = Arrange.Fill

			DrawingArea1.Refresh

			End


			Public Sub DrawingArea1_Draw()

			<FONT Color=gray>' ''Centro orizzontale e verticale della DrawingArea:''</font>
			Dim cx, cy As Integer
			<FONT Color=gray>' ''Raggio del goniometro con margine per non uscire dai bordi:''</font>
			Dim r As Integer
			<FONT Color=gray>' ''Variabile per angolo in gradi:''</font>
			Dim a As Integer
			<FONT Color=gray>' ''Coordinate per le tacche:''</font>
			Dim x1, y1, x2, y2 As Float
			<FONT Color=gray>' ''Angolo in radianti, calcolato da gradi:''</font>
			Dim angleRad As Float

			cx = DrawingArea1.Width / 2 <FONT Color=gray>' ''Centro X''</font>
			cy = DrawingArea1.Height / 2 <FONT Color=gray>' ''Centro Y''</font>
			r = Min(cx, cy) - 40 <FONT Color=gray>' ''Raggio con margine''</font>

			Paint.Arc(cx - r, cy - r, r * 2, r * 2, 0, 360) <FONT Color=gray>' ''Disegna cerchio completo''</font>

			For a = 0 To 360 Step 10 <FONT Color=gray>' ''Ciclo da 0 a 360 gradi, step 10°''</font>

			angleRad = Rad(a) <FONT Color=gray>' ''Conversione gradi -> radianti''</font>

			<FONT Color=gray>' ''Coordinate esterne della tacca (sulla circonferenza):''</font>
			x1 = cx + Cos(angleRad) * r
			y1 = cy + Sin(angleRad) * r

			<FONT Color=gray>' ''Coordinate interne della tacca (più corta o più lunga):''</font>
			If a Mod 30 = 0 Then
			x2 = cx + Cos(angleRad) * (r - 20) ' Tacca lunga ogni 30°''</font>
			y2 = cy + Sin(angleRad) * (r - 20)
			Else
			x2 = cx + Cos(angleRad) * (r - 10) ' Tacca corta ogni 10°''</font>
			y2 = cy + Sin(angleRad) * (r - 10)
			EndIf

			Paint.MoveTo(x1, y1) ' Inizio linea tacca''</font>
			Paint.LineTo(x2, y2) ' Fine linea tacca''</font>

			<FONT Color=gray>' ''Disegna numeri ogni 30°, escluso il 360 per non sovrapporre lo 0:''</font>
			If a Mod 30 = 0 And a <> 360 Then
			Dim tx, ty As Float
			<FONT Color=gray>' ''Posizione testo leggermente più interno rispetto alla tacca lunga:''</font>
			tx = cx + Cos(angleRad) * (r - 35)
			ty = cy + Sin(angleRad) * (r - 35)

			Paint.Font.Size = 10 ' Dimensione font''</font>
			Paint.Text(Str(a), tx - 10, ty - 6, 20, 12, Align.Center) <FONT Color=gray>' ''Disegna numero angolo''</font>
			End If

			Next

			<FONT Color=gray>' ''Linea orizzontale centrale (diametro):''</font>
			Paint.MoveTo(cx - r, cy)
			Paint.LineTo(cx + r, cy)

			<FONT Color=gray>' ''Linea verticale centrale (diametro):''</font>
			Paint.MoveTo(cx, cy - r)
			Paint.LineTo(cx, cy + r)

			Paint.Stroke() <FONT Color=gray>' ''Applica il disegno''</font>

	End		End

Vuott il 17:44, 27 giu 2024

2024-06-27T17:44:52Z

← Versione meno recente		Versione delle 11:44, 27 giu 2024
Riga 16:		Riga 16:

	End		End


	Public Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

Vuott: Creata pagina con "Per disegnare su una ''DrawingArea'' un semplice quadrante del goniometro, si potrà adottare il seguente codice: ^{[nota 1]} Private DrawingArea1..."

2023-05-28T14:47:06Z

Creata pagina con "Per disegnare su una ''DrawingArea'' un semplice quadrante del goniometro, si potrà adottare il seguente codice: <SUP>[nota 1]</sup> Private DrawingArea1..."

Nuova pagina

Per disegnare su una ''DrawingArea'' un semplice quadrante del goniometro, si potrà adottare il seguente codice: <SUP>[[[#Note|nota 1]]]</sup>
Private DrawingArea1 As DrawingArea
Private FINEANGOLO As Short = 360

Public Sub Form_Open()

With Me
.W = Screen.AvailableWidth
.H = Screen.AvailableHeight
.Arrangement = Arrange.Fill
End With
With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
.Background = Color.Lighter(Color.Yellow)
End With

End

Public Sub DrawingArea1_Draw()

Dim rag, an As Short

rag = DrawingArea1.H * 0.4

With Paint
.Brush = Paint.Color(Color.Blue)
For an = 0 To FINEANGOLO - 10 Step 10
.Text(CStr(an), (DrawingArea1.W / 2) + (rag + 20) * -Sin(Rad(-an)), (DrawingArea1.H / 2) - (rag + 20) * Cos(Rad(-an)))
Next
.Stroke
.Brush = Paint.Color(Color.Red)
.LineWidth = 3.0
.Arc(DrawingArea1.W / 2 + 10, DrawingArea1.H / 2 - 6, rag, Rad(0), Rad(360), False)
.Stroke
.End
End With

End

=Note=
[1] Vedere anche: [[Disegnare in una DrawingArea un cerchio]]

Disegnare in una DrawingArea un goniometro - Cronologia

Vuott il 02:57, 28 lug 2025

Vuott il 02:06, 28 lug 2025

Vuott il 08:26, 22 lug 2025

Vuott il 17:44, 27 giu 2024

Vuott: Creata pagina con "Per disegnare su una ''DrawingArea'' un semplice quadrante del goniometro, si potrà adottare il seguente codice: [nota 1] Private DrawingArea1..."

Vuott: Creata pagina con "Per disegnare su una ''DrawingArea'' un semplice quadrante del goniometro, si potrà adottare il seguente codice: ^{[nota 1]} Private DrawingArea1..."