vbaenergiay

verifica costanza della somma di energia potenziale e cinetica
con VBA su Excel (variante di vbaenergia.htm
vedi vbaenergiax.xls

massa, accelerazione, altezza, incremento o decremento altezza, prefissati

codice da copiare e incollare su excel, creando due pulsanti e una listbox
il grafico opzionale va creato da utente (cfr. spiega1.htm)

Private Sub CommandButton1_Click()
Dim g, m, h, s, p, q As Integer
Dim ep, v2, ec, pc As Double
g = 10 'accelerazione di gravità
m = 5 'massa
h = 80 'altezza iniziale
s = 0 'altezza per calcolo velocità
p = 5 'incremento o decremento altezza
q = Round(h / p) + 1 'numero di incrementi
ListBox1.AddItem ("massa = " & m)
ListBox1.AddItem ("accelerazione = " & g)
ListBox1.AddItem ("altezza = " & h)
For k = 1 To q
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 25
For colonna = 1 To 2
Cells(riga, colonna) = ""
Next colonna
Next riga
End Sub

ritorna a indice prove.htm