Mengendalikan nyala 8x7 segmen untuk menampilkan angka 0 s/d 7

LAPORAN PRAKTEK 4
Mengendalikan nyala 8x7 segmen untuk menampilkan angka 0 s/d 7

1. Tujuan
   Setalah Siswa Praktek Diharapkan Siswa Dapat :
   • Siswa dapat menampilkan karakter pada 16 segmend.
   • Siswa dapat memahami cara kerja 16 segmend.
   • Siswa dapat membuat rumus mencari source code dengan Ms Excel.
   • Siswa dapat mengunakan rumus di Ms Excel.
   
   
2. Alat Dan Bahan :
   1. Alat
      • Komputer dengan software Simulator Proteus.
      • Gambar rancangan kerja.
      • Rancangan progaram.
   2. Bahan
      • Ic At89C51.
      • Respack-8.
      • 16 segmend x8
3. Keselamatan Kerja :
   1. Pakailah seragam peraktek.
   2. Ber'doa lah sebelum melakukan praktek.
   3. Jangan bersendau gurau pada saat praktek.
   4. Dalam menghidupkan dan mematikan komputer dengan prosedur yang benar.
   5. Jika ada kesulitan,tanyakan kepada Instrukture.
   
   
4. Instruksi Kerja :
   • Siapkan alat dan bahan siap digunakan.
   • Pahami gambar kerja dan source code program.
   • Buatlah rumus dengan mengunakan Ms Excel untuk membuat karakter code.
   • Masukan karakter code ke dalam Bascom 8051 untuk membuat souce code.
   • Jika sudah selesai,kompailah progam tersebut untuk mendapatkan file *HEX.
   • Buatlah rangkaian dengan simulator rangkaian dengan proteus.
   • Masukan file *HEX ke dalam rangkaian simulator.
   • Kemudian jalankan.
5. Gambar Kerja :
   
   
    
6.  Source Code : 

 $regfile = "reg51.dat"
$crystal = 12000000

Segmentu Alias P0
Segmentd Alias P2
Digit Alias P3

Dim X As Byte
Dim Data_digit As Byte

Data_digit = 1
Do

For X = 0 To 7
Digit = Data_digit
Segmentu = Lookup(x , Atas)
Segmentd = Lookup(x , Bawah)
Waitms 1
Rotate Data_digit , Left , 1
Next X

Loop

Atas:
Data &B01000100
Data &B00001100
Data &B00111000
Data &B11111100
Data &B11111111
Data &B00110000
Data &B00110000
Data &B11111111

Bawah:
Data &B01110111
Data &B01110111
Data &B01110111
Data &B11011101
Data &B11011101
Data &B01110111
Data &B11111111
Data &B11111111

7. Kesimpulan