Differenze tra le versioni di "Ruotare un cerchio disegnato in una DrawingArea"

Da Gambas-it.org - Wikipedia.
Riga 5: Riga 5:
 
   
 
   
 
  Private da As DrawingArea
 
  Private da As DrawingArea
−
  Private x As Float        <FONT Color=gray>' ''Memorizza l'inizio del cerchio.''</font>
+
  Private Const DIAMETRO As Short = 200   <FONT Color=gray>' ''Memorizza il diametro del cerchio.''</font>
−
Private y As Float        <FONT Color=gray>' ''Idem''</font>
 
−
Private iAlt As Integer   <FONT Color=gray>' ''Memorizza l'altezza del cerchio.''</font>
 
−
Private iLarg As Integer  <FONT Color=gray>' ''Memorizza la larghezza del cerchio.''</font>
 
 
  Private fAngolo As Float  <FONT Color=gray>' ''Memorizza i gradi dell'angolo.''</font>
 
  Private fAngolo As Float  <FONT Color=gray>' ''Memorizza i gradi dell'angolo.''</font>
−
Private fSopra1 As Float  <FONT Color=gray>' ''Memorizza la posizione di partenza orizzontale della rotazione.''</font>
 
−
Private fSopra2 As Float  <FONT Color=gray>' ''Memorizza la posizione di partenza verticale della rotazione.''</font>
 
−
Private fSotto1 As Float  <FONT Color=gray>' ''Memorizza la posizione di arrivo orizzontale della rotazione.''</font>
 
−
Private fSotto2 As Float  <FONT Color=gray>' ''Memorizza la posizione di arrivo verticale della rotazione.''</font>
 
 
   
 
   
 
   
 
   
Riga 19: Riga 12:
 
    
 
    
 
   With Me
 
   With Me
 +
    .W = DIAMETRO * 2
 +
    .H = .W
 
     .Center
 
     .Center
 
     .Arrangement = Arrange.Fill
 
     .Arrangement = Arrange.Fill
Riga 26: Riga 21:
 
     .x = 0
 
     .x = 0
 
     .Y = 0
 
     .Y = 0
 +
    .Background = Color.White
 
   End With
 
   End With
 
    
 
    
Riga 35: Riga 31:
 
   Dim f As Float[] = [0, 0.34, 0.67, 1]
 
   Dim f As Float[] = [0, 0.34, 0.67, 1]
 
    
 
    
−
  iLarg = 200
 
−
  iAlt = 200
 
−
<FONT Color=gray>' ''L'angolo di rotazione è posto al centro dell'area di disegno, così come le misure di partenza e di arrivo. Siccome l'angolo ruota su se stesso, si dà al raggio del cerchio mezza lunghezza dell'angolo.''</font>
 
−
  x = CFloat((da.W / 2) - (iLarg / 2))
 
−
  y = CFloat((da.H / 2) - (iAlt / 2))
 
−
                 
 
−
<FONT Color=gray>' ''In questa dimostrazione il fulcro (vortice) è sempre il centro dell'area di disegno:''</font>
 
−
  fSopra1 = CFloat((da.W / 2))
 
−
  fSopra2 = CFloat(da.H / 2)
 
−
  fSotto1 = CFloat(- (da.W / 2))
 
−
  fSotto2 = CFloat(- (da.H / 2))
 
−
 
 
 
   With Paint
 
   With Paint
 
     .Brush = .LinearGradient(0, 20, 15, 0, c, f)
 
     .Brush = .LinearGradient(0, 20, 15, 0, c, f)
−
  <FONT Color=gray>' ''Vortice:''</font>
+
  <FONT Color=gray>' ''Il fulcro (vortice) della rotazione è sempre il centro dell'area di disegno:''</font>
−
     <FONT Color=#B22222>.Translate</font>(fSopra1, fSopra2)  
+
     <FONT Color=#B22222>.Translate</font>(da.W / 2, da.H / 2)
 
     .Rotate(Rad(fAngolo))   
 
     .Rotate(Rad(fAngolo))   
−
    <FONT Color=#B22222>.Translate</font>(fSotto1, fSotto2)
 
 
     .LineWidth = 2.0
 
     .LineWidth = 2.0
−
     .Ellipse(x, y, iLarg, iAlt, Rad(360), Rad(360), True)
+
<FONT Color=gray>' ''Disegna il cerchio.''
 +
' ''Siccome l'angolo ruota su se stesso, si dà al raggio del cerchio mezza lunghezza dell'angolo.''</font>
 +
     .Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(0), Rad(360), True)
 
     .Stroke  
 
     .Stroke  
 
     .End
 
     .End
Riga 67: Riga 52:
 
       fAngolo += 1
 
       fAngolo += 1
 
       If fAngolo = 361 Then fAngolo = 1
 
       If fAngolo = 361 Then fAngolo = 1
−
      da.Refresh
 
 
     Case Key.Down
 
     Case Key.Down
 
       fAngolo -= 1
 
       fAngolo -= 1
 
       If fAngolo = -361 Then fAngolo = -1
 
       If fAngolo = -361 Then fAngolo = -1
−
      da.Refresh
 
 
   End Select
 
   End Select
 +
 
 +
  da.Refresh
 
    
 
    
 
  '''End'''
 
  '''End'''

Versione delle 19:23, 9 nov 2021

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. 

' 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)
' Il fulcro (vortice) della rotazione è sempre il 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à al raggio del cerchio mezza lunghezza dell'angolo.
   .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_Resize()   ' Con questo evento se cambia la dimensione del Form, il disegna 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 questa pagina: Ruotare qualsiasi elemento da disegnare in una DrawingArea

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Ruotare_un_cerchio_disegnato_in_una_DrawingArea&oldid=29193"