VB & C++ - wo ist der Unterschied ?

[Fighter]

Die Beiden scheinen sich ja ziemlich ähnlich zu sein, wenn mir niemand sagen, in was ich gerade ein Programm geschrieben habe.
Hier nochmal mein Quelltext von meinem ersten Programm. Also lacht bitte nicht über die umständliche Programmierung

Hier ein kleiner Ausschnitt:

Function speicher_datei(ByVal input_text As String, ByVal datei As String)
        ' +----------------------------+
        ' |     Speicher Datei.txt     |
        ' +----------------------------+
        FileOpen(5, pfad_text + datei, OpenMode.Output)
        PrintLine(5, input_text)
        FileClose(5)
        textfeld1.Text = datei + " gespeichert."
    End Function

    Private Sub btn_hinzu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hinzu.Click
        ' +----------------------------+
        ' |   hinzufügen & speichern   |
        ' +----------------------------+
        If tbox_pgname.Text = "" Or tbox_von.Text = "" Or tbox_nach.Text = "" Then
            MsgBox("Fülle bitte alle Felder aus!", MsgBoxStyle.Exclamation, "Bitte vervollständige Deine Eingaben")

        Else
            Dim neuer_text As String
            Dim textbox As String = textbox1.Text
            Dim pgname As String = tbox_pgname.Text
            neuer_text = textbox + "###" + pgname + vbCrLf + tbox_von.Text + vbCrLf + tbox_nach.Text + vbCrLf
            textbox1.Text = neuer_text
            tbox_pgname.Text = ""
            tbox_von.Text = ""
            tbox_nach.Text = ""
            Dim datei As String
            If vupdate = "0" Then
                datei = "Update1.txt"
            End If
            If vupdate = "1" Then
                datei = "Update2.txt"
            End If
            If vupdate = "2" Then
                datei = "Update3.txt"
            End If
            speicher_datei(neuer_text, datei)
        End If
    End Sub

    Private Sub btn_löschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_löschen.Click
        ' +----------------------------+
        ' |    abbrechen und leeren    |
        ' +----------------------------+
        tbox_pgname.Text = ""
        tbox_von.Text = ""
        tbox_nach.Text = ""
    End Sub

    Private Sub btn_von_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_von.Click
        OpenFile1.Filter = "Alle Dateien (*.*)|*.*"
        If OpenFile1.ShowDialog() = DialogResult.OK Then
            tbox_von.Text = OpenFile1.FileName
        End If
    End Sub

Greetz Fighter

[Shade Of Mine]

das ist VB

und C++ und VB sind sich ganz und garnicht ähnlich...

[Fighter]

dann entschuldige bitte meine unwissenheit

Wenn ich schon was neues Lerne, dann sollte es wohl auch C++ sein.
Woran bitteschön sehe ich, dass es c++ ist ?

Ich arbeite gerade das Buch Jetzt lerne ich Visual c++ durch, woher ich auch das wissen für das obige Programm habe. Hätte ich doch meinen können, dass es c++ ist ?!

Gruß Fighter

[phippse]

ich glaube End Sub gibt es z.B. in c++ nicht.

[Bashar]

}

[quizzmaster]

Also das das nicht C/C++ ist, sieht man daran, dass es keine main() Funktion gibt.

Außerdem sollte ein C++ Buch keinen Basic oder Pascal Code als Beispiel hernehmen.

[phippse]

herr bashar was darf ich ihrem sinnvollen beitrag entnehmen ??

[Bashar]

Einen Lacher. Kann auch sein dass es dir zu hoch oder zu platt ist, dann eben nicht.

[phippse]

eigentlich habe ich meine antwort vorhin nicht wirklich ernst gemeint