Maker Pro
Visual Basic + Proton Basic + Proteus

Visual Basic + Proton Basic + Proteus

Home Automation with Visual Basic, Proton Basic & Proteus

Project Log


Proton Basic Code
Code:
Device=16F628A
Xtal=20
All_Digital true
Hserial_Baud 9600 ' Setting Baud rate

TXSTA.5=1 ' setting Transmit Enable Bit
RCSTA.7=1
RCSTA.4=1
RX VAR PORTB.1
TX VAR PORTB.2


  '--------------------------------------------'
'Ports for LED indicator if they are ON/OFF
Output PORTA.0
Output PORTA.1
Output PORTA.2
Output PORTA.3

'Ports that will switch the Relays
Output PORTB.0
Output PORTB.3
Output PORTB.4
Output PORTB.5



'--------------------------------------------'
'Symbol for LED indicator If they are On/OFF
Symbol led0 PORTA.0
Symbol led1 PORTA.1
Symbol led2 PORTA.2
Symbol led3 PORTA.3

'Symbol for Ports that will switch the Relays
Symbol led00 PORTB.0
Symbol led11 PORTB.3
Symbol led22 PORTB.4
Symbol led33 PORTB.5


'--------------------------------------------'
'Low led state at default start of the program
Low led0
Low led1
Low led2
Low led3


Dim x As Byte


loop:
'x for getting the serial
x = HRSIn

    'LED1
    If x = "A" Then
    High led00      'Switch ON Relay1 or PortB0 if serial = A
    DelayMS 1000    'Delay 1 second
    High led0       'Turn ON Led 1 indicator Relay 1 is ON

        ElseIf x = "B" Then
        Low led00       'Switch OFF Relay1 or PortB0 if serial = B
        DelayMS 1000    'Delay 1 second
        Low led0        'Turn OFF Led 1 indicator Relay 1 is OFF
        EndIf
  
    'LED2
    If x = "C" Then
    High led11
    DelayMS 1000
    High led1

        ElseIf x = "D" Then
        Low led11
        DelayMS 1000
        Low led1
        EndIf

    'LED3
     If x = "E" Then
     High led22
     DelayMS 1000
     High led2

        ElseIf x = "F" Then
        Low led22
        DelayMS 1000
        Low led2
        EndIf

    'LED4     
    If x = "G" Then
    High led33
    DelayMS 1000
    High led3
   
        ElseIf x = "H" Then
        Low led33
        DelayMS 1000
        Low led3
        EndIf
  

GoTo loop
End


Visual Basic Code
Code:
Imports System
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Imports System.ComponentModel


Public Class Automation



    Private Sub Automation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        RS232.Close()
        RS232.PortName = "com11" 'change com port to match your Arduino port
        RS232.BaudRate = 9600
        RS232.DataBits = 8
        RS232.Parity = Parity.None
        RS232.StopBits = StopBits.One
        RS232.Handshake = Handshake.None
        RS232.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
        RS232.Open()
        RS232.Write("A")
        RS232.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RS232.Open()
        RS232.Write("B")
        RS232.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RS232.Open()
        RS232.Write("C")
        RS232.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        RS232.Open()
        RS232.Write("D")
        RS232.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        RS232.Open()
        RS232.Write("E")
        RS232.Close()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        RS232.Open()
        RS232.Write("F")
        RS232.Close()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        RS232.Open()
        RS232.Write("G")
        RS232.Close()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        RS232.Open()
        RS232.Write("H")
        RS232.Close()
    End Sub

End Class

For more information see attachment.

Item information

Added by
brian22
Views
1,795
Last update

More in Project Logs

More from brian22

Share this item

Top