vbaconiuga
verifica legge dei punti coniugati , con VBA su Excel
inserire fuoco per lente convergente :viene modificata la distanza della sorgente
e calcolata quella della immagine e ingrandimento ottenuto

vedi vbaconiuga.xls

codice da copiare e incollare (cfr.spiega1.htm) su foglio creando due pulsanti

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

vedi acnhe vbaconiuga.mht