Einblenden, Ausblenden, Countdown .... auf Befehl

VBHunter · 10. Oktober 2017, 10:43

Okay das mit "CASE" hatte ich auch gelesen das es besser sein soll satt "IF". Hab das mal geändert wenn du es empfehlst

Ja das mit die anderen (Kuendigung1,2,3,4...)hatte ich erst nach absenden meiner Nachricht eingefügt deshalb stand es noch nicht hinter

er sagt mir ich Soll die noch Deklarieren (Kuendigung1...etc) sind die nicht mit der Enum methode Deklariert?

Am Click Arbeite ich noch und komm da noch nicht ganz weiter bis auf das "t" mit rein muss

VB.NET-Quellcode

Private Sub KleinesLagerKuendigen_Button_Click(sender As Object, e As EventArgs) Handles KleinesLagerKuendigen_Button.Click
FullTime = New TimeSpan(0, 0, 10)
Bau_Countdown = t 'Das ist bestimmt falsch :(
Produktionsname1.Text = "Kündigungsfrist KL"
Produktionsname1.Visible = True
Pbar1.Visible = True
lbl_Countdown_Label.Visible = True
Set_Countdown(FullTime)
Bau_Countdown.Start()
End Sub

EDIT:
zu meiner Frage

er sagt mir ich Soll die noch Deklarieren (Kuendigung1...etc) sind die nicht mit der Enum methode Deklariert?

habe ich es abgeändert in:

VB.NET-Quellcode

Select Case Currentwork
Case Testaction.Kuendigung1 'abgeändert
RestlicheZeit -= TimeSpan.FromMilliseconds(Bau_Countdown.Interval)

Ist das auch plausiebel?

Nofear23m · 10. Oktober 2017, 11:04

Hallo
Hehehe, erwischt.

Bau_Countdown = t Warum willst den den Timer neu erstellen? Kann ganz weg?
Du musst ein wenig logisch denken. Warum sollst du den Timer neu Initialisieren, machst du ja im Load, und fertig.

Wegen dem Enumerator im Select Case:

Erwischt. Ich habe geschrieben das ich den aus dem Gedächtnis geschrieben habe damit du evtl. versuchst von selber auf den Fehler zu kommen den ich eingebaut habe um zu sehen ob du versuchst zu lernen und Fehler auszubessern.

Es muss Case Testaction.Kuendigung1 hin.

Setzen 5 !

Grüße
Sascha

VBHunter · 10. Oktober 2017, 11:12

Ha super .... dann hab ich den Fehler ja schon vorher gut korrigiert

also doch eine 3 :thumbsup:

(abzug fürs fragen)

wusste ichs doch das bei t einpflanzung sich die Geschichte wiederholt....

Nofear23m · 10. Oktober 2017, 11:18

Hallo

Ne, das war ja von Anfang an dein Fehler. Die neuzuweisung des Timer`s hatte ich ja nicht im Code.
Der Test war der Enumerator im Select Case, den haste versemmelt.

Aber macht, nix. Du wirst da schon machen. Wie gesagt, immer ein wenig nachdenken bevor man die Flinte ins Korn wirft.

Grüße
Sascha

VBHunter · 10. Oktober 2017, 12:00

So habs jetzt soweit hin bekommen.

nur noch...

Timer1 läuft bei klick auf Button1. Timer2 fängt auch an bei klick auf Button2. Aber Timer1 wird dan angehalten.... genauso ungedreht

Click:

VB.NET-Quellcode

Currentwork = Testaction.Kuendigung0
FullTime = New TimeSpan(0, 0, 10)
Produktionsname1.Text = "Kündigungsfrist KL"
Produktionsname1.Visible = True
Pbar1.Visible = True
lbl_Countdown_Label.Visible = True
Set_Countdown(FullTime)
Bau_Countdown.Start()

und

VB.NET-Quellcode

Private Enum Testaction As Integer
Kuendigung0 = 0
Kuendigung2 = 2
End Enum
Private Currentwork As Testaction
Sub Set_Countdown(ByVal Span As TimeSpan) 'Countdown zum Bau
'Bau_Countdown.Stop()
RestlicheZeit = Span
lbl_Countdown_Label.Text = RestlicheZeit.ToString()
End Sub
Private Sub Bau_Countdown_Tick(sender As Object, e As EventArgs) Handles Bau_Countdown.Tick 'Timer 1
Select Case Currentwork
Case 0
RestlicheZeit -= TimeSpan.FromMilliseconds(Bau_Countdown.Interval)
lbl_Countdown_Label.Text = RestlicheZeit.ToString
Pbar1.Value = CInt(100 - ((RestlicheZeit.TotalMilliseconds / FullTime.TotalMilliseconds) * 100))
If RestlicheZeit <= New TimeSpan(0) Then
Bau_Countdown.Stop()
Pbar1.Value = 0
Produktionsname1.Visible = False
Pbar1.Visible = False
lbl_Countdown_Label.Visible = False
End If
Case 2
RestlicheZeit -= TimeSpan.FromMilliseconds(Bau_Countdown.Interval)
lbl2_Countdown_Label.Text = RestlicheZeit.ToString
Pbar2.Value = CInt(100 - ((RestlicheZeit.TotalMilliseconds / FullTime.TotalMilliseconds) * 100))
If RestlicheZeit <= New TimeSpan(0) Then
Bau_Countdown.Stop()
Pbar2.Value = 0
Produktionsname2.Visible = False
Pbar2.Visible = False
lbl2_Countdown_Label.Visible = False
End If
End Select
End Sub

EDIT: hab den Code mal gekürzt ich brauche ja garnicht mehr die zweite "Sub Set_Countdown"

Nofear23m · 10. Oktober 2017, 13:51

Wie jetzt. Jetzt hast du doch 2 Timer? Oder meinst du 2 Routinen welchen das selbe Timer Object verwenden?

Ich blick jetzt gar nicht mehr durch was du machen willst.
Sollen beide Routinen gleichzeitig laufen können? Wenn ja dann bräuchtest du zwei Timer Objekte.

Sorry, ich kann ich nicht den ganzen Code schreiben. Du weist wie es geht. Haben wir durchgemacht. Jetzt erstelle deine Objekte und lasse sie so durchlaufen wie du es willst.
Setzte Haltepunkte und schau dir die Werte an. Google evtl wie man richtig Debuggt.

Grüße
Sascha

VBHunter · 10. Oktober 2017, 13:56

Sie sollen gleichzeitig laufen können klickt xy auf Kündigen1 dann geht die Pbar1 los mit timer usw ... klickt er jetzt noch auf Kündigen2 soll die zweite Pbar2 los gehen und beide seperat laufen .....

glaube mir ich lese und schaue den ganzen Tag

Nofear23m · 10. Oktober 2017, 14:00

Hallo

und beide seperat laufen

Und auch gleichzeitig fertig werden?
Wenn beide 10 Sekunden laufen würden und der zweite wird erst aktiviert ca. in der hälfte der Zeit, sollen diese dann trotzdem gleichzeitig fertig werden oder der zweite erst 5 Sekunden nach dem ersten?

Grüße
Sascha

VBHunter · 10. Oktober 2017, 14:17

Hm ich glaub du verstehst mein prinzip nicht

Ich Baue ein Spiel. Nehme jetzt mal ein anderes Beispiel:

Ich klicke auf Fabrik Stufe 1 Bauen mit dem Button1 diese Fabrik benötigt 3 Stunden bis die fertig gebaut ist .....
wenn man jetzt noch ein Kraftwerk Bauen will mit Button2. Das benötigt 1 Stunde aber soll paralell laufen

Label1.text.(Name des Bauens z.b. Fabrik) .... PBar1(Lade BAR) .... Label2(timer).text.
Label2....
Label3
usw.

hoffe kannst es nachvollziehen :huh:

Hier mal Bilder einer neu erstellten TestForm:
Ohne Debug

Im Debug,.... ich habe auf Kraftwerk bauen geklickt ..... Timer läuft. Würde ich jetzt auf Fabrik bauen klicken, dann bleibt der andere stehen

Nofear23m · 10. Oktober 2017, 15:18

Hallo

Wenn es ein Spiel werden soll musst du sowieso viel lernen.
Ich habe dir hier jetzt mal was erstellt wo ich denke das du versuchen solltest den Code zu verstehen.
Ich habe das ganze jetzt dynamischer erstellt. So kannst du mit zwei zeilen Code ein Neues Object erstellen (z.b. ein Schwimmbad)

Ist natürlich nicht perfekt, habe ich nur schnell mal runtergetippt.
Schau mal rein und versuche das zu verstehen.

Grüße
Sascha

VBHunter · 10. Oktober 2017, 15:32

Ja Genau das ist es :thumbsup:

Das ist sehr hilfreich, ich muss mal versuchen zu verstehen wie du es ohne Ticker bin bekommen hast, aber das ist genau das was ich wollte. Bist der Beste !

Ich schreib das jetzt mal um, mal schauen ob es klappt

Nofear23m · 10. Oktober 2017, 15:34

Sind Timer drinnen. Schau in die eine Klasse was dabei ist. Die kümmert sich um alles.
Schön ausgelagert.

Grüße
Sascha

VBHunter · 10. Oktober 2017, 15:43

Okay ja verstehe soweit das packet ... aber muss ich das als List (BuildTimerObject)machen oder kann ich es auch so hinzufügen, in die Standart Form?

Nofear23m · 10. Oktober 2017, 15:48

Ne, es ist ja kein Control.

VBHunter · 10. Oktober 2017, 19:11

So hab jetzt die ganze zeit daran rumgebastelt und hab jetzt zwar bei klick die Uhrzeit drin stehen aber er zählt nicht runter

Ich hab die PBar geändert in meine eigene und habe eine weitere zeile eingefügt zum ausgeben der Zeit.... (restzeit)

Das ist jetzt die BuildTimerObject:

VB.NET-Quellcode

Private _progressBar As Pbar
Private RestlicheZeit As TimeSpan
Private FullTime As TimeSpan
Sub Set_Countdown(ByVal Span As TimeSpan) 'Countdown zum Bau
RestlicheZeit = Span
End Sub
Public Sub New(timername As String, resttime As String, timetocompleteSeconds As Integer, flowPanel As FlowLayoutPanel)
Timer = New Timer() With {.Interval = 1000, .Enabled = True}
AddHandler Timer.Tick, AddressOf Timer_Tick
CreateCluster10(timername, resttime, timetocompleteSeconds, flowPanel)
StartetAt = Now
RunsOutAt = DateAdd(DateInterval.Second, timetocompleteSeconds, Now)
Timer.Start()
End Sub
Private Sub CreateCluster10(timername As String, resttime As String, timetocompleteSeconds As Integer, flowPanel As FlowLayoutPanel)
Dim fp2 As New FlowLayoutPanel
fp2.FlowDirection = FlowDirection.TopDown
fp2.Controls.Add(New Label() With {.Text = timername}) ', .Width = 100})
fp2.Controls.Add(New Label() With {.Text = resttime}) ', .Width = 100})
_progressBar = New Pbar
fp2.Controls.Add(_progressBar)
flowPanel.Controls.Add(fp2)
End Sub
Public Property Timer As Timer
Private Property StartetAt As DateTime
Private Property RunsOutAt As DateTime
Private Sub Timer_Tick()
Dim completTimeSpan As Integer = DateDiff(DateInterval.Second, StartetAt, RunsOutAt)
Dim resttime As Integer = DateDiff(DateInterval.Second, Now, RunsOutAt)
Dim percentValue As Double = ((completTimeSpan - resttime) * 100) / completTimeSpan
If percentValue >= 100 Then
_progressBar.Value = 100
Else
_progressBar.Value = percentValue
End If
End Sub

mein Klick:

VB.NET-Quellcode

Private Sub KleinesLagerKuendigen_Button_Click(sender As Object, e As EventArgs) Handles KleinesLagerKuendigen_Button.Click
Dim t = New BuildTimerObject("Fabrik wird gebaut ", "" & Now.ToLongTimeString, Fabrikbauzeit, Me.FlowPanel1)
_timers.Add(t)
End Sub

Nofear23m · 10. Oktober 2017, 20:12

Wo soll ich Anfangen:

Wenn du deinen Code säuberst und Stück für Stück durchgehst wirst du den Fehler finden.

VB.NET-Quellcode

Public Sub New(timername As String, resttime As String, timetocompleteSeconds As Integer, flowPanel As FlowLayoutPanel)

Warum Resttime übergeben? Brauchst du nicht wenn du in der Klasse alle notwendigen Angaben hast.

Die kannst du berechnen wie ich, im Time_Tick mit DateDiff(DateInterval.Second, Now, RunsOutAt)

VB.NET-Quellcode

Sub Set_Countdown(ByVal Span As TimeSpan) 'Countdown zum Bau
RestlicheZeit = Span
End Sub

Was macht das in der Klasse?
Wird nirgens verwendet!! Raus damit.

VB.NET-Quellcode

_progressBar = New Pbar

Ich kenne deine Progressbar nicht, weis nicht was die macht.

Achja, hatte ich vergessen: unter _progressBar.Value = 100 muss noch ein Timer.Stop rein.

Grüße
Sascha

VBHunter · 11. Oktober 2017, 09:04

Puh ist nicht einfach .... weil sich einfach wenig ändert wenn ich dinge hinzufüge.

aber diese spalte ist ja schon mal korrekt oder?

VB.NET-Quellcode

fp2.Controls.Add(New Label() With {.Text = resttime}) ', .Width = 100})

weil dann zeigt er mir zumindest die Zeit an.... nur halt die 80 sekunden der form statt dieses format 00:01:20 .... und runterzählen soll er ja, steht aber still
das mit dem set_Countdown war ein versuch die berechnung zu starten als TimeSpan wie in mein anderen Beispiel wo es ja ging.

Das ist meine Pbar:

Ich versuche die ganze zeit schon die berechnung im Tick zu packen aber immer ohne erfolg....

VB.NET-Quellcode

Dim resttime As Integer = DateDiff(DateInterval.Hour.Minute.Second, Now, RunsOutAt)

da zeigt er grün unterstrichen fehler (also geht zu Debuggen aber ohne reaktion)

Nofear23m · 11. Oktober 2017, 09:41

Hallo

Nummer 1: Du must meine Posts lesen und versuchen zu verstehen (!!).
Ich habe oben schon geschrieben das du das mit resttime lassen sollst. Du hast ja die werte bereits in StartetAt und RunsOutAt.
Du musst nur die Zeit anhand der beiden Werten berechnen wie du ja im Codeschnippsel unten eh hast.

Aber..... Wenn du 1 x die Zeit in ein Label schreibst kann das doch gar nicht Updaten. Du schreibst beim erstellen des Label die Restzeit hinein. Und?
Wo hast du den Code welcher diesen Wert Updated?? Das muss ja im Tick passieren! Wie gesagt, wir können jetzt Wochenlang hier schreiben, aber ich bau dir sicher nicht dein Spiel.
Du MUSST den Code den du da kopierst verstehen. Und sag nicht das du den nicht mit Copy & Paste einfügst, ich hab dich ja bereits erwischt.

So, ich mach dir das nochmals aber du musst echt versuchen zu VERSTEHEN was da passiert.
Diesmal aber als Bild, dann kannst nicht kopieren :whistling:

VBHunter · 11. Oktober 2017, 10:18

Also zum teil hatte ich das in meinen versuch schonmal so gehabt

Aber ich glaub zu dieser lösung wäre ich nie gekommen.

Aber vielen dank für deine hilfe dennoch muss ich mich mehr damit beschäftigen.

Nofear23m · 11. Oktober 2017, 10:25

Hallo

Tipp: Kauf dir ein Buch. Nix Online. Ein Buch ist viel mehr Wert. (Zumindest ein e-Book).
Die Grundlagen musst du wissen, sonst kommst du nicht weit und ohne Erfolgserlebnissen machts nicht lange spaß.

Grüße
Sascha

Einblenden, Ausblenden, Countdown .... auf Befehl

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben