VB6.0 DAN DELPHI :: Koneksi Arduino Dengan Visual Basic 6.0 dan Delphi

Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat. lebih lengkapnya baca disini

dengan VB berikut ini contoh potongan programnya.

1. Program sensor suhu untuk input dari VB

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

// deklarasi variabel float tempC; int tempPin = 0; void setup() {  // buka serial port, set baud rate 9600 bps  Serial.begin(9600); } void loop() {  // baca data dari sensor  tempC = analogRead(tempPin);  // konversi analog ke suhu  tempC = (5.0 * tempC * 100.0)/1024.0;  // kirim data via serial berupa nilai biner  Serial.print((int)tempC,BYTE);  // tarik nafas sejenak  delay(1000); }

1. Buat sebuah form pada VB6 dan salin program sebagai berikut

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

<span style="font-family: Georgia, 'Times New Roman', 'Bitstream Charter', Times, serif; font-size: 13px; line-height: 19px; white-space: normal;"> <pre class="brush:vb"><pre class="brush:vb"><pre class="brush:vb">Private Sub Form_Load()   With MSComm1     'non aktifkan dulu serial port     If .PortOpen Then .PortOpen = False     'set serial port yang ingin digunakan     .CommPort = 3     '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   'tampilkan tanda derajat   Label2.Caption = Chr(176) + "C" End Sub Private Sub MSComm1_OnComm()   Dim strInput As String   With MSComm1     'test event data masuk     Select Case .CommEvent       Case comEvReceive         'tampilkan data dari Arduino         strInput = .Input         Label1.Caption = Asc(Mid(strInput, 1, 1))     End Select   End With 'MSComm1 End Sub</pre> </pre> </pre> <p> </p> <p></p></span>

ANALOG INPUT DENGAN TEGANGAN REFERANSI EKSTERNAL

            Tuk.. Kitak... Kituk.. Kitak.. Kituk.. Suara Kuda Kereta Kencana.. Wow.. Wow.. Wow... Lagu apaan itu ya? Eh.. udah mulai ngepost aja nih... Em... Kali ini ane mau ngeshare cara mengkonversi potensiometer menjadi nilai digital lagi nih, tapi dengan menggunakan tegangan AREF yang di setting sebesar 4 volt. Sobat mungkin pada gak sabar nih bagaimana caranya, sok atuh simak aja baik-baik.

1. Rangkaian yang dipakai sama saja dengan rangkian sebelumnya di pos yang lalu, bedanya adalah rangkaian ini di tambah potensio 1 lagi, sehingga total potensio yang di pakai 3. Tetap memakai ISIS 7.
   
2. Tuliskan sintaks di bawah dengan menggunakan Program arduino (IDE).
   
3. Mari lihat dan amati nilai tegangan yang tertera di LCD. Dan hasil nilai yang keluar di LCD kurang lebih di bawah ini :
   
4. Jika belum paham program di atas, mungkin penjelasan di bawah ini dapat membantu anda sedikit memahami program di atas.
   

Udah di penghujung post-an aja nih. Gak terasa ya rupanya.. O.. Iya Jangan lupa Komen Dan CENDOL-nya ya sobat.. Demi membangun post-an lanjutannya biar lebih mudah di pahami dan menarik baik dalam kata-katanya maupun gambar yang di tampilkan..
TERIMA KASIH..

ANALOG INPUT DENGAN TEGANGAN REFERENSI VCC

    Sik.. Asik.. Asik.. Kenal Dirimu.... Sik.. Asik.. Asik.. Kenal Dirimu.... Sedikit nyanyi buat mencurahkan isi hati hahai... karena saya lagi senang, saya mau share lagi mengenai cara konversi tegangan potensiometer menjadi nilai digital dengan memakai tegangan VCC pada mikrokontroler (Arduino) sebesar 5 volt. Sok atuh di lihat dan di simak baik-baik..

1. Rangkaian rangkaian di bawah ini dengan memakai ISIS 7, rangkaian ini sama dengan rangkaian pada post sebelumnya.
   
2. Tuliskan sintaks di bawah ini menggunakan program arduino (IDE).
   
3. Coba amati perubahan nilai pada LCD pada tegangan 0 Volt sampai 5 Volt dengan rentang (range) tegangan 1 Volt tiap pengukuran. Hasilnya pasti, kurang lebih seperti tabel di bawah ini :
   
4. Mungkin penjelasan dari sintaks di bawah ini dapat membantu anda dalam memahami pemograman dari sintaks di atas.
   

    Semoga post-an kali ini dapat bermanfaat buat sobat semua, sebelumnya menutup post-an ini saya akan mencoba berpantun sedikit "Ada kayu di rumah pak tatang, yang bentuknya indah sekali, Jika ada waktu yang panjang, Izinkan kita berjumpa lagi". Ops... Jangan Lupa Cendolnya ya sobat..

ANALOG INPUT DENGAN TEGANGAN REFERENSI INTERNAL SEBESAR 1,1 VOLT

Wow... Senang sekali saya hari ini, karena mau share-share sedikit ilmu yang saya miliki ke para pembaca setia blog ini. Pada post-an kali ini kita akan membahas bagaimana cara mengkonversi tegangan pada potensiometer menjadi nilai digital. Data hasil konversi tersebut akan di tampilkan pada layar LCD yang berukuran 2 x 16. Dan memakai tegangan ADC internal sebesar 1,1 volt. Pengen tahu bagaimana caranya? yuk.. simak baik-baik.

1. Rangkainlah rangkain di bawah ini menggunakan ISIS 7.
   
2. Tulislah sintaks di bawah ini menggunakan program arduino, kemudian compile dan upload program tersebut ke sistem minimum arduino.
   
3. Putarlah potensiometer dari 0 tegangan sampai 1,5 tegangan (volt) dengan rentang (range) 0,5 volt setiap pengukurannya. Sehingga anda akan mendapatkan data lebih kurang seperti ini :
   
4. Adapun penjelasan dari sintaks di atas adalah sebagai berikut :
   
   Mungkin cukup sekian penjelasan mengenai konversi tegangan potensiometer menjadi nilai digital dengan tegangan 1,1 volt. Jika ada yang belum paham silahkan komen ya.. kalau puas jangan lupa CENDOL-nya..
   Hahahaha...