Also ich bin soweit, dass ich am Ende eine Bytezahl rauskriege, die keine Nachkommastellen hat.
Geht ja glaube ich eh ned...

Code:
Config Porta = Output

Dim Anzeige As Byte
Dim Zeit As Single
Dim Speed As Single

Zeit = 0

Do
 Zeit = Zeit + 0.001
 Print Zeit
 Waitms 1000
 Speed = 0.1 / Zeit
 Speed = Round(speed)
 Print Speed
 Waitms 1000
 Anzeige = Speed
 Porta = Anzeige
Loop

End
Das Programm steigert einfach immer die Zeit, ich wollte im Simulator mal schauen was so rauskommt.
Funktioniert wunderbar aber momentan hab ich halt an PortA noch die ganze Zahl...

Aber wie gebe ich diese Bytezahl jetzt auf 3 7-Segment Anzeigen aus?
Ich hab jeweils vor jeder Anzeige einen Dekoder, der 4 Bits als Input erwartet.
Ich müsste also die Zahl 123 in 3 Bytes aufteilen die dann 1,2 und 3 lauten,
bzw bei 45 wären die dann 0,4,5.

Und dann wäre noch das Problem wie kann ich dann die 0 auf PortA.1-4 und die 4 auf PortA.5-8 ausgeben?

Vitis hats ja schon gepostet aber ich steig leider nicht durch