verifica leggi rifrazione

verifica legge della rifrazione ,Snell-Cartesio-angolo limitecon Excel,  con VBA su Excelper codici e attivazione vedi linkhttp://digilander.libero.it/francescovise/vbacodice/prove.htmhttp://digilander.libero.it/francescovise/vbacodice/vbarifrange.htmhttp://digilander.libero.it/francescovise/vbacodice/vbarifrange.xlshttp://digilander.libero.it/francescovise/vbacodice/vbarifra.htmhttp://digilander.libero.it/francescovise/vbacodice/vbarifra.xlshttp://digilander.libero.it/francescovise/vbacodice/vbarifrazionex.htmhttp://digilander.libero.it/francescovise/vbacodice/vbarifrazionex.xls    aprire file.htm con FrontPageExpress, copiare codice, aprire Excel, incollare codicePrivate 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