Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43
timer problem//
Verfasst am: 25.07.2008, 04:11
hi, habe folgendes problem:
wenn ich hier gleich auf den cmd Button also Anzeige klicke dann kommt ganz normal "nix eingegeben" wenn ich dann aber was eingebe kommt der text "faltsche eingabe!" gleich ohne das ich auf den button klicken muss... wo liegt das problem? ... was mache ich faltsch?
ist mir klar, das dann auch die 5sec des timer's kommen aber checke ned warum der text ohne klick gleich kommt...
Public Class Form1
PrivateSub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click
Timer1.Enabled = True
lblAnzeige.Text = "warten"
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
EndSub
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer2.Enabled = True
Dim login AsString
login = txtEingabe.Text
Select login
Case""
lblAnzeige.Text = "nix eingegeben"
Case"hallo"
lblAnzeige.Text = "hallo du"
Case"wait"
lblAnzeige.Text = "warte bitte"
CaseElse
lblAnzeige.Text = "faltsche eingabe!"
EndSelect
Timer2.Enabled = False
EndSub
PrivateSub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer2.Enabled = True
EndSub
EndClass



hoffe mir kann da jemand helfen Smile



@mfg exe_
 
^^kev####
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan

Verfasst am: 25.07.2008, 11:52
Heißt das nicht Select Case ôo

Visual Basic: [code]Public Class Form1
PrivateSub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click
Timer1.Enabled = True
lblAnzeige.Text = "warten"
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
EndSub
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer2.Enabled = True
Dim login AsString
login = txtEingabe.Text
Select Case login '<<<<<<<<<<<<<<<<<<<
Case""
lblAnzeige.Text = "nix eingegeben"
Case"hallo"
lblAnzeige.Text = "hallo du"
Case"wait"
lblAnzeige.Text = "warte bitte"
CaseElse
lblAnzeige.Text = "faltsche eingabe!"
EndSelect
Timer2.Enabled = False
EndSub
PrivateSub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer2.Enabled = True
EndSub
EndClass[/code]
 
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43

Verfasst am: 25.07.2008, 13:30
(^^kev####;5944)
Heißt das nicht Select Case ôo

Visual Basic: [code]Public Class Form1
PrivateSub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click
Timer1.Enabled = True
lblAnzeige.Text = "warten"
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
EndSub
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer2.Enabled = True
Dim login AsString
login = txtEingabe.Text
Select Case login '<<<<<<<<<<<<<<<<<<<
Case""
lblAnzeige.Text = "nix eingegeben"
Case"hallo"
lblAnzeige.Text = "hallo du"
Case"wait"
lblAnzeige.Text = "warte bitte"
CaseElse
lblAnzeige.Text = "faltsche eingabe!"
EndSelect
Timer2.Enabled = False
EndSub
PrivateSub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer2.Enabled = True
EndSub
EndClass[/code]



thx für den fehler den du gefunden hast Cool
habs gefixxed aber der fehler taucht immernoch auf [img]/sad.gif[/img]

hoffe mir kann da jemand helfen :confused:


@mfg exe_
 
sollniss
Überflieger
Überflieger

Anmeldedatum: 01.05.2008
Beiträge: 699


Verfasst am: 25.07.2008, 13:52
Leerzeichen zwischen Case"wait" etc.
 
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43


Verfasst am: 25.07.2008, 13:58
(sollniss;5954)
Leerzeichen zwischen Case"wait" etc.


hab ich Smile liegt an source copy:

  
big earl
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 113


Verfasst am: 25.07.2008, 14:08
ıch kenn mıch unter .NET nıcht aus, doch wıeso machst du das denn mıt nem Tımer ?

belass es beım button

VB 6

Visual Basic: [code]
command1_click()

select case txtEingabe.Text

case ist = ""

[/code]

usw.

oder wırd das dann nıchts ?
 
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43


Verfasst am: 25.07.2008, 14:20
(big earl;5959)
ıch kenn mıch unter .NET nıcht aus, doch wıeso machst du das denn mıt nem Tımer ?

belass es beım button

VB 6

Visual Basic: [code]
command1_click()

select case txtEingabe.Text

case ist = ""

[/code]

usw.

oder wırd das dann nıchts ?


möchte eben gerne, das der text bisschen verspätet kommt Wink also 5sec verspätet Smile

darum der timer Smile

sonst kann ich gleich:

dim login as string
login = txtEingabe.text

select case login

case "hallo"
lblAusgabe.Text = "hallo du"

@mfg exe_  
bla
Coder
Coder

Anmeldedatum: 02.05.2008
Beiträge: 267


Verfasst am: 25.07.2008, 16:35
Visual Basic: [code]Public Class Form1

Private Sub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click
Timer1.Enabled = True
lblAnzeige.Text = "warten"
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 5000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim login As String
login = txtEingabe.Text

Select Case login '<<<<<<<<<<<<<<<<<<<
Case ""
lblAnzeige.Text = "nix eingegeben"
Case "hallo"
lblAnzeige.Text = "hallo du"
Case "wait"
lblAnzeige.Text = "warte bitte"
Case Else
lblAnzeige.Text = "falsche eingabe!"
End Select

Timer1.Enabled = False
End Sub

End Class
[/code]

brauchst keine 2 timer...
 
LooneyToons
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 125


Verfasst am: 25.07.2008, 20:00
Warum benutzt du überhaupt n Timer , probier mal hier das

Visual Basic: [code]
Public Class Form1

Private Sub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click

Select Case txtEingabe.Text
Case ""
lblAnzeige.Text = "nix eingegeben"
Case "hallo"
lblAnzeige.Text = "hallo du"
Case "wait"
lblAnzeige.Text = "warte bitte"
Case Else
lblAnzeige.Text = "falsche eingabe!"
End Select
End Sub
[/code]
 
Regenwurm
Coder
Coder

Anmeldedatum: 06.05.2008
Beiträge: 88


Verfasst am: 25.07.2008, 21:20
Der Timer1 wird ja nicht disabled!
Sprich, du musst den Timer1 zuerst disablen.



Public Class Form1
PrivateSub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click
Timer1.Enabled = True
lblAnzeige.Text = "warten"
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
EndSub
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer2.Enabled = True
Dim login AsString
login = txtEingabe.Text
Select Case login '<<<<<<<<<<<<<<<<<<<
Case ""
lblAnzeige.Text = "nix eingegeben"
Case "hallo"
lblAnzeige.Text = "hallo du"
Case "wait"
lblAnzeige.Text = "warte bitte"
CaseElse
lblAnzeige.Text = "faltsche eingabe!"
EndSelect
Timer1.Enabled = False '<<<<<<<<<<<<<<<<<<<<<<
EndSub
EndClass
 
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43


Verfasst am: 25.07.2008, 22:36
wie könnte ich da ein Progressbar reinbauen? also die 5sec + eigentliche dauer wär da nice Smile wie geht das :confused:
 
bla
Coder
Coder

Anmeldedatum: 02.05.2008
Beiträge: 267


Verfasst am: 26.07.2008, 09:37
was meinst du denn mit "eigentliche dauer" ??

also für die 5 sec gehts so: (mit nem neuen timer)

sub cmdAnzeigen_click...

timer1.enabled = true

timer2.intervall = 1000
timer2.enabled = true
progressbar.minimum= 0
progressbar.maximum = 5
end sub

sub timer2_ ...
if progressbar.value = 5 then
timer2.enabled = false
exit sub
end if

progressbar.value += 1
end sub
 
Inmice
Tutorial Leser
Tutorial Leser

Anmeldedatum: 27.05.2008
Beiträge: 32


Verfasst am: 26.07.2008, 09:43
Ich würde ja mal breaks einbauen
 
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43


Verfasst am: 26.07.2008, 12:50
also für die 5 sec gehts so: (mit nem neuen timer)

sub cmdAnzeigen_click...

timer1.enabled = true

timer2.intervall = 1000
timer2.enabled = true
progressbar.minimum= 0
progressbar.maximum = 5
end sub

sub timer2_ ...
if progressbar.value = 5 then
timer2.enabled = false
exit sub
end if

progressbar.value += 1
end sub


könntest du das pls mit hochkomma (') erklären wie das geht? Wink hat kein sinn wenn ich progressbar einbaue und ned verstehe wie es funktioniert Cool

(Inmice;5996)
Ich würde ja mal breaks einbauen

was ist breaks?


@mfg exe_  
bla
Coder
Coder

Anmeldedatum: 02.05.2008
Beiträge: 267


Verfasst am: 26.07.2008, 13:37

Visual Basic: [code]Public Class Form1

Private Sub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnzeige.Click
Timer1.Enabled = True
lblAnzeige.Text = "warten"

ProgressBar1.Value = 0 'die progressbar soll wieder bei 0 anfangen
Timer2.Enabled = True

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 5000 'timer um nach 5 sek das label zu ändern
Timer1.Enabled = False

Timer2.Interval = 1000 'timer um die progressbar pro sekunde zu aktualisieren
Timer2.Enabled = False

ProgressBar1.Minimum = 0 'Hier stellt du den minimal- und
ProgressBar1.Maximum = 5 ' maximalwert ein

'also bei 0 fängt die progressbar an zu zählen
'maximum: 5, weil du ja für
'die 5 sek. pro sekunde einen schritt weitergehen willst, d.h.
'sie soll nach 5 sekunden voll gefüllt sein...
'wenn der wert der progressbar1 (value) um 1 erhöht, füllt sich
'die progressbar um 1/5
'Bsp: value = 2: progressbar ist zu 2/5 gefüllt

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim login As String
login = txtEingabe.Text

Select Case login
Case ""
lblAnzeige.Text = "nix eingegeben"
Case "hallo"
lblAnzeige.Text = "hallo du"
Case "wait"
lblAnzeige.Text = "warte bitte"
Case Else
lblAnzeige.Text = "falsche eingabe!"
End Select

Timer1.Enabled = False
End Sub


Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

If ProgressBar1.Value = 5 Then 'wenn die Progressbar schon voll ist,
Timer2.Enabled = False '(also wert 5 hat (das maximum ist ja 5)),
Exit Sub 'dann timer ausschalten und sub abbrechen, damit der wert nicht 6 wird und es zu einem fehler kommt^^
End If

ProgressBar1.Value += 1 'wert erhöht sich um 1
End Sub
End Class[/code]

so^^, hoffe du verstehst das :p
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: timer, wait, cmdanzeige

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Button/Text 958 18.06.2009, 16:21
Keine neuen Beiträge E-Mail bekomm nach Button klicken 713 02.10.2007, 17:45
Keine neuen Beiträge Bestimmten "Button" auf Website klicken 1684 14.09.2007, 21:27
Keine neuen Beiträge webbrowser/ webformular button klicken 1611 23.07.2007, 23:07
Keine neuen Beiträge Button drücken.. 842 01.07.2007, 13:19
 



[ Time: 0.1081s ][ Queries: 124 (0.0234s) ][ GZIP on - Debug on ]