Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Diagramm erstellen
Autor: Flipp
Datum: 03.11.05 17:25
ja das ist das richtige super jetzt müsstest du mir vieleicht nochmal behielflich sein und zwar weiß ich nicht wo ich das im programm einfügen soll?? Würd mich freuen wenn du weiter weißt das hir ist der quellcode: Dim DSRold, DSRnew, Counter1 Private Sub Check2_Click() If Check2.Value = 0 Then DTR 0 End If If Check2.Value = 1 Then DTR 1 End If End Sub Private Sub Dir1_Change() End Sub Private Sub Command1_Click() Open "datei.txt" For Output As #1 Print #1, Text1.Text ' Print #1, Picture1.Picture Close #1 End Sub Private Sub Command2_Click() Dim sMyPath sMyPath = "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\Eigene Logitech-Bilder\üws" Shell "explorer.exe """ & sMyPath & """" End Sub Private Sub Form_Load() i = OPENCOM("com1,1200,N,8,1") If i = 0 Then MsgBox ("Schnittstelle Fehler!") DSRold = DSR() Counter1 = 0 Dim N As Long Dim Nummer As Long Timer1.Enabled = False File1.Visible = False File1.Path = "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\Eigene Logitech-Bilder\üws" For N = 0 To File1.ListCount - 1 If FileDateTime(File1.Path & "\" & File1.List(N)) > DatumZeit Then DatumZeit = FileDateTime(File1.Path & "\" & File1.List(N)) Nummer = N End If Next If File1.ListCount > 0 Then Picture1 = LoadPicture(File1.Path & "\" & File1.List(Nummer)) End If Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Form_Unload(Cancel As Integer) CLOSECOM End Sub Private Sub Image1_Click() End Sub Private Sub Timer1_Timer() DSRnew = DSR() If DSRnew < DSRold Then Text1.Text = Text1.Text & vbCrLf & " " & CDate(Now) Counter1 = Counter1 + 1 Label1.Caption = Str$(Counter1) End If Dim N As Long File1.Refresh For N = 0 To File1.ListCount - 1 If FileDateTime(File1.Path & "\" & File1.List(N)) > DatumZeit Then DatumZeit = FileDateTime(File1.Path & "\" & File1.List(N)) Picture1 = LoadPicture(File1.Path & "\" & File1.List(N)) Exit For End If Next DSRold = DSRnew End Sub

Diagramm erstellen	541	Flipp	03.11.05 15:21
Re: Diagramm erstellen	329	OldMan	03.11.05 16:29
Re: Diagramm erstellen	306	Flipp	03.11.05 16:43
Re: Diagramm erstellen	302	OldMan	03.11.05 17:14
Re: Diagramm erstellen	351	Flipp	03.11.05 17:25
Re: Diagramm erstellen	317	OldMan	03.11.05 18:11
Re: Diagramm erstellen	297	Flipp	03.11.05 18:41
Re: Diagramm erstellen	320	OldMan	03.11.05 19:15
Re: Diagramm erstellen	354	Flipp	03.11.05 20:27
Re: Diagramm erstellen	311	OldMan	03.11.05 21:03

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen