Kontrol Seven Segment via Serial Komunikasi

Praktek membuat aplikasi mikrokontroler, mengontrol nyala seven segment lewat serial.
UIHHHHHHHHHHH KEREEEEEEEEENNNNNNN...
Ternyata caranya mudah....follow me :


Masih mengandalkan BASCOM-AVR, memakai mikrokontroler ATmega8535 dengan kristal 16 MHz :
$regfile = “m8535.dat”
$crystal = 16000000
$baud = 9600
Dim Tombol As Byte
Config Porta = Output
Porta = &HC0
Wait 1
Print “Tes Serial”
Do
  Tombol = Waitkey()
  Select Case Tombol
   Case “0″ : Porta = &HC0
   Case “1″ : Porta = &HF9
   Case “2″ : Porta = &HA4
   Case “3″ : Porta = &HB0
   Case “4″ : Porta = &H99
   Case “5″ : Porta = &H92
   Case “6″ : Porta = &H82
   Case “7″ : Porta = &HF8
   Case “8″ : Porta = &H80
   Case “9″ : Porta = &H90
  End Select
Loop
End