vbaenergiap

vedi vbaenergiap.ppt

verifica costanza somma energia potenziale e cinetica, come variante di vbaenergiay.htm

inserire massa, accelerazione, altezza iniziale, decremento
viene calcolata energia potenziale, cinetica

codice da copiare e incollare (cfr.spiega1.htm) su powerpoint/userform creando
due pulsanti, 4 textbox, 4 label , 1 listbox

Private Sub CommandButton1_Click()
Dim g, m, h, s, p, q As Integer
Dim ep, v2, ec, pc As Double

g = Val(TextBox2) 'accelerazione di gravità
m = Val(TextBox1) 'massa
h = Val(TextBox3) 'altezza iniziale
s = 0 'altezza per calcolo velocità
p = 1
p = Val(TextBox4) '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)
h = h - p
s = s + p
Next k
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""

End Sub