Programma in programma

[Turion]

Oke, ik zit met ene probleem waar ik niet mee uitkom. Ik heb iets gemaakt in vb dat een programma automatiseerd alleen het is nogal onoverzichtelijk. Nu wil ik in mijn form zeg maar een kleinschermpje plaatsen waarbij je ziet gebeuren wat dat programma uitvoert.
(Het programma moet je uitvoeren via cmd of een snelkopeling maken met bepaalde parameters, als je dat dan gedaan hebt dan start ie in cmd of maakt een nieuw scherm aan in cmdbox.

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Enabled = True Then My.Settings.Game = "Counter-Strike Source"
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Enabled = True Then My.Settings.Game = "tf"
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton4.Enabled = True Then My.Settings.Game = "dods"
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton1.Enabled = True Then My.Settings.Game = "Garrysmod"
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        My.Settings.Directory = TextBox1.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Enabled = True Then My.Computer.FileSystem.CreateDirectory("" + My.Settings.Directory)
        If Button1.Enabled = True Then Shell("hldsupdatetool.exe -command update -game " + My.Settings.Game + " -dir " + My.Settings.Directory)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Enabled = True And My.Computer.FileSystem.DirectoryExists(My.Settings.Directory) = True Then Shell("hldsupdatetool.exe -command update -game " + My.Settings.Game + " -dir " + My.Settings.Directory)
        If My.Computer.FileSystem.DirectoryExists(My.Settings.Directory) = False Then MsgBox("Directory you filled in doesn't exist")
    End Sub


End Class

Het vb geschreven proramma is nog niet af.

(Hldsupdatetool.exe = een programma voor het downloaden van gamefiles om een server te draaien)

Bedankt:thumb:

als ik niet duidelijk ben vraag om meer detail, desnoods edit ik deze post gelijk om aanvullende info te geven.

 

[huijb]

Verplaatst naar juiste sectie, Visual Basic dus en geen VBA.

 

[Pizara]

je code is sowieso wat dubbel-op en onoverzichtelijk. Heb 't even voor je aangepast.

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
        If sender.Enabled = True Then
            Select Case sender.Name
                Case "RadioButton1"
                    My.Settings.Game = "Counter-Strike Source"
                Case "RadioButton2"
                    My.Settings.Game = "tf"
                Case "RadioButton3"
                    My.Settings.Game = "dods"
                Case "RadioButton4"
                    My.Settings.Game = "Garrysmod"
                Case Else
            End Select
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        My.Settings.Directory = TextBox1.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
        If sender.Enabled = True Then
            Select Case sender.Name
                Case "Button1"
                    My.Computer.FileSystem.CreateDirectory("" + My.Settings.Directory)
                    Shell("hldsupdatetool.exe -command update -game " + My.Settings.Game + " -dir " + My.Settings.Directory)
                Case "Button2"
                    IIf(My.Computer.FileSystem.DirectoryExists(My.Settings.Directory), _
                         Shell("hldsupdatetool.exe -command update -game " + My.Settings.Game + " -dir " + My.Settings.Directory), _
                         MsgBox("Directory you filled in doesn't exist"))
                Case Else
            End Select
        End If
    End Sub

End Class

Maar je wilt een soort log bijhouden van wat er in de command prompt staat ofzo?

 

[Turion]

je code is sowieso wat dubbel-op en onoverzichtelijk. Heb 't even voor je aangepast.

Klopt ik ben vrij nieuw in visual basic en ik weet nog niet precies hoe alles werkt, heb nu in iedergeval iets nieuws geleerd, bedankt.

Maar je wilt een soort log bijhouden van wat er in de command prompt staat ofzo?

Soort van ja, alleen wil ik het dan direct op mijn form zien. zodat je kan zien hoever het programma is. Want hldsupdatetool moet namelijk alle files van het internet afhalen bij elke file staat an hoeveel % het programma is en daarbij de naam van het bestand en waar hij is opgeslagen. Alleen omdat het tool alleen in cmd werkt vraag ik mij af hoe ik het in visual basic moet laten zien.