DAFTAR PUSTAKA
Suhat.ST.2005 .VB Sebagai Pusat Kendali Peralatan Elektronik. Penerbit PT. Elex Media Komputindo Kelompok Gramedia. Jakarta. Prasetia , Retno dan Catur Edi Widodo . 2004. Teori Dan Praktek Interfacing Port Parallel Dan Port Serial Computer Dengan Visual Basic 6.0 . Andi Offset. Yogyakarta. Bishop, Owen. 2004. Dasar – Dasar Elektronika Seri Pendidikan Profesi Elektronika oleh Irzam Harmein , ST. Erlangga . Jakarta. Dadi Suryana, Drs, dkk. 1997. Keterampilan elektronika. PT. Tiga Serangkai Pustaka Mandiri . Bandung. Chandra MD, rangkaian & layout PCB catu daya 5 V dan 12 V, http://telinks.wordpress.com/2010/05/01/ rangkaian & layout PCB catu daya 5 V dan 12 V/, 4 Februari 2012 Chandra MD, rangkaian driver relay praktis menggunakan transistor bipolar http://telinks.wordpress.com/2010/05/01/rangkaian-driver-relay-praktis menggunakan-transistor-bipolar/, 4 Februari 2012 Istiyanto, tutorial microsoft access , http:// istiyanto.com/tutorial-microsoftaccess-modul-tik/, 28 Februari 2012 Ari R, belajar banyak komponen PC , http://belajarpc.info/wol-wake-on-lan.html/, 3 Maret 2012
73
LAMPIRAN A #include <Servo.h> Servo myservo; int lampu =13; int kipas =12; int pos = 0; ================================================================= void setup() { myservo.attach(9); // pin servo masuk ke pin 9 Arduino myservo.write(0);
// inisialisasi ke posisi 0 derajat
pinMode(lampu, OUTPUT); // inisialisasi pin 13 sebagai output pinMode(kipas, OUTPUT); // inisialisasi pin 12 sebagai output Serial.begin(9600); // inisialisasi serial baud rate 9600 } ================================================================= void loop() { // Selama ada data serial yang masuk, maka lakukan program di bawah ini { int nilai = Serial.read() - '0'; if (nilai == 1) { // Jika VB mengirim karakter '1' servo berputar 180 derajat aktifkanServo(); } else if ( nilai ==2){ // Jika VB mengirim karakter '2' servo kembali ke posisi semula nonaktifkanServo(); } else { if (nilai == 3) { // Jika VB mengirim karakter '3' lampu dalam posisi ON aktifkanlampu (); } else if (nilai == 4){ // Jika VB mengirim karakter '4' lampu dalam posisi OFF nonaktifkanlampu (); } else { if (nilai == 5) { aktifkankipas(); } // Jika VB mengirim karakter '5' kipas dalam posisi ON else if (nilai == 6){ // Jika VB mengirim karakter '6' kipas dalam posisi OFF nonaktifkankipas (); } } } } } =================================================================
74
// sub program void aktifkanServo() { // ISI PROGRAMNYA Serial.print("Ini program untuk menjalankan Servo berputar 180 derajat "); { myservo.write(180); delay(20); } } void nonaktifkanServo() { // ISI PROGRAMNYA Serial.print("Ini program untuk mengembalikan Servo ke posisi semula "); { myservo.write(0); delay(20); } } ================================================================= // sub program void aktifkanlampu () { // ISI PROGRAMNYA digitalWrite(lampu,HIGH); } void nonaktifkanlampu () { // ISI PROGRAMNYA digitalWrite(lampu,LOW); } ================================================================= // sub program void aktifkankipas () { // ISI PROGRAMNYA digitalWrite(kipas,HIGH); } void nonaktifkankipas () { // ISI PROGRAMNYA digitalWrite(kipas,LOW); } ================================================================= void aktifservo() { for(pos = 0; pos <= 180; pos=1) // Goes from 0 degrees to 180 degrees in steps of 1 degree { myservo.write(pos); // Tell servo to go to position in variable 'pos' delay(35); } // Waits 35 ms for the servo to reach the position for(pos = 180; pos >=0; pos-=1) // Goes from 180 degrees to 0 degrees { myservo.write(pos); delay(35);
}
// Tell servo to go to position in variable 'pos' // Waits 15ms for the servo to reach the position
}
75
LAMPIRAN B Private Sub cmd_lampu_ on _Click() Dim statusled As String If Option1 = True Then statusled = "4" Else statusled = "3" End If MSComm1.Output = statusled End Sub ================================================================== Private Sub cmd_lampu_ off _Click() Dim statusled As String If Option1 = True Then statusled = "4" Else statusled = "4" End If MSComm1.Output = statusled End Sub ================================================================== Private Sub cmd_keluar_Click() Unload Me End Sub ================================================================== Private Sub cmd_kipas_ on _Click() Dim statusled As String If Option1 = True Then statusled = "6" Else statusled = "5" End If MSComm1.Output = statusled
76
LAMPIRAN B End Sub ================================================================== Private Sub cmd_kipas_ off _Click() Dim statusled As String If Option1 = True Then statusled = "5" Else statusled = "6" End If MSComm1.Output = statusled End Sub ================================================================== ===== Private Sub cmd_putar_kanan_Click() Dim statusled As String If Option1 = True Then statusled = "2" Else statusled = "2" End If MSComm1.Output = statusled End Sub ================================================================== Private Sub cmd_putar_kiri_Click() Dim statusled As String If Option1 = True Then statusled = "2" Else statusled = "1" End If MSComm1.Output = statusled End Sub
77
LAMPIRAN B
================================================================== Private Sub cmd_putar_kontinu_Click() Dim statusled As String Do If Command1 = True Then statusled = "7" Else statusled = "7" End If MSComm1.Output = statusled Loop Until statusled >= "7" End Sub ================================================================== Private Sub Form_Unload(Cancel As Integer) 'f_utama.Enabled = True Do Me.Left = Me.Left + 50 Me.Move Me.Left, Me.Top DoEvents Loop Until Me.Left > Screen.Width End Sub
78
LAMPIRAN B ================================================================== Private Sub Form_Load() With MSComm1 'non aktifkan dulu serial port If .PortOpen Then .PortOpen = False 'set serial port yang ingin digunakan .CommPort = 13 'set baud rate,parity,databits,stopbits .Settings = "9600,N,8,1" 'set DTR and RTS .DTREnable = True .RTSEnable = True 'aktifkan event oncomm event .RThreshold = 1 'non aktifkan event oncomm .SThreshold = 0 'aktifkan serial port .PortOpen = True End With 'MSComm1 End Sub
79
LAMPIRAN C
80