vbarifrazionex
vedi vbarifrazionex.xls esercitazione con VBA su Excel
verifica legge della rifrazione con aria, acqua, vetro, corpo di
indice rifrazione da assegnare
modificare , inserendo , angolo incidenza iniziale, incremento
angolo
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