Von Visul Basic nach XProfan 11

[Ewald Renken]

Hallo, habe einen Quelltext aus Visul Basic und möchte es in Profan einbinden: Funktion aus Easy 800 DLL
Dim bYear, bMonth, bDay, bHour, bMin As Byte
ComError = easyCOM.MC_Read_Clock(MyComHandle, 0, bYear, bMonth, bDay, bHour, bMin)
Proc uhr
Declare Error&,ye$,mo$,da$,ho$,mi$
Error& = Read_Clock(1," "," "," "," "," ")
Locate 23,30
Print "Read Clock: ";Error&
Print ye$
'Print mo$
'Print da$
'Print ho$
'Print mi$
auswahl
c& = Close_EthernetPort()
Endproc
Gebe ich die Variabel bei Read_Clock() ein, kommt Error& Fehler
Wer weiß Rat.. Danke.

[Ewald Renken]

Proc uhr
Declare Error&,ye#,mo#,da#,ho#,mi#
Dim ye#,20
Dim mo#,20
Dim da#,20
Dim ho#,20
Dim mi#,20

Error& = Read_Clock(1,ye#,mo#,da#,ho#,mi#)
Locate 23,30
Print "Read Clock: ";Error&
Print @Byte(mo#,0)
Print "200";@Byte(ye#,0)
Print @Byte(da#,0)
Print @Byte(ho#,0)
Print @Byte(mi#,0)

Dispose ye#,mo#,da#,ho#,mi#
auswahl

Endproc
Danke..

[Frabbing]

Klasse, wenn du die Lösung für dich gefunden hast.

Datum/Uhrzeit auslesen geht auch ohne Dll, aber wahrscheinlich geht es dir darum gar nicht mal.