menyalakan led dengan cara rotasi pakai bascom atmga 8535

cara menyalakan led dengan sistem rotasi

listening program pakai bascom

'barlianno creativ
$regfile = "m8535.dat"
$crystal = 12000000


Config Portc = Output                                       'port c sebagai output
Dim X As Integer
Portc = 0
Do


Portc = &B00000001                                          'meyalakan satu led
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X
  Portc = &B10000000                                        'meyalakan satu led
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X


     Portc = &B00000011                                     'meyalakan dua led
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X
                                                        'meyalakan dua led  dst
  Portc = &B11000000
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X

 Portc = &B00000111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

  Portc = &B11100000
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Portc = &B00001111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

  Portc = &B11110000
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Portc = &B00011111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

  Portc = &B11111000
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Portc = &B00111111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

  Portc = &B11111100
Waitms 100
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Portc = &B01111111
Waitms 100
For X = 1 To 8
Shift Portc , Left , 1
Waitms 100
Next X

  Portc = &B11111110
Waitms 50
For X = 1 To 8
Shift Portc , Right , 1
Waitms 100
Next X
Loop

selamat mencoba

baca selengkapnya

mengelan input dan output pada atmga 8535

mengenal input dan output pada mikrokontroler 8535 degan program baccom
bikin simulasi di proteus seperti di bawah ini

 buat program di bascom sseperti di bawah ini

'Program menhidupkan led degan tombol barlianno
$regfile = "m8535.dat"
$crystal = 12000000
Dim X As Byte
Config Portb = Output
Config Portc = Input


Tombol1 Alias &B11111110                                    'mengaktipkan tombolportc0
Tombol2 Alias &B11111101                                    'mengaktipkan tombolportc1
Tombol3 Alias &B11111011                                    'mengaktipkan tombolportc2
Tombol4 Alias &B11110111                                    'mengaktipkan tombolportc3
Tombol5 Alias &B11101111                                    'mengaktipkan tombolportc4
Tombol6 Alias &B11011111                                    'mengaktipkan tombolportc5
Tombol7 Alias &B10111111                                    'mengaktipkan tombolportc6
Tombol8 Alias &B01111111                                    'mengaktipkan tombolportc7

Hasil Alias Portb
Masukan Alias Pinc
Portc = 255
' menghidupkan LED berdasar penekanan push button di PORTC
Do
X = Masukan
Select Case X
Case Tombol1 : Hasil = &B11111111                           ' pushbuton di portd 1  menyala semua
Case Tombol2 : Hasil = &B10000001                           ' pushbuton di portd 2
Case Tombol3 : Hasil = &B11000011                           ' pushbuton di portd 3
Case Tombol4 : Hasil = &B11100111                           ' pushbuton di portd 4
Case Tombol5 : Hasil = &B11110000                           ' pushbuton di portd 5
Case Tombol6 : Hasil = &B00001111                           ' pushbuton di portd 6
Case Tombol7 : Hasil = &B11100000                           ' pushbuton di portd 7
Case Tombol8 : Hasil = &B00000000                           ' pushbuton di portd 8   led mati

End Select
Loop

cara kerja
configurasikan port b sebagai output dan port c sebagai input. terus bikin variabel.
hasil pengetesaan
jika tombol 1 ditekan led akan menyala semua
jika tombol 2 di tekan led akan menyala dua 1 dikiri 1 dikanan
jika tombol 3 di tekan led akan menyala 4  (2 dikiri 2 di kanan)
jika tombol 4 di tekan led akan menyala 6 (3 dikiri 3 dikanan)
jika tombol 5 di tekan led akan menyala 4 di kiri
jika tombol 6 di tekan led akan menyala 4 di kanan
jika tombol 7 di tekan led akan menyala 3 di kiri
jika tombol 8 di tekan led akan mati

selamat mencoba

baca selengkapnya