XProfan

English

Jens
Hoffert

Hello, love Profan-Gemeinde!,

@Admins:
how can I my Profil (Avatar and Signatur) because complete?
@ any:
Hintergrundinformationen:
I have me for my Heizungssystem a UVR 1611 zugelegt. with this would like I the solaren proceeds the Solaranlage Show let. The Control has but as least Durchflussrate 0,5 liters per Zählimpuls.
The, of me eingesetzte Durchflusszähler supply but 293 Impulse with 0,5 liters!
Hardwareteiler (Zählergruppen) are of course a (sooner aufwendige) alternative, but since eh one (Win-ME) computer constantly online with the Control in link standing, wished I a - I name it time: Teilersoftware- to Impulsgenerierung over The Parallelschnittstelle write.
thereby be I on Profan punched, what very very promising sound.

my Programmierkenntnisse are but sooner Antiquiert, I my letztes Basic-Program to ca. 10 years written have! ( I knows quite nothing More

)

The story with INPOUT32.DLL have I already rausgefunden, though have I no, my Anforderungen ähnelndes Program gefunden; naja, quick time self write.....

NU Meckert it but rum:commands uncharted

can it his, that 5.0 selbigenwelchen not yet knows?

CASE @Neq (entry%,momentum%) : IMPULSE-ZÄHLEN

.......is well still ne number To high for me......at least in the moment......

Regards !!!
..............................................Jens........................................

Ps.: and good night!!!;............ me Wurmts I can nit sleep.......

Teiler-300.prf	1 kB

Hochgeladen:	04/02/06

Downloadcounter:
		Download

04/02/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

circa your Profil To Edit Gibts supra in the Menu one point Profil. or click here: [...]

[hr:dc054c0a79]
to that Source.

The Error is probably the name the procedure Impulse-count.

I rate of Umlauten ex, and the Minuszeichen is mortal.

proc CountImpuls <-- does it well

Source can You here in the Community directly in the Posting post.
Compile Mark Separation

 $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

04/02/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jens
Hoffert

Hello iF,

I have the weekend to that schmökern used, and my Progrämmle rewritten.

now stand I to the trouble, that it because of To deeper PROC-Verschachtelung abbricht.

I need such a thing, as an Endlosschleife with the such a long time The address quizzed becomes, To itself the worth changes.
How can I the solve?

MfG Jens Hoffert
Compile Mark Separation

 $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

04/03/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

Hi integrally simply, because You a couple Kleinigkeiten abänderst:
Compile Mark Separation

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

04/03/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jens
Hoffert

Compile Mark Separation

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

have all sorts of things attempts, but I get it simply not there!
with ret%=1 schmeisst Profan me NEN Error against.
Habs too with return, let ret%=1 etc. attempts u.a. too with waitscan, it wants nit

I need somehow The ständige Überwachung the values 888 and 889 the Parallelportadresse,
where only change of 888 To 889 or 889 To 888 one continue the Progs results.

has someone yet ne idea??

Greeting Jens

ps.: I hope, I nerve not - be blutiger Beginner.....

04/04/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

SOOOORRY two Error of me, because I have in the doing Return forget - so GEHTS, if one a ungetesteten code sent

Compile Mark Separation

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

Ausserdem must it under lauten:
Compile Mark Separation

Auslesen

WHILE %(0)=1

    Auslesen   Wenn das Return eine 1 ergab wieder rein!

WE

so ought to But functions. what means because Profan? The Error Message is still hopefully not secret *lol*

Rolf

04/04/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jens
Hoffert

I thanks you for Notes and Tipps!!
the Program power even the, I me pictured have!

On The while, -, wend-Loop must one first time come....

Although not senses the Erfinders

, but hauptsache It's all right. ( for the time being with of/ one Teilereinheit per interface)
time see, which ask The mehrfachauswertung yet aufwirft....
....will be the Progrämmle to that weekend test times...