[BASCOM] Jak napisać warunek if dla czterobitowego sygnału w BASCOM?

If Pinb.7 = 0 Then                                          
Jedynkaczas = 1 
Else Jedynkaczas = 0 
End If
If Pinb.6 = 0 Then
Dwojkaczas = 2
Else
Dwojkaczas = 0
End If                'Sczytywanie stanów logicznych wyprowadzeń 
If Pinb.5 = 0 Then        'z DIP-Switcha od ustawień czasu
Czworkaczas = 4
Else
Czworkaczas = 0
End If
If Pinb.4 = 0 Then
Osemkaczas = 8
Else
Osemkaczas = 0
End If
Czaspomoc = Jedynkaczas + Dwojkaczas 
Czaspomocdwa = Czworkaczas + Osemkaczas  'sumowanie i konwersja 
Czaszczytany = Czaspomoc + Czaspomocdwa
If Pinb.3 = 0 Then              
Jedynkatryb = 1 
Else
Jedynkatryb = 0
End If
If Pinb.2 = 0 Then
Dwojkatryb = 2
Else
Dwojkatryb = 0
End If
If Pinb.1 = 0 Then        'Sczytywanie stanów logicznych wyprowadzeń
Czworkatryb = 4            'z DIP-Switcha od ustawień trybu
Else
Czworkatryb = 0
End If
If Pinb.0 = 0 Then
Osemkatryb = 8
Else
Osemkatryb = 0
End If

8.2 Struktura programu

Trybpomoc = Jedynkatryb + Dwojkatryb 
Trybpomocdwa = Czworkatryb + Osemkatryb          'sumowanie i konwersja           
Tryb = Trybpomoc + Trybpomocdwa 
Debounce Pind.6 , 0 , Wlaczanie , Sub    'po naciśnięciu przycisku...
Loop
End                    'koniec pętli

Wlaczanie:                    'wybór czasu w
Select Case Czaszczytany        'zależności od ustawień na DIP-Switchu 
Case 0:
Czas = 5                                                    '5 sekund
Case 1:
Czas = 10                                                   '10 sekund
Case 2:
Czas = 20                                                   '20 sekund
Case 3:
Czas = 30                                                   '30 sekund
Case 4:
Czas = 60                                                   '60 sekund

zmienna = pinb  and 15

if zmienna........ 

If (PINB And 0x0F) Then 

zmienna = pinb and 0x0F
Select zmienna 
Case 0:
' dla wartości 0
Case 1:
' dla wartości 1
Case 2:
' dla wartości 2
Case 3:

Case 4:
 

Dim Stan_portu As Byte
Stan_portu = Portd

Do
  If Stan_portu <> Portd Then
    Stan_portu = Portd
    Select Case Portd
      Case 128:
        instrukcje...
      Case 192:
        instrukcje...
      Case 224:
        instrukcje...
      Case 240:
        instrukcje...
      Case 248:
        instrukcje...
    End Select
  End If
Loop

$regfile = "m8def.dat"                                      'proc
$crystal = 16000000                                         'zegar
Config Portb = Input
Config Pinc.0 = Output
Config Pinc.0 = 0                                           'led testowy

Dim Stan As Byte
Stan_portu Alias Portb

Stan_portu = Portb                                          


Do                                                          
If Stan_portu <> Portb Then
    Stan_portu = Portb
    Select Case Portb
    Case 0:
    Case 1:
    Set Pinc.0
    Wait 5
    Reset Pinc.0
    Case 2:
    Case 3:
    Case 4:
    End Select
    End If
    Loop
    End

Stan_portu = PinB

Config Pinc.0 = Output
Config Pinc.0 = 0       

$regfile = "m8def.dat"                                      'proc
$crystal = 16000000                                         'zegar
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinb.3 = Input
Config Portc.0 = Output
Config Portc.0 = 0                                          'led testowy

Dim Stan_portu As Byte
Stan_portu = Pinb                                           'portb jako stan


Do                                                          'petla
If Stan_portu <> Pinb Then
    Stan_portu = Pinb
    Select Case Pinb
    Case 0:
    Case 1:
    Set Portc.0
    Wait 5
    Reset Portc.0
    Case 2:
    Case 3:
    Case 4:
    End Select
    End If
    Loop
    End

$regfile = "m8def.dat"                                      'proc
$crystal = 16000000                                         'zegar
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinb.3 = Input
Config Portc.0 = Output
Config Portc.0 = 0                                          'led testowy

Dim Stan_portu As Byte
Dim cosik As Byte
Stan_portu = Pinb                                           'portb jako stan


Do                                                          'petla
If Stan_portu <> Pinb Then
    Stan_portu = Pinb
    cosik= Stan_portu and 0x0F
    Select Case cosik
    Case 0:
    Case 1:
    Set Portc.0
    Wait 5
    Reset Portc.0
    Case 2:
    Case 3:
    Case 4:
    End Select
    End If
    Loop
    End

  Cosik = Stan_portu And 0x0f         

$regfile = "m8def.dat"                                      'proc
$crystal = 16000000                                         'zegar

Ddrb = &B11110000
Portb = &B00001111
Ddrc = &B11111111
Portc = &B00000000

Dim Stan_portu As Byte

Do                                                          'petla
   Stan_portu = Pinb And &B00001111                         'portb jako stan
   Select Case Stan_portu
      Case 0:
      Case 1:
         Portc.0 = 1
         Wait 5
         Portc.0 = 0
      Case 2:
      Case 3:
      Case 4:
   End Select
Loop
End