[VB] Wecker Problem

[Banana.Crafts]

Hi,
ich habe mich mal ein Tag lang mit VB beschäftigt und mich dann an einem Wecker versucht.

Das ist das Script:

PHP Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox1.Text) Then
            MsgBox("Enter a value.")
        Else
            Dim input1 As Integer = TextBox1.Text
            Timer1.Enabled = True
            Timer1.Interval = 1000
            Me.Text = input1
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim input1 As Integer = TextBox1.Text
        Dim input2 As String = TextBox2.Text
        If input1 = 0 Then
            Timer1.Enabled = False
            MsgBox(input2, , "Time is over")
        Else
            input1 = input1 - 1
            Me.Text = input1
        End If
    End Sub
End Class 


Es wird aber nur einmal input1 - 1 gerechnet, danach stoppt das Script.
Was mach ich falsch?

Banana.Crafts

[Al Kappaccino]

Reine Logik aufgabe.
Denk mal drüber nach, was dein Timer jede Sekunde ausführt, vielleicht kommst du ja dann selber drauf

PHP Code:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
        Dim input1 As Integer = TextBox1.Text 
        Dim input2 As String = TextBox2.Text 
        If input1 = 0 Then 
            Timer1.Enabled = False 
            MsgBox(input2, , "Time is over") 
        Else 
            input1 = input1 - 1 
            Me.Text = input1 
        End If 
    End Sub 


[Banana.Crafts]

Ah, verdammt, hab den Fehler gefunden.

Aber wie kann ich die Variable für alle Funktionen definieren?
In AutoIT ist es Global, in VB hab ich es nicht so ganz geblickt, was global bringt.
Wie gesagt, erst mit VB angefangen;D

Edit: Wie es aussieht, braucht man dafür Public?? Aber wie verwende ich das?
Public input1 As Integer geht schon mal nicht, da:
"Public" ist bei der Deklaration von lokalen Variablen ungültig."

[nkkk]

deklarier es innerhlab der klasse, aber ausserhab der methode.
und nein du brauchst dafür kein public, public brauchst du wenn du erkauben wisst das jm d von ausserhalb der klasse darauf zugreifen kann, wofür es eig. selten einen grund gibt.
dass nenn tmna dan instanzvaraible, weil sie teil des zustandes des objektes speichet,

[Banana.Crafts]

Hab es jetzt mal so versucht:

 Spoiler

PHP Code:

Public Class Form1
    Dim input1 As Integer = TextBox1.Text
    Dim input2 As String = TextBox2.Text
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox1.Text) Then
            MsgBox("Enter a value.")
        Else
            Timer1.Enabled = True
            Timer1.Interval = 1000
            Me.Text = input1
            Console.Beep(100, 100)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If input1 = 0 Then
            Timer1.Enabled = False
            MsgBox(input2, , "Time is over")
        Else
            input1 = input1 - 1
            Me.Text = input1
        End If
    End Sub
End Class 


Funktioniert allerdings nicht o.O
Wiso das nicht?

Und wie kann ich Variablen in einer Funktion definiere, die auch von anderen Funktionen verwendet werden kann? Das werde ich später eh noch brauchen, daher wäre es cool, wenn ihr mir weiterhelfen könntet;D

[nkkk]

?? hast du dich schon, die variable input1 kannst du doch in der methode "Button1_Click" und in "Timer1_Tick" als auch in allen anderen Methoden innerhalb von Form1.,

ich würde sie allerdings in "Button1_Click" nochmal auf den wert der TextBox setzten.
also noch ein "input1 = TextBox1.Text" innerhalb von "Button1_Click" einfügen.

[Al Kappaccino]

Ich würde dir raten, mal Grundlagen zu lernen

PHP Code:

Public Class Form1
    Dim input1 As Integer
    Dim input2 As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        input1 = TextBox1.Text
        input2 = TextBox2.Text
        If Not IsNumeric(TextBox1.Text) Then
            MsgBox("Enter a value.")
        Else
            Timer1.Enabled = True
            Timer1.Interval = 1000
            Me.Text = input1
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If input1 > 0 Then
            input1 = input1 - 1
            Me.Text = input1
        Else
            Timer1.Enabled = False
            MsgBox(input2, , "Time is over")
        End If
    End Sub
End Class 


[Banana.Crafts]

Wie gesagt, 2 Tage VB, davor nur AutoIT;D

Aber danke an euch;D

Kann geclosed werden.