Arduino & Visual Basic 6 (licht Controller) (4 / 4 stap)

Stap 4: Visual Basic 6.0 (formulier)

Het laatste deel zou moeten maken van de gebruikersinterface.
Ik maakte de interface eenvoudig zodat ik kon laten zien wat VB kunt gemakkelijk doen. Interfaces zijn subjectieve structuren. Kunt u overwegen de gebruiker; of hij/zij is rechts- of linkshandig en hun persoonlijke voorkeuren. Er zijn geen perfecte Interfaces maar er geschikt zijn. Ik wilde het ZIP-bestand bijvoegen maar heb geen idee hoe te dus ik koppelde zij hier @http://www.esnips.com/doc/bc349cad-d350-47f7-ac81-d74d2474238f/Light en http://www.esnips.com/doc/8c1807ca-bc5c-4348-a420-33c3e396e610/VBLight

Formulier

Privé temptxt As String, ik As Long, Ext As Boolean
Privé Command() As String
Privé pauseLocation As Long

Private Sub cmdCheck_Click()
Toets = 0
Parse.StringSort (txtCode.Text)
txtCode.SelStart = 0
txtCode.SelLength = Len(txtCode.Text)
txtCode.SetFocus
End Sub

Private Sub cmdExit_Click()
Einde
End Sub

Private Sub cmdLoadFile_Click()
temptxt = File.FileToArray (App.Path & "\ProgramCode.txt")
txtLoadCode.Text = temptxt & vbCrLf & txtLoadCode.Text
Command() = Strings.Split (temptxt, vbCrLf)
Ik = 1
End Sub

Private Sub cmdLoadGmail_Click()
Dim bestandsnaam As String
FileName = App.Path & "\ProgramFromMail.txt"
Toets = 0
txtLoadCode.Text = "Code van Gmail laden..." & vbCrLf & txtLoadCode.Text
Als Gmail.CheckMail(FileName) dan
temptxt = File.FileToArray(FileName)
temptxt = vervangt (temptxt, "CT" & vbCrLf, "CT")
txtLoadCode.Text = temptxt & vbCrLf & txtLoadCode.Text
Command() = Strings.Split (temptxt, vbCrLf)
Ik = 1
End If
End Sub

Private Sub cmdLoop_Click()
Toets = 0: Ext = False
Voor i = 1 To UBound(Command())
DoEvents
Parse.StringSort (Command(i))
Als belangrijkste = 1 dan Exit voor ' als opdracht fout heeft overslaan toekomstige opdrachten
Als Ext dan afsluit voor
Als ik = UBound(Command()) - 1 dan i = 1 ' reset ik lus & overslaan opdracht verbreken
Volgende
End Sub

Private Sub cmdRefresh_Click()
Gmail.initGmailAccount App.Path & "\Gmail.ini", "algemeen", frmServo, Timer1, txtLoadCode, Inet1
End Sub

Private Sub cmdRun_Click()
Toets = 0
Voor i = 1 To UBound(Command())
DoEvents
Parse.StringSort (Command(i))
Als belangrijkste = 1 Then Exit voor
Als Ext dan afsluit voor
Volgende
End Sub

Private Sub cmdPause_Click()
pauseLocation = i + 1 ' onderbroken locatie opslaan
Doen
DoEvents
Loop
End Sub

Private Sub cmdResume_Click()
Voor i = pauseLocation To UBound(Command())
DoEvents
Parse.StringSort (Command(i))
Als belangrijkste = 1 dan Exit voor ' als opdracht fout heeft overslaan toekomstige opdrachten
Als Ext dan afsluit voor
Als ik = UBound(Command()) - 1 dan i = 1 ' reset ik lus & overslaan opdracht verbreken
Volgende
End Sub

Private Sub cmdSingle_Click()
Toets = 0
Als ik > UBound(Command()) dan
Ik = 1
End If
Parse.StringSort (Command(i))

Als belangrijkste = 1 Then
MsgBox "Line" ik & "Bevel fout!"
End If
i = i + 1 ' increment index om te spelen de volgende regel
End Sub

Private Sub cmdStopProgram_Click()
Ext = True
End Sub

Private Sub Form_Load()
Parse.Init_Parser App.Path & "\ComportSettings.ini", "algemeen", MSComm1, txtFeedback, txtStatus
Gmail.initGmailAccount App.Path & "\Gmail.ini", "algemeen", frmTestCode, Timer1, txtLoadCode, Inet1
End Sub

Module

Openbare parseren As New cLightParser
Openbare File As New cReadTextFile
Openbare Gmail As New cReadGmail
Openbare licht As New cLightFunction
Openbare sleutel As Integer