Ruotare un cerchio disegnato in una DrawingArea
Da Gambas-it.org - Wikipedia.
Versione del 2 gen 2022 alle 06:06 di Vuott (Discussione | contributi)
Mostriamo un possibile codice [Nota 1] per ottenere la rotazione intorno al proprio asse centrale di un cerchio, disegnato in una DrawingArea. [Nota 2]
Nell'esempio la rotazione del cerchio potrà essere notata attraverso visualizzazione della rotazione del suo raggio e soprattutto mediante la visualizzazione della colorazione della sua circonferenza.
La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera oppure ruotando la rotellina del mouse.
' Il fulcro del Metodo ".Translate()" agisce da vortice, da centro di rotazione intorno a una ipotetica circonferenza Private da As DrawingArea Private Const DIAMETRO As Short = 200 ' Memorizza il diametro del cerchio. Private fAngolo As Float ' Memorizza i gradi dell'angolo. Public Sub Form_Open() With Me .W = DIAMETRO * 2 .H = .W .Center .Arrangement = Arrange.Fill End With With da = New DrawingArea(Me) As "da" .x = 0 .Y = 0 .Background = Color.White End With End Public Sub da_Draw() Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red] Dim f As Float[] = [0, 0.34, 0.67, 1] With Paint .Brush = .LinearGradient(0, 20, 15, 0, c, f) ' Imposta il fulcro/centro della rotazione - ad esempio -al centro dell'area di disegno: .Translate(da.W / 2, da.H / 2) .Rotate(Rad(fAngolo)) .LineWidth = 2.0 ' Disegna il cerchio. ' Siccome l'angolo ruota su se stesso, si dà alle coordinate del cerchio la metà della dimensione del suo diametro. ' Non si devono modificare i valori né i segni dei primi quattro argomenti qui riportati. .Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(0), Rad(360), True) .Stroke .End End With End Public Sub Form_KeyPress() Select Case Key.Code Case Key.Up fAngolo += 1 If fAngolo = 361 Then fAngolo = 1 Case Key.Down fAngolo -= 1 If fAngolo = -361 Then fAngolo = -1 End Select da.Refresh End Public Sub Form_MouseWheel() fAngolo += Mouse.Delta Select Case fAngolo Case 361 fAngolo = 1 Case -361 fAngolo = -1 End Select da.Refresh End Public Sub Form_Resize() ' Con questo evento se cambia la dimensione del Form, il disegno non va perso. da.Refresh End
Note
[1] Il codice, presente in questa pagina, è tratto - con modifiche ed integrazioni - da un analogo codice suggerito dal membro Gianluigi del forum di gambas-it.org .
[2] Vedere anche queste pagine: