vbaenergia

vedi vbaenergia.xls

esercitazione con VBA su Excel e verifica della costanza della somma
di energia cinetica e potenziale: inserire solo la massa; accelerazione h = 10 ;altezza = 80
Ep = mgH
Ec = mV^2/2

codice da copiare e incollare (cfr.istruzioni in spiega1.htm)

Private Sub CommandButton1_Click()
Rem energia potenziale e cinetica
Cells(13, 1) = "costanza della somma di energia cinetica e potenziale"
Cells(14, 1) = "esempio con g = 10 e altezza = 80 "
Cells(15, 1) = "inserire solo la massa del corpo :es.50-100.."
Cells(1, 4) = "V^2"
Cells(1, 5) = "Ep = mgH"
Cells(1, 6) = "Ec = m*V^2/2"
Cells(1, 1) = "massa 1,2"
Cells(2, 1) = "accelerazione g 2,2"
Cells(2, 2) = 10
Cells(3, 1) = "altezza in 3,2"
Cells(3, 2) = 80
altezza = Cells(3, 2)
For riga = 4 To 12
Cells(riga, 1) = "altezza"
Cells(riga, 2) = altezza
Cells(riga, 4) = 2 * Cells(2, 2) * (Cells(3, 2) - altezza)
Cells(riga, 5) = Cells(1, 2) * Cells(2, 2) * altezza
Cells(riga, 6) = Cells(1, 2) * Cells(riga, 4) / 2
Cells(1, 7) = "Ep + Ec = K "
Cells(riga, 7) = Cells(riga, 5) + Cells(riga, 6)
altezza = altezza - 10
Next riga
End Sub