Thursday, April 30, 2015

ISIS vs Delphi7 (Microcontroler)


















Script arduinonya :

#include <LiquidCrystal.h>
//menyertakan kode library LiquidCrystal.h (file hexa)

LiquidCrystal lcd(12, 11, 5, 4, 3, 2);
//setting variable LCD untuk masing-masing pin
int adc0, temp;
 //untuk mengkonversi nilai dari analog pin dengan thermistor yang terhubung ke suhu
void setup() { // masuk ke setup
  Serial.begin(9600);//membuka serial port, mensetting kecepatan data ke 9600 bps
  lcd.begin(16,2);//inisialisasi ukuran LCD yang digunakan adalah type 16x2
  lcd.print("SENSOR SUHU");// mencetak teks "SENSOR SUHU" dalam LCD
  lcd.setCursor(0, 1);//mengatur kolom 1 baris 2
  lcd.print("TEMP:");// mencetak teks "TEMP"
}

void loop(){ // masuk ke looping/perulangan
  adc0 = analogRead(0); //mengkonversi analog data di mulai dari 0
  temp = (adc0*5-1)/10;// dikonversi ke celcius
  lcd.setCursor(5, 1);//mengatur kolom 1 baris 6
  lcd.print(temp);//mencetak text 'temp' di lcd
  lcd.print(" Celcius ");//mencetak text 'celcius' di lcd
  delay (500);// merefresh pembacaan dari seensor dengan jeda waktu 500 milisecond
  Serial.println("Suhu ruangan saat ini adalah : 27 Celcius");
// menampilan teks "Suhu ruangan saat ini adalah : 27 Celcius" pada serial monitor
  delay(1000);//jeda waktu 1 detik
}



---------------------------------------------------------------------------------------------------------------------------------















void setup(){ //masuk ke setup
Serial.begin(9600);//membuka serial port, mensetting kecepatan data ke 9600 bps(baud per second)
}

void loop(){//masuk ke looping
Serial.println("STMIK CIKARANG");//menampilkan "STMIK CIKARANG" pada serial monitor
  //jika menggunakan serial.println maka program akan membaca perkata lalu akan melangkah satu baris kebawah lalu disambung pada baris baru kata yang lainya

  Serial.println("Teknik Informatika");//menampilkan "Teknik Informatika" pada serial monitor
  delay(1000);//jeda waktu 1 detik
}





No comments:

Post a Comment