Frenata, Codice sorgente Visual Basic 6 commentato.

 

Ecco un programmino che calcola il tempo di frenata in funzione della velocità.

In prati questo programma calcola lo spazio (in metri) necessario  ad  arrestare ‘un ‘automobile  viaggiante ad una certa velocità espressa in km/h  supponendo però che la decelerazione sia costante ed uguale a 7.8 m/(s * s).

Prima di tutto acquisisco tramite una text box il valore della velocità iniziale espressa in km/h, poi con la seguente formula

Vi(m/s) = ViKmh(km/h) * 3.6

mi calcolo la velocità iniziale espressa in metri /secondo.

Dopo di che mi calcolo lo spazio s espresso in metri con la seguente formula

s = (1 / 2) * ((Vi * Vi) / 7.

Il risultato dello spazio lo stampo in un’altra text box attraverso un command button.

Nel form1.frm create due textbox: text1.text e text2.text. E un command button

Private Sub Command1_Click()
ViKmh = Text1.Text
Dim Vi As String
Vi = ViKmh / 3.6
Dim s As Integer
s = (1 / 2) * ((Vi * Vi) / 7.
Text2.Text = s
End Sub

codice sorgente scaricabile http://www.enemy.altervista.org