Hypothetical error

[gaslouk]

Hypothetical error
Hello from beautiful Greece and me.
I am a beginner developer and I am building a computer application.

1st First of all, I do not know if this is a bug or a good one. In the listboxes that I have made, among other things, I can put contents with the keyboard.
But when I do this, you see that the value I set "even though I see it on my screen" is not entered in the variable.
It is entered normally from the listbox list and it is also normally entered from the listbow arrow. But if I click inside the text box and write the value of the variable from the keyboard it is not entered in the variable. And I'm not sure about that.

2nd I have made nested for/next (14 in number) but I do not know if there is any other way besides for / next that could be done.

3rd I tried the commands if/then to do them with nested ifs but because I do not know the command well I did not succeed.



I have tried very hard to get it here and it is still in its infancy.

If you have any ideas to suggest to me I would be very pleased.

Thanks for the help I have had so far and in advance for the one that will be given to me.

regards.

GlOBAL hwndTabControl1
True = 1 : False = 0
Syn = 0
GenSyn = 0
GenSyn$ = " "
global a$, b$, z
   dim a$(13), b$(13, 2), z(14)
   DIM Combo1$(3)
   DIM Combo2$(3)
   DIM Combo3$(3)
   DIM Combo4$(3)
   DIM Combo5$(3)
   DIM Combo6$(3)
   DIM Combo7$(3)
   DIM Combo8$(3)
   DIM Combo9$(3)
   DIM Combo10$(3)
   DIM Combo11$(3)
   DIM Combo12$(3)
   DIM Combo13$(3)
   DIM Combo14$(3)

   DIM Combo15$(13)
   DIM Combo16$(13)
   DIM Combo17$(13)
   DIM Combo18$(13)
   DIM Combo19$(13)
   DIM Combo20$(13)
   DIM Combo21$(13)
   DIM Combo22$(13)
   DIM Combo23$(13)
   DIM Combo24$(13)
   DIM Combo25$(13)
   DIM Combo26$(13)
   DIM Combo27$(13)
   DIM Combo28$(13)

   Combo1$(0) = " "
   Combo1$(1) = "1"
   Combo1$(2) = "X"
   Combo1$(3) = "2"

   Combo2$(0) = " "
   Combo2$(1) = "1"
   Combo2$(2) = "X"
   Combo2$(3) = "2"

   Combo3$(0) = " "
   Combo3$(1) = "1"
   Combo3$(2) = "X"
   Combo3$(3) = "2"

   Combo4$(0) = " "
   Combo4$(1) = "1"
   Combo4$(2) = "X"
   Combo4$(3) = "2"

   Combo5$(0) = " "
   Combo5$(1) = "1"
   Combo5$(2) = "X"
   Combo5$(3) = "2"

   Combo6$(0) = " "
   Combo6$(1) = "1"
   Combo6$(2) = "X"
   Combo6$(3) = "2"

   Combo7$(0) = " "
   Combo7$(1) = "1"
   Combo7$(2) = "X"
   Combo7$(3) = "2"

   Combo8$(0) = " "
   Combo8$(1) = "1"
   Combo8$(2) = "X"
   Combo8$(3) = "2"

   Combo9$(0) = " "
   Combo9$(1) = "1"
   Combo9$(2) = "X"
   Combo9$(3) = "2"

   Combo10$(0) = " "
   Combo10$(1) = "1"
   Combo10$(2) = "X"
   Combo10$(3) = "2"

   Combo11$(0) = " "
   Combo11$(1) = "1"
   Combo11$(2) = "X"
   Combo11$(3) = "2"

   Combo12$(0) = " "
   Combo12$(1) = "1"
   Combo12$(2) = "X"
   Combo12$(3) = "2"

   Combo13$(0) = " "
   Combo13$(1) = "1"
   Combo13$(2) = "X"
   Combo13$(3) = "2"

   Combo14$(0) = " "
   Combo14$(1) = "1"
   Combo14$(2) = "X"
   Combo14$(3) = "2"

   Combo15$(1) = "1"
   Combo15$(2) = "X"
   Combo15$(3) = "2"
   Combo15$(4) = "1X"
   Combo15$(5) = "12"
   Combo15$(6) = "X1"
   Combo15$(7) = "X2"
   Combo15$(8) = "2X"
   Combo15$(9) = "21"
   Combo15$(10) = "1X2"

NOmainWIN

open "Epiloges.txt" for output as #ep
close #ep
'<----------------------- STATIC TEXT STYLES ---------------->
SS.CENTER           = HEXDEC("&H00000001")
SS.CENTERIMAGE      = HEXDEC("&H00000200")
SS.SUNKEN           = HEXDEC("&H00001000")

'<---------------------- TAB STYLES SUPPORTED ---------------->
WS.CHILD                = HEXDEC("&H40000000")
WS.VISIBLE              = HEXDEC("&H10000000")
WS.TABSTOP              = HEXDEC("&H00010000")
TCS.TABS                = 0
TCS.SINGLELINE          = 0
TCS.RAGGEDRIGHT         = HEXDEC("00000800")
TCS.FOCUSONBUTTONDOWN   = HEXDEC("00001000")

STRUCT tRect, _
 X     AS LONG, _
 Y     AS LONG, _
 X1    AS LONG, _
 Y1    AS LONG

STRUCT tTab, _
 TabStyle    AS ULONG, _
        X    AS LONG, _
        Y    AS LONG, _
        X1   AS LONG, _
        Y1   AS LONG
tTab.TabStyle.struct = 0
tTab.X.struct = 20
tTab.Y.struct = 50
tTab.X1.struct = -20
tTab.Y1.struct = -60

UpperLeftX = 200
UpperRightX = 200
WindowWidth = 600
WindowHdight = 1000

STYLEBITS #TB1.STAT, SS.CENTER OR SS.CENTERIMAGE OR SS.SUNKEN, 0, WS.EX.TRANSPARENT, 0

Menu        #WIN, "Exit", "Exit", [STOPIT]

statictext  #TB1.st1, "insert ", 20, 5, 245, 25
statictext  #TB1.st2, "Game 1ος", 15, 55, 130, 20
statictext  #TB1.st2, "Αγώνας 2ος", 15, 80, 130, 20
statictext  #TB1.st4, "Αγώνας 3ος", 15, 105, 130, 20
statictext  #TB1.st5, "Αγώνας 4ος", 15, 130, 130, 20
statictext  #TB1.st6, "Αγώνας 5ος", 15, 155, 130, 20
statictext  #TB1.st7, "Αγώνας 6ος", 15, 180, 130, 20
statictext  #TB1.st8, "Αγώνας 7ος", 15, 205, 130, 20
statictext  #TB1.st9, "Αγώνας 8ος", 15, 230, 130, 20
statictext  #TB1.st10, "Αγώνας 9ος", 15, 255, 130, 20
statictext  #TB1.st11, "Αγώνας 10ος", 11, 279, 130, 20
statictext  #TB1.st12, "Αγώνας 11ος", 15, 305, 130, 20
statictext  #TB1.st13, "Αγώνας 12ος", 15, 330, 130, 20
statictext  #TB1.st14, "Αγώνας 13ος", 15, 355, 130, 20
statictext  #TB1.st15, "Αγώνας 14ος", 15, 380, 130, 20
button      #WIN.bt1, "Έξοδος", [STOPIT], UR, 160, 550, 100, 25
           ComboboxColor$ = "White"

combobox    #TB1.combo1,Combo1$(), combo1Click, 160, 55, 30, 300
combobox    #TB1.combo2,Combo2$(), combo2Click, 160, 80, 30, 300
combobox    #TB1.combo3,Combo3$(), combo3Click, 160, 105, 30, 300
combobox    #TB1.combo4,Combo4$(), combo4Click, 160, 130, 30, 300
combobox    #TB1.combo5,Combo5$(), combo5Click, 160, 155, 30, 300
combobox    #TB1.combo6,Combo6$(), combo6Click, 160, 180, 30, 300
combobox    #TB1.combo7,Combo7$(), combo7Click, 160, 205, 30, 300
combobox    #TB1.combo8,Combo8$(), combo8Click, 160, 230, 30, 300
combobox    #TB1.combo9,Combo9$(), combo9Click, 160, 255, 30, 300
combobox    #TB1.combo10,Combo10$(), combo10Click, 160, 280, 30, 300
combobox    #TB1.combo11,Combo11$(), combo11Click, 160, 305, 30, 300
combobox    #TB1.combo12,Combo12$(), combo12Click, 160, 330, 30, 300
combobox    #TB1.combo13,Combo13$(), combo13Click, 160, 355, 30, 300
combobox    #TB1.combo14,Combo14$(), combo14Click, 160, 380, 30, 300

statictext  #TB2.st1, "Insert System", 35, 0, 245, 25
statictext  #TB2.st2, "Game 1ος", 15, 55, 80, 20
statictext  #TB2.st2, "Αγώνας 2ος", 15, 80, 80, 20
statictext  #TB2.st4, "Αγώνας 3ος", 15, 105, 80, 20
statictext  #TB2.st5, "Αγώνας 4ος", 15, 130, 80, 20
statictext  #TB2.st6, "Αγώνας 5ος", 15, 155, 80, 20
statictext  #TB2.st7, "Αγώνας 6ος", 15, 180, 80, 20
statictext  #TB2.st8, "Αγώνας 7ος", 15, 205, 80, 20
statictext  #TB2.st9, "Αγώνας 8ος", 15, 230, 80, 20
statictext  #TB2.st10, "Αγώνας 9ος", 15, 255, 80, 20
statictext  #TB2.st11, "Αγώνας 10ος", 15, 279, 80, 20
statictext  #TB2.st12, "Αγώνας 11ος", 15, 305, 80, 20
statictext  #TB2.st13, "Αγώνας 12ος", 15, 330, 80, 20
statictext  #TB2.st14, "Αγώνας 13ος", 15, 355, 80, 20
statictext  #TB2.st15, "Αγώνας 14ος", 15, 380, 80, 20

combobox    #TB2.combo1,Combo1$(), combo15Click, 120, 55, 30, 300
combobox    #TB2.combo2,Combo2$(), combo16Click, 120, 80, 30, 300
combobox    #TB2.combo3,Combo3$(), combo17Click, 120, 105, 30, 300
combobox    #TB2.combo4,Combo4$(), combo18Click, 120, 130, 30, 300
combobox    #TB2.combo5,Combo5$(), combo19Click, 120, 155, 30, 300
combobox    #TB2.combo6,Combo6$(), combo20Click, 120, 180, 30, 300
combobox    #TB2.combo7,Combo7$(), combo21Click, 120, 205, 30, 300
combobox    #TB2.combo8,Combo8$(), combo22Click, 120, 230, 30, 300
combobox    #TB2.combo9,Combo9$(), combo23Click, 120, 255, 30, 300
combobox    #TB2.combo10,Combo10$(), combo24Click, 120, 280, 30, 300
combobox    #TB2.combo11,Combo11$(), combo25Click, 120, 305, 30, 300
combobox    #TB2.combo12,Combo12$(), combo26Click, 120, 330, 30, 300
combobox    #TB2.combo13,Combo13$(), combo27Click, 120, 355, 30, 300
combobox    #TB2.combo14,Combo14$(), combo28Click, 120, 380, 30, 300

combobox    #TB2.combo15,Combo1$(), combo29Click, 155, 55, 30, 300
combobox    #TB2.combo16,Combo2$(), combo30Click, 155, 80, 30, 300
combobox    #TB2.combo17,Combo3$(), combo31Click, 155, 105, 30, 300
combobox    #TB2.combo18,Combo4$(), combo32Click, 155, 130, 30, 300
combobox    #TB2.combo19,Combo5$(), combo33Click, 155, 155, 30, 300
combobox    #TB2.combo20,Combo6$(), combo34Click, 155, 180, 30, 300
combobox    #TB2.combo21,Combo7$(), combo35Click, 155, 205, 30, 300
combobox    #TB2.combo22,Combo8$(), combo36Click, 155, 230, 30, 300
combobox    #TB2.combo23,Combo9$(), combo37Click, 155, 255, 30, 300
combobox    #TB2.combo24,Combo10$(), combo38Click, 155, 280, 30, 300
combobox    #TB2.combo25,Combo11$(), combo39Click, 155, 305, 30, 300
combobox    #TB2.combo26,Combo12$(), combo40Click, 155, 330, 30, 300
combobox    #TB2.combo27,Combo13$(), combo41Click, 155, 355, 30, 300
combobox    #TB2.combo28,Combo14$(), combo42Click, 155, 380, 30, 300

combobox    #TB2.combo29,Combo1$(), combo43Click, 190, 55, 30, 300
combobox    #TB2.combo30,Combo2$(), combo44Click, 190, 80, 30, 300
combobox    #TB2.combo31,Combo3$(), combo45Click, 190, 105, 30, 300
combobox    #TB2.combo32,Combo4$(), combo46Click, 190, 130, 30, 300
combobox    #TB2.combo33,Combo5$(), combo47Click, 190, 155, 30, 300
combobox    #TB2.combo34,Combo6$(), combo48Click, 190, 180, 30, 300
combobox    #TB2.combo35,Combo7$(), combo49Click, 190, 205, 30, 300
combobox    #TB2.combo36,Combo8$(), combo50Click, 190, 230, 30, 300
combobox    #TB2.combo37,Combo9$(), combo51Click, 190, 255, 30, 300
combobox    #TB2.combo38,Combo10$(), combo52Click, 190, 280, 30, 300
combobox    #TB2.combo39,Combo11$(), combo53Click, 190, 305, 30, 300
combobox    #TB2.combo40,Combo12$(), combo54Click, 190, 330, 30, 300
combobox    #TB2.combo41,Combo13$(), combo55Click, 190, 355, 30, 300
combobox    #TB2.combo42,Combo14$(), combo56Click, 190, 380, 30, 300

statictext  #TB3.st1, "'1' From", 30, 45, 60, 25
statictext  #TB3.st2, "'1' to", 215, 45, 60, 25
statictext  #TB3.st3, "'X' Από", 30, 95, 60, 25
statictext  #TB3.st4, "'Χ' Έως", 215, 95, 60, 25
statictext  #TB3.st5, "'2' Από", 30, 145, 60, 25
statictext  #TB3.st6, "'2' Έως", 215, 145, 60, 25
statictext  #TB4.st1, "Current column", 25, 15, 120, 30
statictext  #TB4.st2, "Set of Selection Columns", 165, 15, 120, 30
statictext  #TB4.st3, "Total Columns", 305, 15, 120, 30

textbox     #TB3.teb1, 100, 45, 60, 25
textbox     #TB3.teb2, 280, 45, 60, 25
textbox     #TB3.teb3, 100, 95, 60, 25
textbox     #TB3.teb4, 280, 95, 60, 25
textbox     #TB3.teb5, 100, 145, 60, 25
textbox     #TB3.teb6, 280, 145, 60, 25
textbox     #TB4.teb1, 20, 45, 125, 25
textbox     #TB4.teb2, 160, 45, 125, 25
textbox     #TB4.teb3, 300, 45, 125, 25

stylebits   #TB3.bt2, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt2, "ok", [text1], UL, 170, 45, 35, 25
stylebits   #TB3.bt3, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt3, "ok", [text2], UL, 350, 45, 35, 25
stylebits   #TB3.bt2, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt2, "ok", [text3], UL, 170, 95, 35, 25
stylebits   #TB3.bt3, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt3, "ok", [text4], UL, 350, 95, 35, 25
stylebits   #TB3.bt2, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt2, "ok", [text5], UL, 170, 145, 35, 25
stylebits   #TB3.bt3, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt3, "ok", [text6], UL, 350, 145, 35, 25

groupbox    #TB3.grp1, "", 15, 25, 380, 50
groupbox    #TB3.grp2, "", 15, 75, 380, 50
groupbox    #TB3.grp3, "", 15, 125, 380, 50

stylebits   #TB4.bt1, _BS_MULTILINE, 0, 0, 0
button      #TB4.bt1, "Column Sorting", [dialogh], UR, 60, 385, 140, 25

OPEN "TABCTL" FOR DLL AS #TAB
OPEN "ΠΡΟ-ΠΟ 1Χ2" FOR WINDOW AS #WIN

   hStatus = MakeStatusBar(HWND(#WIN), "StatusBar")
   Call SetText hStatus,0,"StatusBar"
   Call SetText hStatus,4,time$()
   Call SetText hStatus,5,date$()
   timer 1000, [changeTime]


OPEN "Fixed Column Introduction" FOR WINDOW_popup AS #TB1
   #TB1 "trapclose [STOPIT]"
   #TB1.combo1 "selectindex 1"
   #TB1.combo2 "selectindex 1"
   #TB1.combo3 "selectindex 1"
   #TB1.combo4 "selectindex 1"
   #TB1.combo5 "selectindex 1"
   #TB1.combo6 "selectindex 1"
   #TB1.combo7 "selectindex 1"
   #TB1.combo8 "selectindex 1"
   #TB1.combo9 "selectindex 1"
   #TB1.combo10 "selectindex 1"
   #TB1.combo11 "selectindex 1"
   #TB1.combo12 "selectindex 1"
   #TB1.combo13 "selectindex 1"
   #TB1.combo14 "selectindex 1"
   #TB1 "font consolas 10"

OPEN "System Introduction" FOR WINDOW_popup AS #TB2

   #TB2 "trapclose [STOPIT]"
   #TB2.combo1 "selectindex 1"
   #TB2.combo2 "selectindex 1"
   #TB2.combo3 "selectindex 1"
   #TB2.combo4 "selectindex 1"
   #TB2.combo5 "selectindex 1"
   #TB2.combo6 "selectindex 1"
   #TB2.combo7 "selectindex 1"
   #TB2.combo8 "selectindex 1"
   #TB2.combo9 "selectindex 1"
   #TB2.combo10 "selectindex 1"
   #TB2.combo11 "selectindex 1"
   #TB2.combo12 "selectindex 1"
   #TB2.combo13 "selectindex 1"
   #TB2.combo14 "selectindex 1"

   #TB2.combo15 "selectindex 1"
   #TB2.combo16 "selectindex 1"
   #TB2.combo17 "selectindex 1"
   #TB2.combo18 "selectindex 1"
   #TB2.combo19 "selectindex 1"
   #TB2.combo20 "selectindex 1"
   #TB2.combo21 "selectindex 1"
   #TB2.combo22 "selectindex 1"
   #TB2.combo23 "selectindex 1"
   #TB2.combo24 "selectindex 1"
   #TB2.combo25 "selectindex 1"
   #TB2.combo26 "selectindex 1"
   #TB2.combo27 "selectindex 1"
   #TB2.combo28 "selectindex 1"

   #TB2.combo29 "selectindex 1"
   #TB2.combo30 "selectindex 1"
   #TB2.combo31 "selectindex 1"
   #TB2.combo32 "selectindex 1"
   #TB2.combo33 "selectindex 1"
   #TB2.combo34 "selectindex 1"
   #TB2.combo35 "selectindex 1"
   #TB2.combo36 "selectindex 1"
   #TB2.combo37 "selectindex 1"
   #TB2.combo38 "selectindex 1"
   #TB2.combo39 "selectindex 1"
   #TB2.combo40 "selectindex 1"
   #TB2.combo41 "selectindex 1"
   #TB2.combo42 "selectindex 1"

   #TB2 "font consolas 10"

OPEN "Column Sorting" FOR WINDOW_popup AS #TB3

   #TB3 "trapclose [STOPIT]"
   #TB3 "font consolas 10"
   Call MakeTooltips HWND(#TB3)

OPEN "TAB4" FOR WINDOW_popup AS #TB4

   #TB4 "trapclose [STOPIT]"
   #TB4 "font consolas 10"
   Call MakeTooltips1 HWND(#TB4)

OPEN "TAB5" FOR WINDOW_popup AS #TB5

PRINT #WIN, "TRAPCLOSE [STOPIT]"
PRINT #WIN, "RESIZEHANDLER [ResizeStatus]"

WinHndl = HWND(#WIN)
Tab1Hndl = HWND(#TB1)
Tab2Hndl = HWND(#TB2)
Tab3Hndl = HWND(#TB3)
Tab4Hndl = HWND(#TB4)
Tab5Hndl = HWND(#TB5)

Ttl1$ = "Εισαγωγή Στήλης Διαλογής"
Ttl2$ = "Εισαγωγή Συστήματος"
Ttl3$ = "Περιορισμοί"
Ttl4$ = "Διαλογή Στηλών"
Ttl5$ = "TAB5"

CALLDLL #TAB, "FN_InitTab", WinHndl AS ULONG, tTab AS STRUCT, TabHndl AS ULONG
print TabHndl

CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab1Hndl AS ULONG, _
             0 AS ULONG, Ttl1$ AS STRUCT, Idx AS LONG
CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab2Hndl AS ULONG, _
             0 AS ULONG, Ttl2$ AS STRUCT, Idx AS LONG
CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab3Hndl AS ULONG, _
             0 AS ULONG, Ttl3$ AS STRUCT, Idx AS LONG
CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab4Hndl AS ULONG, _
             0 AS ULONG, Ttl4$ AS STRUCT, Idx AS LONG
CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab5Hndl AS ULONG, _
             0 AS ULONG, Ttl5$ AS STRUCT, Idx AS LONG

PRINT Idx
WAIT

'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
[text1]
   timer 0
   #TB3.teb1, "!contents? txt1$"
   z(0) = val(txt1$)
   if z(0) < 0 or z(0) > 14 then
       notice "Entry Prices From 0 To 14"
   end if
   timer 3000, [checkForTab]
wait

[text2]
   timer 0
   #TB3.teb2, "!contents? txt2$"
   z(1) = val(txt2$)
   if z(1) < 0 or z(1) > 14 then
       notice "Entry Prices From 0 To 14"
   end if
   if z(1) < z(0) then
       notice txt2$ + "Less than "+ txt1$ +" Enter Again"
   end if
   timer 3000, [checkForTab]
wait

[text3]
    timer 0
  #TB3.teb3, "!contents? txt3$"
   z(2) = val(txt3$)
   if z(2) < 0 or z(2) > 14 then
       notice "Entry Prices From 0 To 14"
   end if
   timer 3000, [checkForTab]
wait

[text4]
   timer 0
   #TB3.teb4, "!contents? txt4$"
   z(3) = val(txt4$)
   if z(3) < 0 or z(3) > 14 then
       notice "Entry Prices From 0 To 14"
   end if
   if z(3) < z(2) then
       notice txt4$ + " Less than "+ txt3$ +" Enter Again"
   end if
   timer 3000, [checkForTab]
wait

[text5]
   timer 0
   #TB3.teb5, "!contents? txt5$"
   z(4) = val(txt5$)
   if z(4) < 0 or z(4) > 14 then
       notice "Entry Prices From 0 To 14"
   end if
   timer 3000, [checkForTab]
wait

[text6]
   timer 0
   #TB3.teb6, "!contents? txt6$"
   z(5) = val(txt6$)
   if z(5) < 0 or z(5) > 14 then
       notice "Entry Prices From 0 To 14"
   end if
   if z(5) < z(4) then
       notice txt6$ + " Less than "+ txt5$ +" Enter Again"
   end if
   timer 3000, [checkForTab]
WAIT

[size]
   calldll #user32, "SendMessageA",_
   hStatus as ulong,_WM_SIZE as long,_
   0 as long, WindowWidth as long,_
   re as long
   wait

[checkForTab]   'see if selected tab is the same
               'as previously selected tab and
               'change controls if tab has changed
   timer 0     'turn off timer

   'get the current tab ID
   calldll #user32, "SendMessageA",_
       hwndTab as ulong,_      'tab control handle
       TCM.GETCURSEL as long,_ 'message to get current selection
       0 as long, 0 as long,_  'always 0's
       tabID as long           'returns selected tab ID

   if tabID <> oldTab then     'change page displayed
       oldTab = tabID          'for next check of selected tab
       gosub [clear]
       call MoveWindow winTab(tabID), 20,40,600,1000
   end if

   print #TB3, "refresh"
   timer 3000, [checkForTab]    'reactivate timer
   wait

[clear] 'hide all windows
   for i = 0 to 3
       call MoveWindow winTab(i), 3000,3000,600,1000
   next
   return

[changeTime]
   Call SetText hStatus,4,time$()
   Call SetText hStatus,5,date$()
   insert = GetKeyState(_VK_INSERT)
   if insert = 0 then
       call SetText hStatus, 1, "INS OFF"
   else
       call SetText hStatus, 1, "INS ON"
   end if

   cupsLock=GetToggle(_VK_CAPITAL)
   if cupsLock=0 then
       call SetText hStatus, 2, "CUPS OFF"
   else
       call SetText hStatus, 2, "CUPS ON"
   end if

   numLock=GetToggle(_VK_NUMLOCK)
   if numLock=0 then
       call SetText hStatus, 3, "NUM OFF"
   else
       call SetText hStatus, 3, "NUM ON"
   end if
   WAIT

[dialogh]

'    notice "Please wait for the selection process to finish"
   o=0:p=0:q=0:r=0:s=0
   for a=0 to 2
   for b=0 to 2
   for c=0 to 2
   for d=0 to 2
   for e=0 to 2
   for f=0 to 2
   for g=0 to 2
   for h=0 to 2
   for i=0 to 2
   for j=0 to 2
   for k=0 to 2
   for l=0 to 2
   for m=0 to 2
   for n=0 to 2
   if b$(0, 0) = a$(a) then o=o+1
   if b$(0, 1) = a$(a) then p=p+1
   if b$(0, 2) = a$(a) then q=q+1

   if b$(1, 0) = a$(b) then o=o+1
   if b$(1, 1) = a$(b) then p=p+1
   if b$(1, 2) = a$(b) then q=q+1

   if b$(2, 0) = a$(c) then o=o+1
   if b$(2, 1) = a$(c) then p=p+1
   if b$(2, 2) = a$(c) then q=q+1

   if b$(3, 0) = a$(d) then o=o+1
   if b$(3, 1) = a$(d) then p=p+1
   if b$(3, 2) = a$(d) then q=q+1

   if b$(4, 0) = a$(e) then o=o+1
   if b$(4, 1) = a$(e) then p=p+1
   if b$(4, 2) = a$(e) then q=q+1

   if b$(5, 0) = a$(f) then o=o+1
   if b$(5, 1) = a$(f) then p=p+1
   if b$(5, 2) = a$(f) then q=q+1

   if b$(6, 0) = a$(g) then o=o+1
   if b$(6, 1) = a$(g) then p=p+1
   if b$(6, 2) = a$(g) then q=q+1

   if b$(7, 0) = a$(h) then o=o+1
   if b$(7, 1) = a$(h) then p=p+1
   if b$(7, 2) = a$(h) then q=q+1

   if b$(8, 0) = a$(i) then o=o+1
   if b$(8, 1) = a$(i) then p=p+1
   if b$(8, 2) = a$(i) then q=q+1

   if b$(9, 0) = a$(j) then o=o+1
   if b$(9, 1) = a$(j) then p=p+1
   if b$(9, 2) = a$(j) then q=q+1

   if b$(10, 0) = a$(k) then o=o+1
   if b$(10, 1) = a$(k) then p=p+1
   if b$(10, 2) = a$(k) then q=q+1

   if b$(11, 0) = a$(l) then o=o+1
   if b$(11, 1) = a$(l) then p=p+1
   if b$(11, 2) = a$(l) then q=q+1

   if b$(12, 0) = a$(m) then o=o+1
   if b$(12, 1) = a$(m) then p=p+1
   if b$(12, 2) = a$(m) then q=q+1

   if b$(13, 0) = a$(n) then o=o+1
   if b$(13, 1) = a$(n) then p=p+1
   if b$(13, 2) = a$(n) then q=q+1

   GenSyn = GenSyn + 1
   print #TB4.teb3, GenSyn

'If you press the (Esc) key you can close the program
   if keyState(27) then wait

   if o >= z(0) and o <= z(1) and p >= z(2) and p <= z(3) and q >= z(4) and q <= z(5) then
   gosub [epiloges]
   end if

   o=0:p=0:q=0
   next n:next m:next l:next k:next j:next i:next h:next g:next f:next e:next d:next c:next b:next a
wait

[epiloges]
open "Epiloges.txt" for append as #ep
   print #ep, b$(0, a); b$(1, b); b$(2, c); b$(3, d); b$(4, e); b$(5, f); b$(6, g); b$(7, h); b$(8, i); b$(9, j); b$(10, k); b$(11, l); b$(12, m); b$(13, n); " "
   close #ep
   Syn = Syn + 1
   print #TB4.teb1, b$(0, a); b$(1, b); b$(2, c); b$(3,d); b$(4, e); b$(5, f); b$(6, g); b$(7,h); b$(8, i); b$(9, j); b$(10, k); b$(11,l); b$(12, m); b$(13,n)
   print #TB4.teb2, Syn
return

FUNCTION GetToggle(Key)
   Toggle = 0
   CallDLL #user32, "GetKeyState",Key As long, Toggle As long
   GetToggle = Toggle
END FUNCTION

function keyState(keycode)
   calldll #user32, "GetAsyncKeyState", keycode AS long, state AS long
   if state <> 0 then keyState = 1 '1 = pressed
end function

Sub combo1Click handle$
   #handle$ "selection? Selected$"
   a$(0) = Selected$
   if a$(0)=" " then
   a$(0) = " "
   else
   end if
   'Selected$ contains text of item selected
   End Sub

Sub combo2Click handle$
   #handle$ "selection? Selected$"
   a$(1) = Selected$
   if a$(1)=" " then
   a$(1) = " "
   else
   end if
   'Selected$ contains text of item selected
   End Sub

Sub combo3Click handle$
   #handle$ "selection? Selected$"
   a$(2) = Selected$
   End Sub

Sub combo4Click handle$
   #handle$ "selection? Selected$"
   a$(3) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo5Click handle$
   #handle$ "selection? Selected$"
   a$(4) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo6Click handle$
   #handle$ "selection? Selected$"
   a$(5) = Selected$    'Selected$ contains text of item selected
   End Sub

Sub combo7Click handle$
   #handle$ "selection? Selected$"
   a$(6) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo8Click handle$
   #handle$ "selection? Selected$"
   a$(7) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo9Click handle$
   #handle$ "selection? Selected$"
   a$(8) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo10Click handle$
   #handle$ "selection? Selected$"
   a$(9) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo11Click handle$
   #handle$ "selection? Selected$"
   a$(10) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo12Click handle$
   #handle$ "selection? Selected$"
   a$(11) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo13Click handle$
   #handle$ "selection? Selected$"
   a$(12) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo14Click handle$
   #handle$ "selection? Selected$"
   a$(13) = Selected$
   'Selected$ contains text of item selected
   End Sub

Sub combo15Click handle$
   #handle$ "selection? Selected$"
   b$(0, 0) = Selected$
   if b$(0, 0) = b$(0, 1) or b$(0, 0) = b$(0, 2) then
       notice "Η Επιλογή σου είναι  "; b$(0, 0)
       b$(0, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
End Sub

Sub combo16Click handle$
   #handle$ "selection? Selected$"
   b$(1, 0) = Selected$
   if b$(1, 0) = b$(1, 1) or b$(1, 0) = b$(1, 2) then
       notice "Η Επιλογή σου είναι  "; b$(1, 0)
       b$(1, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
End Sub

Sub combo17Click handle$
   #handle$ "selection? Selected$"
   b$(2, 0) = Selected$
   if b$(2, 0) = b$(2, 1) or b$(2, 0) = b$(2, 2) then
       notice "Η Επιλογή σου είναι  "; b$(2, 0)
       b$(2, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   'Selected$ contains text of item selected
   End Sub

Sub combo18Click handle$
   #handle$ "selection? Selected$"
   b$(3, 0) = Selected$
   if b$(3, 0) = b$(3, 1) or b$(3, 0) = b$(3, 2) then
       notice "Η Επιλογή σου είναι  "; b$(3, 0)
       b$(3, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo19Click handle$
   #handle$ "selection? Selected$"
   b$(4, 0) = Selected$
   if b$(4, 0) = b$(4, 1) or b$(4, 0) = b$(4, 2) then
       notice "Η Επιλογή σου είναι  "; b$(4, 0)
       b$(4, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo20Click handle$
   #handle$ "selection? Selected$"
   b$(5, 0) = Selected$
   if b$(5, 0) = b$(5, 1) or b$(5, 0) = b$(5, 2) then
       notice "Η Επιλογή σου είναι  "; b$(5, 0)
       b$(5, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo21Click handle$
   #handle$ "selection? Selected$"
   b$(6, 0) = Selected$
   if b$(6, 0) = b$(6, 1) or b$(6, 0) = b$(6, 2) then
       notice "Η Επιλογή σου είναι  "; b$(6, 0)
       b$(6, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo22Click handle$
   #handle$ "selection? Selected$"
   b$(7, 0) = Selected$
   if b$(7, 0) = b$(7, 1) or b$(7, 0) = b$(7, 2) then
       notice "Η Επιλογή σου είναι  "; b$(7, 0)
       b$(7, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo23Click handle$
   #handle$ "selection? Selected$"
   b$(8, 0) = Selected$
   if b$(8, 0) = b$(8, 1) or b$(8, 0) = b$(8, 2) then
       notice "Η Επιλογή σου είναι  "; b$(8, 0)
       b$(8, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo24Click handle$
   #handle$ "selection? Selected$"
   b$(9, 0) = Selected$
   if b$(9, 0) = b$(9, 1) or b$(9, 0) = b$(9, 2) then
       notice "Η Επιλογή σου είναι  "; b$(9, 0)
       b$(9, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo25Click handle$
   #handle$ "selection? Selected$"
   b$(10, 0) = Selected$
   if b$(10, 0) = b$(10, 1) or b$(10, 0) = b$(10, 2) then
       notice "Η Επιλογή σου είναι  "; b$(10, 0)
       b$(10, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo26Click handle$
   #handle$ "selection? Selected$"
   b$(11, 0) = Selected$
   if b$(11, 0) = b$(11, 1) or b$(11, 0) = b$(11, 2) then
       notice "Η Επιλογή σου είναι  "; b$(11, 0)
       b$(11, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo27Click handle$
   #handle$ "selection? Selected$"
   b$(12, 0) = Selected$
   if b$(12, 0) = b$(12, 1) or b$(12, 0) = b$(12, 2) then
       notice "Η Επιλογή σου είναι  "; b$(12, 0)
       b$(12, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo28Click handle$
   #handle$ "selection? Selected$"
   b$(13, 0) = Selected$
   if b$(13, 0) = b$(13, 1) or b$(13, 0) = b$(13, 2) then
       notice "Η Επιλογή σου είναι  "; b$(13, 0)
       b$(13, 0) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo29Click handle$
   #handle$ "selection? Selected$"
   b$(0, 1) = Selected$
   if b$(0, 1) = b$(0, 0) or b$(0, 1) = b$(0, 2) then
       notice "Η Επιλογή σου είναι  "; b$(0, 1)
       b$(0, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo30Click handle$
   #handle$ "selection? Selected$"
   b$(1, 1) = Selected$
   if b$(1, 1) = b$(1, 0) or b$(1, 1) = b$(1, 2) then
       notice "Η Επιλογή σου είναι  "; b$(1, 0)
       b$(1, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo31Click handle$
   #handle$ "selection? Selected$"
   b$(2, 1) = Selected$
   if b$(2, 1) = b$(2, 0) or b$(2, 1) = b$(2, 2) then
       notice "Η Επιλογή σου είναι  "; b$(2, 0)
       b$(2, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo32Click handle$
   #handle$ "selection? Selected$"
   b$(3, 1) = Selected$
   if b$(3, 1) = b$(3, 0) or b$(3, 1) = b$(3, 2) then
       notice "Η Επιλογή σου είναι  "; b$(3, 0)
       b$(3, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo33Click handle$
   #handle$ "selection? Selected$"
   b$(4, 1) = Selected$
   if b$(4, 1) = b$(4, 0) or b$(4, 1) = b$(4, 2) then
       notice "Η Επιλογή σου είναι  "; b$(4, 0)
       b$(4, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo34Click handle$
   #handle$ "selection? Selected$"
   b$(5, 1) = Selected$
   if b$(5, 1) = b$(5, 0) or b$(5, 1) = b$(5, 2) then
       notice "Η Επιλογή σου είναι  "; b$(5, 0)
       b$(5, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo35Click handle$
   #handle$ "selection? Selected$"
   b$(6, 1) = Selected$
   if b$(6, 1) = b$(6, 0) or b$(6, 1) = b$(6, 2) then
       notice "Η Επιλογή σου είναι  "; b$(6, 0)
       b$(6, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo36Click handle$
   #handle$ "selection? Selected$"
   b$(7, 1) = Selected$
   if b$(7, 1) = b$(7, 0) or b$(7, 1) = b$(7, 2) then
       notice "Η Επιλογή σου είναι  "; b$(7, 0)
       b$(7, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo37Click handle$
   #handle$ "selection? Selected$"
   b$(8, 1) = Selected$
   if b$(8, 1) = b$(8, 0) or b$(8, 1) = b$(8, 2) then
       notice "Η Επιλογή σου είναι  "; b$(8, 0)
       b$(8, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo38Click handle$
   #handle$ "selection? Selected$"
   b$(9, 1) = Selected$
   if b$(9, 1) = b$(9, 0) or b$(9, 1) = b$(9, 2) then
       notice "Η Επιλογή σου είναι  "; b$(9, 0)
       b$(9, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo39Click handle$
   #handle$ "selection? Selected$"
   b$(10, 1) = Selected$
   if b$(10, 1) = b$(10, 0) or b$(10, 1) = b$(10, 2) then
       notice "Η Επιλογή σου είναι  "; b$(10, 0)
       b$(10, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo40Click handle$
   #handle$ "selection? Selected$"
   b$(11, 1) = Selected$
   if b$(11, 1) = b$(11, 0) or b$(11, 1) = b$(11, 2) then
       notice "Η Επιλογή σου είναι  "; b$(11, 0)
       b$(11, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo41Click handle$
   #handle$ "selection? Selected$"
   b$(12, 1) = Selected$
   if b$(12, 1) = b$(12, 0) or b$(12, 1) = b$(12, 2) then
       notice "Η Επιλογή σου είναι  "; b$(12, 0)
       b$(12, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo42Click handle$
   #handle$ "selection? Selected$"
   b$(13, 1) = Selected$
   if b$(13, 1) = b$(13, 0) or b$(13, 1) = b$(13, 2) then
       notice "Η Επιλογή σου είναι  "; b$(13, 0)
       b$(13, 1) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo43Click handle$
   #handle$ "selection? Selected$"
   b$(0, 2) = Selected$
   if b$(0, 2) = b$(0, 0) or b$(0, 2) = b$(0, 1) then
       notice "Η Επιλογή σου είναι  "; b$(0, 2)
       b$(0, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo44Click handle$
   #handle$ "selection? Selected$"
   b$(1, 2) = Selected$
   if b$(1, 2) = b$(1, 0) or b$(1, 2) = b$(1, 1) then
       notice "Η Επιλογή σου είναι  "; b$(1, 2)
       b$(1, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo45Click handle$
   #handle$ "selection? Selected$"
   b$(2, 2) = Selected$
   if b$(2, 2) = b$(2, 0) or b$(2, 2) = b$(2, 1) then
       notice "Η Επιλογή σου είναι  "; b$(2, 2)
       b$(2, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo46Click handle$
   #handle$ "selection? Selected$"
   b$(3, 2) = Selected$
   if b$(3, 2) = b$(3, 0) or b$(3, 2) = b$(3, 1) then
       notice "Η Επιλογή σου είναι  "; b$(3, 2)
       b$(3, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo47Click handle$
   #handle$ "selection? Selected$"
   b$(4, 2) = Selected$
   if b$(4, 2) = b$(4, 0) or b$(4, 2) = b$(4, 1) then
       notice "Η Επιλογή σου είναι  "; b$(4, 2)
       b$(4, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo48Click handle$
   #handle$ "selection? Selected$"
   b$(5, 2) = Selected$
   if b$(5, 2) = b$(5, 0) or b$(5, 2) = b$(5, 1) then
       notice "Η Επιλογή σου είναι  "; b$(5, 2)
       b$(5, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo49Click handle$
   #handle$ "selection? Selected$"
   b$(6, 2) = Selected$
   if b$(6, 2) = b$(6, 0) or b$(6, 2) = b$(6, 1) then
       notice "Η Επιλογή σου είναι  "; b$(6, 2)
       b$(6, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo50Click handle$
   #handle$ "selection? Selected$"
   b$(7, 2) = Selected$
   if b$(7, 2) = b$(7, 0) or b$(7, 2) = b$(7, 1) then
       notice "Η Επιλογή σου είναι  "; b$(7, 2)
       b$(7, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo51Click handle$
   #handle$ "selection? Selected$"
   b$(8, 2) = Selected$
   if b$(8, 2) = b$(8, 0) or b$(8, 2) = b$(8, 1) then
       notice "Η Επιλογή σου είναι  "; b$(8, 2)
       b$(8, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo52Click handle$
   #handle$ "selection? Selected$"
   b$(9, 2) = Selected$
   if b$(9, 2) = b$(9, 0) or b$(9, 2) = b$(9, 1) then
       notice "Η Επιλογή σου είναι  "; b$(9, 2)
       b$(9, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo53Click handle$
   #handle$ "selection? Selected$"
   b$(10, 2) = Selected$
   if b$(10, 2) = b$(10, 0) or b$(10, 2) = b$(10, 1) then
       notice "Η Επιλογή σου είναι  "; b$(10, 2)
       b$(10, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo54Click handle$
   #handle$ "selection? Selected$"
   b$(11, 2) = Selected$
   if b$(11, 2) = b$(11, 0) or b$(11, 2) = b$(11, 1) then
       notice "Η Επιλογή σου είναι  "; b$(11, 2)
       b$(11, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo55Click handle$
   #handle$ "selection? Selected$"
   b$(12, 2) = Selected$
   if b$(12, 2) = b$(12, 0) or b$(12, 2) = b$(12, 1) then
       notice "Η Επιλογή σου είναι  "; b$(12, 2)
       b$(12, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

Sub combo56Click handle$
   #handle$ "selection? Selected$"
   b$(13, 2) = Selected$
   if b$(13, 2) = b$(13, 0) or b$(13, 2) = b$(13, 1) then
       notice "Η Επιλογή σου είναι "; b$(13, 2)
       b$(13, 2) = " "
       notice "Επέλεξε Ξανά:"
   end if
   End Sub

SUB MakeTooltips hWin
   TTS.ALWAYSTIP = 1 : TTS.NOPREFIX = 2 : TTF.IDISHWND = 1
   TTF.CENTERTIP = 2 : TTF.SUBCLASS = 16: TTM.ADDTOOL = 1028
   style = _WS_POPUP or TTS.NOPREFIX or TTS.ALWAYSTIP
   calldll #comctl32,"InitCommonControls", re as void
   calldll #user32, "GetWindowLongA", hWin as long, _GWL_HINSTANCE as long, hInstance as long
   calldll #user32, "CreateWindowExA", _WS_EX_TOPMOST as long,"tooltips_class32" as ptr, " " as ptr,_
       style as long, _CW_USEDEFAULT as long, _CW_USEDEFAULT as long, _CW_USEDEFAULT as long, _CW_USEDEFAULT as long,_
       hWin as long, 0 as long, hInstance as long, "" as ptr, hwndTT as long
   flags=_SWP_NOMOVE or _SWP_NOSIZE or _SWP_NOACTIVATE
   calldll #user32, "SetWindowPos", hwndTT as long,_HWND_TOPMOST as long, 0 as long, 0 as long,_
   0 as long, 0 as long, flags as long, r as long

   'create a struct for the tooltips:
   struct toolinfo, cbSize as long, uFlags as long, hWindow as long, uId as long, x as long, y as long,_
   w as long, h as long, hInst as long, lpstrText$ as ptr
   toolinfo.cbSize.struct = len(toolinfo.struct)
   toolinfo.uFlags.struct = TTF.IDISHWND Or TTF.SUBCLASS
   toolinfo.hWindow.struct = hWin

  'Textbox TB3.tb1 Tooltip:
   toolinfo.uId.struct = hwnd(#TB3.teb1)
   toolinfo.lpstrText$.struct = "Πόσους Άσσους (Μίνιμουμ)"  '*** CHANGE TOOLTIP TEXT HERE!
   calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

  'Textbox TB3.tb2 Tooltip:
   toolinfo.uId.struct = hwnd(#TB3.teb2)
   toolinfo.lpstrText$.struct = "Πόσους Άσσους (Μάξιμουμ)"  '*** CHANGE TOOLTIP TEXT HERE!
   calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

  'Textbox TB3.tb3 Tooltip:
   toolinfo.uId.struct = hwnd(#TB3.teb3)
   toolinfo.lpstrText$.struct = "Πόσα 'Χ' (Μίνιμουμ)"  '*** CHANGE TOOLTIP TEXT HERE!
   calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

  'Textbox TB3.tb4 Tooltip:
   toolinfo.uId.struct = hwnd(#TB3.teb4)
   toolinfo.lpstrText$.struct = "Πόσα 'Χ' (Μάξιμουμ)"  '*** CHANGE TOOLTIP TEXT HERE!
   calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

  'Textbox TB3.tb5 Tooltip:
   toolinfo.uId.struct = hwnd(#TB3.teb5)
   toolinfo.lpstrText$.struct = "Πόσα '2' (Μίνιμουμ)"  '*** CHANGE TOOLTIP TEXT HERE!
   calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

  'Textbox TB3.tb6 Tooltip:
   toolinfo.uId.struct = hwnd(#TB3.teb6)
   toolinfo.lpstrText$.struct = "Πόσα '2' (Μάξιμουμ)"  '*** CHANGE TOOLTIP TEXT HERE!
   calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

END SUB

SUB MakeTooltips1 hWin
   TTS.ALWAYSTIP = 1 : TTS.NOPREFIX = 2 : TTF.IDISHWND = 1
   TTF.CENTERTIP = 2 : TTF.SUBCLASS = 16: TTM.ADDTOOL = 1028
   style = _WS_POPUP or TTS.NOPREFIX or TTS.ALWAYSTIP
   calldll #comctl32,"InitCommonControls", re as void
   calldll #user32, "GetWindowLongA", hWin as long, _GWL_HINSTANCE as long, hInstance as long
   calldll #user32, "CreateWindowExA", _WS_EX_TOPMOST as long,"tooltips_class32" as ptr, "" as ptr,_
       style as long, _CW_USEDEFAULT as long, _CW_USEDEFAULT as long, _CW_USEDEFAULT as long, _CW_USEDEFAULT as long,_
       hWin as long, 0 as long, hInstance as long, "" as ptr, hwndTT as long
   flags=_SWP_NOMOVE or _SWP_NOSIZE or _SWP_NOACTIVATE
   calldll #user32, "SetWindowPos", hwndTT as long,_HWND_TOPMOST as long, 0 as long, 0 as long, 0 as long, 0 as long, flags as long, r as long

   'create a struct for the tooltips:
   struct toolinfo, cbSize as long, uFlags as long, hWindow as long, uId as long, x as long, y as long, w as long, h as long, hInst as long, lpstrText$ as ptr
   toolinfo.cbSize.struct = len(toolinfo.struct)
   toolinfo.uFlags.struct = TTF.IDISHWND Or TTF.SUBCLASS
   toolinfo.hWindow.struct = hWin

  'Button TB4.bt1 Tooltip:
   toolinfo.uId.struct = hwnd(#TB4.bt1)
   toolinfo.lpstrText$.struct = "Διαλογή στηλών"  '*** CHANGE TOOLTIP TEXT HERE!
   calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

  'Textbox TB4.teb1 Tooltip:
   toolinfo.uId.struct = hwnd(#TB4.teb1)
   toolinfo.lpstrText$.struct = "Enter text here."  '*** CHANGE TOOLTIP TEXT HERE!
   calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

END SUB

Sub SetText hWnd,segID,txt$
   SB.SETTEXT  = 1025
   calldll #user32,  "SendMessageA",_
   hWnd as ulong,SB.SETTEXT as long,_
   segID as long,txt$ as ptr,r as long
End Sub

Function GetKeyState(key)

   CallDLL #user32, "GetKeyState", key As long, GetKeyState As long

End Function


FUNCTION MakeStatusBar(hWin, caption$)
   style = _WS_VISIBLE or _WS_CHILD
   CALLDLL #comctl32,"InitCommonControls", re as void
   CALLDLL #comctl32,"CreateStatusWindow", style as long, caption$ as ptr, hWin as long, 22 as long, hBar as long
   SB.SETPARTS = 1028
   STRUCT prt,edge1 as long,edge2 as long,edge3 as long,edge4 as long,edge5 as long,edge6 as long
   'change measurements below as needed:
   sizePanel = Int(WindowWidth / 30) 'divide WindowWidth by number of panels
   prt.edge1.struct = sizePanel * 12
   prt.edge2.struct = sizePanel * 15
   prt.edge3.struct = sizePanel * 18
   prt.edge4.struct = sizePanel * 22
   prt.edge5.struct = sizePanel * 25
   prt.edge6.struct = -1
   numParts = 6
   CALLDLL #user32,  "SendMessageA", hBar as long, SB.SETPARTS as long, numParts As Long, prt As struct, r As Long
   MakeStatusBar = hBar
END FUNCTION

'----------------------------------------------------------------------------------

[STOPIT]
 CLOSE #WIN
 CLOSE #TAB
 CLOSE #TB1
 CLOSE #TB2
 CLOSE #TB3
 CLOSE #TB4
 CLOSE #TB5
 END
'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------

Sub MoveWindow hWnd,x,y,w,h
   CallDLL #user32, "MoveWindow",hWnd As uLong,_
        x As Long, y As Long,w As Long, h As Long,_
        1 As Boolean, r As Boolean
End Sub

[ResizeStatus]

   RetVal = 0
   WinHndl = HWND(#WIN)
   CALLDLL #TAB, "UpdateTab", TabHndl AS ULONG, RetVal AS VOID
   SB.SETPARTS = 1028
   STRUCT prt, edge1 as long, edge2 as long, edge3 as long, edge4 as long, edge5 as long, edge6 as long
   sizePanel = Int(WindowWidth / 30) 'divide WindowWidth by number of panels
   prt.edge1.struct = sizePanel * 12
   prt.edge2.struct = sizePanel * 15
   prt.edge3.struct = sizePanel * 18
   prt.edge4.struct = sizePanel * 22
   prt.edge5.struct = sizePanel * 25
   prt.edge6.struct = -1
   numParts = 6
CALLDLL #user32,  "SendMessageA", hStatus as long, SB.SETPARTS as long, numParts As Long, prt As struct, r As Long
CALLDLL #user32, "SendMessageA", hStatus as long, _WM_SIZE as long, 0 as long, WindowWidth as long, re as long
WAIT







Gaslouk

[gaslouk]

I would also like to raise the issue of the insert key, which I could not solve, although I tried hard.

In the status bar I show the status of the insert key.
but even though the state of the key shows whether it is on or off, it is permanently in on state.
And I do not know how to pronounce this.

regards

Gaslouk

[Walt Decker]

As to the first question, what do you want to do?:

1: add to the contents of the list box
2: check if the item entered by the user is in the list
3: use the item entered
4: use the item entered and add to the list

As to the second question I think you can do it this way:

FOR I = 0 TO 13
 FOR J = 0 TO 13
   SELECT CASE
     CASE b$(I, 0) = a$(J)
       o = o +1  
     CASE b$(I, 1) = a$(J)
       p = p + 1
     CASE b$(I, 2) = a$(J)
       q = q + 1
   END SELECT
 NEXT J
NEXT I


As to the insert key, you did not copy the functions correctly. Go back and copy the functions exactly as I wrote them.

It looks like you are using the tab control dll I wrote. If so you have some major problems.

First, you are giving the control the same index value for each tab. The tab indices have to be increased by one for each tab in the specified control.

There may be other problems.

EDIT:  I think there are ways to cut down on the amount of code used.  I will look into it and, perhaps, make some suggestions.

[gaslouk]

Hi.

Walt Decker thank you for the effort but you did not understand. The problem is that I have 14 "3" in each other. That is, 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 or "3" in the fourteenth quarter. They are predictions of European football matches.
Each pair of teams can either win one of the two or not win either.
Now each pair plays in a field. which is owned by one of the two groups. The team that has the pitch in its possession if it wins gets the symbol "1" If the team that does not own the pitch wins the symbol gets the symbol "2" If it does not win either of them gets the symbol "X".
It's 14 games where the odds of winning are "3" odds for each team
that is, 3 raised to "14" = 4.782.969 results.

Anyway, thank you for your effort.
Now to my first question about listbox.
1st I check the arrow and a selection menu opens.
2nd I check the arrow twice and after the keyboard (keypad) with the arrow down or down we navigate the menu without it being open.
Now in the 3rd I can click not on the listbox arrow but in the space where the data is placed and there to write data from the keyboard to the variable I want to get. (Compatible with variable). When I do this 3rd the data is not entered in the variable. And I ask is this way of entering data wrong and if so why is it allowed?

Try it

Regards
Gaslouk

[tsh73]

About combo box
Text entered could be gathered with
print #handle.ext, "contents? text$"

   nomainwin

   WindowWidth = 550
   WindowHeight = 410

   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)

  a$(1) = "one"
  a$(2) = "two"
  a$(3) = "three"
  a$(4) = "four"

   combobox #main.combo, a$(, [combobox1DoubleClick], 30, 51, 100, 100
   button #main.button2, "Check", [button2Click], UL, 22, 16, 122, 25
   texteditor #main.log, 166, 16, 360, 330
   menu #main, "Edit"    '<--- Texteditor Menu can be moved but not removed.

   open "untitled" for window as #main
   print #main, "trapclose [quit.main]"

   print #main, "font ms_sans_serif 10"

   wait

[quit.main]
   Close #main
   END


[combobox1DoubleClick]    'Perform action for the combobox named 'combobox1'
  #main.combo "selection? sel$"
  #main.log "You chose ";sel$
  wait


[button2Click]    'Perform action for the button named 'button2'
  #main.combo "contents? text$"
  #main.log "You Have entered ";text$
   wait



[gaslouk]

hello tsh73.

Thank you very much for your help. This way the listbox becomes something like a textbox.

Regards

Gaslouk.

[tsh73]

This way the listbox becomes something like a textbox.

combo box == textbox (above) + pop-out listbox underneath.
By definition.


About 3^14
what exactly that code supposed to do?
What are inputs, what are output?
What are the data in a$(), b$()?

If say data set by user via comboboxes,
then user already did select 1 of 3^14,
and programming task becames to calculate something over that *single* variant.

Because frankly if your code going to loop through 4e6 variants, it will take forever and a half.

[gaslouk]

Hello tsh73

I will try to explain exactly what "3 ^ 14" is.
I have 14 football games in one day. each race will have one of three final values ​​that depend on the following factors.
Factor one: The team that wins if it is at home, will get the value "1".
Factor 2: If he is in the seat of the other team and beats the team, the value he will get is = "2".
Factor 3: Now if no team wins the value it will get will be = "X".
First match for each of the 14 matches will be or "1"
So the first column that will be created will be "11111111111111" the 2nd "1111111111111X" the third "11111111111112" 4rth "111111111111X1" etc etc etc.

Regaeds

Gaslouk

[tsh73]

So the first column that will be created will be "11111111111111" the 2nd "1111111111111X" the third "11111111111112" 4rth "111111111111X1"

so do you really need program to generate these 3^14 strings?

[Walt Decker]

I think I understand about the comboboxs.

Your want to check the contents of the input field without opening the combobox and clicking on an item in the list. Is that correct?

If so, that can be done, but it will have to be accomplished using a timer event. I will whip up some code to accomplish that. Liberty Basic responds to a limited type of events and CBN_CHANGE is not one of them.

[Walt Decker]

Check for combobox input
'
[GLOBALS]
GLOBAL LoVal

GLOBAL PropKey$

DIM a$(13), b$(13, 2), z(14)
DIM Combo1.14$(3)

[INIT.GLOBALS]
LoVal = 1000
PropKey$ = "ID"

Combo1.14$(0) = " "
Combo1.14$(1) = "1"
Combo1.14$(2) = "X"
Combo1.14$(3) = "2"

combobox    #TB1.combo1,Combo1.14$(), COMBO.CLICK, 160, 55, 30, 300
combobox    #TB1.combo2,Combo1.14$(), COMBO.CLICK, 160, 80, 30, 300
combobox    #TB1.combo3,Combo1.14$(), COMBO.CLICK, 160, 105, 30, 300
combobox    #TB1.combo4,Combo1.14$(), COMBO.CLICK, 160, 130, 30, 300
combobox    #TB1.combo5,Combo1.14$(), COMBO.CLICK, 160, 155, 30, 300
combobox    #TB1.combo6,Combo1.14$(), COMBO.CLICK, 160, 180, 30, 300
combobox    #TB1.combo7,Combo1.14$(), COMBO.CLICK, 160, 205, 30, 300
combobox    #TB1.combo8,Combo1.14$(), COMBO.CLICK, 160, 230, 30, 300
combobox    #TB1.combo9,Combo1.14$(), COMBO.CLICK, 160, 255, 30, 300
combobox    #TB1.combo10,Combo1.14$(), COMBO.CLICK, 160, 280, 30, 300
combobox    #TB1.combo11,Combo1.14$(), COMBO.CLICK, 160, 305, 30, 300
combobox    #TB1.combo12,Combo1.14$(), COMBO.CLICK, 160, 330, 30, 300
combobox    #TB1.combo13,Combo1.14$(), COMBO.CLICK, 160, 355, 30, 300
combobox    #TB1.combo14,Combo1.14$(), COMBO.CLICK, 160, 380, 30, 300

OPEN "Fixed Column Introduction" FOR WINDOW AS #TB1 '_popup
   #TB1 "trapclose [STOPIT]"

'#############################################################
'  Liberty Basic provides very little information when events
'  are generated.  To enable the use of one procedure for a
'  group of similar controls we can use the property sheet
'  for each control to assign numbers to each of the controls.
'  With a little subtraction we can equate each of the comboboxes
'  to an element of the a$() array.
'#############################################################

HiVal = FN.DoProp("#TB1.combo", 14, LoVal) '<--- assign numbers to the
                                          'comboboxes

[START.TIMER]
TIMER 1000, [CHANGE.TIME]
WAIT

'------------------------------------------
'------------------------------------------

[STOPIT]
CLOSE #TB1
END
[END.STOPIT]

'-------------------------------------
'-------------------------------------

SUB COMBO.CLICK CmboHndl$

CtlHndl = 0
IdVal = 0

TxtFirst$ = ""
TxtSecond$ = " "

CtlHndl = HWND(#CmboHndl$)  '<--- get the numeric handle of the combobox
IdVal = FN.GetProp(CtlHndl, PropKey$) '<--- retrieve the number assigned
                                     'to this combobox
IdVal = IdVal - LoVal '<--- subtract the lowest value (1000) from
                     'the assigned number.  This will be one of
                     'the elements of the a$() array

PRINT #CmboHndl$, "contents? TxtFirst$" '<--- get the contents of the
                                       'input field (edit box)

IF TxtFirst$ <> "" THEN '<--- check for validity of input field
 PRINT #CmboHndl$, "select "; TxtFirst$   '<--- search for input string
                                          'and, if valid, select it
 PRINT #CmboHndl$, "selection? TxtSecond$" '<--- select the item and
                                           'put it in the second.  If
                                           'the selection is invalid
                                           'TxtSecond$ will be empty
END IF

IF TxtSecond$ = "" THEN '<--- invalid entry
 PRINT "INVALID SELECTION"
 EXIT SUB
END IF

IF TxtSecond$ <> " " THEN '<--- valid selection
 a$(IdVal) = TxtFirst$
 PRINT TxtFirst$
 PRINT #CmboHndl$, "selectindex ";0
END IF

END SUB

'-------------------------------------
'-------------------------------------


[CHANGE.TIME]
TIMER 0

RetVal = 0
RetVal = FN.CheckCombo("#TB1.combo", 14) '<--- parse the comboboxes for
                                        'selections

GOTO [START.TIMER]
[END.CHANGE.TIME]

'-------------------------------------
'-------------------------------------

FUNCTION FN.DoProp(Tag$, NumCtls, Id)
'<----- parse the comboboxes and set property sheet for each ----------->
CtlHndl = 0
RetVal  = 0

NewTag$ = ""
Id = Id - 1

FOR I = 1 TO NumCtls
 Id = Id + 1
 NewTag$ = Tag$ + STR$(I)
 CtlHndl = HWND(#NewTag$)
 RetVal = FN.SetProp(CtlHndl, PropKey$, Id)
NEXT I

FN.DoProp = Id
END FUNCTION

'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------

FUNCTION FN.SetProp(CtlHndl, Key$, Value)
'<--------- set a property in the property sheet for the control --------->
RetVal = 0
CALLDLL #user32, "SetPropA", CtlHndl AS ULONG, Key$ AS PTR, Value AS LONG, _
                 RetVal AS VOID

END FUNCTION

'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------

FUNCTION FN.GetProp(CtlHndl, Key$)
'<-------- retrieve the value from the control property sheet ---------->
Value = 0
CALLDLL #user32, "GetPropA", CtlHndl AS ULONG, Key$ AS PTR, Value AS LONG

FN.GetProp = Value
END FUNCTION

'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------

FUNCTION FN.CheckCombo(Tag$, NumCtls)
'<-------- parse the comboboxes for input ------>
NewTag$ = ""
FOR I = 1 TO NumCtls
 NewTag$ = Tag$ + STR$(I)
 CALL COMBO.CLICK NewTag$
NEXT I

END FUNCTION


[Walt Decker]

Ok, there are 14 teams and a minimum of 14 games. Do teams play against each other more than once?

[Walt Decker]

I think you are trying to make it too complicated. If teams play against each other only once, just make a lookup table and parse the lookup table to create your string. For example:

DIM Lookup$(13, 1)

Lookup$(13, 0) = "2" '<--- team 14 won
Lookup$(13, 1) = "7" '<--- team 14 played team 8 at team 8's home field
Lookup$(7, 0) = "0"  '<--- team 8 lost
Lookup(7, 1) = "13)  '<--- team 8 played at home against team 14


Looking at it this way you need one more value in you string to indicate loss.
So, all you have to do is go through the lookup table and generate your string directly.

In addition, using a lookup table gives you more information. You could even add a field for something unusual like stopping the game because of a torrential rain or volcano explosion.

EDIT:  At the start of the season all teams should have "0" wins, not "1".

[gaslouk]

Apr 14, 2022 13:15:19 GMT -5 Walt Decker said:

Ok, there are 14 teams and a minimum of 14 games. Do teams play against each other more than once?

Hello walt.

There are 28 teams playing 14 games in 1 day per couples. the other period the same but different couple. There are 106 seasons a year. The program deals with 1 period at a time.

regards

Gaslouk

[gaslouk]

Apr 14, 2022 14:05:17 GMT -5 Walt Decker said:

I think you are trying to make it too complicated. If teams play against each other only once, just make a lookup table and parse the lookup table to create your string. For example:

DIM Lookup$(13, 1)

Lookup$(13, 0) = "2" '<--- team 14 won
Lookup$(13, 1) = "7" '<--- team 14 played team 8 at team 8's home field
Lookup$(7, 0) = "0"  '<--- team 8 lost
Lookup(7, 1) = "13)  '<--- team 8 played at home against team 14


Looking at it this way you need one more value in you string to indicate loss.
So, all you have to do is go through the lookup table and generate your string directly.

In addition, using a lookup table gives you more information. You could even add a field for something unusual like stopping the game because of a torrential rain or volcano explosion.

EDIT:  At the start of the season all teams should have "0" wins, not "1".

Hello Walt

there are 106 periods a year the program deals with one period out of 106 exclusively. So I have a 2 dimensional table 14 by 3 ok! That is, for each group pair there are 3 possible situations. Home win "1" or non-home win "2" or no win "X"

If it were two games a day you would have 9 possible results. "11" "1Χ" "12" "Χ1" "ΧΧ" "Χ2" "21" "2Χ" "22" That is 3 ^ 3 For 3 games is 3^3^3 etc etc etc.
Now all this swamp 3 possible results for each of the 14 matches is 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 ^ 3 = 4,782,969 possible columns results from 14 points per column.

Regards

Gaslouk.