Zitat Zitat von mollyman
Zeit / 1757 = Test '357

Test / 100 = Hunderter '357/100=3,57=3
(test / 10) -(hunderter * 10) = Zehner '357/10=35,7=35- 3*10)=5
Test -(hunderter * 100) -(zehner * 10) = Einer
Eine Zuweisung geht in Bascom immer anders herum:
Ergebnis=operand1 operator operand2
Es ist keine Schachtelung erlaubt. Also wäre das die richtige Berechnung:
Hunderter = Test / 100 '357/100=3
Zehner = Hunderter * 100 '3*100=300
Zehner = Test - Zehner '357-300=57
Einer = Zehner Mod 10 'Rest(57/10)=7
Zehner = Zehner / 10 '57/10=5

Zitat Zitat von mollyman
If Hunderter = 1 Then Portd = Seg_array(1)
If Hunderter = 2 Then Portd = Seg_array(2)
If Hunderter = 3 Then Portd = Seg_array(3)
If Hunderter = 4 Then Portd = Seg_array(4)
If Hunderter = 5 Then Portd = Seg_array(5)
If Hunderter = 6 Then Portd = Seg_array(6)
If Hunderter = 7 Then Portd = Seg_array(7)
If Hunderter = 8 Then Portd = Seg_array(8)
If Hunderter = 9 Then Portd = Seg_array(9)
If Hunderter = 0 Then Portd = Seg_array(10)
Die brauchst du alle nicht mehr, sondern so:
If Hunderter = 0 Then
Portd = Seg_array(10)
Else
Portd = Seg_array(Hunderter)
Endif

Für die Zehner und Einer entsprechend.

Gruß

Rolf