vbariflessione

vedi vbariflessione.xls

verifica didattica della legge della riflessione, con VBA su Excel
inserire angolo iniziale incidente( 2,3,4,5,10..):in A2 (2,1)viene visualizzata serie di angoli
incrementati di passo prefissato 2 e angoli di riflessione

copiare codice, aprire excel e creare due pulsanti, incollare codice in primo pulsante
(cancellare duplicato Private Sub ...ed End sub):disegnare eventualmente come
da imamgine allegata

Private Sub CommandButton1_Click()
Rem leggi riflessione
Cells(23, 1) = "inserire angolo riflessione iniziale:2,5,10...poi cliccare pulsante1"
Cells(1, 1) = "angolo incidente"
Cells(1, 2) = "angolo riflessione"
ai = Cells(2, 1)
For riga = 2 To 20
Cells(riga, 1) = ai
Cells(riga, 2) = ai
ai = ai + 2
Next riga
End Sub

Private Sub CommandButton2_Click()
For riga = 2 To 20
For colonna = 1 To 2
Cells(riga, colonna) = ""
Next colonna
Next riga
End Sub