logo elektroda
logo elektroda
X
logo elektroda
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[BASCOM] Wyświetlacz 7 seg, zapalanie cyfr masą.

Mad Jaro 08 Lut 2011 13:30 1050 1
  • #1 9121031
    Mad Jaro
    Poziom 16  
    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:
    $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,
  • Pomocny post
    #2 9121060
    tadzik85
    Poziom 38  
    do sprawdzania stanu portu służy rejestr PIN
REKLAMA