Switch Kipas Angin ?? Bagian 2

pada tulisan sebelum nya penulis membuat tuliasn tentang Switch Kipas Angin. pada tulisan kali ini penulis diberi saran oleh pembaca dengan menambahkan perintah reset saat tombol yg sama ditekan. berikut simulasi yg penulis buat sesuai saran pembaca tersebut.

sw_kipas

sebagai contoh kali ini penulis sertakan contoh relay driver yg biasa penulis gunakan.

rl_driver

berikut update coding microcontroler nya

$regfile = "attiny2313.dat"
$crystal = 8000000

Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output

Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input
Config Pind.3 = Input

Dim X As Byte

Do
   Debounce Pind.0 , 0 , Set_1 , Sub
   Debounce Pind.1 , 0 , Set_2 , Sub
   Debounce Pind.2 , 0 , Set_3 , Sub
   Debounce Pind.3 , 0 , Set_4 , Sub
Loop
End

Set_0:
   Reset Portb.0
   Reset Portb.1
   Reset Portb.2
   Reset Portb.3
   X = 0
Return

Set_1:
   If X = 1 Then
      Gosub Set_0
   Else
      Set Portb.0
      Reset Portb.1
      Reset Portb.2
      Reset Portb.3
      X = 1
   End If
Return

Set_2:
   If X = 2 Then
      Gosub Set_0
   Else
      Reset Portb.0
      Set Portb.1
      Reset Portb.2
      Reset Portb.3
      X = 2
   End If
Return

Set_3:
   If X = 3 Then
      Gosub Set_0
   Else
      Reset Portb.0
      Reset Portb.1
      Set Portb.2
      Reset Portb.3
      X = 3
   End If
Return

Set_4:
   If X = 4 Then
      Gosub Set_0
   Else
      Reset Portb.0
      Reset Portb.1
      Reset Portb.2
      Set Portb.3
      X = 4
   End If
Return
Iklan
Perihal

Pemancar FM, Penerima FM, Microcontroler

Ditulis dalam Microcontroller
%d blogger menyukai ini: