XProfan

English

Jürgen
Haverland

WINDOWSTYLE 63
WINDOWTITLE Heizungsanlage
WINDOW 0,0-640,480
SETTRUECOLOR 1
CLS
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
USEICON A
declare 5678$
UsePen 1,2,@RGB(0,0,31)
Rectangle 550,15 - 450,50
TextColor @RGB(0,0,120),-1
DrawText 470, 25, Solaranlage
Line 500,50 - 500,100
Line 500,100 - 480,100
Rectangle 460,90 - 480,110
DrawText 464, 94, V1
Line 460,100 - 450,100
rectangle 460,120 - 480,140
DrawText 464,124, V2
Line 460,130 - 450,130
Line 450,100 - 450,130
Line 480,130 - 500,130
Line 450,115 - 430,115
rectangle 460,160 - 480,180
rectangle 460,190 - 480,210
rectangle 430, 90 - 380,210
DrawText 402,105, K
DrawText 402,120, E
DrawText 402,135, S
DrawText 402,150, S
DrawText 402,165, E
DrawText 402,180, L
DrawText 464,164, V1
DrawText 464,194, V2
line 460,170 - 450,170
line 460,200 - 450,200
line 450,170 - 450,200
line 450,185 - 430,185
rectangle 430,230 - 380,300
DrawText 402,235, H
DrawText 402,250, O
DrawText 402,265, L
DrawText 402,280, Z
line 480,170 - 510,170
line 510,170 - 510,50
line 480,200 - 510,200
line 430,260 - 500,260
line 500,260 - 500,130
line 430,270 - 510,270
line 510,270 - 510,200
line 380,150 - 300,150
line 300,150 - 310,145
line 300,150 - 310,155
Ellipse 360,135 - 330,165
DrawText 338,144, ZN
rectangle 340,100 - 355,115
DrawText 344,101, T
line 355,106 - 380,106
line 346,115 - 346,135
rectangle 511,100 - 530,120
DrawText 513,104, SP
rectangle 511,240 - 530,260
DrawText 513,244, HP
declare Button1& , Button2& , Button3& , Button4&
Button1&= @Create(Button,%HWND,Sommer,30,30,80,30)
Button2&= @Create(Button,%HWND,Winter,30,70,80,30)
Button3&= @Create(Button,%HWND,Zirkulation,30,110,80,30)
Button4&= @Create(Button,%HWND,NOTSCHALTER,30,150,90,30)
rectangle 140,22 - 155,37
rectangle 210,22 - 225,37
DrawText 130,44, Sommer
DrawText 200,44, Winter

PROC Grafiksommer

    UseBrush 1,@RGB(40,180,10)
    Fill 145, 25, @RGB(0,0,31)
    Fill 471, 40, @RGB(0,0,31)
    DrawText 470, 25, Solaranlage
    Fill 464, 94, @RGB(0,0,31)
    DrawText 464, 94, V1
    Fill 464,164, @RGB(0,0,31)
    DrawText 464,164, V1
    UseBrush 1,@RGB(255,255,255)
    Fill 220,25, @RGB(0,0,31)
    Fill 402,235, @RGB(0,0,31)
    DrawText 402,235, H
    DrawText 402,250, O
    DrawText 402,265, L
    DrawText 402,280, Z
    Fill 464,124, @RGB(0,0,31)
    DrawText 464,124, V2
    Fill 464,194, @RGB(0,0,31)
    DrawText 464,194, V2
    Ventil1&=setdigi(3%)

ENDPROC

PROC Grafikwinter

    UseBrush 1,@RGB(40,180,10)
    Fill 220,25, @RGB(0,0,31)
    Fill 402,235, @RGB(0,0,31)
    DrawText 402,235, H
    DrawText 402,250, O
    DrawText 402,265, L
    DrawText 402,280, Z
    Fill 464,124, @RGB(0,0,31)
    DrawText 464,124, V2
    Fill 464,194, @RGB(0,0,31)
    DrawText 464,194, V2
    UseBrush 1,@RGB(255,255,255)
    Fill 145, 25, @RGB(0,0,31)
    Fill 471, 40, @RGB(0,0,31)
    DrawText 470, 25, Solaranlage
    Fill 464, 94, @RGB(0,0,31)
    DrawText 464, 94, V1
    Fill 464,164, @RGB(0,0,31)
    DrawText 464,164, V1

ENDPROC

PROC Notschalter

    Ventil2&=setdigi(4%)
    Ventil1&=setdigi(3%)
    UseBrush 1,@RGB(40,180,10)
    Fill 464, 94, @RGB(0,0,31)
    DrawText 464, 94, V1
    Fill 464,164, @RGB(0,0,31)
    DrawText 464,164, V1
    Fill 464,124, @RGB(0,0,31)
    DrawText 464,124, V2
    Fill 464,194, @RGB(0,0,31)
    DrawText 464,194, V2

ENDPROC

PROC sommer

    Grafiksommer
    5678$ = sommer
    Ventil1&=setdigi(3%)
    cleardigi(4%)
    Solarpump&=readdigi(4%)
    Solar$=Solarpump&

    if Solar$ = 1

        UseBrush 1,@RGB(40,180,10)
        Fill 513,104, @RGB(0,0,31)
        DrawText 513,104, SP

    Elseif Solar$ = 0

        UseBrush 1,@RGB(255,255,255)
        Fill 513,104, @RGB(0,0,31)
        DrawText 513,104, SP

    Endif

    Tempkessel&=readdigi(2%)
    kessel$=Tempkessel&

    if kessel$ = 1

        Zirkulation&=setdigi(1%)
        UseBrush 1,@RGB(40,180,10)
        Fill 338,144, @RGB(0,0,31)
        DrawText 338,144, ZN
        Fill 344,101, @RGB(0,0,31)
        DrawText 344,101, T

    Elseif kessel$ = 0

        cleardigi(1%)
        UseBrush 1,@RGB(255,255,255)
        Fill 338,144, @RGB(0,0,31)
        DrawText 338,144, ZN
        Fill 344,101, @RGB(0,0,31)
        DrawText 344,101, T

    Endif

    Fernbedinung&=readdigi(3%)
    fern$=Fernbedinung&

    if fern$ = 1

        Zirkulation&=setdigi(1%)
        UseBrush 1,@RGB(40,180,10)
        Fill 338,144, @RGB(0,0,31)
        DrawText 338,144, ZN

    Endif

ENDPROC

PROC winter

    Grafikwinter
    5678$ = winter
    cleardigi(3%)
    Tempholz&=readdigi(1%)
    Holz$=Tempholz&

    if Holz$ = 1

        Ventil2&=setdigi(4%)
        Holzpump&=setdigi(2%)
        UseBrush 1,@RGB(40,180,10)
        Fill 513,244, @RGB(0,0,31)
        DrawText 513,244, HP

    elseif Holz$ = 0

        cleardigi(2%)
        cleardigi(4%)
        UseBrush 1,@RGB(255,255,255)
        Fill 513,244, @RGB(0,0,31)
        DrawText 513,244, HP

    endif

    Tempkessel&=readdigi(2%)
    kessel$=Tempkessel&

    if kessel$ = 1

        Zirkulation&=setdigi(1%)
        UseBrush 1,@RGB(40,180,10)
        Fill 338,144, @RGB(0,0,31)
        DrawText 338,144, ZN
        Fill 344,101, @RGB(0,0,31)
        DrawText 344,101, T

    elseif kessel$ = 0

        cleardigi(1%)
        UseBrush 1,@RGB(255,255,255)
        Fill 338,144, @RGB(0,0,31)
        DrawText 338,144, ZN
        Fill 344,101, @RGB(0,0,31)
        DrawText 344,101, T

    Endif

    Fernbedinung&=readdigi(3%)
    fern$=Fernbedinung&

    if fern$ = 1

        Zirkulation&=setdigi(1%)
        UseBrush 1,@RGB(40,180,10)
        Fill 338,144, @RGB(0,0,31)
        DrawText 338,144, ZN

    Endif

ENDPROC

PROC zirk

    UseBrush 1,@RGB(40,180,10)
    Fill 338,144, @RGB(0,0,31)
    DrawText 338,144, ZN
    Zirkulation&=setdigi(1%)

    if 5678$ = sommer

        sommer

    elseif 5678$ = winter

        winter

    endif

ENDPROC

def opendevice(1) !k8055d.dll,OpenDevice
def closedevice(0) !k8055d.dll,CloseDevice
def readdigi(1) !k8055d.dll,ReadDigitalChannel
def setdigi(1) !k8055d.dll,SetDigitalChannel
def cleardigi(1) !k8055d.dll,ClearDigitalChannel
declare dllh&
dllh&=usedll(k8055d.dll)

ifnot dllh&

    messagebox dll nicht geladen error,,0
    end

endif

declare kartenadresse& , 0% , 1% , 2% , 3% , 4%
clear kartenadresse&
0% = 0
1% = 1
2% = 2
3% = 3
4% = 4
kartenadresse&=opendevice(0%)
declare Zirkulation& , Holzpump& , Ventil1& , Ventil2& , Tempholz& , Tempkessel& , Fernbedinung& , Solarpump& , Holz$ , Solar$ , kessel$ , fern$
clear Zirkulation& , Holzpump& , Ventil1& , Ventil2& , Tempholz& , Tempkessel& , Fernbedinung& , Solarpump& , Holz$ , Solar$ , kessel$ , fern$
declare schleife%
clear schleife%

Whilenot schleife%

    If @Clicked(Button1&)

        sommer

    Elseif @Clicked(Button2&)

        winter

    Elseif @Clicked(Button3&)

        zirk

    Elseif @Clicked(Button4&

        Notschalter

    endif

endwhile

end

Well now to the Fehlern these Control should The Zirkulationspumpe for 30 mins on if one FB signal from the ticket comes .. does tappt im dunkeln remaining but 30 mins then regungslos stand To The Time run down is.
2. over the Button the pump should one these manually chid can .. can
only remaining the program then too stand..
where lying our Error could someone whom code something umstricken or Änderungsvorschläge make.

Heizungsanlage.prf	8 kB

Hochgeladen:	05/26/08

Downloadcounter:
		Download

Rechner AMD Semperon 3Gig
512 MB 160HDD mit XP und Xprofan 10
Aber alle Programme die mit Profan erstellt werden müßen auf W98 laufen !!!
K8055 USB Experimentierboard
XProfan10 -- Turbo Basic -- Power Basic

05/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

GDL

Hi,

i'd time say, You must in your Hauptschleife constantly The Kartenimpulse reading and at first select remember, whether summer,winter or anything else select was.

then wertest You these 2 factors from and spring into dazugehörige Unterprogramm.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

05/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jürgen
Haverland

Have I straight time tested The Timer has my son jan rausgelassen there then the program Yes not any more running...
Fal someone The ticket has it need only The pullover on address 0 to put and can then all functions testing..

it would beautiful if someone this program so umstricken could the it
complete goes.

05/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

GDL

Hi,

I can you momentarily not accurate help, there with of my woman probably the Gehirntumor again ausbrach and we tommorrow to Uniklinik must.
i don't know when I again heimkomme.

You must always The Jahreszeit capture and constantly your ticket read.
this but in the Hauptschleife and these only leave, if one signal arrived.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

05/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

to that testing becomes but a Dll needed...

05/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Paul
Glatz

very

05/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Habs only überflogen but Lines How these
Compile Mark Separation

5678$ = winter
1% = 1e>

attend me fremdlich. Variablenbezeichner should with a letters begin.

likewise miss I waitInput in your Ereignisschleife - here could the Error likewise stick and the beschriebene behaviour Perhaps explain.

05/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Paul
Glatz

where giebt it The dll???

05/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

OK, I hope, I have your Tool understood.

your Program calls with Buttonklick einmalig a Dll-function on. If here what not works, then either inside the Dll, or your Funktionsaufruf having incorrect Parameter.

2. over the Button the pump should one these manually chid can .. can
only remaining the program then too stand..
where lying our Error could someone whom code something umstricken or Änderungsvorschläge make.

too here, one Dll-appeal, the wars. i think not, that your Program here yet More bearing could.

attempt time, iFs suggestions To to obey. such Variablennamen are at least very strange, and it would me not wonder, if therefore The Funktionsaufrufe defective wären.
your Hauptschleife uses additionally each crowd System-Time, here would I Changes make, z.B.:
Compile Mark Separation

SetTimer 25

Whilenot schleife%

    WaitInput

    If @Clicked(Button1&)

        sommer

    Elseif @Clicked(Button2&)

        winter

    Elseif @Clicked(Button3&)

        zirk

    Elseif @Clicked(Button4&)

        Notschalter

    endif

endwhile

KillTimer

05/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jürgen
Haverland

so now have I The DLL appended and many Thanks first for Tip´s go
my son iind I on the weekend testing.. will be then of it report..

README_VB.TXT

1 kB

Hochgeladen:

05/27/08

Downloadcounter:

Download

K8055D.dll

338 kB

Hochgeladen:

05/27/08

Downloadcounter:

Download

05/27/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

Hello

I Have The ticket, and your Prog time tested.

summer Relais 3
winter no Relais
Zirkulation summer Relais 1 & 3 Relais 1 flattert
Zirkulation winter Relais 1 flattert
Notschalter summer or winter Relais 3 & 4

what should not funktioniern

beschreib still time which Relais when tighten should.
one Ablaufdiagramm would hilfsreich

greeting Detlef

Gruß Detlef Tussing
Windows XP, XProfan 10

06/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote