Click Macher

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von sirblacksoul.

    Click Macher

    Hallo, ich will dass bei klicken auf einen Button der "Zähler" mitzählt wie oft schon der Button getätigt
    wurde, nun zu meinem Problem ich weiss nicht wie ich die Anzahl der Clicks "abspeichere" d.h
    dass es bei neuem Start des Projekts die Klickzahlen vom letzen Programmstart mitgespeichert wurden.

    Kannst du mit StreamWriter und StreamReader machen.
    Also ein Beispiel:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Count As Integer = 0
    3. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    4. Dim StreamWriter As System.IO.StreamWriter = New System.IO.StreamWriter("D:\test.txt")
    5. StreamWriter.WriteLine(Count.ToString)
    6. StreamWriter.Close()
    7. End Sub
    9. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    10. Dim StreamReader As System.IO.StreamReader = New System.IO.StreamReader("D:\test.txt")
    11. Count = StreamReader.ReadLine
    12. StreamReader.Close()
    13. Label1.Text = Count
    14. End Sub
    16. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    17. Count += 1
    18. Label1.Text = Count.ToString
    19. End Sub
    20. End Class


    Der Pfad ("D:\test.txt") beliebig genannt werden.

    Das funktioniert irgentwie nicht. :S
    da steht

    "

    Fehler 1 Das Ereignis "FormClosing" wurde nicht gefunden.
    Fehler 2 Das Ereignis "Load" wurde nicht gefunden.Projects\WindowsApplication1\Form1.vb
    WindowsApplication1
    Fehler 3 Der Verweis auf einen nicht freigegebenen Member erfordert einen Objektverweis.
    WindowsApplication1
    Fehler 5 Der Verweis auf einen nicht freigegebenen Member erfordert einen Objektverweis.
    WindowsApplication1
    Fehler 4 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird.

    "

    Hallo,
    Omg so einen langen Code...

    Hier z.b. mitn Label :

    VB.NET-Quellcode

    1. Savesetting("ZählProgramm" , "ZählProgramm" , "Klicks" , Label1.text)


    Dann das hier ins Form Load:

    VB.NET-Quellcode

    1. Label1.text = Getsetting("ZählProgramm" , "ZählProgramm" , "Klicks")



    Mfg Kevin.

    SaveSetting ist nur nicht sicher.
    Bei komplizierteren Programmen verschwinden Werte.
    Und der Code wär nicht sol lange, wenn du die FormClosing handles und alles rausnimmst.
    Dann wäre mein Code bei:
    Dim StreamWriter As System.IO.StreamWriter = New System.IO.StreamWriter("D:\test.txt")
    StreamWriter.WriteLine(Count.ToString)
    StreamWriter.Close()
    und:
    Dim StreamReader As System.IO.StreamReader = New System.IO.StreamReader("D:\test.txt")
    Count = StreamReader.ReadLine
    Wenn mann mehrer Werte hat ist diese Methode mit While viel kürzer.

    EasyCoder schrieb:

    Bei komplizierteren Programmen verschwinden Werte.

    Unfug.
    Bei komplizierten Programmen verliert der Programmierer nur häufig den Überblick und schreibt, wenn er lesen sollte, oder umgekehrt! Das ist dann aber nicht der verwendeten Funktion anzulasten, sondern dem Unvermögen des Programmerstellers.

    In eine .txt schreiben & lesen. Einfach in deine Class rein, button und Textbox namen anpassen, je nachdem was du lesen/schreiben magst, den Dateipfad anpassen mit Application.StartupPath haste den Pfad deines Programms und joa... bei Fragen: Frag.

    VB.NET-Quellcode

    1. Dim FileLocation As String = "C:\Freigabe\name.txt"
    2. Dim Inhalt As String = ""
    3. Dim Writer As StreamWriter
    4. Dim Reader As StreamReader
    5. Dim Enc As System.Text.Encoding = System.Text.Encoding.ASCII
    6. Dim bolAnhängen As Boolean = True
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. Reader = New StreamReader(FileLocation, Enc)
    10. While Reader.Peek > -1
    11. Inhalt = Inhalt & Reader.ReadLine & vbNewLine
    12. End While
    13. Reader.Close()
    15. TextBox1.Text = Inhalt
    17. End Sub
    19. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    20. Writer = New StreamWriter(FileLocation, bolAnhängen, Enc)
    22. Inhalt = TextBox1.Text
    24. Writer.Write(Inhalt)
    26. Writer.Close()
    28. End Sub

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

Facebook