ALAT KONVEYOR DENGAN PENGHITUNG BARANG OTOMATIS

 

Kelompok B4

1. Arga Dipta Lanommi  (3.32.20.1.05)
2. Ashlahu Rizqi          (3.32.20.1.06)
3. Muhammad Rayhan (3.32.20.1.18)   
4. Rizkia Fernanda Berliana (3.32.20.1.22)

Perusahaan selalu berupaya untuk mengganti pekerjaan yang selama ini dilakukan oleh manusia untuk digantikan dengan mesin-mesin dalam rangka efisiensi dan peningkatan kualitas produksinya. Dengan kata lain, banyak perusahaan melakukan otomasi produksinya. Misalnya, proses produksi yang pada awalnya masih dilakukan secara manual seperti pada proses packing.

Pada proses industri manual dikerjakan oleh tenaga manusia dan membutuhkan jumlah tenaga kerja yang tidak sedikit dan membuat waktu proses produksi menjadi lebih lama. Selain itu, sering terjadi human error pada industri manual seperti melakukan kesalahan dalam menghitung jumlah barang yang akan di packing. Hal ini membuat kita melakukan pekerjaan secara berulang-ulang. Untuk mengatasi masalah itu, perusahaan yang menginginkan proses produksi yang lebih efektif dan efisien melakukan perubahan pola produksi dengan mengaplikasikan sistem otomasi dalam produksinya. Seperti halnya dalam menghitung jumlah barang yang berjalan pada suatu conveyor yang nantinya akan lanjut proses packing. Maka dari itu, kelompok kami membuat alat penghitung barang otomatis dengan memanfaatkan teknologi berupa Sensor Infrmerah sebagai pendeteksi halangan(adanya barang) dengan AT89S51 sebagai kontroller. Keluarannya yaitu Bel yang akan berbunyi jika mendeteksi adanya halangan tersebut dan Motor sebagai penggerak konveyor.

Input    : Sensor Infamerah.

Output : Tampilan Tujuh,Bel,Led Dan Motor.

Program Unduh disini

;            =============ALAT KONVEYOR DENGAN PENGHITUNG BARANG OTOMATIS============

;                                     KELOMPOK B4 KELAS EK2B

ORG 0H ;MENGATUR AWAL DARI PROGRAM

SENSOR SET P1.0 ;MENDEFINISIKAN  SENSOR SAMA DENGAN PORT 1.0

MOTOR         SET P3.0 ;MENDEFINISIKAN  MOTOR SAMA DENGAN PORT 3.0

BEL         SET P3.1 ;MENDEFINISIKAN  BEL SAMA DENGAN PORT 3.1

AWAL: 

CLR  MOTOR ;MEMBERIKAN LOGIKA 0 PADA MOTOR

SETB BEL ;MEMBERIKAN LOGIKA 1 PADA BEL

;===============================TAMPILAN TUJUH===========================

ANGKA0:

MOV P2,#40H ;ISIKAN PORT 2 DENGAN 40H

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA1 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA1

JMP ANGKA0 ;LOMPAT KE ANGKA0

ANGKA1:

MOV P2,#79H ;ISIKAN PORT 2 DENGAN 79H

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA2 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA2

JMP ANGKA1 ;LOMPAT KE ANGKA1

ANGKA2:

MOV P2,#24H ;ISIKAN PORT 2 DENGAN 24H

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA3 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA3

JMP ANGKA2 ;LOMPAT KE ANGKA2

ANGKA3:

MOV P2,#30H ;ISIKAN PORT 2 DENGAN 30H

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA4 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA4

JMP ANGKA3 ;LOMPAT KE ANGKA3

ANGKA4:

MOV P2,#19H ;ISIKAN PORT 2 DENGAN 19H

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

CLR BEL ;MEMBERIKAN LOGIKA 0 PADA BEL

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA5 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA5

JMP ANGKA4 ;LOMPAT KE ANGKA4

ANGKA5:

MOV P2,#12H ;ISIKAN PORT 2 DENGAN 12H

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

SETB BEL         ;MEMBERIKAN LOGIKA 1 PADA BEL

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA6 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA6

JMP ANGKA5 ;LOMPAT KE ANGKA5

ANGKA6:

MOV P2,#2H         ;ISIKAN PORT 2 DENGAN 2H

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA7 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA7

JMP ANGKA6 ;LOMPAT KE ANGKA6

ANGKA7:

MOV P2,#78H ;ISIKAN PORT 2 DENGAN 78H

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA8 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA8

JMP ANGKA7 ;LOMPAT KE ANGKA7

ANGKA8:

MOV P2,#0H         ;ISIKAN PORT 2 DENGAN 0

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

CLR BEL ;MEMBERIKAN LOGIKA 0 PADA BEL

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA9 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA9

JMP ANGKA8 ;LOMPAT KE ANGKA8

ANGKA9:

MOV P2,#90H ;ISIKAN PORT 2 DENGAN 90H

MOV P0,#40H ;ISIKAN PORT 0 DENGAN 40H

SETB BEL         ;MEMBERIKAN LOGIKA 1 PADA BEL

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA10 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA10

JMP ANGKA9 ;LOMPAT KE ANGKA9

ANGKA10:

MOV P2,#40H; ;ISIKAN PORT 2 DENGAN 40H

MOV P0,#79H ;ISIKAN PORT 0 DENGAN 79H

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA11 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA11

JMP ANGKA10 ;LOMPAT KE ANGKA10

ANGKA11:

MOV P2,#24H ;ISIKAN PORT 2 DENGAN 79H

MOV P0,#79H ;ISIKAN PORT 0 DENGAN 79H

ACALL TUNDA ;PANGGIL TUNDA

JNB SENSOR,ANGKA12 ;JIKA SENSOR SAMA DENGAN 0 MAKA LOMPAT KE ANGKA13

JMP ANGKA11 ;LOMPAT KE ANGKA11

ANGKA12:

MOV P2,#24H ;ISIKAN PORT 2 DENGAN 0H

MOV P0,#79H ;ISIKAN PORT 0 DENGAN 40H

ACALL TUNDA ;PANGGIL TUNDA

CLR BEL ;MEMBERIKAN LOGIKA 0 PADA BEL

SETB MOTOR ;MEMBERIKAN LOGIKA 1 PADA MOTOR

JMP ANGKA12 ;LOMPAT KE ANGKA12

TUNDA:

MOV R0,#255 ;ISIKAN REGISTER RO DENGAN 255 DESIMAL

TUNDA1:

MOV R1,#255 ;ISIKAN REGISTER R1 DENGAN 255 DESIMAL

TUNDA2:

NOP ;TIDAK ADA OPERASI.PROGRAM AKAN DI LANJUTKAN KE INSTRUKSI BERIKUTNYA

NOP ;TIDAK ADA OPERASI.PROGRAM AKAN DI LANJUTKAN KE INSTRUKSI BERIKUTNYA

NOP ;TIDAK ADA OPERASI.PROGRAM AKAN DI LANJUTKAN KE INSTRUKSI BERIKUTNYA

DJNZ R1,TUNDA2 ;JIKA BELUM 0 MAKA LOMPAT KE TUNDA2

DJNZ R0,TUNDA1 ;JIKA BELUM O MAKA LOMPAT KE TUNDA1

RET ;KEMBALI

END

Video Proyek