Kendali 8 buah relay mengggunakan mikrokontroler dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Kendali 8 buah relay mengggunakan mikrokontroler dengan bascom dan at mega 8535

Skema rangkaian Kendali 8 buah relay mengggunakan mikrokontroler dengan bascom dan at mega 8535

Source code Kendali 8 buah relay mengggunakan mikrokontroler dengan bascom dan at mega 8535

$regfile = "m8535def.dat"

$crystal = 16000000

Config Porta = Input

Porta = 255

Config Portd = Output

Portd = 0

Do

If Pina.0 = 0 Then

Portd.0 = Not Portd.0

waitms 300

Elseif Pina.1 = 0 Then

Portd.1 = Not Portd.1

Waitms 300

Elseif Pina.2 = 0 Then

Portd.2 = Not Portd.2

Waitms 300

Elseif Pina.3 = 0 Then

Portd.3 = Not Portd.3

Waitms 300

Elseif Pina.4 = 0 Then

Portd.4 = Not Portd.4

Waitms 300

Elseif Pina.5 = 0 Then

Portd.5 = Not Portd.5

Waitms 300

Elseif Pina.6 = 0 Then

Portd.6 = Not Portd.6

Waitms 300

Elseif Pina.7 = 0 Then

Portd.7 = Not Portd.7

Waitms 300

End If

Loop

End