vbarifrazione

vedi vbarifra.xls

verifica legge della rifrazione Snell-Cartesio e ricerca angolo limite
inserire angolo incidenza, indice di rifrazione

viene trasformato angolo incidenza in radianti e calcoto il seno
viene calcolato seno angolo di rifrazione e l'arco in radianti e gradi
viene assegnato ai = 90 per calcolare massimo angolo di rifrazione(limite)

esercitazione con VBA su Excel

apri file.htm , copia codice VBA; apri Excel, incolla codice (creare due pulsanti)

Private Sub CommandButton1_Click()
Cells(3, 1) = "angolo ai in 4,1"
Cells(3, 2) = "radianti ai in 4,2"
Cells(3, 3) = "seno ai in 4,3"
Cells(3, 4) = "indice aria/corpo in 4,4"
Cells(3, 5) = "seno ar in 4,5"
Cells(3, 6) = "arcoseno ar in 4,6"
Cells(3, 7) = "gradi ar in 4,7"
ai = Cells(4, 1) 'angolo incidenza
Cells(4, 2) = Cells(4, 1) * 3.14 / 180 'radianti ai
Cells(4, 3) = Sin(Cells(4, 2)) 'seno ai
indiceariacorpo = Cells(4, 4) 'indice aria/corpo
Cells(4, 5) = Cells(4, 3) / indiceariacorpo 'seno ar
seno1 = Cells(4, 5)
Cells(4, 6) = Atn(seno1 / (Sqr((1 - seno1 ^ 2)))) 'arco ar
Cells(4, 7) = Cells(4, 6) * 180 / 3.14 'gradi ar
Cells(10, 1) = "inserire angolo incidenza in 4,1:es.10,20,30,40,90"
Cells(11, 1) = "inserire indice di rifrazione in 4,4:es.1,33 1,55 1,66 2"
Cells(12, 1) = "attivare pulsante 1 "
Cells(13, 1) = "cancellare per altra prova , pulsante2"
Cells(14, 1) = "per avere angolo limite, assegnare ai =90 "
Cells(16, 1) = "legge di Snell-Cartesio :seno ai / seno ar = costante(n)"
Cells(17, 1) = "aria/acqua = 1,33 aria/vetro = 1,55 aria/calcite = 1,66"
Cells(18, 1) = "per la legge della reversibilità si ottiene"
Cells(19, 1) = "acqua/aria = 1/aria/acqua = 1/(1,33)= 0,75"
Cells(20, 1) = "vetro/aria = 1/aria/vetro = 1/(1,55)= 0,66"
Cells(21, 1) = "calcite/aria = 1/aria/calcite = 1/(1,66)= 0,60"
Cells(22, 1) = "corpo/aria = 1/aria/corpo = 1/2= 0,5"
End Sub

Private Sub CommandButton2_Click()
For colonna = 1 To 8
Cells(4, colonna) = ""
Next colonna
End Sub