MENGENDALIKAN NYALA 8*7SEGMENT Untuk Menampilkan Angka 0 s/d 7

BioDaTAKu

Nama	Suhardi
Kelas	XI TOI
NO/Induk	33/8901
Alamat	Banaran,Jenggrik,Kedawung,Sragen
Tempat	Sragen
Tanggal Lahir	09, Agustus, 1996
Jenis Kelamin	Pria
Hobi	Internetan, Mencoba hal-hal baru,dll

LAPORAN PRAKTEK

MENGENDALIKAN NYALA 8*7SEGMENT Untuk Menampilkan Angka 0 s/d 7

---

Wellcome in My html

1. Tujuan :
   Setelah siswa praktek diharapkan dapat :

   Melakukan Program Mikrokontroler Dengan Bahasa Basic (BASCOM).

   Menguji Coba Rangkaian Dengan Benar.

   Membuat Rangkaian MENGENDALIKAN NYALA 8*7SEGMENT Untuk Menampilkan Angka 0 s/d 7

   
   
2. Alat Dan Bahan :
   1. Alat :
      
      • Komputer Dengan Software Proteus.
      • Gambar Rencana Kerja.
      • Rencana Program.
      
      
   2. Bahan :
      • Ic AT89S51
      • 8*7segment
      • Minelect10U16V
      • Minres10K
      • Minres100R
      • Respack-8
      • Ceramic33P
   
   
3. Keselamatan Kerja :
   • Berdo'alah sebelum melakukan Praktek.
   • Dilarang Bersendau-gurau Saat Pelaksanaan Praktek.
   • Menghidupkan dan Mematikan Komputer dengan Prosedur Yang Benar.
   
   
4. Instruksi Kerja :
   • Memastikan alat dan bahan siap digunakan.
   • Memastikan telah memahami gambar kerja dan source code program.
   • Menulis source program dengan bascom 89s51.
   • Membuat rangkaian simulator rangkaian dengan proteus.
   • Membuat komplier kode program untuk mendapatkan file *HEX.
   • Melakukan uji coba rangkaian simulator.
5. Gambar Kerja :
   
6. Source Code :
   

   $regfile = "reg51.dat"
   $crystal = 12000000
   
   Segment Alias P0
   
   Digit Alias P2
   
   Dim X As Byte
   
   Dim Data_digit As Byte
   Data_digit = 1
   Do
   
   For X = 0 To 7
   Digit = Data_digit
   Segment = Lookup(x , Data)
   Waitms 1
   Rotate Data_digit , Left , 1
   Next X
   
   Loop
   
   Data:
   
   Data &B11000000
   Data &B11111001
   Data &B10100100
   Data &B10110000
   Data &B10011001
   Data &B10010010
   Data &B10000010
   Data &B11111000
   
   
   
   
   

7. Kesimpulan :

THANK YOU VERY MUCH