Paso 4: Visual Basic 6.0 (formulario)
La parte final sería crear la interfaz de usuario.
Hice la interfaz simple por lo que podía mostrar lo que VB puede hacer fácilmente. Las interfaces son estructuras subjetivas. Usted debe considerar el usuario; Si es diestro o zurdo y sus preferencias personales. Hay no hay Interfaces perfectos pero son los adecuados. Quería adjuntar el archivo ZIP pero no tienen idea de cómo a tan ligado aquí @http://www.esnips.com/doc/bc349cad-d350-47f7-ac81-d74d2474238f/Light y http://www.esnips.com/doc/8c1807ca-bc5c-4348-a420-33c3e396e610/VBLight
Forma
Private temptxt As String, i como largo Ext como booleano
Command() privado como cadena
PauseLocation privado como largo
Private Sub cmdCheck_Click()
Clave = 0
Parse.StringSort (txtCode.Text)
txtCode.SelStart = 0
txtCode.SelLength = Len(txtCode.Text)
txtCode.SetFocus
End Sub
Private Sub cmdExit_Click()
Final
End Sub
Private Sub cmdLoadFile_Click()
temptxt = File.FileToArray (App.Path & "\ProgramCode.txt")
txtLoadCode.Text = temptxt & vbCrLf & txtLoadCode.Text
Command() = Strings.Split (temptxt, vbCrLf)
i = 1
End Sub
Private Sub cmdLoadGmail_Click()
Dim nombre de archivo como cadena
Nombre de archivo = App.Path & "\ProgramFromMail.txt"
Clave = 0
txtLoadCode.Text = "Cargar código de Gmail..." & vbCrLf & txtLoadCode.Text
Si Gmail.CheckMail(FileName) entonces
temptxt = File.FileToArray(FileName)
temptxt = Replace (temptxt, "CT" & vbCrLf, "CT")
txtLoadCode.Text = temptxt & vbCrLf & txtLoadCode.Text
Command() = Strings.Split (temptxt, vbCrLf)
i = 1
End If
End Sub
Private Sub cmdLoop_Click()
Clave = 0: Ext = False
Para i = 1 To UBound(Command())
DoEvents
Parse.StringSort (Command(i))
Si clave = 1 entonces salida para ' si comando tiene error, omitir los comandos futuros
Si Ext entonces la salida de la
Si i = UBound(Command()) - 1 entonces = 1 ' reset loop y salto comando desconectar
Siguiente
End Sub
Private Sub cmdRefresh_Click()
Gmail.initGmailAccount App.Path & "\Gmail.ini", "general", frmServo, Timer1, txtLoadCode, Inet1
End Sub
Private Sub cmdRun_Click()
Clave = 0
Para i = 1 To UBound(Command())
DoEvents
Parse.StringSort (Command(i))
Si clave = 1 salida
Si Ext entonces la salida de la
Siguiente
End Sub
Private Sub cmdPause_Click()
pauseLocation = i + 1 ' guardar ubicación pausado
Hacer
DoEvents
Lazo
End Sub
Private Sub cmdResume_Click()
De = pauseLocation a UBound(Command())
DoEvents
Parse.StringSort (Command(i))
Si clave = 1 entonces salida para ' si comando tiene error, omitir los comandos futuros
Si Ext entonces la salida de la
Si i = UBound(Command()) - 1 entonces = 1 ' reset loop y salto comando desconectar
Siguiente
End Sub
Private Sub cmdSingle_Click()
Clave = 0
Si i > UBound(Command()) entonces
i = 1
End If
Parse.StringSort (Command(i))
Si clave = 1 entonces
MsgBox "Línea" & i & "Comando Error!"
End If
i = i + 1 ' índice de incremento para jugar la siguiente línea
End Sub
Private Sub cmdStopProgram_Click()
EXT = True
End Sub
Private Sub Form_Load()
Parse.Init_Parser App.Path & "\ComportSettings.ini", "general", MSComm1, txtFeedback, cuadro txtStatus
Gmail.initGmailAccount App.Path & "\Gmail.ini", "general", frmTestCode, Timer1, txtLoadCode, Inet1
End Sub
Módulo de
CLightParser analizar como nuevo público
CReadTextFile archivo como nuevo público
Público cReadGmail Gmail como nuevo
CLightFunction luz como nuevo público
Clave pública como Integer
