test interattivo su formule di fisica
esci con indice1.htm

scrivere formule inverse per calcolare grandezza richiesta, usando formule
complete fornite
esercitazione con visual basic su powerpoint

Private Sub CommandButton2_Click()
Rem visualizza formula di fisica da calcolare comune tre serie
Dim d(27) As String
Rem prima serie
d(1) = "spazio=velocità*tempo > velocità= "
d(2) = "spazio=velocità*tempo > tempo= "
d(3) = "accelerazione=velocità/tempo > velocità"
d(4) = "accelerazione=velocità/tempo > tempo"
d(5) = "spazio=accelerazione*tempo^2/2 > accelerazione"
d(6) = "spazio=accelerazione*tempo^2/2 > tempo"
d(7) = "spazio=Vo*t + a*t^2/2 > a"
d(8) = "spazio=Vo*t + a*t^2/2 > Vo "
d(9) = "Vf=Vo + a*t > a"
Rem seconda serie
d(10) = "F=m*a > a"
d(11) = "F=m*a > m"
d(12) = "Ep=m*g*h > m"
d(13) = "Ep=m*g*h > h"
d(14) = "Ec=m*v^2/2 > m"
d(15) = "Ec=m*v^2/2 > v"
d(16) = "S=v^2 /2*a > v"
d(17) = "S=v^2 /2*a > a"
d(18) = "L=f*s > f "
Rem terza serie
d(19) = "q=i*t >>> i"
d(20) = "q=i*t > t "
d(21) = "v=i*r > r"
d(22) = "v=i*r > i"
d(23) = "w=v*i > v"
d(24) = "w=v*i > i"
d(25) = "r=g*l/s^2 > g"
d(26) = "r=g*l/s^2 > l"
d(27) = "r=g*l/s^2 > s"

Rem visualizza domande
ListBox1.AddItem ("scrivere le risposte nelle caselle")
ListBox1.AddItem ("per calcolare grandezza indicata dopo segno > ")
ListBox1.AddItem ("per radice quadrata usare: rq(...)")
ListBox1.AddItem ("alla fine cliccare per controllare risposte")
ListBox1.AddItem ("------prima serie------- ")
ListBox1.AddItem ("spazio,tempo,velocità,accelerazione")
ListBox1.AddItem ("velocità iniziale Vo, finale Vf ")
ListBox1.AddItem ("------seconda serie-------------")
ListBox1.AddItem ("forza, massa, accelerazione gravità")
ListBox1.AddItem ("energia potenziale,cinetica,altezza,lavoro")
ListBox1.AddItem ("------terza serie ----------------")
ListBox1.AddItem ("volt,intensità,tempo,resistenza,potenza ")
ListBox1.AddItem ("lunghezza,sezione,coulomb,resistività ")
ListBox1.AddItem ("-------------------------------------")

For k = 1 To 27
ListBox1.AddItem (d(k))
If k = 9 Or k = 18 Then
ListBox1.AddItem ("----------------------")
End If
Next k
TextBox1.SetFocus
End Sub


Private Sub CommandButton1_Click()
Rem prima serie
Rem scrivere prodotti di reazione
Dim r(9) As String
Dim rd(9) As String
Rem risposta esatta
r(1) = "spazio/tempo"
r(2) = "spazio/velocità"
r(3) = "accelerazione*tempo"
r(4) = "velocità/accelerazione"
r(5) = "2*spazio/tempo^2"
r(6) = "rq(2*spazio/accelerazione)"
r(7) = "2*(spazio-Vo*t)/t^2"
r(8) = "(spazio-a*t^2/2)/t"
r(9) = "(Vf-Vo)/t"

Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9



Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k))
Next k
End Sub

Private Sub CommandButton5_Click()
Rem seconda serie
Rem scrivere prodotti di reazione o reattivo
Rem risposta esatta
Dim r(9) As String
Dim rd(9) As String

Rem risposta esatta
r(1) = "F/m"
r(2) = "F/a"
r(3) = "Ep/g*h"
r(4) = "Ep/m*g"
r(5) = "2*Ec/v^2"
r(6) = "rq(2*Ec/m)"
r(7) = "rq(2*a*S)"
r(8) = "v^2/2*S"
r(9) = "L/s"

Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9



Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k))
Next k
End Sub

Private Sub CommandButton6_Click()
Rem terza serie
Rem scrivere prodotti di reazione

Dim r(9) As String
Dim rd(9) As String

Rem risposta esatta
r(1) = "q/t"
r(2) = "q/i"
r(3) = "v/i"
r(4) = "v/r"
r(5) = "w/i"
r(6) = "w/v"
r(7) = "r*s^2/l"
r(8) = "r*s^2/g"
r(9) = "rq(d*l/r)"

Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9



Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k))
Next k
End Sub

Private Sub verifica(esatta, data)
If data = esatta Then
ListBox2.AddItem ("esatto : " & esatta)
Else
ListBox2.AddItem ("errato: era : " & esatta)
End If
ListBox2.AddItem ("-------------------------")
End Sub


Private Sub CommandButton3_Click()
ListBox1.Clear
ListBox2.Clear
End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
End Sub

vedi testfisica.ppt