8 channel sensor suhu LM35 dengan Arduino Mega ditampilkan pada Visual Basic 6 (VB 6) Blog Adi Sanjaya Global Techno Solution - AS-GTS

Selamat Siang, kembali saya tambahkan tulisan pada blog kesayangan saya ini dengan judul

8 channel sensor suhu LM35 dengan Arduino Mega ditampilkan pada Visual Basic 6 (VB 6)

pada posting sebelumnya saya posting tentang
8 channel sensor suhu LM35 dengan Arduino Mega ditampilkan pada delphi  7,  secara prinsip mungkin sama, sama sama 8 channel sensor suhu, sama sama arduino mega, sama sama interface, namun perbedaan akses interface dilakukan dengan VB 6

selain itu perbedaan kedua adalah adanya penanda start data dan pembatas data, dalam hal ini start data berupa karakter "s" dan pembatas data berupa karakter "@"

berikut ini adalah kode <sketch arduino> pembacaaan 8 channel sensor suhu LM 35


//deklarasi variabel
float tempC1,tempC2,tempC3,tempC4,tempC5,tempC6,tempC7,tempC8;
String kode1, kode2, kode3,kode4,kode5, kode6, kode7,kode8;
int tempPin1 = A0;
int tempPin2 = A1;
int tempPin3 = A2;
int tempPin4 = A3;

int tempPin5 = A4;
int tempPin6 = A5;
int tempPin7 = A6;
int tempPin8 = A7;

// include the library code:

// initialize the library with the numbers of the interface pins

void setup()
{
// set up the LCD’s number of columns and rows:
// Print a message to the LCD.

Serial.begin(9600); //buka serial port

}
void loop()
{
 
    kode1=String("@");
    kode2=String("@");
    kode3=String("@");
    kode4=String("@");
    kode5=String("@");
    kode6=String("@");
    kode7=String("@");
    kode8=String("@");

  
tempC1 = analogRead(tempPin1);  // baca data dari sebsor
tempC1 = (5.0 * tempC1 * 100.0)/1024.0; //konversi anlog ke suhu
Serial.print((int)tempC1,DEC); //kirim data via serial
Serial.print(kode1);
//delay(250);

tempC2 = analogRead(tempPin2); // baca data dari sebsor
tempC2 = (5.0 * tempC2 * 100.0)/1024.0; //konversi anlog ke suhu
Serial.print((int)tempC2,DEC); //kirim data via serial
Serial.print(kode2);
//delay(250);

tempC3 = analogRead(tempPin3); // baca data dari sebsor
tempC3 = (5.0 * tempC3 * 100.0)/1024.0; //konversi anlog ke suhu
Serial.print((int)tempC3,DEC); //kirim data via serial
Serial.print(kode3);
//delay(250);

tempC4 = analogRead(tempPin4); // baca data dari sebsor
tempC4 = (5.0 * tempC4 * 100.0)/1024.0; //konversi anlog ke suhu
Serial.print((int)tempC4,DEC); //kirim data via serial
Serial.print(kode4);
//delay(250);


tempC5 = analogRead(tempPin5);  // baca data dari sebsor
tempC5 = (5.0 * tempC5 * 100.0)/1024.0; //konversi anlog ke suhu
Serial.print((int)tempC5,DEC); //kirim data via serial
Serial.print(kode5);
//delay(250);

tempC6 = analogRead(tempPin6); // baca data dari sebsor
tempC6= (5.0 * tempC6 * 100.0)/1024.0; //konversi anlog ke suhu
Serial.print((int)tempC6,DEC); //kirim data via serial
Serial.print(kode6);
//delay(250);

tempC7 = analogRead(tempPin7); // baca data dari sebsor
tempC7 = (5.0 * tempC7 * 100.0)/1024.0; //konversi anlog ke suhu
Serial.print((int)tempC7,DEC); //kirim data via serial
Serial.print(kode7);
//delay(250);

tempC8 = analogRead(tempPin8); // baca data dari sebsor
tempC8 = (5.0 * tempC8 * 100.0)/1024.0; //konversi anlog ke suhu
Serial.print((int)tempC8,DEC); //kirim data via serial
Serial.print(kode8);
//delay(250);
delay (3000);

}


dari source code tersebut di atas diperoleh informasi bahwa sensor suhu terpasang pada pin A0 sampai A7.

data dikirim ke PC dalam format contoh sebagai berikut :

s123@124@125@126@123@124@125@126@  tanpa diakhiri enter (cariage return)

selanjutnya data ini dipisah ke 8 komponen text 1,2,3,4,5,6,7,8 pada mengunakan software visual basic 6, 

berikut ini adalah gambar ujicoba aplikasi VB nya

Contact Person : Taufik Adi Sanjaya

No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244

Alamat : Jalan Imogiri Timur KM 11, 

Blawong 1 , RT 01, Trimulyo, Jetis, Bantul 55781.

Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com