Jumat, 03 Februari 2012

Sensor Suhu dengan Arduino dan LM35

LM35 adalah sensor suhu dari National Semiconductor yang mempunyai akurasi tinggi. Outputnya berupa tegangan analog dan memiliki jangkauan pengukuran -55ºC hingga +150ºC dengan akurasi ±0.5ºC. Tegangan output adalah 10mV/ºC. Output dapat langsung dihubungkan port mikrokontroler yang memiliki ADC atau dengan Arduino, karena Arduino memiliki port ADC (analog input) sebanyak 6 buah.
Analog input pada Arduino memiliki resolusi 10-bit, yang dapat memberikan keluaran 2^10 = 1024 nilai diskrit. Bila digunakan catu 5V, resolusi yang dihasilkan adalah 5000mV/1024 = 4.8mV. Karena LM35 memiliki resolusi output 10mV/ºC, maka resolusi termometer yang dibuat dengan Arduino adalah 10mV/4.8mV ~ 0.5ºC.
Mari kita membuat sensor suhu sederhana dengan Arduino dan LM35. Pertama-tama siapkan rangkaian seperti ini:
Sensor suhu dengan Arduino dan LM35
Sambungkan Arduino ke komputer menggunakan USB dan gunakan contoh program seperti di bawah ini:
?
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
// deklarasi variabel
float tempC;
int tempPin = 0;
void setup()
{
    Serial.begin(9600); // buka serial port, set baud rate 9600 bps
}
void loop()
{
    tempC = analogRead(tempPin);           // baca data dari sensor
    tempC = (5.0 * tempC * 100.0)/1024.0;  // konversi analog ke suhu
    Serial.println((int)tempC,DEC);        // kirim data via serial
    delay(1000);                           // tunggu sejenak
}
Copy dan paste program di atas setelah itu lakukan upload. Setelah selesai upload, klik Serial Monitor.
Cara kerja: Program akan membaca data suhu dari LM35, kemudian mengkonversi nilai analog menjadi nilai suhu dalam besaran Celcius. Setelah itu mengirimkan ke komputer melalui serial port.
Pengembangan:
Buatlah sensor suhu ini tidak tergantung kepada serial komputer. Misalnya dengan menggunakan seven segment atau LCD sebagai display suhu nya. Kemudian beri tenaga baterai atau adaptor, maka jadilah sensor suhu ruangan. Silahkan cari ide yang lain nya.
source : http://blog.indorobotika.com/arduino/sensor-suhu-dengan-arduino-dan-lm35.html

Kamis, 02 Februari 2012

LAMPU MERAH 4 SIMPANG VISUAL BASIC

ini adalah aplikasi VB lampu merah 4 simpang yang di tugaskan oleh kk tingkat, cuma mao share aja
masih newbie nih, menurut sesepuh sebaiknya ilmu yang kita dapati di tulis  ya aku coba tulis aja di blok heheh
monggo coment dll nya

ini contoh sourcenya :

Dim a, b As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True




End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False

Label1.Caption = ""
Shape2.FillColor = vbBlack
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
a = 0
b = 0






End Sub

Private Sub Timer1_Timer()
a = a + Timer1.Interval
Select Case a
Case 4000
Shape2.FillColor = vbBlack
Shape3.FillColor = vbYellow
Shape4.FillColor = vbBlack
Shape6.FillColor = vbRed
Shape7.FillColor = vbBlack
Shape8.FillColor = vbBlack
Shape10.FillColor = vbRed
Shape11.FillColor = vbBlack
Shape12.FillColor = vbBlack
Shape14.FillColor = vbBlack
Shape15.FillColor = vbBlack
Shape16.FillColor = vbGreen


Case 8000
Shape2.FillColor = vbBlack
Shape3.FillColor = vbBlack
Shape4.FillColor = vbGreen
Shape6.FillColor = vbBlack
Shape7.FillColor = vbYellow
Shape8.FillColor = vbBlack
Shape10.FillColor = vbRed
Shape11.FillColor = vbBlack
Shape12.FillColor = vbBlack
Shape14.FillColor = vbRed
Shape15.FillColor = vbBlack
Shape16.FillColor = vbBlack

Case 12000
Shape2.FillColor = vbRed
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape6.FillColor = vbBlack
Shape7.FillColor = vbBlack
Shape8.FillColor = vbGreen
Shape10.FillColor = vbBlack
Shape11.FillColor = vbYellow
Shape12.FillColor = vbBlack
Shape14.FillColor = vbRed
Shape15.FillColor = vbBlack
Shape16.FillColor = vbBlack

Case 16000
Shape2.FillColor = vbRed
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape6.FillColor = vbRed
Shape7.FillColor = vbBlack
Shape8.FillColor = vbBlack
Shape10.FillColor = vbBlack
Shape11.FillColor = vbBlack
Shape12.FillColor = vbGreen
Shape14.FillColor = vbRed
Shape15.FillColor = vbYellow
Shape16.FillColor = vbBlack

Case 20000
Shape2.FillColor = vbRed
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape6.FillColor = vbRed
Shape7.FillColor = vbBlack
Shape8.FillColor = vbBlack
Shape10.FillColor = vbRed
Shape11.FillColor = vbBlack
Shape12.FillColor = vbBlack
Shape14.FillColor = vbBlack
Shape15.FillColor = vbBlack
Shape16.FillColor = vbGreen



a = 0
End Select



End Sub

Private Sub Timer2_Timer()
b = b + Timer2.Interval
Label1.Caption = Val(4000 - b) / Val(1000)
Select Case b
Case 4000
b = 0
End Select




End Sub

Private Sub Timer3_Timer()