rem Kilometer by gehtnix 17.04.2010 rem errechnet die Geschwindigkeit auf die eingestellte Messstrecke @title Kilometer @param a Messstrecke m x100 @default a 2 @param b Messstrecke m x10 @default b 0 @param c Messstrecke m x1 @default c 0 @param d Laufzeitkorrektur @default d 13 a=a*100+b*10+c :menue set_console_layout 0 0 21 5 cls print "*********************" print "* Zum Starten *" print "* SET-Taste drücken *" print "*********************" wait_click rem if is_key "up" then goto "treshold_adj" if is_key "set" then gosub "messen" goto "menue" :messen cls print "*********************" print "* Zum Stoppen *" print "* SET-Taste drücken *" print "*********************" R=get_tick_count wait_click S=get_tick_count set_console_layout 0 0 29 5 print "Datum = "get_time 3"."get_time 4"."get_time 5 print "Uhrzeit = "get_time 2":"get_time 1":"get_time 0 T=S-R-d print "" print "gestoppte Zeit = "T/1000","T%1000" Sek" print "Geschwindigkeit = "a*3600/T " Km/h" wait_click if is_key "set" then return return :restore exit_alt end