sperimentare

verifica legge della rifrazione ,Snell-Cartesio-angolo limite
con Excel,  con VBA su Excel
per codici e attivazione vedi link
http://digilander.libero.it/francescovise/vbacodice/prove.htm
http://digilander.libero.it/francescovise/vbacodice/vbarifrange.htm
http://digilander.libero.it/francescovise/vbacodice/vbarifrange.xls
http://digilander.libero.it/francescovise/vbacodice/vbarifra.htm
http://digilander.libero.it/francescovise/vbacodice/vbarifra.xls
http://digilander.libero.it/francescovise/vbacodice/vbarifrazionex.htm
http://digilander.libero.it/francescovise/vbacodice/vbarifrazionex.xls

aprire file.htm con FrontPageExpress, copiare codice, aprire Excel, incollare codice

Private Sub CommandButton1_Click()
Cells(18, 1) = "inserire angolo incidenza iniziale in A2(2,1):altrimenti appare messaggio di errore"
Cells(19, 1) = "inserire incremento angolo in F2 (2,6)"
Cells(20, 1) = "inserire indice rifrazione x in F4 (4,6)"
Cells(21, 1) = "cliccare pulsante1"
Cells(1, 1) = "angolo incidente"
Cells(1, 3) = "rifrazione acqua 1.3"
Cells(1, 4) = "rifrazione vetro 1.5"
Cells(1, 5) = "rifrazione calcite 1.6"
n12 = 1.33
n13 = 1.55
n14 = 1.66
Cells(1, 7) = "corpo x"
ai = Cells(2, 1) 'angolo incidenza iniziale
Cells(1, 6) = "incremento angolo"
p = Cells(2, 6) ' incremento angolo
Cells(3, 6) = "indice x "
nx = Cells(4, 6)
For riga = 2 To 10
If ai = 90 Then
Cells(14, 1) = "90° :massimo angolo > rifrazione limite"
End If
If ai > 90 Then
Cells(15, 1) = "angoli >90° non compatibili:cambiare passo"
End If
Cells(riga, 1) = ai
radianti = Cells(riga, 1) * 3.14 / 180
senoi = Sin(radianti)
Cells(riga, 2) = senoi

seno1 = senoi / n12
radianti1 = Atn(seno1 / (Sqr(1 - seno1 ^ 2)))
gradi1 = radianti1 * 180 / 3.14
Cells(riga, 3) = gradi1

seno2 = senoi / n13
radianti2 = Atn(seno2 / (Sqr(1 - seno2 ^ 2)))
gradi2 = radianti2 * 180 / 3.14
Cells(riga, 4) = gradi2

seno3 = senoi / n14
radianti3 = Atn(seno3 / (Sqr(1 - seno3 ^ 2)))
gradi3 = radianti3 * 180 / 3.14
Cells(riga, 5) = gradi3

senox = senoi / nx
radiantix = Atn(senox / (Sqr(1 - senox ^ 2)))
gradix = radiantix * 180 / 3.14
Cells(riga, 7) = gradix

ai = ai + p
Next riga
End Sub

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