XProfan

- Seite 1 -

@Frank

Inwiefern?

Mit der Version 11 meckert XProfan über die Sub... in Deiner listview_funktionen.inc - Roland hat dazu extra eine Inc-Datei mitgeliefert für alte Programme profalt.inc für alte Profan-Programme, die keine Operatoren benutzen. Daher dachte ich, dass Du das Sub in Deiner INC auch modernisieren müsstest

@Thomas
Kompilieren Markieren Separieren

GetItemText(etatO&,bereich#,3,2)
teil$=String$(bereich#,0)
print teil$
GetItemText(etatO&,bereich#,4,(anzO%-1))
end$=String$(bereich#,0)
print end$
teil!=VAL(teil$)
end!=VAL(end$)
end!=(end!-teil!)
betragO$=STR$(end!)
print betragO$
Sendmessage(etatO&,$1008,2,0)
OBEN_AKTIV Hier wird die Anzeige in einer eigenen Procedur aktualisiert

So sieht mein Probecode aus und ich denke, dass unterm Strich das herauskommt, was mir vorschwebt.
Printen tut er schon mal das, was ich will. Jetzt nur noch in die Schleife und dann neu abspeichern.
(Wunder Dich nocht über die grossen O - da ich mit zwei Anzeigen arbeite, hab ich die Variablen mit Oben und Unten getrennt)

Frank
Abbing

Daher dachte ich, dass Du das Sub in Deiner INC auch modernisieren müsstest

Natürlich, mit der neuen Version gibt es dann eine geänderte Inc. Ist sowieso erheblich schlanker geworden, da ich sechs Procs und Defs jetzt direkt in die Dll integriert habe.

@Frank

[offtopic] Nun verrate uns doch mal, wer die Hübsche auf Deinem Atavar ist ? - Deine Enkelin oder... ?

[/offtopic]

- Seite 2 -

Frank
Abbing

Enkelin? Zähle mich bitte nicht zu deinem Renter-Club.

[offtopic]

Enkelin? Zähle mich bitte nicht zu deinem Renter-Club.

Aber wer ist es dann ? - Tochter, Freundin

?[/offtopic]

Frank
Abbing

Knapp vorbei.

Thomas
Freier

In jedem Fall erfrischend.

Gruß Thomas
Windows XP SP2, XProfan X2

Michael
Wodrich

Die Werte in einem Array halten und Roland bitten, daß er in die MAT-Funktionen noch einen Start- und Endparameter einbaut.

Dann kann der entspreichende Array-Bereich in einem Rutsch auf den neuesten Stand gebracht werden. Die entsprechenden Zeilen müssten dann in einer Schleife die neuen Werte bekommen.

Ohne die MAT Geschichte könnte man das dann ja in einer PROC erledigen mit entsprechenden Parametern.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

01.01.2008 ▲

@Michael

Ohne die MAT Geschichte könnte man das dann ja in einer PROC erledigen mit entsprechenden Parametern.

Bin dabei

01.01.2008 ▲

Dieter
Zornow

Hallo Horst,

hatte mal vor laengerer Zeit auch so ein Programm anzufangen, dann aber die Lust verloren, du hast mich inspiriert etwas weiter zu machen. Fuer Gridboxen habe ich mal das genommen, ist noch nicht optimiert aber funktioniert
Kompilieren Markieren Separieren

Proc neurechnen

    declare betrag!,konto!,line$,op$,put$
    clearlist

    whileloop 0,getcount(box&)-1

        line$ = Getstring$(box&,&loop) String aus Listview
        op$ = trim$(substr$(line$,4,|)) Operator + oder -
        betrag! = Val(trim$(substr$(line$,5,|))) Betrag mit dem gerechnet wird

        if &loop = 0

            if op$ = -

                konto! = 0-betrag!

            else

                konto! = betrag!

            endif

        else

            if op$ = +

                konto! = konto! + betrag!

            else

                konto! = konto! - betrag!

            endif

        endif

        put$ = trim$(substr$(line$,1,|))+|+trim$(substr$(line$,2,|))+|+trim$(substr$(line$,3,|))+|
        +trim$(substr$(line$,4,|))+|+trim$(substr$(line$,5,|))+|+str$(konto!)
        addstring put$ in Listboxliste

    endwhile

    clearlist box&
    movelisttohandle(box&)

endproc

Gruss aus Bangkok

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

03.01.2008 ▲

@Dieter
Danke für den Tip, aber ich habe umgestellt auf die Listview.dll von Frank und auch dafür habe ich den Code fertig. (Löschen OK - jetzt muss noch Umbewegen und Kopieren geschrieben werden - (es sind ja zwei Eingabe-Listen in MoneyGuard-2 vorhanden.) - Dann kommt die erste Beta-Version in die Community) - aber im Moment hab ich noch wichtigeres zu tun - Meine Enkel, 15 und 16 Jahre aus Euskirchen zu Besuch bei mir, haben mich voll im Griff

03.01.2008 ▲