Kendali nyala padam LED via komputer / pc / laptop mengggunakan mikrokontroler dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Kendali nyala padam LED via komputer / pc / laptop mengggunakan mikrokontroler dengan bascom dan at mega 8535

Skematik rangkaian Kendali nyala padam LED via komputer / pc / laptop mengggunakan mikrokontroler dengan bascom dan at mega 8535

Source code Kendali nyala padam LED via komputer / pc / laptop mengggunakan mikrokontroler dengan bascom dan at mega 8535

$regfile = "8535def.dat"

$crystal = 16000000

$baud = 19200

Dim Tombol As Byte

Config Portc = Output

Portc = &HFF

Print "Tekan sembarang tombol keyboard !"

Do

Tombol = Waitkey()

If Tombol > 47 And Tombol < 57 Then

Print "LED " ; Chr(tombol) ; " ON"

End If

Select Case Tombol

Case "1" : Portc = &B11111110

Case "2" : Portc = &B11111101

Case "3" : Portc = &B11111011

Case "4" : Portc = &B11110111

Case "5" : Portc = &B11101111

Case "6" : Portc = &B11011111

Case "7" : Portc = &B10111111

Case "8" : Portc = &B01111111

Case Else : Portc = &HFF

End Select

Loop

End