Source code pengendalian 30 Led Secara serial (pada sisi mikrokontroller)

Source code pengendalian 30 Led Secara serial (pada sisi mikrokontroller)

Source code berikut ini adalah source code yang dipergunakan untuk pengendalian 30 buah led, pada pengembangan lebih lanjut, dapat anda kebangkan untuk mengendalikan 30 buah lampu bertegangan 220 volt, atau bahkan yang 380 volt ac…

Experiment / percobaan adalah kunci keberhasilan,  bahkan dengan mengembangkan source code di bawah ini ada dapat mengendalikan gerakan robot berkaki ataupun beroda melaui PC.

Berikut ini adalah source code pengendalian  30 Led Secara serial menggunakan bascom AVR,

$regfile = "m16def.dat"

$baud = 9600

$crystal = 12000000

   Config Porta = Output

   Config Portb = Output

   Config Portc = Output

   Config Portd.2 = Output

   Config Portd.3 = Output

   Config Portd.4 = Output

   Config Portd.5 = Output

   Config Portd.6 = Output

   Config Portd.7 = Output

   Porta = &H00

   Portb = &H00

   Portc = &H00

   Portd.2 = 0

   Portd.3 = 0

   Portd.4 = 0

   Portd.5 = 0

   Portd.6 = 0

   Portd.7 = 0

  Dim Perintah As String * 6

  Print "Loading....";

  Waitms 200

  Print "Conn.... ";

  Waitms 200

    Print "Ok!";

  Do

        Input Perintah

'1-8

      Select Case Perintah

         Case "ON1" : Porta.0 = 1

         Case "ON2" : Porta.1 = 1

         Case "ON3" : Porta.2 = 1

         Case "ON4" : Porta.3 = 1

         Case "ON5" : Porta.4 = 1

         Case "ON6" : Porta.5 = 1

         Case "ON7" : Porta.6 = 1

         Case "ON8" : Porta.7 = 1

         Case "OFF1" : Porta.0 = 0

         Case "OFF2" : Porta.1 = 0

         Case "OFF3" : Porta.2 = 0

         Case "OFF4" : Porta.3 = 0

         Case "OFF5" : Porta.4 = 0

         Case "OFF6" : Porta.5 = 0

         Case "OFF7" : Porta.6 = 0

         Case "OFF8" : Porta.7 = 0

'9-16

         Case "ON9" : Portc.7 = 1

         Case "ON10" : Portc.6 = 1

         Case "ON11" : Portc.5 = 1

         Case "ON12" : Portc.4 = 1

         Case "ON13" : Portc.3 = 1

         Case "ON14" : Portc.2 = 1

         Case "ON15" : Portc.1 = 1

         Case "ON16" : Portc.0 = 1

         Case "OFF9" : Portc.7 = 0

         Case "OFF10" : Portc.6 = 0

         Case "OFF11" : Portc.5 = 0

         Case "OFF12" : Portc.4 = 0

         Case "OFF13" : Portc.3 = 0

         Case "OFF14" : Portc.2 = 0

         Case "OFF15" : Portc.1 = 0

         Case "OFF16" : Portc.0 = 0

         '16-24

         Case "ON17" : Portd.7 = 1

         Case "ON18" : Portd.6 = 1

         Case "ON19" : Portd.5 = 1

         Case "ON20" : Portd.4 = 1

         Case "ON21" : Portd.3 = 1

         Case "ON22" : Portd.2 = 1

         Case "ON23" : Portb.7 = 1

         Case "ON24" : Portb.6 = 1

         Case "OFF17" : Portd.7 = 0

         Case "OFF18" : Portd.6 = 0

         Case "OFF19" : Portd.5 = 0

         Case "OFF20" : Portd.4 = 0

         Case "OFF21" : Portd.3 = 0

         Case "OFF22" : Portd.2 = 0

         Case "OFF23" : Portb.7 = 0

         Case "OFF24" : Portb.6 = 0

         Case "ON25" : Portb.5 = 1

         Case "ON26" : Portb.4 = 1

         Case "ON27" : Portb.3 = 1

         Case "ON28" : Portb.2 = 1

         Case "ON29" : Portb.1 = 1

         Case "ON30" : Portb.0 = 1

         Case "OFF25" : Portb.5 = 0

         Case "OFF26" : Portb.4 = 0

         Case "OFF27" : Portb.3 = 0

         Case "OFF28" : Portb.2 = 0

         Case "OFF29" : Portb.1 = 0

         Case "OFF30" : Portb.0 = 0

      End Select

   Loop

End

kode diatas dipergunakan untuk mematikan dan menyalakan led dengan mengetikkan ON1 OFF1 dst pada hyperteminal

hal yang  perlu anda perhatikaan adalah setting fusebit, cristal, baud rate dan flow control

selamat ber experiment

 

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI