XProfan

English

funkheld

Hello, gutenTag.
as DX'ler would like I mean QSL capture in a scheduler, so How about on the BIld. In one small Window below of aufgelisteten Text ought to somehow The input in boxes made and be to the Buttonklick supra registered and be too weiterscrollen if The upper Page fully is. supra into Split should no Editorfunktion his. The entire Spaltentext supra should too abgespeichert go can, so that I it Later again invite can.
the invite would like I then again one seperaten Profanprogramm make, which then but here of first launched go should. the invite should here but yet no Topic his.

I need times the first steps for.

Thank you.

greeting

bild2.jpg	70 kB

Hochgeladen:	05/25/12

Downloadcounter:
		Download

05/25/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hi!

what mean The terms "DX" and "QSL" for you?

as DX'ler could thoroughly one Direct-X'ler his and the You a QSL-Strippe are
would mere unterstellt!

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

05/25/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

DX is receive...i'm Kurzwellenhörer.
QSL means a acknowledgement the Language, morse signal etc, as by me on the Kurzwellenempfänger arrive. it should a List all Sendungen with the scheduler made go. I need only The Help How supra The data reinkommen of under from whom individual Stringfeldern and as then supra abgespeichert go.

Thank you.

greeting

XProfan 11

05/25/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Ah, thanks for Info!

Please save simply here ( [...]

) which XProfan-Version You uses -
according to the entrapments Solutions thoroughly different from.

the dargestellte lists-Control is evident one undertow. SysListView32 or. one
"ListView" or. in XProfan "GridBox" called.

In XProfans Helpfile are under point 20.8 "GridBoxen" described as well as this
example aufgeführt:

Compile Mark Separation

'Program gridboxtest.prf
Declare end%, display%, X%, area$, Dlg%
Declare hGrid&, cover$
Cls
Dlg%     = Create("Dialog", %Hwnd, "GridBox", 220, 190, 410, 280)
Anzeige% = Create("Button", Dlg%, "Anzeigen", 110, 220, 80, 30)
Ende%    = Create("Button", Dlg%, "Ende", 210, 220, 80, 30)
' 1. Split define
Titel$ = "Links;0;180;Mitte;2;100;Rechts;1;80"
' 2. GridBOX create
hGrid&   = Create("GridBox", Dlg%, cover$, 3, 3, 0, 400, 190)
' 3. here go The GridBOX-Lines added
AddStrings(hGrid&, "AB|DEF|0123")
AddStrings(hGrid&, "GHI|J23KL|012345")
AddStrings(hGrid&, "*|MNOP|PQR|")
AddStrings(hGrid&, "STU||V")
AddStrings(hGrid&, "ABCD12|STUVW|XYZ0")
AddStrings(hGrid&, "ABCD34|stuvw|999,00")
AddStrings(hGrid&, "Abcd45|STUVW|-111,11")
AddStrings(hGrid&, "Abcd56|StUVW|2.111,11")
AddStrings(hGrid&, "Abcd56|AbxVW|-15.234,56")
AddStrings(hGrid&, "Abcd67|STUVW|0,00")
X% = InsertString(hGrid&, 5, "Hugo")' 1. area here because of the Sorting
SetText hGrid&, X%, 1, "war"
SetText hGrid&, X%, 2, "hier"
' 4. GridBOX-Content spend

WhileLoop 0, GetCount(hGrid&)-1

    Print GetString$(hGrid&, &loop)

EndWhile

Print "--------------"
' 5. Strings selektieren
Print Select String(hGrid&, -1, "Hugo")
Print Select String(hGrid&, -1, "GHI")
Print Select String(hGrid&, 6, "Hugo")
' 6. GridBOX becomes displayed. now evaluate

WhileNot @Clicked(end%)

    WaitInput
    print GetCurSel(hGrid&)

    If @Clicked(display%)

        Print Str $(GetSelCount(hGrid&)) + "/" + Str $(GetCount(hGrid&))
        ' now go The selektierten Lines outputted

        WhileLoop 0, GetCount(hGrid&)-1

            X% = &Loop

            If GetState(hGrid&, X%) > 0

                Print GetString$(hGrid&, X%)
                area$ = ""

                WhileLoop 0, 2' 3 Split

                    area$ = area$ + GetText$(hGrid&, X%, &Loop) + " / "

                EndWhile

                Print area$

            EndIf

        EndWhile

        Print

    EndIf

EndWhile

End

Dou you mean something like?

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

05/25/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

Jup, The Profanversion back me under "Gruss", The becomes faith I automatically übernommen with of my Login.

Yes, such a thing my I. thanks.

greeting

XProfan 11

05/25/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

so, dank eurer Help be I already so far come.
I can under data reinsetzen, The then supra registered go to the pressing of Button.

I have yet some ask:
1. i want letters prompt , The any whom same stood off having
2. How are the, if The Zeichenzahl in the area overstepped becomes, the then into right nebenstehende area sprang becomes.
3. How can now The data supra in that Window again reinladen, the Save functions.
4. an Markierte row delete and the others should hochrücken.

Perhaps too much ask ?

Compile Mark Separation

 {$cleq}
Declare Ende&, text_setzen&,Text$,printen&,win&,qsl_text$
declare edit1&,edit2&,edit3&,edit4&,edit5&,edit6&,edit7&,edit8&,edit9&
Declare hGrid&, cover$
win& = @Create("Window", 0, "Parent", 20, 20, 1100,600)
text_setzen& = Create("Button",win&, "Text setzen", 10, 520, 90, 30)
printen&  = Create("Button", win&, "Speichern", 110, 520, 80, 30)
Ende&    = Create("Button", win&, "Ende", 740, 520, 80, 30)
Edit1& = @Create("Edit", win&, "", 15, 470, 70, 24)
SetStyle Edit1&, @GetStyle(Edit1&) | ~ES_UPPERCASE
SendMessage(Edit1&,$0C5,6,0)' EM_LIMITTEXT
Edit2& = @Create("Edit", win&, "", 95, 470, 70, 24)
SetStyle Edit2&, @GetStyle(Edit2&) | ~ES_UPPERCASE
SendMessage(Edit2&,$0C5,6,0)' EM_LIMITTEXT
Edit3& = @Create("Edit", win&, "", 175, 470, 70, 24)
SetStyle Edit3&, @GetStyle(Edit3&) | ~ES_UPPERCASE
SendMessage(Edit3&,$0C5,5,0)' EM_LIMITTEXT
Edit4& = @Create("Edit", win&, "", 255, 470, 70, 24)
SetStyle Edit4&, @GetStyle(Edit4&) | ~ES_UPPERCASE
SendMessage(Edit4&,$0C5,5,0)' EM_LIMITTEXT
Edit5& = @Create("Edit", win&, "", 335, 470, 50, 24)
SetStyle Edit5&, @GetStyle(Edit5&) | ~ES_UPPERCASE
SendMessage(Edit5&,$0C5,3,0)' EM_LIMITTEXT
Edit6& = @Create("Edit", win&, "", 395, 470, 50, 24)
SetStyle Edit6&, @GetStyle(Edit6&) | ~ES_UPPERCASE
SendMessage(Edit6&,$0C5,3,0)' EM_LIMITTEXT
Edit7& = @Create("Edit", win&, "", 455, 470, 70, 24)
SetStyle Edit7&, @GetStyle(Edit7&) | ~ES_UPPERCASE
SendMessage(Edit7&,$0C5,6,0)' EM_LIMITTEXT
Edit8& = @Create("Edit", win&, "", 535, 470, 60, 24)
SetStyle Edit8&, @GetStyle(Edit8&) | ~ES_UPPERCASE
SendMessage(Edit8&,$0C5,3,0)' EM_LIMITTEXT
Edit9& = @Create("Edit", win&, "", 600, 470, 455, 24)
SetStyle Edit9&, @GetStyle(Edit8&) | ~ES_UPPERCASE
SendMessage(Edit9&,$0C5,64,0)' EM_LIMITTEXT
Titel$ = "to Radio;2;80;DATE;2;80;TIME UTC;2;80;BAND KHZ;2;80;MODE;2;60;R s T;2;60;QSO WITH;2;80;YOU RST;2;60;TEXT;0;465"
hGrid&   = Create("GridBox",win&, cover$,2, 10, 10, 1050, 400)

WhileNot @Clicked(Ende&)

    WaitInput

    If @Clicked(printen&)

        Assign #2,"d:\qsl.txt"
        Rewrite #2

        WhileLoop 0, GetCount(hGrid&)-1

            qsl_text$=GetString$(hGrid&, &loop)
            print #2,qsl_text$

        EndWhile

        Close #2

    elseif @Clicked(text_setzen&)

        Text$=""
        Text$=@gettext$(edit1&)+"|"+@gettext$(edit2&)+"|"+@gettext$(edit3&)+"|"+@gettext$(edit4&)+"|"+@gettext$(edit5&)
        Text$=text $+"|"+@gettext$(edit6&)+"|"+@gettext$(edit7&)+"|"+@gettext$(edit8&)+"|"+@gettext$(edit9&)
        @addstring(hgrid&,Text$)

    EndIf

EndWhile

End

thanks

greeting

bild2.jpg	63 kB

Hochgeladen:	05/26/12

Downloadcounter:
		Download

05/26/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

To 1. come then only The nichtproportionale Fonts (Dickten-/Festbreitschrift) [...]

in question.
can but not understand, Why it so his should.
to that remainder one Minibeispiel

Compile Mark Separation

cls
Declare Gesamt&,font&
declare grid&,grid1&,t$,row$
declare ed%,ed1%,loading%,Remove%
ed%=Create("Edit",%hwnd,"",20,40,100,20)
ed1%=Create("Edit",%hwnd,"",20,70,100,20)
font&=CreateFont("Lucida Console",14,0,0,0,0)'nichtproportionale Font
SetFont ed%,font&
t$ = "Links;0;180;Mitte;2;100;Rechts;1;80"
grid& = Create("Gridbox",%HWnd,t$,1,150,10,400,120)
AddStrings(grid&,"Hallo 1|Hallo 2|Hallo 3")
AddStrings(grid&,"Hallöchen 1|Hallöchen 2|Hallöchen 3")
AddStrings(grid&,"Hallo, You 1|Hallo, You 2|Hallo, You 3")
grid1& = Create("Gridbox",%HWnd,t$,1,150,150,400,120)
laden%=CreateButton(%hwnd,"Laden",150,300,80,20)
loeschen%=CreateButton(%hwnd,"Löscht The markierte Zeile",300,300,250,20)
'Save file with Trenner= | . otherwise supplant ($=Translate$($,$,$)).
Assign #2,$TempDir +"\\TEST.DAT"
Rewrite #2

WhileLoop 0,GetCount(grid&)-1

    row$=GetString$(grid&,&loop)
    Print #2,row$

Endwhile

Close #2
Setfocus(ed%)
subclass ed%,1
subclass ed1%,1

while 0=0

    waitinput

    If getfocus(loading%)

        Assign #2,$TempDir +"\\TEST.DAT"
        Reset #2

        WhileNot @Eof(#2)

            Input #2,row$
            AddStrings(grid1&,row$)

        Endwhile

        Close #2
        setfocus(%hwnd)

    EndIf

    If getfocus(Remove%)  AND (GetCurSel(grid1&)>-1)

        DeleteString(grid1&,GetCurSel(grid1&))

    EndIf

wend

DeleteObject font&
END

SubClassProc

    If getfocus(ed%)

        sendmessage(ed%,176,addr(Gesamt&),0)

        If Gesamt&+sendmessage(ed%,187,-1,0)=3' moreover to 3 characters

            Setfocus(ed1%)

        Endif

    ElseIf getfocus(ed1%)

        sendmessage(ed1%,176,addr(Gesamt&),0)

        If Gesamt&+sendmessage(ed1%,187,-1,0)=5' moreover to 5 characters

            Setfocus(%hwnd)

        Endif

    EndIf

ENDPROC

Gruß Thomas
Windows XP SP2, XProfan X2

05/26/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Ne fixe Variante:

Compile Mark Separation

 {$cleq}
'URL: https://XProfan.com/intl/de/forum/swl-dx-scheduler-produce/#n
Declare Ende&, text_setzen&,Text$,printen&,win&,qsl_text$
declare edit1&,edit2&,edit3&,edit4&,edit5&,edit6&,edit7&,edit8&,edit9&
Declare hGrid&, cover$,s$,s2$
win& = @Create("Window", 0, "Parent", 20, 20, 1100,600)
text_setzen& = Create("Button",win&, "Text setzen", 10, 520, 90, 30)
printen&  = Create("Button", win&, "Speichern", 110, 520, 80, 30)
var ld&  = Create("Button", win&, "Laden", 190, 520, 80, 30)
Ende&    = Create("Button", win&, "Ende", 740, 520, 80, 30)
Edit1& = @Create("Edit", win&, "", 15, 470, 70, 24)
SetStyle Edit1&, @GetStyle(Edit1&) | ~ES_UPPERCASE
SendMessage(Edit1&,$0C5,6,0)' EM_LIMITTEXT
Edit2& = @Create("Edit", win&, "", 95, 470, 70, 24)
SetStyle Edit2&, @GetStyle(Edit2&) | ~ES_UPPERCASE
SendMessage(Edit2&,$0C5,6,0)' EM_LIMITTEXT
Edit3& = @Create("Edit", win&, "", 175, 470, 70, 24)
SetStyle Edit3&, @GetStyle(Edit3&) | ~ES_UPPERCASE
SendMessage(Edit3&,$0C5,5,0)' EM_LIMITTEXT
Edit4& = @Create("Edit", win&, "", 255, 470, 70, 24)
SetStyle Edit4&, @GetStyle(Edit4&) | ~ES_UPPERCASE
SendMessage(Edit4&,$0C5,5,0)' EM_LIMITTEXT
Edit5& = @Create("Edit", win&, "", 335, 470, 50, 24)
SetStyle Edit5&, @GetStyle(Edit5&) | ~ES_UPPERCASE
SendMessage(Edit5&,$0C5,3,0)' EM_LIMITTEXT
Edit6& = @Create("Edit", win&, "", 395, 470, 50, 24)
SetStyle Edit6&, @GetStyle(Edit6&) | ~ES_UPPERCASE
SendMessage(Edit6&,$0C5,3,0)' EM_LIMITTEXT
Edit7& = @Create("Edit", win&, "", 455, 470, 70, 24)
SetStyle Edit7&, @GetStyle(Edit7&) | ~ES_UPPERCASE
SendMessage(Edit7&,$0C5,6,0)' EM_LIMITTEXT
Edit8& = @Create("Edit", win&, "", 535, 470, 60, 24)
SetStyle Edit8&, @GetStyle(Edit8&) | ~ES_UPPERCASE
SendMessage(Edit8&,$0C5,3,0)' EM_LIMITTEXT
Edit9& = @Create("Edit", win&, "", 600, 470, 455, 24)
SetStyle Edit9&, @GetStyle(Edit8&) | ~ES_UPPERCASE
SendMessage(Edit9&,$0C5,64,0)' EM_LIMITTEXT
Titel$ = "to Radio;2;80;DATE;2;80;TIME UTC;2;80;BAND KHZ;2;80;MODE;2;60;R s T;2;60;QSO WITH;2;80;YOU RST;2;60;TEXT;0;465"
hGrid&   = Create("GridBox",win&, cover$,2, 10, 10, 1050, 400)
var fnt&=create("Font","Courier New",16,0,0,0,0)
var fnt2&=create("Font","MS Sans Serif",12,0,0,0,0)
setFont hGrid&,fnt&
setFont edit1&,fnt&
setFont edit2&,fnt&
setFont edit3&,fnt&
setFont edit4&,fnt&
setFont edit5&,fnt&
setFont edit6&,fnt&
setFont edit7&,fnt&
setFont edit8&,fnt&
setFont edit9&,fnt&
setFont printen&,fnt2&
setFont ld&,fnt2&
setFont ende&,fnt2&
setFont text_setzen&,fnt2&
usermessages 16//wm_close
setfocus(edit1&)
subclass edit1&,1
subclass edit2&,1
subclass edit3&,1
subclass edit4&,1
subclass edit5&,1
subclass edit6&,1
subclass edit7&,1
subclass edit8&,1
subclass edit9&,1

WhileNot @Clicked(Ende&)

    WaitInput

    select %uMessage

        caseof 16 : break

    endSelect

    If @Clicked(printen&)

        Assign #2,"c:\\qsl.txt"
        Rewrite #2

        WhileLoop 0, GetCount(hGrid&)-1

            qsl_text$=GetString$(hGrid&, &loop)
            print #2,qsl_text$

        EndWhile

        Close #2
        assign #2,""'lever unlock!

    elseif @Clicked(ld&)

        clearlist hGrid&
        Assign #2,"c:\\qsl.txt"
        reset #2

        whilenot eof(#2)

            input #2,s$
            addstring(hGrid&,s$)

        wend

        Close #2
        assign #2,""'lever unlock!

    elseif @Clicked(text_setzen&)

        Text$=""
        Text$=@gettext$(edit1&)+"|"+@gettext$(edit2&)+"|"+@gettext$(edit3&)+"|"+@gettext$(edit4&)+"|"+@gettext$(edit5&)
        Text$=text $+"|"+@gettext$(edit6&)+"|"+@gettext$(edit7&)+"|"+@gettext$(edit8&)+"|"+@gettext$(edit9&)
        @addstring(hgrid&,Text$)

    EndIf

EndWhile

End

subclassproc

    someproc(edit1&,edit2&,6)
    someproc(edit2&,edit3&,6)
    someproc(edit3&,edit4&,5)
    someproc(edit4&,edit5&,5)
    someproc(edit5&,edit6&,3)
    someproc(edit6&,edit7&,3)
    someproc(edit7&,edit8&,6)
    someproc(edit8&,edit9&,3)

endproc

proc someproc

    parameters a&,b&,c&

    if subclassmessage(a&,257)//wm_keyup

        case len(gettext$(a&))=c& : setfocus(b&)

    endif

endproc

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

05/26/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

can but not understand, Why it so his should.

because I The Split for a defined amount vorgesehen have and if I now one "Q" and a "I" eingebe, comes The Spaltenlänge not any more there.

thanks for the good Program.

Thank you.

greeting

05/26/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote