Jak zapalać poszczególnione cyfry podając GND na poszczególny port.
Przykładowo jeżeli na PORTD.0 pojawi się GND to zapali się 1. Jeśli GND się nie pojawi będzie 0.
Próbuję tak, ale wyświetla jedynie 0:
Przykładowo jeżeli na PORTD.0 pojawi się GND to zapali się 1. Jeśli GND się nie pojawi będzie 0.
Próbuję tak, ale wyświetla jedynie 0:
$regfile = "m16def.dat" 'informuje kompilator o pliku
$crystal = 8000000 'informuje kompilator o częstotliwości oscylatora
Config Portc = Output 'porty wyjściowe wyświetlacza LED
Config Portd.0 = Input 'port wejściowy GND
Config Portd.1 = Input 'port wejściowy GND
Config Portd.4 = Input 'port wejściowy GND
Config Portd.5 = Input 'port wejściowy GND
Config Portd.6 = Input 'port wejściowy GND
Config Portd.7 = Input 'port wejściowy GND
Dim Kod_cyfra As Byte
Do
If Portd.0 = 1 Then
Kod_cyfra = Lookup(1 , Kody7seg)
Portc = Kod_cyfra
Else
Kod_cyfra = Lookup(0 , Kody7seg)
Portc = Kod_cyfra
End If
Wait 2
Loop
End
Kody7seg:
Data &B01000000 , &B01111001 , &B00100100 , &B00110000 , &B00011001,
Data &B00010010 , &B00000010 , &B01111000 , &B00000000 , &B00010000,