Dibawah ini contoh program akses input
'************************************************************
'Judul program: Akses Input
'Dibuat oleh: Deddy Prasetyo
'www.devalabnet.com
'************************************************************
'************************************************************
'inisialisasi
'************************************************************
' Tipe Mikrokontroller
$regfile = "m16def.dat"
' sumber clock 8 MHZ
$crystal = 8000000
' default bascom 32 untuk hardware stack
$hwstack = 32
' default bascom 10 untuk SW stack
$swstack = 10
' default bascom 40 untuk frame space
$framesize = 40
'************************************************************
'Setting Port
'************************************************************
'Port b sebagai Output
Config Portb = Input
Config Porta = Output
'atau DDRB=0
'atau DDRB=&B00000000
'keterangan (1=OUTPUT 0=INPUT)
'************************************************************
'************************************************************
'Program utama
'************************************************************
'Perintah perulangan do-loop
Do
'baca data port byte model desimal (opsi 0-255)
If Pinb = 255 Then Porta = 0
'baca data port byte model case (opsi 0-255)
Select Case Pinb
'case desimal
Case 1 : Porta = 1
'case hexa
Case $f4 : Porta = $f4
'case biner
Case &B11110000 : Porta = &B11110000
'case antara
Case 3 To 5 : Porta = 8
'case is sampai dengan
Case Is >= 10 : Porta = 4
'tidak sesuai case
Case Else : Porta = 5
End Select
'baca data port byte model bit (opsi 0 atau 1)
If Pinb.0 = 0 Then Porta = 255
'baca data port byte model bit anti bouncing(opsi 0 atau 1)
'fungsi ini hanya berlaku satu kali tekan saja/single push
'fungsi akan aktif lagi jika saklar dilepas/release
Debounce Pinb.0 , 0 , Saklar , Sub
Loop
Saklar:
'program setelah saklar ditekan
Return
'************************************************************
'Penjelasan program
'************************************************************
'program diatas merupakan contoh mengeluarkan data input
'dengan berbagai cara
'Agar program ini dapat berjalan dengan benar disable model
'program yang tidak ingin digunakan
'Judul program: Akses Input
'Dibuat oleh: Deddy Prasetyo
'www.devalabnet.com
'************************************************************
'************************************************************
'inisialisasi
'************************************************************
' Tipe Mikrokontroller
$regfile = "m16def.dat"
' sumber clock 8 MHZ
$crystal = 8000000
' default bascom 32 untuk hardware stack
$hwstack = 32
' default bascom 10 untuk SW stack
$swstack = 10
' default bascom 40 untuk frame space
$framesize = 40
'************************************************************
'Setting Port
'************************************************************
'Port b sebagai Output
Config Portb = Input
Config Porta = Output
'atau DDRB=0
'atau DDRB=&B00000000
'keterangan (1=OUTPUT 0=INPUT)
'************************************************************
'************************************************************
'Program utama
'************************************************************
'Perintah perulangan do-loop
Do
'baca data port byte model desimal (opsi 0-255)
If Pinb = 255 Then Porta = 0
'baca data port byte model case (opsi 0-255)
Select Case Pinb
'case desimal
Case 1 : Porta = 1
'case hexa
Case $f4 : Porta = $f4
'case biner
Case &B11110000 : Porta = &B11110000
'case antara
Case 3 To 5 : Porta = 8
'case is sampai dengan
Case Is >= 10 : Porta = 4
'tidak sesuai case
Case Else : Porta = 5
End Select
'baca data port byte model bit (opsi 0 atau 1)
If Pinb.0 = 0 Then Porta = 255
'baca data port byte model bit anti bouncing(opsi 0 atau 1)
'fungsi ini hanya berlaku satu kali tekan saja/single push
'fungsi akan aktif lagi jika saklar dilepas/release
Debounce Pinb.0 , 0 , Saklar , Sub
Loop
Saklar:
'program setelah saklar ditekan
Return
'************************************************************
'Penjelasan program
'************************************************************
'program diatas merupakan contoh mengeluarkan data input
'dengan berbagai cara
'Agar program ini dapat berjalan dengan benar disable model
'program yang tidak ingin digunakan