legge punti coniugati e lente convergente

verifica numerica della legge dei punti coniugati in lente convergente;con Excel, VBA su Excelper codici e attivazione vedi linkhttp://digilander.libero.it/francescovise/vbacodice/prove.htmhttp://digilander.libero.it/francescovise/vbacodice/vbalente.htmhttp://digilander.libero.it/francescovise/vbacodice/vbalente.xlshttp://digilander.libero.it/francescovise/vbacodice/vbaconiuga.htmhttp://digilander.libero.it/francescovise/vbacodice/vbaconiuga.xlshttp://digilander.libero.it/francescovise/vbacodice/vbalentex2.xmlhttp://digilander.libero.it/francescovise/vbacodice/vbalentex3.mhthttp://digilander.libero.it/francescovise/vbacodice/vbaconiuga.mht Private Sub CommandButton1_Click() Rem verifica legge punti coniugati Rem ipotesi per evitare errore divisione per 0 Cells(13, 1) = "inserire valore per fuoco in cella F2: limitarsi a 0,5 - 1-2-3-4 " Cells(15, 1) = "poi cliccare pulsante 1" Cells(1, 6) = "fuoco" Cells(1, 7) = "centro curvatura" Cells(2, 7) = Cells(2, 6) * 2 Cells(1, 1) = "posizione p" Cells(1, 2) = "posizione q" Cells(1, 3) = "ingrandimento g" p = 10 For riga = 2 To 11 Cells(riga, 1) = p If Cells(riga, 1) <> Cells(2, 6) Then Cells(riga, 2) = (Cells(2, 6) * (Cells(riga, 1)) / ((Cells(riga, 1) - Cells(2, 6)))) Cells(riga, 3) = Cells(riga, 2) / Cells(riga, 1) Else Cells(riga, 2) = "non esiste" Cells(riga, 3) = "non esiste" End If p = p - 1 Next riga End Sub Private Sub CommandButton2_Click() For riga = 2 To 12 For colonna = 1 To 3 Cells(riga, colonna) = "" Next colonna Next riga Cells(2, 6) = "" Cells(2, 7) = "" End Sub