Skip to content

Commit

Permalink
Added more settings for Radxa Zero 3w version 1.5
Browse files Browse the repository at this point in the history
  • Loading branch information
MarioFPVdev authored and MarioFPVdev committed Aug 28, 2024
1 parent ddd630d commit 26a5647
Show file tree
Hide file tree
Showing 2 changed files with 79 additions and 0 deletions.
32 changes: 32 additions & 0 deletions Configurator.Designer.vb

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

47 changes: 47 additions & 0 deletions Configurator.vb
Original file line number Diff line number Diff line change
Expand Up @@ -1294,6 +1294,8 @@ err1:
btnDriverBackup.Visible = False
txtBin.Visible = False
txtDriver.Visible = False
btnMSPGS.Visible = False
btnMAVGS.Visible = False
txtSaveVRX.Visible = True
btnUART2.Visible = False
btnUART2OFF.Visible = False
Expand Down Expand Up @@ -1402,6 +1404,9 @@ err1:
txtBin.Visible = True
txtDriver.Visible = True
txtSaveVRX.Visible = False
btnMSPGS.Visible = False
btnMAVGS.Visible = False
txtSaveVRX.Visible = False
btnUART2.Visible = True
btnUART2OFF.Visible = True
btnRestartWFB.Visible = True
Expand Down Expand Up @@ -1508,6 +1513,8 @@ err1:
btnDriverBackup.Visible = False
txtBin.Visible = False
txtDriver.Visible = False
btnMSPGS.Visible = True
btnMAVGS.Visible = True
txtSaveVRX.Visible = True
btnUART2.Visible = False
btnUART2OFF.Visible = False
Expand Down Expand Up @@ -2683,5 +2690,45 @@ err1:
End If
End Sub

Private Sub btnMSPGS_Click(sender As Object, e As EventArgs) Handles btnMSPGS.Click
Dim extern = "extern.bat"
If Not System.IO.File.Exists(extern) Then
MsgBox("File " + extern + " not found!")
Return
End If

If IsValidIP(txtIP.Text) Then
With New Process()
.StartInfo.UseShellExecute = False
.StartInfo.FileName = extern
.StartInfo.Arguments = "mspgs " + String.Format("{0}", txtIP.Text) + " " + txtPassword.Text
.StartInfo.RedirectStandardOutput = False
.Start()
End With
Else
MsgBox("Please enter a valid IP address")
End If
End Sub

Private Sub btnMAVGS_Click(sender As Object, e As EventArgs) Handles btnMAVGS.Click
Dim extern = "extern.bat"
If Not System.IO.File.Exists(extern) Then
MsgBox("File " + extern + " not found!")
Return
End If

If IsValidIP(txtIP.Text) Then
With New Process()
.StartInfo.UseShellExecute = False
.StartInfo.FileName = extern
.StartInfo.Arguments = "mavgs " + String.Format("{0}", txtIP.Text) + " " + txtPassword.Text
.StartInfo.RedirectStandardOutput = False
.Start()
End With
Else
MsgBox("Please enter a valid IP address")
End If
End Sub

#End Region
End Class

0 comments on commit 26a5647

Please sign in to comment.