XProfan

Español

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

Naja nun a Fehlern esta Steuerung se el Zirkulationspumpe para 30 min einschalten si una FB signal de el Karte kommt .. tut ellos restos aber 30 min entonces regungslos posición a el Tiempo abgelaufen es.
2. encima el Button el Pumpe se uno esta manuell schalten puede .. puede ser
sólo restos Programa entonces auch posición..
wo liegt unser Fehler podría me alguien el code algo umstricken oder Änderungsvorschläge hacer.

Heizungsanlage.prf	8 kB

Hochgeladen:	26.05.2008

Ladeanzahl:
		Descargar

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 Zitat

Absatzweise Cita Zeilenweise Cita

GDL

Hi,

Yo sería veces sagen, du must en deiner Hauptschleife ständig el Kartenimpulse einlesen y beim ersten Auswählen merken, si Sommer,Winter oder sonstwas ausgewählt war.

Dann wertest du esta 2 Faktoren de y springst en el dazugehörige Unterprogramm.

Servus
Georg

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

[...]

26.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jürgen
Haverland

Hab Yo gerade veces getestet el Temporizador ha mein Sohn Jan rausgelassen como entonces el Programa sí no mehr lief...
Fal alguien el Karte ha él braucht sólo el Jumper en Adresse 0 stellen y kann entonces sämtliche Características testen..

Lo wäre schön si alguien dieses Programa así umstricken podría el lo
komplett va.

26.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

GDL

Hi,

Yo kann dir momentan no genauer helfen, como en meiner Frau wahrscheinlich el Gehirntumor otra vez ausbrach y wir morgen a Uniklinik necesario.
Yo weiß no wann Yo otra vez heimkomme.

Usted musst siempre el Jahreszeit festhalten y ständig deine Karte auslesen.
Dies aber en el Hauptschleife y esta sólo verlassen, si una Signal ankam.

Servus
Georg

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

[...]

26.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Zum Testen se aber una Dll benötigt...

26.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Paul
Glatz

genau

26.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Habs sólo sobrevolados aber Zeilen como esta
Kompilieren Marca Separación

5678$ = winter
1% = 1e>

erscheinen me fremdlich. Variablenbezeichner debería con un Buchstaben beginnen.

También vermisse Yo waitInput en Deiner Ereignisschleife - hier podría el Fehler ebenso stecken y el beschriebene Comportamiento tal vez erklären.

26.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Paul
Glatz

wo giebt lo el dll???

26.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Ok, Yo hoffe, Yo dein Tool verstanden.

Su Programa ruft en Buttonklick einmalig una Dll-Función en. Wenn hier qué no klappt, entonces entweder innerhalb el Dll, oder dein Funktionsaufruf hatte falsche Parámetro.

2. encima el Button el Pumpe se uno esta manuell schalten puede .. puede ser
sólo restos Programa entonces auch posición..
wo liegt unser Fehler podría me alguien el code algo umstricken oder Änderungsvorschläge hacer.

Auch hier, una Dll-Aufruf, el wars. Yo denke no, dass dein Programa hier todavía mehr beeinflussen podría.

Intento veces, iFs Ratschläge a befolgen. Solche Variablennamen son zumindest muy merkwürdig, y lo sería mich no wundern, si dadurch el Funktionsaufrufe fehlerhaft wären.
Su Hauptschleife verbraucht zudem jede Menge Systemzeit, hier sería Yo Los cambios hacer, z.B.:
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Jürgen
Haverland

So nun Yo el DLL angehängt y vielen Dank primero para el Tip´s voluntad
mein Sohn iind Yo al Wochenende testen.. voluntad entonces su berichten..

README_VB.TXT

1 kB

Hochgeladen:

27.05.2008

Ladeanzahl:

Descargar

K8055D.dll

338 kB

Hochgeladen:

27.05.2008

Ladeanzahl:

Descargar

27.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Tussing

¡Hola

Yo el Karte, y dein Prog veces getestet.

Sommer Relais 3
Winter kein Relais
Zirkulation Sommer Relais 1 & 3 Relais 1 flattert
Zirkulation Winter Relais 1 flattert
Notschalter Sommer oder Winter Relais 3 & 4

qué se no funktioniern

beschreib doch veces welche Relais wann anziehen debería.
una Ablaufdiagramm wäre hilfsreich

Gruss Detlef

Gruß Detlef Tussing
Windows XP, XProfan 10

01.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita