Komunikasi Serial Arduino Dengan Vb6
Pada siang yang cerah ini saya akan menjelaskan bagaimana komunikasi antara arduino webserver dengan VB 6 via TCP-IP, biasanya komunikasi data umumnya menggunakan serial atau UART, sekarang bagaimana jika dengan menggunakan TCPIP?, kelebihan cara ini yaitu data bisa diambil oleh komputer mana saja yang terkoneksi ke router, dan juga tanpa kabel / wireless, sedangkan kalau serial. Bahar e shariat in hindi pdf download. Cadillacs and dinosaurs 20 gun hack set.
Komunikasi Serial Arduino
>>install XAMPP dan aktifkan apache dam MySQL
>>install ODBC
>>install ARDUINO IDE
>>install Hyperterminal
>>Install VB 6
>>Instal Browser Mozilla / Chrome dll.
#include <Ethernet.h>
byte mac[] = { 0xDE, 0xAD, 0xBE, 0xEF, 0xFE, 0xED };
IPAddress ip(192,168,1,99);
IPAddress gateway(192, 168, 1, 1);
IPAddress subnet(255, 255, 255, 0);
//EthernetClient client;
//char server[] = '192.168.1.100';
EthernetServer server(80);
const int ledpin21 = 21;
const int ledpin20 = 20;
const int ledpin19 = 19;
const int ledpin18 = 18;
const int ledpin17 = 17;
const int ledpin16 = 16;
String readString;
void setup() {
pinMode(ledpin21, OUTPUT);
pinMode(ledpin20, OUTPUT);
pinMode(ledpin19, OUTPUT);
pinMode(ledpin18, OUTPUT);
pinMode(ledpin17, OUTPUT);
pinMode(ledpin16, OUTPUT);
Serial.begin(9600);
while (!Serial) {
}
Ethernet.begin(mac, ip);
server.begin();
// Serial.print('server is at ');
// Serial.println(Ethernet.localIP());
}
void loop() {
int an0 = analogRead(0);
float voltage0= an0 * (5.0 / 1023.0);
int an1 = analogRead(1);
float voltage1= an1 * (5.0 / 1023.0);
int an2 = analogRead(2);
float voltage2= an2 * (5.0 / 1023.0);
int an3 = analogRead(3);
float voltage3= an3 * (5.0 / 1023.0);
int an4 = analogRead(4);
float voltage4= an4 * (5.0 / 1023.0);
int an5 = analogRead(5);
float voltage5= an5 * (5.0 / 1023.0);
int an8 = analogRead(8);
float voltage8= an8 * (5.0 / 1023.0);
int an9 = analogRead(9);
float voltage9= an9 * (5.0 / 1023.0);
EthernetClient client = server.available();
if (client) {
// Serial.println('new client');
// an http request ends with a blank line
boolean currentLineIsBlank = true;
while (client.connected()) {
if (client.available()) {
char c = client.read();
// Serial.write(c);
if (readString.length() < 100) {
//store characters to string
readString += c;
//Serial.print(c);
}
if (c 'n' && currentLineIsBlank) {
client.println('HTTP/1.1 200 OK');
client.println('Content-Type: text/html');
client.println('Connection: close');
client.println('Refresh: 3');
client.println();
client.println('<!DOCTYPE HTML>');
client.println('<html>');
client.println(' ');
client.println('<title> Monitor </title> ');
client.println('<body bgcolor = #000000>');
client.println('<center>');
client.println('<font color = yellow><center><h2>MONITORING ARUS DAN TEGANGAN <br> CHARGING STATION </h2></center><br></font>');
client.println('<font color = #FFFFFF>');
client.println('<h1>');
client.println(' Tegangan 1 = ');
client.print(voltage0);
client.println('<br />');
client.println(' Tegangan 2 = ');
client.print(voltage1);
client.println('<br />');
client.println(' Tegangan 3 = ');
client.print(voltage2);
client.println('<br />');
client.println(' Arus 1 = ');
client.print(voltage3);
client.println('<br />');
client.println(' Arus 2 = ');
client.print(voltage4);
client.println('<br />');
client.println(' Arus 3 = ');
client.print(voltage5);
client.println('<br />');
client.println(' Arus 4 = ');
client.print(voltage8);
client.println('<br />');
client.println(' Arus 5 = ');
client.print(voltage9);
client.println('</h1>');
client.println('</font><br><br>');
client.println('<a href = '/?lightof1'><input type = 'button' value = 'ON 1' ></a>');
client.println('<a href = '/?lightof2'><input type = 'button' value = 'OFF 1' ></a> ');
client.println('<a href = '/?lightof3'><input type = 'button' value = 'ON 2' ></a>');
client.println('<a href = '/?lightof4'><input type = 'button' value = 'OFF 2' ></a> ');
client.println('<a href = '/?lightof5'><input type = 'button' value = 'ON 3' ></a>');
client.println('<a href = '/?lightof6'><input type = 'button' value = 'OFF 3' ></a> ');
client.println('<a href = '/?lightof7'><input type = 'button' value = 'ON 4' ></a>');
client.println('<a href = '/?lightof8'><input type = 'button' value = 'OFF 4' ></a> ');
client.println('<a href = '/?lightof9'><input type = 'button' value = 'ON 5' ></a>');
client.println('<a href = '/?lightofa'><input type = 'button' value = 'OFF 5' ></a> ');
client.println('<a href = '/?lightofb'><input type = 'button' value = 'ON 6' ></a>');
client.println('<a href = '/?lightofc'><input type = 'button' value = 'OFF 6' ></a><br>');
client.println('<img src= 'http://localhost/wiring.png' witdh = '600' height ='600'><Br>');
/*
if (client.connect('192.168.1.111', 80)) {
Serial.println('-> Connected');
client.print( 'GET /insertconfig.php?');
client.print('temp=');
client.print(an0);
client.println( ' HTTP/1.1');
client.print( 'Host: ' );
client.println('192.168.1.111');
client.println( 'Connection: close');
client.println();
client.println();
client.stop();
Serial.println('-> Close');
}
else {
// you didn't get a connection to the server:
Serial.println('--> connection failed/n');
}
*/
Serial.println(voltage0);
Serial.println(voltage1);
Serial.println(voltage2);
Serial.println(voltage3);
Serial.println(voltage4);
Serial.println(voltage5);
Serial.println(voltage8);
Serial.println(voltage9);
server.println('data');
server.println(voltage0);
server.println(voltage1);
server.println(voltage2);
server.println(voltage3);
server.println(voltage4);
server.println(voltage5);
server.println(voltage8);
server.println(voltage9);
server.println(' ');
break;
}
if (c 'n') {
currentLineIsBlank = true;
}
else if (c != 'r') {
currentLineIsBlank = false;
}
}
}
delay(1);
client.stop();
// Serial.println('client disonnected');
}
if(readString.indexOf('?lightof1') >0)
{
digitalWrite(ledpin21, LOW);
}
if(readString.indexOf('?lightof2') >0)
{
digitalWrite(ledpin21, HIGH);
}
if(readString.indexOf('?lightof3') >0)
{
digitalWrite(ledpin20, LOW);
}
if(readString.indexOf('?lightof4') >0)
{
digitalWrite(ledpin20, HIGH);
}
if(readString.indexOf('?lightof5') >0)
{
digitalWrite(ledpin19, LOW);
}
if(readString.indexOf('?lightof6') >0)
{
digitalWrite(ledpin19, HIGH);
}
if(readString.indexOf('?lightof7') >0)
{
digitalWrite(ledpin18, LOW);
}
if(readString.indexOf('?lightof8') >0)
{
digitalWrite(ledpin18, HIGH);
}
if(readString.indexOf('?lightof9') >0)
{
digitalWrite(ledpin17, LOW);
}
if(readString.indexOf('?lightofa') >0)
{
digitalWrite(ledpin17, HIGH);
}
if(readString.indexOf('?lightofb') >0)
{
digitalWrite(ledpin16, LOW);
}
if(readString.indexOf('?lightofc') >0)
{
digitalWrite(ledpin16, HIGH);
}
readString=';
}
Dim sHari As String 'Deklarasi variabel global, karena digunakan
Dim aHari 'oleh lebih dari satu prosedur
Dim jam, menit, detik
Dim db As Connection
Dim rs As Recordset
Sub koneksi()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open 'charging'
End Sub
Private Sub cmd_Connect_Click()
On Error GoTo a
If Winsock.State <> sckClosed Then Winsock.Close
Winsock.RemoteHost = Text_IP
Winsock.RemotePort = Text_PORT
Winsock.Connect
cmd_Connect.Enabled = False
cmd_Disconnect.Enabled = True
Exit Sub
a:
MsgBox 'error: ' & Err.Description, vbCritical, 'Error'
End Sub
Private Sub cmd_Disconnect_Click()
Winsock.Close
MsgBox ('Koneksi dengan Server selesai')
cmd_Connect.Enabled = True
cmd_Disconnect.Enabled = False
End Sub
Private Sub Command_Clear_Click()
Text1.Text = '
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
aHari = Array('Minggu', 'Senin', 'Selasa', 'Rabu', 'Kamis', 'Jumat', 'Sabtu')
Timer1.Enabled = True
cmd_Connect.Enabled = True
cmd_Disconnect.Enabled = False
koneksi
Set rs = New Recordset
rs.Open 'tbcharging', db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Private Sub Timer1_Timer()
sHari = aHari(Abs(Weekday(Date) - 1))
lblTanggal.Caption = ' & sHari & ',' & Format(Date, 'dd mmmm yyyy')
LblWaktu.Caption = Format(Time, 'hh:mm:ss')
If Text5.Text <> ' ' Then
Set rs = New Recordset
rs.Open 'tbcharging', db, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields('Tegangan1') = Text6(0).Text
rs.Fields('Tegangan2') = Text6(1).Text
rs.Fields('Tegangan3') = Text6(2).Text
rs.Fields('Arus1') = Text6(3).Text
rs.Fields('Arus2') = Text6(4).Text
rs.Fields('Arus3') = Text6(5).Text
rs.Fields('Arus4') = Text6(6).Text
rs.Fields('Arus5') = Text6(7).Text
rs.Update
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End If
End Sub
Private Sub Winsock_Connect()
MsgBox ('terkoneksi dengan server')
End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Accept requestID
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim buffer As String
Dim temp As String
Dim pisah() As String
Dim i As Integer
Dim data As String
data = '
Winsock.GetData data, vbString
Text1.Text = Text1.Text & data & vbCr
buffer = data
pisah = Split(buffer, Chr$(13))
On Error Resume Next
If buffer <> ' ' Then
With Text5
.SelStart = Len(.Text)
.SelText = buffer
End With
For i = 0 To 8
If 0 < 9 Then
Text6(i).Text = CStr(pisah(i))
End If
Next i
Else
buffer = ' '
End If
End Sub
<?php
include 'config.php';
$tampil = mysql_query('SELECT * FROM tbcharging');
echo '<table border = '1'>
<tr><th bgcolor = #C87C5B>no</th><th bgcolor = #C87C5B>Tegangan1</th><th bgcolor = #C87C5B>Tegangan2</th><th bgcolor = #C87C5B>Tegangan3</th><th bgcolor = #C87C5B>Arus1</th><th bgcolor = #C87C5B >Arus2</th><th bgcolor = #C87C5B>Arus3</th><th bgcolor = #C87C5B>Arus4</th><th bgcolor = #C87C5B>Arus5</th></tr>';
$no=1;
while ($r=mysql_fetch_array($tampil)){
echo '<tr><td bgcolor = #FFC848>$no</td>
<td bgcolor = #FFC848>$r[Tegangan1]</td>
<td bgcolor = #FFC848>$r[Tegangan2]</td>
<td bgcolor = #FFC848>$r[Tegangan3]</td>
<td bgcolor = #FFC848>$r[Arus1]</td>
<td bgcolor = #FFC848>$r[Arus2]</td>
<td bgcolor = #FFC848>$r[Arus3]</td>
<td bgcolor = #FFC848>$r[Arus4]</td>
<td bgcolor = #FFC848>$r[Arus5]</td>
</tr>';
$no++;
}
echo '</table>';
mysql_close($con);
?>
</center>
</body>
</html>
$con = mysql_connect('127.0.0.1','root',');
if (!$con)
{
die('Could not connect: ' . mysql_error());
}
mysql_select_db('charging', $con);
?>
>> isikan address dengan alamat IP server
>> isikan juga IP server dan port 80 untuk via Hyperterminal
Komunikasi Serial Arduino Dengan Vb6
I know this has been done in the past a few times so here's one more. This is a skeletal Visual Basic 2010 and Arduino Sketch that I mixed together to test the PC to Arduino Uno connection via serial. It simply turns LED 13 on or off.
The Visual Basic 2010 code assumes you have Form1 with 2 buttons Button1 and Button2 and SerialPort1 controls. Button1 sends a 1 and Button2 sends a 0 to the serial port COM10 (change this to match your PC to Arduino port setting)
See attached photo of my simple form design.
The Arduino Uno Sketch code simply waits and reads the serial port. If it see 1 it will turn PIN 13 on and if it sees 0 it will turn PIN 13 off. If you have an LED on PIN 13, you can turn it on and off. On the Arduino Uno, PIN 13 is attached to a an on-board LED.
I used COM10 as a serial port but you can (and must) change it to match your Arduino serial port.
The purpose of this code is to simplify explanation of how to connect VB to Arduino. You can add error processing and more intelligence based on your particular needs.
Make sure you drag the Serial Port control icon from the Toolbox onto your form. It should have the name SerialPort1
WARNING: On my PC I had to close the Arduino IDE Serial Monitor window while runing the VB program, else I run into all sorts of error message about COM port access denied and the program will fail.
You can download Visual Basic Express 2010 for free from Microsoft
http://www.microsoft.com/visualstudio/en-us/products/2010-editions/visual-basic-express
'------------ START OF VB 2010 CODE -----------------
' NOTE: I am using COM10 so you need to change the Visual Basic code to match your COM port
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Shared _continue As Boolean
Shared _serialPort As SerialPort
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.Close()
SerialPort1.PortName = 'com10' 'change com port to match your Arduino port
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default 'very important!
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write('1')
SerialPort1.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.Open()
SerialPort1.Write('0')
SerialPort1.Close()
End Sub
End Class
'------------ END OF VB 2010 CODE -----------------
//------------- START OF ARDUINO SKETCH -----------------
//
// Mixed by: Hazim Bitar
// Based on: Science Guy 14 youTube tutorial http://youtu.be/g0pSfyXOXj8
int ledPin = 13; // the number of the LED pin
void setup() {
Serial.begin(9600); // set serial speed
pinMode(ledPin, OUTPUT); // set LED as output
digitalWrite(ledPin, LOW); //turn off LED
}
void loop(){
while (Serial.available() 0); // do nothing if nothing sent
int val = Serial.read() - '0'; // deduct ascii value of '0' to find numeric value of sent number
if (val 1) { // test for command 1 then turn on LED
Serial.println('LED on');
digitalWrite(ledPin, HIGH); // turn on LED
}
else if (val 0) // test for command 0 then turn off LED
{
Serial.println('LED OFF');
digitalWrite(ledPin, LOW); // turn off LED
}
else // if not one of above command, do nothing
{
//val = val;
}
Serial.println(val);
Serial.flush(); // clear serial port
}
//------------- END OF ARDUINO SKETCH -----------------