Hola a todos!
Bueno tengo aca un lindo desafio que creo que le va a servir a muchos, nesecito que usuarios puedan hacer upgrades del programa del pic desde una aplicacion en VB6. Estoy programando con CCS, el programa para el bootloader(esta escrito en CCS tambien) lo baje de aca
www.thebytefactory.com(codeloader adjunto el archivo), la ventaja de este bootloader es que se pueden cargar los .hex desde el hyperterminal de windows, asi que estube escribiendo una rutina en vb6 que lea el .hex file y mande los datos al pic...todabia no lo puedo conseguir y no anda(el bootloader me manda un mensaje que hay un error en el checksum), alguna idea porque no toma bien los datos?
Private Sub Command1_Click()
Dim n As Integer
Dim dato As String
n = 1
Dim i As Integer
Open App.Path & "\test.hex" For Input As #n
Do Until EOF(n)
Line Input #n, dato
MSComm1.Output = dato
delay (10) ' el bootloader me pide que ponga un delay de 10 ms entre lineas -escribo una funcion con un timer
Loop
Close #n
End sub
Private Sub Form_Load()
MSComm1.Settings = "19200,N,8,1" 'settings que me pide el bootloader
MSComm1.Handshaking = comXOnXoff 'settings que me pide el bootloader
MSComm1.EOFEnable = False
MSComm1.NullDiscard = False
MSComm1.OutBufferSize = 500
MSComm1.InBufferSize = 100
MSComm1.RThreshold = 1
MSComm1.InputLen = 1
MSComm1.SThreshold = 0
MSComm1.InputMode = comInputModeText
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Text1.Text = ""
End Sub
