Listato - Soluzione di Ekman all'equazione del moto con
attrito
Sub Command1_Click ()
W = Val(text1.text)
pigreco = 3.142
M = 1000
phi = Val(text2.text) * pigreco / 180
phi = Int(phi * M) / M
seno = Abs(Sin(phi))
seno = Int(seno * M) / M
denom = Sqr(seno)
denom = Int(denom * M) / M
If denom = 0 Then GoTo fine
V0 = (W * .0127) / denom
V0 = Int(V0 * M) / M
label10.caption = Str$(seno)
label5.caption = Str$(V0)
A = V0 / W: A = Int(A * M) / M
label8.caption = Str$(A)
D = (4.3 * W) / denom
label6.caption = Str$(D)
label12.caption = Str$(phi)
fine:
End Sub
| 