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