wow nice ^^
mein Programm ^^
abr ist nix besonderes bin ja auch kein Anwendungsentwickler
BTW NEIN DIE SMILEYs SOLLTEN EIGENTLICH CODE DARSTELLEN xD
LOL
' Benötigte API-Deklarationen
Private Declare Function PathFileExists Lib "shlwapi.dll" _
Alias "PathFileExistsA" ( _
ByVal pszPath As String) As Long
' Aufruf der API
Public Function IsFilePath(strPath As String) As Boolean
IsFilePath = CBool(PathFileExists(strPath))
End Function
Private Sub Command1_Click()
Timer1.Enabled = True
Label1.Caption = "Programm gestartet..."
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Close #2
'MSComm1.PortOpen = False
Label1.Caption = "Programm ausgeschaltet"
End Sub
Private Sub Timer1_Timer()
Dim Datensatz2 As String
Dim Datensatz As String
Dim OK As Boolean
Dim Zeit As String
Dim Zeit_Vergleich1 As String
Dim Zeit_Vergleich2 As String
Dim Dateiname As String
Dim Datum_MonatJahr As String
Dim Datum As String
Dim Ablage1_Monatremove
Dim Ablage1_nurMonat As String
Dim Ablage_Tagremove As String
Dim Ablage1_Jahr As String
Dim B As Integer
Dim N As Integer
Dim Datum_Datei As String
Datum_Datei = Date$
Datum = Date$
'MSComm1.PortOpen = True
' Zusammenstellung des Dateinamens SELFMADE
'B = InStr(Datum, "-")
'Ablage1_Monatremove = Left$(Datum,
'Ablage1_nurMonat = Left$(Datum, B - 1)
'Datum = Replace(Datum, Ablage1_Monatremove, "")
'N = InStr(Datum, "-")
'Ablage1_Tagremove = Left$(Datum, N - 1)
'Ablage1_Jahr = Replace(Datum, Ablage1_Tagremove, "")
'Datum_MonatJahr = Ablage1_nurMonat & Ablage1_Jahr
' zweite möglichkeit für Dateiname "etwas" kürzer
N = InStr(Datum, "-")
B = InStr(N, Datum, "-")
Ablage1_Tagremove = Mid$(Datum, N,
Datum = Replace(Datum, Ablage1_Tagremove, "")
If IsFilePath("C:\Dokumente und Einstellungen\All Users\Desktop\Maschine_Daten\Maschine_Daten" & Datum) Then
Else
MkDir "C:\Dokumente und Einstellungen\All Users\Desktop\Maschine_Daten\Maschine_Daten" & Datum
End If
Dateiname = "C:\Dokumente und Einstellungen\All Users\Desktop\Maschine_Daten\Maschine_Daten" & Datum & "\" & "Maschine_Daten" & Datum_Datei & ".txt"
Open Dateiname For Append As 2
Zeit = Time$
Zeit_Vergleich1 = "06:00:00"
Zeit_Vergleich2 = "22:00:00"
If Zeit > Zeit_Vergleich1 And Zeit < Zeit_Vergleich2 Then
Datensatz = Date$ & "," & Time$ & "," & "1" & ";" & Chr(13)
Datensatz2 = Date$ & "," & Time$ & "," & "0" & ";" & Chr(13)
If MSComm1.CTSHolding = True Then
Print #2, Datensatz
' Debug.Print Datensatz
Else:
Print #2, Datensatz2
' Debug.Print Datensatz2
End If
End If
End Sub
This post was edited by Gold_Monster on Nov 14 2008 02:03am