1 | $regfile "m8def.dat" |
2 | $crystal = 1000000 |
3 | |
4 | Config Portd = Output |
5 | Config Portb.0 = Input |
6 | Config Portb.1 = Output |
7 | Portb.0 = 1 |
8 | Portb.1 = 0 |
9 | Dim Dis(10) As Byte |
10 | Dis(1) = &B01111110 |
11 | Dis(2) = &B01001000 |
12 | Dis(3) = &B00111101 |
13 | Dis(4) = &B01101101 |
14 | Dis(5) = &B01001011 |
15 | Dis(6) = &B01100111 |
16 | Dis(7) = &B01110111 |
17 | Dis(8) = &B01001100 |
18 | Dis(9) = &B01111111 |
19 | Dis(10) = &B01101111 |
20 | Dim Cnt As Byte |
21 | Cnt = 1 |
22 | Dim Pressed As Bit |
23 | Pressed = 0 |
24 | Do |
25 | While Pressed = 1 |
26 | If Pinb.0 = 1 Then Pressed = 0 |
27 | If Pinb.0 = 0 Then Pressed = 1 |
28 | Portb.1 = 1 |
29 | Wend |
30 | If Pinb.0 = 0 Then |
31 | Pressed = 1 |
32 | Cnt = Cnt + 1 |
33 | End If |
34 | If Cnt => 11 Then Cnt = 1 |
35 | Portb.1 = 0 |
36 | Portd = Dis(cnt) |
37 | Loop |
Ja also nach Einiger Zeit läuft ja doch so einiges :) Ich will mich an der stelle dan nochmal bedanken für die, die die mega Geduld für mich aufgebracht haben! Jetz bin ich grad in der vorbereitung zum multiplexen und habe an der kathode von meiner 7 segment anzeige den C eines NPN Transitors und B an Portb.1 So wie man im Programm sieht wenn ich eine taste drücke geht portb.1 auf 5V Und die LED anzeige wird schwarz. Frage: Wenn man dem NPN an die Basis 5V gibt (10K davor) kann der dann nicht kaputt gehen? Denn da kommt ja minus bzw 0V hin?