XProfan

Français

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

bof eh bien le Fehlern cet Contrôle soll qui Zirkulationspumpe pour 30 min einschalten si un FB signal de qui carte venez .. tut vous bleibt mais 30 min ensuite regungslos stehen jusqu'à qui Zeit abgelaufen ist.
2. sur den Button qui Pumpe soll on cet manuel schalten peut .. peux on
seulement bleibt cela Programme ensuite aussi stehen..
wohin liegt unser faute pourrait mir quelqu'un den code quelque chose umstricken ou bien Änderungsvorschläge faire.

Heizungsanlage.prf	8 kB

Hochgeladen:	26.05.2008

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

26.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

GDL

Hi,

je serait la fois dire, du must dans deiner Hauptschleife ständig qui Kartenimpulse einlesen et beim ersten Auswählen merken, si Sommer,Winter ou bien sonstwas ausgewählt était.

ensuite wertest du cet 2 Faktoren aus et springst dans cela dazugehörige Unterprogramm.

salut
Georg

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

[...]

26.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jürgen
Haverland

Hab je justement la fois getestet qui Minuteur hat mon fils Jan rausgelassen là ensuite cela Programme oui pas plus lief...
Fal quelqu'un qui carte hat il braucht seulement qui Jumper sur Adresse 0 se mettre et peux ensuite sämtliche Funktionen testen..

Es wäre joli si quelqu'un cet Programme so umstricken pourrait cela es
komplett allez.

26.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

GDL

Hi,

je peux dir momentan pas genauer aider, là chez meiner madame wahrscheinlich qui Gehirntumor wieder ausbrach et wir demain zur Uniklinik doit.
je ne sais pas quand je wieder heimkomme.

Du musst toujours qui la saison festhalten et ständig deine carte auslesen.
ca mais dans qui Hauptschleife et cet seulement sortir de, si un Signal ankam.

salut
Georg

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

[...]

26.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Zum Testen wird mais une Dll nécessaire...

26.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Paul
Glatz

oui c'est ca

26.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Tricolore seulement survolés mais Zeilen comment cet
Kompilieren Marque Séparation

5678$ = winter
1% = 1e>

erscheinen mir fremdlich. Variablenbezeichner devrait avec einem Buchstaben commencer.

Ebenso vermisse je waitInput dans Deiner Ereignisschleife - ici pourrait qui faute ebenso stecken et cela beschriebene Verhalten peut-être expliquer.

26.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Paul
Glatz

wohin giebt es qui dll???

26.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Ok, je hoffe, j'ai dein Tool verstanden.

Dein Programme appelez chez Buttonklick einmalig une Dll-Funktion sur. si ici quoi pas klappt, ensuite entweder dedans qui Dll, ou bien dein Funktionsaufruf hatte falsche paramètre.

2. sur den Button qui Pumpe soll on cet manuel schalten peut .. peux on
seulement bleibt cela Programme ensuite aussi stehen..
wohin liegt unser faute pourrait mir quelqu'un den code quelque chose umstricken ou bien Änderungsvorschläge faire.

aussi ici, un Dll-Aufruf, cela wars. je denke pas, dass dein Programme ici encore plus beeinflussen pourrait.

Versuch la fois, iFs Ratschläge trop befolgen. Solche Variablennamen sommes zumindest très merkwürdig, et es serait mich pas wundern, si dadurch qui Funktionsaufrufe incorrect wären.
Votre Hauptschleife usé zudem chacun la quantité Systemzeit, ici serait je Changements faire, z.B.:
Kompilieren Marque Séparation

SetTimer 25

Whilenot schleife%

    WaitInput

    If @Clicked(Button1&)

        sommer

    Elseif @Clicked(Button2&)

        winter

    Elseif @Clicked(Button3&)

        zirk

    Elseif @Clicked(Button4&)

        Notschalter

    endif

endwhile

KillTimer

26.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jürgen
Haverland

So eh bien habe je qui DLL angehängt et vielen Dank erstmal pour qui Tip´s volonté
mon fils iind je am Wochenende testen.. werde ensuite en berichten..

README_VB.TXT

1 kB

Hochgeladen:

27.05.2008

Downloadcounter:

Download

K8055D.dll

338 kB

Hochgeladen:

27.05.2008

Downloadcounter:

Download

27.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

allô

je hab qui carte, et dein Prog la fois getestet.

Sommer Relais 3
Winter ne...aucune Relais
circulation Sommer Relais 1 & 3 Relais 1 flattert
circulation Winter Relais 1 flattert
Notschalter Sommer ou bien Winter Relais 3 & 4

quoi soll pas funktioniern

beschreib doch la fois quelle Relais quand anziehen devoir.
un Ablaufdiagramm wäre hilfsreich

Gruss Detlef

Gruß Detlef Tussing
Windows XP, XProfan 10

01.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation