vbaenergiay

variante di vbaenergiax.htm vedi vbaenergiay.xls

inserire massa, accelerazione (g=10 o altra), altezza iniziale, incremento altezza
viene calcolata energia potenzia e cinetica e verificata costanza della somma

codice da copiare e incollare su foglio excel, con creazione di due pulsanti e una listbox
(cfr.
spiega1.htm)

Private Sub CommandButton1_Click()
Dim g, m, h, s, p, q As Integer
Dim ep, v2, ec, pc As Double
Cells(26, 4) = "massa"
Cells(26, 5) = "accelerazione g"
Cells(26, 6) = "altezza "
Cells(26, 7) = "incremento"
g = Cells(27, 5) 'accelerazione di gravità
m = Cells(27, 4) 'massa
h = Cells(27, 6) 'altezza iniziale
s = 0 'altezza per calcolo velocità
p = 1
p = Cells(27, 7) 'incremento o decremento altezza divisore di altezza

q = Int(h / p) 'numero di incrementi
ListBox1.AddItem ("massa = " & m)
ListBox1.AddItem ("accelerazione = " & g)
ListBox1.AddItem ("altezza = " & h)
ListBox1.AddItem ("incremento = " & p)
For k = 1 To q + 1
ep = g * m * h
v2 = 2 * g * s
ec = m * v2 / 2
pc = ec + ep
ListBox1.AddItem (" h = " & h & " Ep = " & ep & " Ec = " & ec & " Ec+Ep = " & pc)
Cells(k, 1) = ep
Cells(k, 2) = ec
h = h - p
s = s + p
Next k
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
For riga = 1 To 50
For colonna = 1 To 2
Cells(riga, colonna) = ""
Next colonna
Next riga
For riga = 27 To 27
For colonna = 4 To 7
Cells(riga, colonna) = ""
Next colonna
Next riga
End Sub

con incremento non divisore esatto, può mancare altezza 0