XProfan

Español

Jens
Hoffert

¡Hola, liebe Profano-Gemeinde!,

@Admins:
como kann Yo mein Perfil (Avatar y Signatur) porque vervollständigen?
@ Alle:
Hintergrundinformationen:
Yo habe me para mein Heizungssystem una UVR 1611 zugelegt. Mit dieser möchte Yo, el solaren Ertrag el Solaranlage Mostrar dejar. El Steuerung ha aber como geringste Durchflussrate 0,5 liter pro Zählimpuls.
Der, de me eingesetzte Durchflusszähler liefert aber 293 Impulse en 0,5 liter!
Hardwareteiler (Zählergruppen) son zwar una (más aufwendige) Alternative, aber como eh una (Win-ME) Rechner ständig online con el Steuerung en Verbindung es, Yo quería una - Yo nenne lo veces: Teilersoftware- a Impulsgenerierung en Parallelschnittstelle escribir.
Dabei bin I Profano gestoßen, qué muy vielversprechend klingt.

Mi Programmierkenntnisse son aber más Antiquiert, como Yo mein letztes Basic-Programa antes ca. 10 Jahren geschrieben habe! ( Yo blanco gar nix mehr

)

El Geschichte con INPOUT32.DLL Yo ya rausgefunden, allerdings Yo kein, media Anforderungen ähnelndes Programa gefunden; naja, rápidamente veces incluso escribir.....

NU Meckert él aber rum:Befehl unbekannt

Kann lo ser, dass 5.0 selbigenwelchen todavía no sabe?

CASE @Neq (eingang%,impuls%) : IMPULSE-ZÄHLEN

.......is wohl doch ne Nummer a hoch para mich......zumindest en el Augenblick......

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

Ps.: y gute Nacht!!!;............ Mich Wurmts Yo kann nit schlafen.......

Teiler-300.prf	1 kB

Hochgeladen:	02.04.2006

Ladeanzahl:
		Descargar

02.04.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Um Su Perfil a bearbeiten gibts oben en el Menü una Punkt Perfil. Oder klicke hier: [...]

[hr:dc054c0a79]
Zum Source.

Der Fehler es wohl el Benennung el Procedimiento Impulse-Zählen.

Yo rate de Umlauten de, y el Minuszeichen es fatal.

proc CountImpuls <-- tut lo auch

Fuente kann Usted aquí en el Comunidad direkt en el Contribución puesto.
Kompilieren Marca Separación

 $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 Zitat

Absatzweise Cita Zeilenweise Cita

Jens
Hoffert

Hola si,

Yo habe el Wochenende para schmökern genutzt, y mein Progrämmle umgeschrieben.

Nun stehe Yo antes el Problema, dass lo wegen a tiefer PROC-Verschachtelung abbricht.

Yo necesidad así algo, como una Endlosschleife en así largo el Adresse abgefragt se, a se el Valor ändert.
¿Cómo se puede Yo el lösen?

MfG Jens Hoffert
Kompilieren Marca Separación

 $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 Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hi bastante simplemente, indem Usted unos pocos Kleinigkeiten abänderst:
Kompilieren Marca Separación

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!
End

03.04.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jens
Hoffert

Kompilieren Marca Separación

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

habe alles mögliche intenta, pero yo bekomme lo simplemente no hin!
en ret%=1 schmeisst Profano me nen Fehler entgegen.
Habs auch con volver, let ret%=1 usw. intenta u.a. auch con waitscan, lo voluntad nit

Yo necesidad irgendwie el ständige Überwachung el Werte 888 y 889 el Parallelportadresse,
wobei sólo en wechsel de 888 a 889 oder 889 a 888 una fortsetzen des Progs es.

ha alguien o ne- Concepto??

Saludo Jens

ps.: Yo hoffe, Yo Nerv no - bin blutiger Principiante.....

04.04.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

SOOOORRY zwei Fehler de me, porque Yo en el Tat Volver vergessen - así gehts, si uno una ungetesteten Code verschickt

Kompilieren Marca Separación

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

Ausserdem muss lo unten lauten:
Kompilieren Marca Separación

Auslesen

WHILE %(0)=1

    Auslesen   Wenn das Return eine 1 ergab wieder rein!

WE

So debería lo aber trabajo. Was meint porque Profano? El Fehlermeldung es doch hoffentlich no geheim *lol*

Rolf

04.04.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jens
Hoffert

Yo Gracias Euch para el Hinweise y Tipps!!
Das Programa macht incluso el, Yo me vorgestellt habe!

Auf el mientras que, -, wend-Bucle muss uno sólo veces kommen....

Aunque no en el Sinne des Erfinders

, aber hauptsache lo va. ( vorerst con uno Teilereinheit pro Schnittstelle)
Tiempo sehen, welche Fragen el mehrfachauswertung todavía aufwirft....
....voluntad el Progrämmle para Wochenende veces testen...