Scribd
Upload
141 views4 pages

Source Code BASCOM AVR Atmega8535

This document contains 10 programs written in BASCOM AVR for microcontroller programming. Program 1 turns on an LED on Port B. Program 2 blinks an LED on and off Port B. Program 3 walks an LED from bit 0 to bit 7 on Port B. Programs 4 and 5 display the numbers 3 and 0 on a 7-segment display. Program 6 displays the numbers 0123 in sequence on the 7-segment display. Program 7 does the same using a lookup table. Programs 8-10 demonstrate using dot matrix displays to light individual lines, columns, and to display the letter K.

Uploaded by

Atim NY
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
141 views4 pages

Source Code BASCOM AVR Atmega8535

This document contains 10 programs written in BASCOM AVR for microcontroller programming. Program 1 turns on an LED on Port B. Program 2 blinks an LED on and off Port B. Program 3 walks an LED from bit 0 to bit 7 on Port B. Programs 4 and 5 display the numbers 3 and 0 on a 7-segment display. Program 6 displays the numbers 0123 in sequence on the 7-segment display. Program 7 does the same using a lookup table. Programs 8-10 demonstrate using dot matrix displays to light individual lines, columns, and to display the letter K.

Uploaded by

Atim NY
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 4

Source Coding Jobsheet 1 s/d 10

Program Mikrokontroller Atmega dengan BASCOM AVR

Program 1.
'*************************************
'Program 1: Menghidupkan LED di Port B
' Teknik Elektronika Industri '
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Ddrb = &B11111111
Portb = &B01010101
End

Program 2.
'*************************************
'Program 2: LED Blink
' Teknik Elektronika Industri '
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Ddrb = &B11111111
Do
Portb = &B11111111
Wait 1
Portb = &B00000000
Wait 1
Loop
End

Program 3.
'*************************************
'Program 3: LED Berjalan
‘ Teknik Elektronika Industri ‘
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Ddrb = &B11111111
Do
Portb = &B00000001
Wait 1
Portb = &B00000010
Wait 1
Portb = &B00000100
Wait 1
Portb = &B00001000
Wait 1
Portb = &B00010000
Wait 1
Portb = &B00100000
Wait 1
Portb = &B01000000
Wait 1
Portb = &B10000000
Wait 1
Loop
End
Program 4.
'*************************************
'Program 4: seven segment angka 3
‘ Teknik Elektronika Industri ‘
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Config PORTA = Output
Config PORTB = Output

PORTA = &B1110
PORTB = &B10110000
End

Program 5.
'*************************************
'Program 5: seven segment angka 0
‘ Teknik Elektronika Industri ‘
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Config PORTA = Output
Config PORTB = Output

PORTA = &B1101
PORTB = &B11000000
End

Program 6.
'*************************************
'Program 6: Tampil angka 0123
‘ Teknik Elektronika Industri ‘
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Config PORTA = Output
Config PORTB = Output
Do
Porta = &B1110
Portb = &B11000000
Waitms 5
Porta = &B1101
Portb = &B11111001
Waitms 5
Porta = &B1011
Portb = &B10100100
Waitms 5
Porta = &B0111
Portb = &B10110000
Waitms 5
Loop
End
Program 7.
*************************************
'Program 7: Tampil angka 0123 dg Tabel
‘ Teknik Elektronika Industri ‘
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Config PORTA = Output
Config PORTB = Output
Dim I As Byte
Do
For I = 0 To 3
Porta = Lookup(i , Digit)
Portb = Lookup(i , Angka)
Waitms 5
Next
Loop
Digit:
Data &HFE , &HFD , &HFB , &HF7
Angka:
Data &HC0 , &HF9 , &HA4 , &HB0 , &H99 , &H92 , &H82 , &HF8 , &H80 , &H9

Program 8.
'*************************************
'Program 8: Dot Matrik Tampil Baris 4
‘ Teknik Elektronika Industri ‘
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Config PORTC = Output
Config PORTD = Output

PORTC = &B00000
PORTD = &B0001000
End

Program 9.
'*************************************
'Program 9: Dot Matrik Vertikal Kolom 2
‘ Teknik Elektronika Industri ‘
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Config PORTC = Output
Config PORTD = Output

PORTC = &B11101
PORTD = &B1111111
End
Program 10.
'*************************************
'Program 10: Dot Matrik Huruf K
‘ Teknik Elektronika Industri ‘
'*************************************
$regfile = "m8535.dat"
$crystal = 16000000
Config PORTC = Output
Config PORTD = Output

Do
PORTD = &B1111111
PORTC = &B11110
Waitms 5
PORTD = &B0001000
PORTC = &B11101
Waitms 5
PORTD = &B0010100
PORTC = &B11011
Waitms 5
PORTD = &B0100010
PORTC = &B10111
Waitms 5
PORTD = &B1000001
PORTC = &B01111
Waitms 5
Loop
End

You might also like