|
| |
VB.NET - Fortgeschrittene| Re: Timer | |  | | Autor: D.J | | Datum: 12.07.04 16:24 |
| oh tschuldigung, weiste was? ich poste mal alles:
##################
-------------------------------------------------------------
Imports System.IO
-------------------------------------------------------------
Public Class Programmstart
Inherits System.Windows.Forms.Form
-------------------------------------------------------------
#Region " Vom Windows Form Designer generierter Code "
...
#End Region
Private Shared Timer As New Timers.Timer
-------------------------------------------------------------
Private Sub Programmstart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Pfad As String = "../data/temp/schritt.info"
Dim Schritt As Short = "1"
Dim Strom As New FileStream(Pfad, FileMode.Open)
Dim Leser As New StreamReader(Strom)
Dim Inhalt As String = Leser.ReadToEnd()
Dim Zahl As Short = "0"
Leser.Close()
Strom.Close()
Dim Strom2 As New FileStream(Pfad, FileMode.Open)
Dim Leser2 As New StreamReader(Strom2)
Dim Inhalt2 As String = Leser2.ReadToEnd
Leser2.Close()
Strom2.Close()
'Überprüfen, ob das Programm zum ersten mal gestartet wurde. Wenn nicht, Schritt 2
Do
'Prüfen, ob NULL in der Datei ist
If Inhalt = 1 Then
lblSchrittNr.Text = "1"
lblSchritt.Text = "Überprufung, ob das Programm zum ersten Mal gestartet wird."
AddHandler Timer.Elapsed, AddressOf SchrittEins
Timer.Interval = 5000
Timer.Enabled = True
Dim Strom3 As New FileStream(Pfad, FileMode.Create)
Dim Schreiber As New StreamWriter(Strom3)
Schreiber.Write("2")
Schreiber.Close()
Strom3.Close()
If Inhalt2 = 1 Then
End If
End If
'Prüfen, ob der nächste Schritt schon dran muss
If Inhalt = 2 Then
lblSchrittNr.Text = "2"
lblSchritt.Text = "text"
End If
'Wert erhöhen
Zahl = Zahl + 1
Loop Until Zahl = 1
End Sub
-------------------------------------------------------------
Sub SchrittEins(ByVal source As Object, ByVal e As Timers.ElapsedEventArgs)
lblSchrittNr.Text = "1"
lblSchritt.Text = "Nächster Punkt"
End Sub
-------------------------------------------------------------
Sub SchrittZwei(ByVal source As Object, ByVal e As Timers.ElapsedEventArgs)
lblSchrittNr.Text = "2"
lblSchritt.Text = "Übernächster Punkt"
End Sub
Private Sub btnEinführung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEinführung.Click
'Falls dieser Button hier sichtbar, dann:
lblSchrittNr.Text = "2"
lblSchritt.Text = "Die Programmeinstellungen werden geladen."
Dim Strom As New FileStream("../data/temp/schritt.info", FileMode.Open)
Dim Schreiben As New StreamWriter(Strom)
Schreiben.Write("2")
Schreiben.Close()
Strom.Close()
'Einführungs-Form laden
Dim ErsterStart As New ErsterStart
Me.Hide()
ErsterStart.Show()
End Sub
End Class
Mit freundlichen Gr??en
D.J | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
November 2025
Sie sind aktuell nicht angemeldet.
