Arduino & Visual Basic 6 (Light Controller) (4 / 4 steg)
Steg 4: Visual Basic 6.0 (formulär)
Den sista delen skulle vara att skapa användargränssnittet.
Jag gjorde gränssnittet enkelt så att jag kunde visa vad VB kan göra enkelt. Gränssnitten är subjektiva strukturer. Du bör användaren. om han/hon är höger eller vänsterhänt och sina personliga preferenser. Det finns inga perfekta gränssnitt men det finns lämpliga sådana. Jag ville bifoga ZIP-filen men har ingen aning hur till så jag länkade den här @http://www.esnips.com/doc/bc349cad-d350-47f7-ac81-d74d2474238f/Light och http://www.esnips.com/doc/8c1807ca-bc5c-4348-a420-33c3e396e610/VBLight
Form
Privata temptxt As String, jag som lång, Ext som boolesk
Privata Command() som sträng
Privata pauseLocation som långa
Private Sub cmdCheck_Click()
Nyckel = 0
Parse.StringSort (txtCode.Text)
txtCode.SelStart = 0
txtCode.SelLength = Len(txtCode.Text)
txtCode.SetFocus
End Sub
Private Sub cmdExit_Click()
Slutet
End Sub
Private Sub cmdLoadFile_Click()
temptxt = File.FileToArray (App.Path & "\ProgramCode.txt")
txtLoadCode.Text = temptxt & vbCrLf & txtLoadCode.Text
Command() = Strings.Split (temptxt, vbCrLf)
Jag = 1
End Sub
Private Sub cmdLoadGmail_Click()
Dim filnamn som sträng
Filnamn = App.Path & "\ProgramFromMail.txt"
Nyckel = 0
txtLoadCode.Text = "Ladda koden från Gmail..." & vbCrLf & txtLoadCode.Text
Om Gmail.CheckMail(FileName) sedan
temptxt = File.FileToArray(FileName)
temptxt = Ersätt (temptxt, "CT" & vbCrLf, "CT")
txtLoadCode.Text = temptxt & vbCrLf & txtLoadCode.Text
Command() = Strings.Split (temptxt, vbCrLf)
Jag = 1
Slut om
End Sub
Private Sub cmdLoop_Click()
Nyckel = 0: Ext = False
För i = 1 till UBound(Command())
DoEvents
Parse.StringSort (Command(i))
Om nyckel = 1 sedan Exit för "om kommandot har fel, hoppa över framtida kommandon
Om Ext sedan avslutar för
Om jag = UBound(Command()) - 1 då jag = 1 ' reset i till slinga & hoppa koppla kommando
Nästa
End Sub
Private Sub cmdRefresh_Click()
Gmail.initGmailAccount App.Path & "\Gmail.ini", "allmänt", frmServo, Timer1, txtLoadCode, Inet1
End Sub
Private Sub cmdRun_Click()
Nyckel = 0
För i = 1 till UBound(Command())
DoEvents
Parse.StringSort (Command(i))
Om nyckel = 1 sedan Exit för
Om Ext sedan avslutar för
Nästa
End Sub
Private Sub cmdPause_Click()
pauseLocation = i + 1 ' Spara pausat läge
Göra
DoEvents
Loop
End Sub
Private Sub cmdResume_Click()
För i = pauseLocation till UBound(Command())
DoEvents
Parse.StringSort (Command(i))
Om nyckel = 1 sedan Exit för "om kommandot har fel, hoppa över framtida kommandon
Om Ext sedan avslutar för
Om jag = UBound(Command()) - 1 då jag = 1 ' reset i till slinga & hoppa koppla kommando
Nästa
End Sub
Private Sub cmdSingle_Click()
Nyckel = 0
Om jag > UBound(Command()) sedan
Jag = 1
Slut om
Parse.StringSort (Command(i))
Om nyckel = 1 då
MsgBox "Line" & jag & "Command fel!"
Slut om
jag = i + 1 "increment index att spela nästa rad
End Sub
Private Sub cmdStopProgram_Click()
Ext = sant
End Sub
Private Sub Form_Load()
Parse.Init_Parser App.Path & "\ComportSettings.ini", "allmänt", MSComm1, txtFeedback, txtStatus
Gmail.initGmailAccount App.Path & "\Gmail.ini", "allmänt", frmTestCode, Timer1, txtLoadCode, Inet1
End Sub
Module
Offentliga tolka som ny cLightParser
Offentliga fil som ny cReadTextFile
Offentliga Gmail som ny cReadGmail
Offentliga ljus som ny cLightFunction
Offentliga nyckel som heltal