Arduinoos

Previous T&T

This tip deals with the upload of firmware from a VB.NET application. Take the time to read the avrdude instructions manual and copy paste the following code in your application. It is presented in its minmalist form in order to be self explanatory:

  Private Sub UploadFirmware( _
    ByVal HexFile As String, _
    Optional ByVal Product As String = "m328p", _
    Optional ByVal CommPort As String = "COM1", _
    Optional ByVal Baudrate As Integer = 57600 _
    )

    ' Build arguments string
    ' http://www.nongnu.org/avrdude/user-manual/avrdude_4.html
    Dim Arguments As String = Nothing
    Arguments &= "-F" ' Override device signature check
    Arguments &= " "
    Arguments &= "-v" ' Enable verbose output
    Arguments &= " "
    Arguments &= "-p" ' Product type
    Arguments &= Product
    Arguments &= " "
    Arguments &= "-c" ' Controller type (upload through serial comm port)
    Arguments &= "stk500v1"
    Arguments &= " "
    ' If the avrdude.conf is not located where avrdude.exe expects it to be, uncomment and fill in next lines
    'Arguments &= "-C" ' Specify the configuration file
    'Arguments &= Chr(34) & My.Application.Info.DirectoryPath & "avravrdude.conf" & Chr(34)
    'Arguments &= " "
    Arguments &= "-P"  ' Serial port name
    Arguments &= "\." & CommPort
    Arguments &= " "
    Arguments &= "-b"  ' Baud rate
    Arguments &= CStr(Baudrate)
    Arguments &= " "
    Arguments &= "-D"  ' Disable auto erase for flash
    Arguments &= " "
    Arguments &= "-U" ' Uploaded file to flash memory
    Arguments &= "flash:w:" & Chr(34) & HexFile & Chr(34) & ":i"
    ' Start application
    Dim MyProcess As New Process()
    With MyProcess
      With .StartInfo
        .FileName = My.Application.Info.DirectoryPath & "avrdude.exe"
        .Arguments = Arguments
        .WindowStyle = ProcessWindowStyle.Normal
      End With
      .Start()
    End With

  End Sub

Next T&T