D min Sebagai Fungsi Jumlah Lengkungan dan Tegangan Tarik Maksimum d Tali Baja Tipe : 6 x Fibre Core. d 26,

Lampiran 1 Nilai

Dmin Sebagai Fungsi Jumlah Lengkungan dan Tegangan Tarik Maksimum d Tali Baja Tipe : 6 x 19 + 1 Fibre Core

Tabel L.1.1. Nilai Jumlah lengkungan 1 2 3 4

Dmin d 16 20 23 25

Dmin Sebagai Fungsi Jumlah Lengkungan d Jumlah lengkungan

5 6 7 8

Dmin d 26,5 28 30 31

Jumlah lengkungan 9 10 11 12

Dmin d 32 33 34 35

Sumber : Zainuri (2006)

Tabel L.1.2. Tegangan Tarik Maksimum pada Berbagai Diameter dan Beban Patah untuk Tali Baja : Tipe 6 x 19 + 1 Fibre Core Diamter Tali (mm) 7,9 9,5 10,3 11,1 12,6 14,2 16,6

Berat Per-meter (kg) 0,20 0,29 0,35 0,40 0,52 0,66 0,90

Beban Patah Aktual 140/159 160/179 180/199 (kg/mm2) (kg/mm2) (kg/mm2) 2850 3200 3600 4100 4650 5200 4800 5450 6100 5550 6350 7100 7250 8250 9300 9200 10500 11700 12500 14200 16000

Sumber : Syamsir (1987)

Universitas Sumatera Utara

Lampiran 2 Harga Faktor m, C, C1 dan C2 Tabel L.2.1. Harga Faktor m z Dalam Ribuan m z Dalam Ribuan m z Dalam Ribuan m

30 0,26 170 1,18 370 2,12

50 0,41 190 1,29 340 2,27

70 0,56 210 1,40 450 2,42

90 0,70 230 1,50 500 2,60

110 0.83 255 1,62 550 2,77

130 0,95 280 1,74 600 2,94

150 1,07 310 1,87 650 3,10

340 2,00 700 3,17

Tabel L.2.2. Harga Faktor C

Posisi Berpotongan

Posisi Sejajar

Posisi Berpotongan

Posisi Sejajar

Posisi Berpotongan

Posisi Sejajar

Posisi Berpotongan

Posisi Sejajar

6 x 37 = 222 dan satu Poros

Posisi Sejajar

130 160 180

Konstruksi Tali 6 x 19 = 114 dan Satu Poros Biasa Warrington Seale

Posisi Berpotongan

σb (kg/ mm2)

6 x 7 =42 dan Satu Poros

1.31 1,22 1,16

1,13 1,04 0,98

1,08 1,00 0,95

0,91 0,83 0,78

0,69 0,63 0,59

0,61 0,54 0,50

0,81 0,75 0,70

0,69 0,62 0,57

1,12 1,06 1,02

0,99 0,93 0,89

Tabel L.2.3. Harga Faktor C1 Diamter Tali C1

Kurang Dari 5 0,83

5,5-8

8,5-10

11-14

15-17,5

18-19

19,5-24

0,85

0,89

0,93

0,97

1,00

1,04

Tabel L.2.4. Harga Faktor C2 Bahan Serabut Tali Baja karbon : 0,53% C;0,57% Mn;0,25% Si;0,09% Ni;0,08% Cr;0,02%S dan 0,02P ... Baja karbon : 0,70% C;0,61% Mn;0,09% Si;0,021% S dan 0,028% P ........................... Baja pearlitic : 0,4% C; 0,52% Mn;0,25% Si;0,2% Ni;1,1% Cr;0,025%S dan 0,025%P Baja stainless : 0,09% C;0,35% Mn;0,3% Si;8,7% Ni;17,4% Cr;0,02%S dan 0,02%P... Baja open-hearth biasa Baja open hearth yang dilebur dengan arang besi dan dibersihkan dengan skrap Serat yang terbuat dari batang logam dan seluruhnya Serat yang terbuat dari batang logam sebagian

C2 1,00 0,9 1,37 0,67 1 0,53 1 0,92

Sumber : Rudenko (1996)


Lampiran 3 Harga a, z2, β dan Efisiensi Puli

Hari kerja per-bulan

Jumlah siklus kerja per-hari

8

25

16

400

8

25

40

1.000

1 6 2 4

25

136

3.400

30

320

9600

Kondisi pengoperasian mesin pengangkat

Digerakkan tangan

Peralatan ringan Digerakkan daya

Peralatan medium Peralatan berat dan sangat berat

a

Ttinggi h beban diangkat pada jumlah lengkungan tali maksimum perputaran untuk li = 1 in, dan ls = 2 in (dalam m)

Operasi harian, jam

Tabel L.3.1. Harga a, z2, dan β

Mode suspensi beban

Suspensi sederhana Suspensi dengan satu bebas puli

Beberapa Puli dengan rasio

2x2 2x2 2x4 2x5

β

2 _

0,7

4 2

0,5

3 5 7 9

0,4 0,3 0,25 0,2

2 3 4 5

Tabel L.3.2. Efisiensi Puli Putaran Tunggal Jumlah Jumlah alur puli yang berputar

Puli Ganda Jumlah Jumlah alur puli yang berputar

2 3 4 5 6

4 6 8 10 12

1 2 3 4 5

2 4 6 8 10

Gesekan pada permukaan puli (faktor resisten satu puli) 0,951 0,906 0,861 0,823 0,784

Efisiensi Gesekan anguler pada permukaan puli (factor resisten satu puli) 0,971 0,945 0,918 0,892 0,873



Lampiran 4 Tali untuk Crane dan Pengangkat, dan JIS G 4051 Baja Kabon untuk Konstruksi Mesin Tabel L.4.1. Tali untuk Crane dan Pengangkat Faktor mula-mula dari keamanan tali terhadap tegangan

Kurang 6 6-7 diatas 7

Konstruksi Tali 6 x 19 = 114 + 1 c 6 x 37 = 222 + 1c Posisi Posisi Posisi Posisi berpotongan sejajar berpotongan sejajar Jumlah serat patah sepanjang satu tingkatan setelah tali tertentu dibuang 12 6 22 11 14 7 26 13 16 8 30 15


Tabel L.4.2. JIS G 4051 Baja Kabon untuk Konstruksi Mesin dan Sifat-sifat Mekanis Standar Temperatur Transformasi Lambang Ac (0C)

Ar (0C)

S30C

720-815

780-720

S35C

720-800

770-710

S40C

720-790

760-700

S45C

720-780

750-680

S50C

720-770

740-680

S55C

720-765

740-680

S15CK

720-880

845-770

Sifat Mekanis Batas mulur (Kg/mm2) 29 34 31 40 33 45 35 50 37 55 40 60 35

Kekuatan tarik (Kg/mm2) 48 55 52 58 55 62 58 70 62 75 66 80 50

Kekerasan (HB) 137-197 152-212 159-207 167-235 156-217 179-255 167-229 201-69 179-235 212-277 185-255 229-25 145-235

Sumber : Sularso (1987)


Lampiran 5 Diameter Poros Puli, Batang Baja Karbon Difinis Dingin untuk Poros, dan Baja Rol untuk Konstruksi Umum Tabel L.5.1. Diameter Poros Puli

4

10 11

4,5

*

11,2 12

5

12,5

5,6

14 (15) 16 (17) 18 19 20 22

6 *6,3

7 *7,1 8 9

Diameter Poros Puli (mm) *22,4 40 100 24 (105) 25 42 110 28 30 *31,5 32

45

35 *35,5

55 56

38

60

48 50

63

65 70 71 75 80 90

*112 120 125 130 140 150 160 170 180 190 200 220

*224 240 250 260 280 300 *315 320 340

400

*355 360 380

560

420 440 450 460 480 500 530

600 630

Sumber : Sularso (1987) Keterangan : 1. Tanda * menyatakan bahwa bilangan yang bersangkutan dipilih dari bilangan standar. 2. Bilangan di dalam kurung hanya dipakai untuk bagian dimana akan dipasang bantalan gelinding.


Lampiran 5 (lanjutan)

Tabel L.5.2. JIS G 3121. Batang Baja Karbon Difinis Dingin untuk Poros Lambang

Perlakuan Panas

Diameter (mm)

20 atau kurang 21-80 Tanpa 20 atau kurang dilunakkan 21-80 20 atau kurang Dilunakkan 21-80 Tanpa 20 atau kurang dilunakkan 21-80 Dilunakkan 20 atau kurang Tanpa 21-80 dilunakkan 20 atau kurang 21-80 Dilunakkan

S35C-D

S45C-D

S55C-D

Kekuatan Tarik (Kg/mm2) 58-79 53-69 63-82 58-72 65-86 60-76 71-91 66-81 72-93 67-83 80-101 75-91

Kekerasan HRC (HRB) (84)-23 (73)-17 (87)-25 (84)-19 (89)-27 (85)-22 12-30 (90)-24 14-31 10-26 19-34 16-30

HB 144-216 160-225 166-238 183-253 188-260 213-285

Tabel L.5.3. JIS G 3101. Baja Rol untuk Konstruksi Umum Unsur Kimia (%)

Kekuatan Tarik Lambang C Mn P S (kg/mm2) SS34 0.050 atau 0.050 atau 34-44 kurang kurang SS41 41-52 SS50 50-62 0,30 atau 1,60 atau 0,040 atau 0,040 atau SS55 55 kurang kurang kurang kurang

Batas * Mulur (kg/mm2) 18 22 26 40


*

Batas mulur ini merupakan harga terendah dan besarnya tergantung pada tebal, diameter, dll.


Lampiran 6 Standar JIS G 5501 Besi Cor Kelabu dan JIS G 3521 Kawat Baja Tarik Keras Tabel L.6.1. JIS G 5501 Besi Cor Kelabu Lambang

Tebal Utama Coran (mm) 4-8 8-15 15-30 30-50 4-8 8-15 15-30 30-50 8-15 15-30 30-50 15-30 30-50

FC 20

FC 25

FC 30 FC 35

Kekuatan Tarik (kg/mm2) 24 22 20 17 28 26 25 22 31 30 27 35 32

Kekerasan (kg/mm2) 255 atau kurang 235 “ 223 “ 217 “ 269 “ 248 “ 241 “ 229 “ 269 “ 262 “ 248 “ 277 “ 269 “

Tabel L.6.2. JIS G 3521 Kawat Baja Tarik Keras a. Batang kawat baja karbon tinggi menurut JIS G 3506 seperti tabel di bawah ini. Lambang SWRH 47 A SWRH 47 B SWRH 52A SWRH 52B SWRH 57A SWRH 57 B SWRH 62 A SWRH 62 B SWRH 67 A SWRH 67 B SWRH 72 A SWRH 72 B SWRH 77 A SWRH 77 B SWRH 82 A SWRH 82 B

C 0,44-0,51 0,44-0,51 0,49-0,56 0,49-0,56 0,54-0,61 0,54-0,61 0,59-0,66 0,59-0,66 0,64-0,71 0,64-0,71 0,69-0,76 0,69-0,76 0,74-0,81 0,74-0,81 0,79-0,86 0,79-0,86

Si

0,15-0,35

Unsur Kimia (%) Mn P 0,30-0,60 0,040 atau kurang 0,60-0,90 0,30-0,60 0,60-0,90 0,30-0,60 0,60-0,90 0,30-0,60 0,60-0,90 0,30-0,60 0,60-0,90 0,30-0,60 0,030 atau kurang 0,60-0,90 0,30-0,60 0,60-0,90 0,30-0,60 0,60-0,90

S 0,040 atau kurang

0,030 atau kurang



Lampiran 6 (lanjutan) b.Kawat baja tarik keras digolongkan atas 3 jenis menurut kekuatannya sebagai : SWA, SWB dan SWC. Diameter Kawat (mm)

0,32 0,35 0,40 0,45 0,50 0,55 0,60 0,65 0,70 0,80 0,90 1,00 1,20 1,40 1,60 1,80

SWA

175-205 175-205 170-200 165-195 165-195 160-190 160-185 160-185 155-180 155-180 155-180 150-175 145-170 140-165 135-160 130-155

Kekuatan tarik (kg/mm2) SWB

205-235 205-235 200-230 195-225 195-225 190-220 185-215 185-215 180-210 180-205 180-205 175-200 170-195 165-190 160-185 155-180

SWC

235-265 235-265 230-260 225-255 225-255 220-250 215-245 215-245 210-240 205-235 205-230 200-225 195-220 190-215 185-210 180-205



Lampiran 7

Motor AC 3 Phasa


Lampiran 8

Diagram Blok Sistem Kecepatan Elevator


Lampiran 9 Diagram Blok Mikrokontroler ATmega 8535

Sumber : Data Sheet Mikrokontroler ATmega 8535


Lampiran 10 Dimensi Mikrokontroler ATmega 8535

Common Dimensions (Unit of Measure = mm) Symbol A A1 D E E1 B B1 L C eB e

Min 0.381 52.070 15.240 13.462 0.356 1.041 3.048 0.203 15.494

Nom -

Max 4.826 52.578 15.875 13.970 0.559 1.651 3.556 0.381 17.526

Note

Note 2 Note 2

2.540 TYP

Sumber : Data Sheet Mikrokontroler ATmega 8535


Lampiran 11 Fitur ATmega 8535 Tabel L.11. Fitur ATmega8535 Fitur Arsitektur RISC

Penjelasan - Memiliki 32 x 8 register serba guna - Dapat sepenuhnya beroperasi secara statis - Memiliki 130 instruksi yang dapat dieksekusi dalam siklus clock tunggal - Kecepatan kerja mencapai 16 MIPS pada 16 MHz - Memiliki multiplier 2-siklus

Memori Program dan Data

-

Fitur Periferal

- Real Time Counter dengan osilator terpisah - Memiliki 2 buah Timer/Counter 8-bit dengan fasilitas Prescaler terpisah dan Compare Mode - Memiliki 1 buah Timer/Counter 16-bit dengan fasilitas Prescaler terpisah, Compare Mode, dan Capture Mode - 4 buah kanal PWM - Menyediakan fasilitas ADC sebesar 10 bit dengan 8 kanal - Memiliki 8 kanal single-end - Menyediakan 7 kanal diferensial (khusus kemasan TQFP) - Dilengkapi kanal diferensial dengan Programmable Gain sebesar 1 kali, 10 kali, atau 200 kali untuk kemasan TQFP - Memberikan Two-wire Serial Interface berorientasi byte - Antarmuka komunikasi serial USART yang dapat diprogram - Antarmuka komunikasi serial Master/Slave SPI - Watchdog Timer dengan osilator terpisah, yang dapat diprogram - Komparator analog

Bersifat nonvolatile dan berkapabilitas operasi read-while-write Memiliki Internal SRAM berkapasitas 512 Byte Operasi ISP dilakukan melalui On-chip Boot Program In-system Self-Programmable Flash berkapasitas 8KB yang berkapabilitas read-while-write, dengan umur siklus tulis/hapus sebanyak 10.000 kali - EEPROM 512 Byte dengan umur siklus tulis/hapus sebanyak 100.000 kali - Memiliki Boot Code Section yang bersifat opsional disertai Independent Lock Bits - Menyediakan Programming Lock untuk keamanan piranti lunak


Lampiran 11 (lanjutan) Fitur Fitur Khusus

-

Penjelasan Power-on Reset Programmable Brown-out Detection Internal Calibrated RC Oscillator Sumber interupsi eksternal dan internal Enam mode penghematan daya (Sleep Mode) melalui pemilihan piranti lunak, yaitu Idle, Power-down, Power-save, ADC Noise Reduction, Standby dan Extended Standby.

Input/Output

Terdapat 32 jalur yang dapat diprogram

Tegangan Operasional

- Pada seri ATmega8535L tegangan operasinya berkisar 2,7 V hingga 5,5 V - Seri ATmega8535, tegangan operasinya berkisar 4,5 V hingga 5,5 V

Kemasan

Diproduksi dalam 4 jenis kemasan, yakni PDIP dengan 40 pin, TQFP dengan 44 pin, PLCC dengan 44 pin serta QFN/MLF dengan 44 pin.

Keterangan Tabel : - RISC (Reduced Instruction Set Computer) - EEPROM (Electrically Erasable Programmable Read Only Memory) - PWM (Pulse Width Modulation) - ADC (Analog to Digital Converter) - TQFP (Thin Quad Flat Package) - USART (Universal Siynchronous Asynchronous Transmitter Receiver) - SPI (Serial Perpheral Interface) - RC (Resistor-Capacitor) - PDIP (Plastic Dual Inline Package) - PLCC (Plastic Leaded Chip Carrier) - QFN/MLF (Quad Flat No Leads/Micro Lead Frame)

Gambar L.11. Konfigurasi Pin pada Kemasan TQFP – PLCC – PDIP Sumber : Data Sheet Mikrokontroler ATmega 8535


Lampiran 12 Dokumentasi Pembuatan Papan PCB (Printed Circuit Board)

(a)

(b)

Gambar L.12.1 (a) Jalur Papan PCB Setelah Diprint Ke Kertas Photo, (b) Papan PCB

(a)

(b)

Gambar L.12.2. (a) Papan PCB Disetrika, (b) Pelarutan Papan PCB


Lampiran 12 (lanjutan)

(a)

(b)

Gambar L.12.3. (a) Papan PCB Setelah Proses Pelarutan dan Dibor, (b) Papan PCB Setelah Dipasang Komponen

(a)

(b)

Gambar L.12.4. (a) Kaki Komponen Setelah Dibengkokkan ± 45 0 (b) Penyolderan Papan PCB


Lampiran 13 Dokumentasi Papan PCB (Printed Circuit Board) Yang Telah Dibuat

Gambar L.13.1. Modul Mikrokontroler ATmega 8535

(a)

(b)

Gambar L.13.2. (a) Seven Segment, (b) Driver Motor DC

Gambar L.13.3. LCD (Liquid Cristal Display)


Lampiran 14 Perkiraan Biaya Bahan dan Komponen Elektronika Tabel L.14.1. Perkiraan Biaya Bahan No. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.

Nama Bahan Aluminium segi empat Aluminium profil U Arcilyc Triplek Baut dan mur Baut dan mur Paku keling Lem silikon bakar Tali benang Drum penggulung tali Total

Ukuran 20 x 20 (mm) 9 x 9 (mm) Tebal 2,5 (mm) 400 x 400 x 8 (mm) M3 x 0,5 M4 x 0,7 -

Jumlah 2 batang 1 batang 1 lembar 2 lembar 62 buah 8 buah 110 buah 6 buah 1 buah 1 buah

Harga Rp. 80.000,Rp. 14.000 Rp. 350.000,Rp. 10.000,Rp. 31.000,Rp. 4.000,Rp. 27.500,Rp. 6.000,Rp. 3.000,Rp. 30.000,Rp. 555.500,-

Tabel L.14.2. Perkiraan Biaya Komponen Elektronika No.

2.

Nama Komponen Modul Mikrokontroler ATmega 8535 Driver Motor DC

3.

Display LCD

4. 5. 6. 7.

Tujuh led Bel Tombol Sensor sentuh Kabel Motor DC Motor DC Baterai kering Baterai kering

1.

8. 9. 10. 11. 12.

Spesifikasi 8 bit 24 Volt 2 baris x 16 kolom 3 Volt 5A 125 Volt 12 Volt 6 Volt 12 Volt 6 Volt Total

Jumlah

Harga

2 buah

Rp. 400.000,-

2 buah

Rp. 200.000,-

1 buah

Rp. 150.000,-

4 buah 1 buah 12 buah 4 buah 1 buah 1 buah 1 buah 1 buah

Rp. 100.000,Rp. 135.000,Rp. 12.000,Rp. 16.000,Rp. 25.000,Rp. 350.000,Rp. 300.000,Rp. 350.000,Rp. 150.000,Rp. 2.188.000,-


Lampiran 15

Rancangan Perangkat Kontrol Prototipe Elevator

Gambar L.15. Rancangan Perangkat Kontrol Prototipe Elevator Keterangan gambar : 1. Tombol pemanggilan sangkar

9. Tujuh led (seven segment)

2. Tombol tujuan lantai

10. Liquid Crystal Display (LCD)

3. Tombol buka-tutup pintu

11. Bel

4. Sensor sentuh lantai

12. Driver motor DC 12 Volt

5. Sensor sentuh batas buka pintu

13. Driver motor DC 6 Volt

6. Sensor sentuh batas tutup pintu

14. Mikrokontroler ATmega 8535

7. Motor DC 12 Volt

15. Mikrokontroler ATmega 8535

8. Motor DC 6 Volt


Lampiran 16 Listing Program /***************************************************** This program was produced by the CodeWizardAVR V2.03.4 Standard Automatic Program Generator © Copyright 1998-2008 Pavel Haiduc, HP InfoTech s.r.l. http://www.hpinfotech.com Project Version Date Author Company Comments

: Prototipe elevator : : 03/16/2012 : : :

Chip type : ATmega8535 Program type : Application Clock frequency : 16.000000 MHz Memory model : Small External RAM size : 0 Data Stack size : 128 *****************************************************/ #include <mega8535.h> #include <delay.h> #define SAKLAR_LT_4 PINA.7 #define SAKLAR_LT_3 PINA.6 #define SAKLAR_LT_2 PINA.5 #define SAKLAR_LT_1 PINA.4 #define SEVEN_SEG PORTA #define TOMBOL_DINDING_1 PINB.0 #define TOMBOL_DINDING_2_UP PINB.1 #define TOMBOL_DINDING_2_DOWN PINB.2 #define TOMBOL_DINDING_3_DOWN PINB.3 #define TOMBOL_DINDING_3_UP PINB.4 #define TOMBOL_DINDING_4 PINB.5 #define BELL PORTB.7 #define TOMBOL_CAR_1 PINC.0 #define TOMBOL_CAR_2 PINC.1 #define TOMBOL_CAR_3 PINC.2


#define TOMBOL_CAR_4 PINC.3 #define TOMBOL_CAR_PINTU_BUKA PINC.4 #define TOMBOL_CAR_PINTU_TUTUP PINC.5 #define SAKLAR_PINTU_CAR_TUTUP PINC.6 #define SAKLAR_PINTU_CAR_BUKA PINC.7 #define MOTOR_UTAMA OCR1A #define MOTOR_PINTU_CAR OCR1B #define ARAH_MOTOR_UTAMA PORTD.6 #define ARAH_MOTOR_PINTU_CAR PORTD.7 #define NAIK 1 #define TURUN 0 #define BUKA 1 #define TUTUP 0 bit setup=1,start; unsigned char posisi_car; bit tujuan_lantai_1; bit tujuan_lantai_2; bit tujuan_lantai_3; bit tujuan_lantai_4; void buka_tutup_pintu(); void running(unsigned int x, unsigned char y) { MOTOR_UTAMA=x; ARAH_MOTOR_UTAMA=y; } void stop() { delay_ms(250); running(0,0); PORTD.0=0; PORTD.1=0; BELL=1; delay_ms(100); BELL=0; } void setup_lantai() { bit x=1,a=0,y=0;


while (x) { if (SAKLAR_PINTU_CAR_TUTUP==1) { MOTOR_PINTU_CAR = 0; x=0; y=1; } else { MOTOR_PINTU_CAR =1023; ARAH_MOTOR_PINTU_CAR = TUTUP; } } while (y) { if (!SAKLAR_LT_1) a=1; else { stop(); setup=0; y=0; start=1; SEVEN_SEG=1; } while (a) { running(1023,NAIK); PORTD.0=1; if (SAKLAR_LT_2) { stop(); SEVEN_SEG=2; a=0; y=0; setup=0; start=1; }


if (SAKLAR_LT_3) { stop(); SEVEN_SEG=3; a=0; y=0; setup=0; start=1; } if (SAKLAR_LT_4) { stop(); SEVEN_SEG=4; a=0; y=0; setup=0; start=1; } } } } void cek_lantai() { if (SAKLAR_LT_1) { posisi_car=1; SEVEN_SEG=posisi_car; } if (SAKLAR_LT_2) { posisi_car=2; SEVEN_SEG=posisi_car; } if (SAKLAR_LT_3) { posisi_car=3; SEVEN_SEG=posisi_car; } if (SAKLAR_LT_4) { posisi_car=4; SEVEN_SEG=posisi_car;


} } void cek_tujuan_lantai() { if (TOMBOL_DINDING_1||TOMBOL_CAR_1) tujuan_lantai_1=1; if (TOMBOL_DINDING_2_UP||TOMBOL_DINDING_2_DOWN||TOMBOL_CA R_2) tujuan_lantai_2=1; if (TOMBOL_DINDING_3_UP||TOMBOL_DINDING_3_DOWN||TOMBOL_CA R_3) tujuan_lantai_3=1; if (TOMBOL_DINDING_4||TOMBOL_CAR_4) tujuan_lantai_4=1; } void run_check() { cek_lantai(); cek_tujuan_lantai(); } void diem() { unsigned int i; for (i=0;i<5000;i++) { run_check(); delay_ms(1); } } void buka_tutup_pintu() { bit b=1,c=0,d=0; diem(); while (b) { c=1; while (c) {


run_check(); if (SAKLAR_PINTU_CAR_BUKA==0) { MOTOR_PINTU_CAR=1023; ARAH_MOTOR_PINTU_CAR=BUKA; } else { MOTOR_PINTU_CAR=0; diem(); c=0; d=1; } if (TOMBOL_CAR_PINTU_TUTUP) { MOTOR_PINTU_CAR=0; c=0; d=1; } } while (d) { run_check(); if (SAKLAR_PINTU_CAR_TUTUP==0) { MOTOR_PINTU_CAR=1023; ARAH_MOTOR_PINTU_CAR=TUTUP; } else { MOTOR_PINTU_CAR=0; diem(); d=0; b=0; }


if (TOMBOL_CAR_PINTU_BUKA) { MOTOR_PINTU_CAR=0; d=0; } } } } void operation() { run_check(); while (tujuan_lantai_1) { if (SAKLAR_LT_1) { stop(); diem(); tujuan_lantai_1=0; buka_tutup_pintu(); } else { run_check(); running(1023,TURUN); PORTD.1=0; if (tujuan_lantai_4&&SAKLAR_LT_4) { stop(); diem(); tujuan_lantai_4=0; buka_tutup_pintu(); } if (tujuan_lantai_3&&SAKLAR_LT_3) { stop(); diem(); tujuan_lantai_3=0;


buka_tutup_pintu(); } if (tujuan_lantai_2&&SAKLAR_LT_2) { stop(); diem(); tujuan_lantai_2=0; buka_tutup_pintu(); } } } while (tujuan_lantai_2) { if (SAKLAR_LT_2) { stop(); diem(); tujuan_lantai_2=0; buka_tutup_pintu(); } else { run_check(); if (posisi_car>2) { running(1023,TURUN); PORTD.1=1; } else { running(1023,NAIK); PORTD.0=1; } if (tujuan_lantai_4&&SAKLAR_LT_4) {


stop(); diem(); tujuan_lantai_4=0; buka_tutup_pintu(); } if (tujuan_lantai_3&&SAKLAR_LT_3) { stop(); diem(); tujuan_lantai_3=0; buka_tutup_pintu(); } if (tujuan_lantai_1&&SAKLAR_LT_1) { stop(); diem(); tujuan_lantai_1=0; buka_tutup_pintu(); } } } while (tujuan_lantai_3) { if (SAKLAR_LT_3) { stop(); diem(); tujuan_lantai_3=0; buka_tutup_pintu(); } else { run_check(); if (posisi_car<3) {


running(1023,NAIK); PORTD.0=1; } else { running(1023,TURUN); PORTD.1=1; } if (tujuan_lantai_4&&SAKLAR_LT_4) { stop(); diem(); tujuan_lantai_4=0; buka_tutup_pintu(); } if (tujuan_lantai_2&&SAKLAR_LT_2) { stop(); diem(); tujuan_lantai_2=0; buka_tutup_pintu(); } if (tujuan_lantai_1&&SAKLAR_LT_1) { stop(); diem(); tujuan_lantai_1=0; buka_tutup_pintu(); } } } while (tujuan_lantai_4) { if (SAKLAR_LT_4) {


stop(); diem(); tujuan_lantai_4=0; buka_tutup_pintu(); } else { run_check(); running(1023,NAIK); PORTD.0=1; if (tujuan_lantai_3&&SAKLAR_LT_3) { stop(); diem(); tujuan_lantai_3=0; buka_tutup_pintu(); } if (tujuan_lantai_2&&SAKLAR_LT_2) { stop(); diem(); tujuan_lantai_2=0; buka_tutup_pintu(); } if (tujuan_lantai_1&&SAKLAR_LT_1) { stop(); diem(); tujuan_lantai_1=0; buka_tutup_pintu(); } } } } void main(void){


PORTA=0x00; DDRA=0x0F; PORTB=0x00; DDRB=0x80; PORTC=0x00; DDRC=0x00; PORTD=0x00; DDRD=0xFF; TCCR0=0x00; TCNT0=0x00; OCR0=0x00; TCCR1A=0xA3; TCCR1B=0x03; TCNT1H=0x00; TCNT1L=0x00; ICR1H=0x00; ICR1L=0x00; OCR1AH=0x00; OCR1AL=0x00; OCR1BH=0x00; OCR1BL=0x00; ASSR=0x00; TCCR2=0x00; TCNT2=0x00; OCR2=0x00; MCUCR=0x00; MCUCSR=0x00; TIMSK=0x00; ACSR=0x80; SFIOR=0x00; while (1){ if (setup) setup_lantai(); if (start) operation(); };


} Lanjutan listing program #include <mega8535.h> #include <delay.h> #asm .equ __lcd_port=0x15 ;PORTC #endasm #include typedef unsigned char byte; flash byte arrow_up[8]= { 0b00000100, 0b00001110, 0b00011111, 0b00000100, 0b00000100, 0b00000100, 0b00000100, 0b00000000, }; flash byte arrow_down[8]= { 0b00000100, 0b00000100, 0b00000100, 0b00000100, 0b00011111, 0b00001110, 0b00000100, 0b00000000, }; void define_char(byte flash *pc, byte char_code) { byte i,a; a=(char_code<<3)|0x40; for (i=0;i<8;i++) lcd_write_byte(a++,*pc++); } void main(void){


PORTA=0xFF; DDRA=0x00; PORTB=0x00; DDRB=0x00; PORTC=0x00; DDRC=0xFF; PORTD=0x00; DDRD=0x00; TCCR0=0x00; TCNT0=0x00; OCR0=0x00; TCCR1A=0x00; TCCR1B=0x00; TCNT1H=0x00; TCNT1L=0x00; ICR1H=0x00; ICR1L=0x00; OCR1AH=0x00; OCR1AL=0x00; OCR1BH=0x00; OCR1BL=0x00; ASSR=0x00; TCCR2=0x00; TCNT2=0x00; OCR2=0x00; MCUCR=0x00; MCUCSR=0x00; TIMSK=0x00; ACSR=0x80; SFIOR=0x00; lcd_init(16); while (1) { lcd_gotoxy(2,0); lcd_putsf("DEDY RAHMAN");


if (PINA.0==1) { lcd_gotoxy(2,0); lcd_putsf("DEDY RAHMAN"); lcd_gotoxy(11,1); lcd_putsf(" NAIK"); define_char(arrow_up,0); lcd_gotoxy(0,1); lcd_putchar(0); } if (PINA.1==1) { lcd_gotoxy(2,0); lcd_putsf("DEDY RAHMAN"); lcd_gotoxy(11,1); lcd_putsf("TURUN"); define_char(arrow_down,0); lcd_gotoxy(0,1); lcd_putchar(0); }

}; }




D min Sebagai Fungsi Jumlah Lengkungan dan Tegangan Tarik Maksimum d Tali Baja Tipe : 6 x Fibre Core. d 26,

Recommend Documents