XProfan

Français

Jens
Hoffert

allô, liebe Profan-Gemeinde!,

@Admins:
comment peux je mon Profil (Avatar et Signatur) car vervollständigen?
@ Alle:
Hintergrundinformationen:
j'ai mir pour mon Heizungssystem une UVR 1611 zugelegt. avec cette voudrais Je l' solaren Ertrag qui Solaranlage Montrer laisser. qui Contrôle hat mais comme geringste Durchflussrate 0,5 litre pro Zählimpuls.
qui, de mir eingesetzte Durchflusszähler liefert mais 293 Impulse chez 0,5 litre!
Hardwareteiler (Zählergruppen) sommes zwar une (plutôt aufwendige) Alternative, mais là eh un (Win-ME) calculateur ständig online avec qui Contrôle dans liaison steht, voulais je une - je nenne es la fois: Teilersoftware- zur Impulsgenerierung sur qui Parallelschnittstelle écrivons.
Dabei suis je sur Profan gestoßen, quoi très vielversprechend klingt.

mon Programmierkenntnisse sommes mais plutôt Antiquiert, là je mon letztes Basic-Programme avant ca. 10 Jahren geschrieben habe! ( je weiss gar nix plus

)

qui Geschichte avec INPOUT32.DLL habe je déjà rausgefunden, allerdings habe je ne...aucune, meinen Anforderungen ähnelndes Programme gefunden; bof, vite la fois selbst écrivons.....

NU Meckert il mais rum:Befehl inconnu

peux es son, dass 5.0 selbigenwelchen encore pas kennt?

CASE @Neq (entrée%,impulsion%) : IMPULSE-ZÄHLEN

.......is wohl doch ne numéro trop hoch pour mich......zumindest im Augenblick......

Grüße !!!
..............................................Jens........................................

Ps.: et une bonne nuit!!!;............ Mich Wurmts je peux nit dormir.......

Teiler-300.prf	1 kB

Hochgeladen:	02.04.2006

Downloadcounter:
		Download

02.04.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Um Dein Profil trop Travailler gibts dessus im menu un Punkt Profil. ou bien klicke ici: [...]

[hr:dc054c0a79]
Zum Source.

qui faute ist wohl qui Benennung qui Procédure Impulse-Zählen.

je taux de Umlauten ab, et cela Minuszeichen ist fatal.

proc CountImpuls <-- tut es aussi

Source peux Du ici dans qui Community direct im Beitrag posten.
Kompilieren Marque Séparation

 $O+
DEF @OUT32(2) !"INPOUT32.DLL", "Out32"
DEF @INP32(1) !"INPOUT32.DLL", "Inp32"
DECLARE BasAdr%, zahl%, eingang%, impuls%
Let BasAdr% = $378
Let eingang% = 0
Let zahl% =0

Proc Impulse_lesen

    let impuls%=@INP32(BasAdr%)
    CASE @Neq (eingang%,impuls%) : IMPULSE_count

EndProc

Impulse_lesen

Proc Impulse_count

    INC zahl%
    CASE @Equ (zahl%,293) : Sende_impuls

EndProc

Impulse_lesen

Proc Sende_impuls

    @OUT32(BasAdr%, 1)

Endproc

LET zahl% = @SUB (zahl%,293)
Impulse_lesen

02.04.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jens
Hoffert

allô iF,

j'ai cela Wochenende zum schmökern genutzt, et mon Progrämmle umgeschrieben.

eh bien stehe je avant dem Problem, dass es à cause de trop tiefer PROC-Verschachtelung abbricht.

je besoin so quelque chose, comment une Endlosschleife chez qui so longtemps qui Adresse abgefragt wird, jusqu'à sich qui Wert ändert.
comment peux je cela lösen?

MfG Jens Hoffert
Kompilieren Marque Séparation

 $O+
DEF @OUT32(2) !"INPOUT32.DLL", "Out32"
DEF @INP32(1) !"INPOUT32.DLL", "Inp32"
Declare EinAdr%, Ausadr%, InputVorher%, InputAktuell%, counter%, Output%, Toggle%, nul%
Let EinAdr% = $379
Let AusAdr% = $378
Let InputVorher% = 0
Let InputAktuell% = 0
Let counter% = 0
Let Output% = 0
Let Toggle% = 0
Let nul% = 888
out32 (AusAdr%,128)

PROC Schalten

    Case @equ (Toggle%,0) : Umschalten
    Out32 (AusAdr%,128)
    Let counter = 0
    Let Toggle = 0

ENDPROC

PROC Umschalten

    Out32 (AusAdr%,129)
    Let counter% = 0
    Let Toggle% = 1

ENDPROC

PROC Auslesen

    Inp32 (EinAdr%)
    Let InputAktuell% = EinAdr%
    Let Inputaktuell% = @sub (Inputaktuell%,nul%)
    Case @equ (Inputaktuell%,InputVorher%) : Auslesen

ENDPROC

Let InputVorher% = InputAktuell%
Inc counter%
Case @equ (counter%,3) : Schalten
AUSLESEN
Let InputVorher% = InputAktuell%
Inc counter%
Case @equ (counter%,3) : Schalten
AUSLESEN
end

03.04.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Hi entier simple, indem Du un paire Kleinigkeiten abänderst:
Kompilieren Marque Séparation

Proc Auslesen

    declare ret%
    Inp32 (Einadr%)
    Let Inputaktuell% = Einadr%
    Let Inputaktuell% = @Sub (Inputaktuell%,Nul%)
    case @Equ (Inputaktuell%,Inputvorher%) : ret%=1   Hier wird eine 1 zurückgeliefert, anstatt sich dauernd selbst aufzurufen.

Endproc

Let Inputvorher% = Inputaktuell%
Inc Counter%
Case @Equ (Counter%,3) : Schalten
Auslesen
case %(0)=1:Auslesen        Wenn das Return eine 1 ergab wieder rein!
Let Inputvorher% = Inputaktuell%
Inc Counter%
Case @Equ (Counter%,3) : Schalten
Auslesen
case %(0)=1:Auslesen      Wenn das Return eine 1 ergab wieder rein!
Fin

03.04.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jens
Hoffert

Kompilieren Marque Séparation

case @Equ (Inputaktuell%,Inputvorher%) : ret%=1   Hier wird eine 1 zurückgeliefert, anstatt sich dauernd selbst aufzurufen

habe alles mögliche versucht, mais je bekomme es simple pas hin!
chez ret%=1 schmeisst Profan mir nen faute entgegen.
Tricolore aussi avec return, let ret%=1 usw. versucht u.a. aussi avec waitscan, es veux nit

je besoin irgendwie qui ständige Überwachung qui Werte 888 et 889 qui Parallelportadresse,
wobei seulement chez change de 888 trop 889 ou bien 889 trop 888 un continuer des Progs erfolgt.

hat quelqu'un encore ne concept??

Salut Jens

ps.: je hoffe, je nerf pas - suis blutiger Débutant.....

04.04.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

SOOOORRY deux faute de mir, car j'ai dans qui acte Retour oublier qc - so gehts, si on une ungetesteten Code verschickt

Kompilieren Marque Séparation

Case @Equ (Inputaktuell%,Inputvorher%) : Ret%=1 Hier wird eine 1 zurückgeliefert, anstatt sich dauernd selbst aufzurufen.
Return ret

Ausserdem muss es unten lauten:
Kompilieren Marque Séparation

Auslesen

WHILE %(0)=1

    Auslesen   Wenn das Return eine 1 ergab wieder rein!

WE

So sollte es mais marcher. quoi meint car Profan? qui Fehlermeldung mais est hoffentlich pas geheim *lol*

Rolf

04.04.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jens
Hoffert

je merci Euch pour qui Hinweise et Tipps!!
cela Programme pouvoir sogar cela, quoi je mir vorgestellt habe!

sur qui tandis que, -, Wend-Boucle muss on seulement la fois venons....

ist zwar pas im Sinne des Erfinders

, mais le principal und dir. ( vorerst avec einer Teilereinheit pro Schnittstelle)
la fois voyons, quelle Fragen qui mehrfachauswertung encore aufwirft....
....werde cela Progrämmle zum Wochenende la fois testen...