Private/Public Subs - Variable nicht deklariert??? (Totaler Anfänger^^)

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Lockerzzz.

    Private/Public Subs - Variable nicht deklariert??? (Totaler Anfänger^^)

    Hey,

    ich hab mir heute Microsoft VIsual Basic 2010 runtergeladen, und mir im Internet, zb. auf microsoft usw. ein paar Turorials angeschaut.
    Ich hab mich früher schon mal mit Visual Basic beschäftigt, aber nur gaaaanz kurz.
    Hab sonst keinerlei Erfahrung auf dem Gebiet des Programmierens, und soweit ich gelesen hab, soll VB trotz begrenzter Möglichkeiten (oder gerade deshalb)
    eine gute Anfängersprache sein. Jetzt plagt mich die ganze Zeit dieses Problem...... Wenn ich bei einem Button eine Variable deklariere, und diese dann bei einem anderen Button brauche, dann sagt
    er dass die Variable nicht deklariert ist.....Hab auch schon statt Private Sub Public sub hingeschrieben, aber das ändert nix.....

    Übrigens, mein "Programm", and dem ich schreibe, ist eine Art einfacher Rechner, nur zur Übung und Festigung der Grundlagen^^

    Ich hoffe, mir kann das jemand erklären, wäre ganz nett :)

    Übrigens: Bitte Deusch reden und nicht VB-isch....^^

    Falls das wichtig ist: ich kann noch nichts, außer If´s (auch else, elseif) und Varieblen deklarieren)

    Ich hab mir das so gedacht, dass ich einfach ein Label mache, das in der gleiche Schriftfarbe wie der Hintergrund, und wenn dann der Button mit dem + geklickt wid, dass sich dann der Text des Labels auf + ändert und ich dann mit einem

    If Label1.Text = "+" Then
    TextBox1.Text = ErsteZahl + ZweiteZahl
    Elseif Laberl1.Text = "-" Then
    TextBox1.Text = ErsteZahl - ZweiteZahl......usw mit mal und dividiert (Wobei ErsteZahl und Zweitezahl die Variablennamen der beiden Zahlen sind)
    Dann das überprüfe, erscheint mir aber ein wenig unprofessionell^^

    Hier der Code(Und das Problem ganz unten, wo Button14 steht):

    VB.NET-Quellcode

    1. Public Class Form1
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. End Sub
    9. Public Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    10. Dim Rechenzeichen As String = "+"
    11. Dim ErsteZahl As Double = TextBox1.Text
    12. TextBox1.Text = ""
    13. End Sub
    15. Public Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    16. Dim Rechenzeichen As String = "-"
    17. Dim ErsteZahl As Double = TextBox1.Text
    18. TextBox1.Text = ""
    19. End Sub
    21. Public Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    22. Dim Rechenzeichen As String = "*"
    23. Dim ErsteZahl As Double = TextBox1.Text
    24. TextBox1.Text = ""
    25. End Sub
    27. Public Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
    28. Dim Rechenzeichen As String = "/"
    29. Dim ErsteZahl As Double = TextBox1.Text
    30. TextBox1.Text = ""
    31. End Sub
    33. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    34. TextBox1.Text = TextBox1.Text & "1"
    35. End Sub
    37. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    38. TextBox1.Text = TextBox1.Text & "2"
    39. End Sub
    41. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    42. TextBox1.Text = TextBox1.Text & "3"
    43. End Sub
    45. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    46. TextBox1.Text = TextBox1.Text & "4"
    47. End Sub
    49. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    50. TextBox1.Text = TextBox1.Text & "5"
    51. End Sub
    53. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    54. TextBox1.Text = TextBox1.Text & "6"
    55. End Sub
    57. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    58. TextBox1.Text = TextBox1.Text & "7"
    59. End Sub
    61. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    62. TextBox1.Text = TextBox1.Text & "8"
    63. End Sub
    65. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    66. TextBox1.Text = TextBox1.Text & "9"
    67. End Sub
    69. Public Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
    70. Dim ZweiteZahl As Double = TextBox1.Text
    71. If Rechenzeichen = "+" Then
    72. TextBox1.Text = Erstezahl + ZweiteZahl
    74. End If
    75. End Sub
    76. End Class


    Naja, ich hofe ihr versteht mich ;)
    Danke schonmal

    Unwesen schrieb:

    1. Erstmal: Für den Code den VB-Tag benutzen. 2. Zu deiner Variable: Wenn du die in einer Sub deklarierst, ist die auch nur in dieser Sub gültig.
    So, hab ich gemacht :)

    Zu 2.: Das ist mir schon klar, aber wie lös ich das Problem? ^^

    Edit:

    Also: Deklariere die Variable auf Class-Ebene (unter "Public Class Form1").

    Hab ich schon versucht, aber das Problem ist, dass die erst deklariert werden soll, wenn der + Button geklickt wird. Wie mach ich das dann in der Class Ebene? Hab mich auch damit schon rumgeschlagen.^^

    Sorry wegen der dummen Fragen, aber da ich es selbst nicht finde muss ich wohl:
    "Tu dir selbst einen gefallen und schalte so früh wie möglich Option Strict auf On."
    Wie?^^

    Danke

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Lockerzzz“ ()

    VB.NET-Quellcode

    1. 'GAAAANZ oben
    2. Option Strict On 'GAAAANZ wichtig
    4. Public Class frmMain
    5. Private Enum RechenOp
    6. Nichts
    7. Plus
    8. Minus
    9. Mal
    10. Geteilt
    11. End Enum
    12. Dim currentOp As RechenOp = RechenOp.Nichts
    14. 'Button:
    15. currentOp = RechenOp.Plus
    17. 'Berechnen
    18. Select Case currentOp
    19. Case RechenOp.Plus
    20. 'Addieren
    21. Case RechenOp.Minus
    22. 'Subtrahieren
    23. Case RechenOp.Mal
    24. 'Multiplizieren
    25. Case RechenOp.Geteilt
    26. 'Dividieren
    27. Case RechenOp.Nichts
    28. 'Nichts tun / Fehler - Es gibt nichts zu berechnen etc. pp.
    29. End Select
    30. End Class


    Nützliche Links

    Forumsintern:
    [Allgemein] Entwickler-Ressourcen und Tools, Bücher und WebCasts
    [Allgemein] Grundlagen: Benennung von Controls (Update: 24.10.2010)
    [VB.NET] Beispiele für guten und schlechten Code (Stil)

    Galileo Openbooks:
    Galileo Openbook VB.NET
    Galileo Openbook Einstieg in VB 2008
    Galileo Openbook Einstieg in VB 2010

    Unwesen schrieb:

    VB.NET-Quellcode

    1. dim MeineVariable as String 'Deklaration
    3. Private Sub Irgendwas ()
    4. MeineVariable = Textbox1.Text 'Wertzuweisung
    5. End Sub
    Das leuchtet ein! Und funktioniert natürlich^^

    Danke
    PS: @ FAtheone Danke auch dir, aber da ich erst heute wieder angefangen hab kann ich mit Begriffen wie zb. enum oder case nocht nichts anfangen, und wollte erst mal nur mein Problem gelößt haben

    Trotzdem Danke!

    mfg

    Die Links sollten Trotzdem weiterhelfen.

    Enums sind quasi "Status-Variablen-Typen", sie sind wesentlich effizienter und eleganter als Strings.
    Select Case ist eine "Lange If-Abfrage":

    VB.NET-Quellcode

    1. Select Case a
    2. case b
    3. case c
    4. case d
    5. case else
    6. end select


    ist äquvalent zu

    VB.NET-Quellcode

    1. If a=b Then
    2. ElseIf a =c Then
    3. ElseIf a = d Then
    4. Else
    5. End If