A
Anonymous
Guest
nice work joe..I am useing it with silverstone lc10-m case
all i need is to get epg going now...
cheers
pako
all i need is to get epg going now...
cheers
pako
#LUIse104=100
#devnum= 0
Procedure OpenLUIse()
Protected result.l
result = OpenLibrary(#LUIse104, "LUIse.dll")
Debug "open LUIse.dll "+Str(result)
If result = #False
LUIseAktiv = #False
MessageRequester("ERROR", "LUIse.dll wurde nicht gefunden oder ist korrupt.", 0)
End
EndIf
ProcedureReturn result
EndProcedure
Procedure closeluise()
result = CloseLibrary(#LUIse104)
;;Debug "close LUIse.dll "+Str(Result)
LUIseAktiv = #False
ProcedureReturn result
EndProcedure
OpenLUIse()
xGetDllVersion = IsFunction(#LUIse104,"GetDllVersion")
Procedure XT_GetDllVersion()
Shared xGetDllVersion
ProcedureReturn CallFunctionFast(xGetDllVersion)
EndProcedure
xLUI_Text = IsFunction(#LUIse104,"LUI_Text")
Procedure XT_LUI_Text(spalte,zeile,textpixelbreite,textpixelhoehe,transparenz,*fnt$,textbreitespace,texthoehespace,*text$)
Shared xLUI_Text
CallFunctionFast(xLUI_Text,#devnum,spalte,zeile,textpixelbreite,textpixelhoehe,transparenz,*fnt$,textbreitespace,texthoehespace,*text$)
EndProcedure
xLUI_ScreenRefreshControl = IsFunction(#LUIse104,"LUI_ScreenRefreshControl")
Procedure XT_LUI_ScreenRefreshControl(gfxsreen0,gfxscreen1,txtscreen)
Shared xLUI_ScreenRefreshControl
CallFunctionFast(xLUI_ScreenRefreshControl,#devnum,gfxsreen0,gfxscreen1,txtscreen)
EndProcedure
xLUI_OpenDevice = IsFunction(#LUIse104,"LUI_OpenDevice")
Procedure XT_LUI_OpenDevice()
Shared xLUI_OpenDevice
CallFunctionFast(xLUI_OpenDevice,#devnum)
EndProcedure
xLUI_CloseDevice = IsFunction(#LUIse104,"LUI_CloseDevice")
Procedure XT_LUI_CloseDevice()
Shared xLUI_CloseDevice
CallFunctionFast(xLUI_CloseDevice,#devnum)
EndProcedure
Procedure lcdswap ()
XT_LUI_ScreenRefreshControl(1,1,1)
XT_LUI_ScreenRefreshControl(0,0,0)
EndProcedure
;########################################################
;# #
;# oberhalb nichts ändern ! #
;# #
;########################################################
XT_LUI_OpenDevice ()
version = XT_GetDllVersion()
If version <> 104:MessageRequester("Info","Falsche LuiSE Version "+Str(version)+" statt 1.0.4",#PB_MessageRequester_Ok):End:EndIf
XT_LUI_ScreenRefreshControl(0,0,0)
For i=0 To 8
*fnt$="comic29x40.fnt" ; eigenen font eintragen
*txt$="Hallo Welt ;)" ; text ändern
XT_LUI_Text (i*20,i*24,320,40,1,*fnt$,1,1,*txt$)
; XT_LUI_Text (spalte,zeile,txtfeldbreite,txtfeldhoehe,tranparent ?,nicht ändern,fontzwischenraum,textbreitespace,texthoehespace,nicht ändern)
Next
lcdswap()
XT_LUI_CloseDevice ()
closeluise()
End
mfo,mfo said:Thank you Joe, I understand that you must have a lot to do supporting different LCD/VFD and making your pluggin able to display all kind of info coming from MP.
Correct me if I'm wrong but to support my serial-USB VFD you only have to send your data on the COM and not on the LPT or am I missing something ?
Vincent,VincentD72 said:Hi, Joe
finally your plugin was able to work on my PC, but whit more problem.
First of all, you don't say what kind of LPT port is needed ( ex.: Normal , ECP, EPP, ECP+EPP....). I think it must be ECP (...from the .dll ).
Second, in my display (setting whit timeout = 2), First row is shift of 5-6 character ( display is HD44780 compatible controller 16x2 , but if I setting so I lost the first 6 carachter .... :shock: ) and after a few time ( I think a complete cycle of the xml file) the row shift one time one character to left and immediately after back to previous... :shock:
Third, if I want centered the row on the display how can I do?
Thomas said:on pressing Clear and Send Text I got an Error "Faulty file"
JoeDalton said:Thomas,
I'm facing 2 problems:
First, I need to pass a font to the LUI_Text API. The documentation says that passing an empty string the API would use its internal font, but that doesn't seem to be the case.
Second, 2 have found 2 examples of the LUI_Text call. One passes a transparency parameter and the other does not. Even in the documentation the transparency parameter is described, but in the provided example it is not passed. Very confusing :?
................
XT_LUI_OpenDevice ()
version = XT_GetDllVersion()
If version <> 104:MessageRequester("Info","Falsche LuiSE Version "+Str(version)+" statt 1.0.4",#PB_MessageRequester_Ok):End:EndIf
XT_LUI_ScreenRefreshControl(0,0,0)
For i=0 To 8
*fnt$="E:\SED133xTest\Test\f8x11.fnt" ; eigenen font eintragen
*txt$="Hallo Welt ;)" ; text ändern
XT_LUI_Text (i*20,i*24,320,40,1,*fnt$,1,1,*txt$)
; XT_LUI_Text (spalte,zeile,txtfeldbreite,txtfeldhoehe,tranparent ?,nicht ändern,fontzwischenraum,textbreitespace,texthoehespace,nicht ändern)
Next
lcdswap()
XT_LUI_CloseDevice ()
closeluise()
End