mengenal input dan output pada mikrokontroler 8535 degan program baccom
bikin simulasi di proteus seperti 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
$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
0 komentar:
Posting Komentar