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
Lesezeichen