My blog, keeping you up-to-date on Robotic Projects and News.

 

Interfacing Arduino and PC using VB 6

February 23, 2011 at 4:25 am | Arduino | No comment

 
 



One of the conveniences that exist on the Arduino is a serial communication function that has been bundled in the Arduino software. With the serial function, then the Arduino can communicate two ways with PC using a program created with Visual Basic 6.

In this project, we will combining the Digital Data and Analog Data. How to receive and transmit Digital and Analog Data  from Arduino to PC and vice versa.

Arduino Conditions:
  1. Digital Input Signal from Push Button
  2. Analog Digital Input Signal from LDR
  3. Digital Output Signal at LED (on-off)
  4. Analog Outpuy Signal at LED (brightness).

PC Conditions with VB 6:
  1. Digital Input Data showing by Command Button Object

  2. Analog Input Data showing by Slider Object
  3. Digital Output Data showing by Shape Object
  4. Analog Output Data showing by Picture Box Object



Procedures:

  1. Connect Arduino to the computer through a USB port.

  2. Check the COM channel used (open Device Manager to find out).
  3. Arrange a series of Input Output Arduino using buttons, LDR and 2 pieces LEDs, where the key to connect with feet D2, A0 LDR connect with your legs, and first and second LEDs in succession to connect with feet D9 and D10.
  4. Perform programming on the Arduino, then Compile and upload the program.
  5. Perform Visual Basic, run the program and complete.

Arduino Source Code:



int kakitombol=2;
int kakiled=9;
int pinled=10;

void setup() {
Serial.begin(9600);
pinMode(kakitombol,INPUT);
pinMode(kakiled,OUTPUT);
pinMode(pinled,OUTPUT);
}

void loop() {  
if(Serial.available())
{
int terimadata=Serial.read();
if (terimadata==’a')
{digitalWrite(kakiled,HIGH);}
else if (terimadata==’b')
{digitalWrite(kakiled,LOW);}
else
{analogWrite(pinled,terimadata);}
}
int statustombol=digitalRead(kakitombol);
if(statustombol==HIGH)
{Serial.print(‘a’);}
else
{Serial.print(‘b’);}
int analogValue = analogRead(0);   
int datamsb=highByte(analogValue);
int datalsb=lowByte(analogValue);
Serial.print(datamsb,BYTE);
Serial.print(datalsb,BYTE);
delay(100);
}

Visual Basic 6 Source Code:

Private Sub drawscale(var As Long)
Picture1.Cls
Picture1.Line (0, 0)-(var, Picture1.ScaleHeight), vb3shadow, BF
End Sub

Private Sub Command1_Click()
Dim statusled As String
If Option1 = True Then
statusled = “b”
Else
statusled = “a”
End If
MSComm1.Output = statusled
End Sub

Private Sub Form_Load()
Slider1.Max = 255
Slider1.Min = 0
Slider1.TickFrequency = 10
Slider1.LargeChange = 10
MSComm1.RThreshold = 3
MSComm1.InputLen = 3
MSComm1.Settings = “9600,n,8,1″
MSComm1.CommPort = 6
MSComm1.PortOpen = True
MSComm1.DTREnable = False
Picture1.ScaleWidth = 1000
Picture1.AutoRedraw = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

Private Sub Slider1_Change()
MSComm1.Output = Chr$(Slider1.Value)
Label3.Caption = Slider1.Value
End Sub

Private Sub MSComm1_OnComm()
Dim sData As String
Dim highbyte As Long
Dim lowbyte As Long
Dim word As Long
Dim tombol As String
If MSComm1.CommEvent = comEvReceive Then
    sData = MSComm1.Input
    tombol = Mid$(sData, 1, 1)
    highbyte = Asc(Mid$(sData, 2, 1))
    lowbyte = Asc(Mid$(sData, 3, 1))
    word = (highbyte * &H100) Or lowbyte
    Label1.Caption = CStr(word)
    drawscale word
    Label2.Caption = tombol
    If tombol = “a” Then
    Shape1.FillColor = vbYellow
    Else
    Shape1.FillColor = vbRed
    End If
End If
End Sub

Using Objects Informations:
  • 1 Form
  • 1 Mscomm (diperoleh dari Project / Components / Controls / Microsoft Comm Control 6.0)
  • 1 Shape
  • 3 Label
  • 1 Picture Box
  • 1 Slider (diperoleh dari Project / Components / Controls / Microsoft Windows Common Controls 6.0)
  • 2 Option Button
  • 1 Command Button  

Source: http://arduinodanvb.blogspot.com/2010/10/interface-3-menggabungkan-digital-dan.html


<< Back to Blog Discuss this post

 
No Comments to “Interfacing Arduino and PC using VB 6”
Leave a Comment

Sponsors

Categories:

Archives:

 
top