The hardest part maybe!!!

new

« Prev
1
Next »

gaslouk
Full Member

Hi from beautiful Greece.

Posts: 130

The hardest part maybe!!! Apr 17, 2022 0:25:15 GMT -5

Quote

Post by gaslouk on Apr 17, 2022 0:25:15 GMT -5

Hello from beautiful Greece.

Now I'm in a critical part of the program where I have to do a variable capacity combination.
It is a prediction of the results of the matches, that is, before the match I guess the final result I can not know about all the matches for each of the 14 teams will win or a pair of teams will draw.
For 3 or more pairs I can be almost sure of the result of the pair, but for other matches I may not have an overall picture of the result.
I can say with confidence that: the pairs 3, 5, 6, 9, 12,13 I have a definite result (standard).
But for the pairs 1, 4, 7, 10, 14 I am not completely sure about the standard and I need one more point, that is, for the specific matches I need a pair of points "1X 'or" 12 "or' X2" (Double)
For the other matches I can not calculate any result and for this I need to put all three points. That is, "1X2" (Triple)

And to configure the following system.

1X = c$(0.0), c$(0.1
1Χ2 = c$(1,0), c$(1,1), c$(1,2)
1 = c$(2.0)
2Χ = c$(3,0), c$(3,1)
X = c$(4.0)
1 = c$(5.0)
1X = c$(6.0), c$(6.1)
X2 = c$(7.0), c$(7.1)
1X2 = c$(8.0), c$(8.1), c$(8.2)
1 = c$(9.0)
12 = c$(10.0), c$(10.1)
1X2 = c$(11.0), c$(11.1), c$(11.2)
1 = c$(12.0)
X = c$(13.0)
12 = c$(14.0), c$(14.1)

How can I define it in liberty basic?

regards

Gaslouk

Last Edit: Apr 17, 2022 1:33:42 GMT -5 by gaslouk

Rod
Global Moderator

Posts: 2,621

The hardest part maybe!!! Apr 17, 2022 8:08:59 GMT -5 via mobile

Quote

Post by Rod on Apr 17, 2022 8:08:59 GMT -5

I think you need a history. So team 1 will have a history of match outcomes against team 2-14 I would keep this history as a string “1121x11200” so this string represents the outcome of team 1 against team 2 for the last ten matches. So you would have thirteen such strings for team 1. Thirteen for team 2 etc

Dim outcome$(14 14)

Then when you want to know what happened with team 5 v team 6 you just retrieve the outcome$(5,6) string.

Use mid$(outcome$(5,6),1,3) to get the last three match outcomes or however many more you want.

Running Win11 11th Gen Intel(R) Core(TM) i5-1135G7 @ 2.40GHz 2.42 GHz 64bit with 32Gb ram

Walt Decker
Guru

There are no negatives in nature.

Posts: 956

The hardest part maybe!!! Apr 17, 2022 9:14:09 GMT -5

Quote

Post by Walt Decker on Apr 17, 2022 9:14:09 GMT -5

The history is exactly what this does


DIM Lookup$(28, 2)

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

First match team 14 = 0000000200000000000000000000
First match team 8 = 0000000000000L00000000000000

The string is obtained from Lookup$(N, 2) and is initially 000000000000000000000000000. All that is required is a substitution of win, loss, tie (draw) in the correct place for the respective teams at the end of the contest.

There are 28 positions in each string because there are 28 teams. I assume that each team plays a team one time.

If the purpose of the application is to predict the outcome of a game before it is played it must be done on a team ranking (along with other factors). The string for each team produces a team ranking.

Last Edit: Apr 17, 2022 9:23:52 GMT -5 by Walt Decker

gaslouk
Full Member

Hi from beautiful Greece.

Posts: 130

The hardest part maybe!!! Apr 17, 2022 9:44:19 GMT -5

Quote

Post by gaslouk on Apr 17, 2022 9:44:19 GMT -5

Apr 17, 2022 8:08:59 GMT -5 Rod said:

Rod AND Walt.

thank you very much but I do not need this at this time.

Now I need:
1st a variable that I do not use all its positions.
That is, one c$(13.2) 14 columns 3 rows
Each row has 3 positions but I do not need all 3 positions.

I need either one position or two positions or three positions in this row.

And in the design part I want a pointer that I will use to alternate between forms when I set values to my variable.

I will try to write a program in GW to understand exactly what I want to throw.

print "entrance data in variable a$"
DIM a$(13,2)

[aka]
for a=0 to 13
'game one
input "Stantard=1 Double=2 Triple=3";z
if z<1 or z>3 then [aka]
if z=1 then gosub [aaa]
if z=2 then gosub [bbb]
if z=3 then gosub [ccc]
next

wait

[aaa]
input "Stantard: ";b$
a$(a,0)=b$

return

[bbb]
input "1 of double: ";b$
a$(a,0)=b$

input "2 of double: ";b$
a$(a,1)=b$

return

[ccc]

a$(a,0)="1": a$(a,1)="X": a$(a,2)="2"

return

Regards

Gaslouk

Last Edit: Apr 17, 2022 9:53:58 GMT -5 by gaslouk

gaslouk
Full Member

Hi from beautiful Greece.

Posts: 130

The hardest part maybe!!! Apr 17, 2022 10:12:03 GMT -5

Quote

Post by gaslouk on Apr 17, 2022 10:12:03 GMT -5

The program so far is this.



GlOBAL hwndTabControl1
True = 1 : False = 0
Syn = 0
GenSyn = 0
GenSyn$ = " "
global a$, b$, z
    dim a$(13), b$(13, 2), c$(13,2), z(14)

NOmainWIN

open "C:\Users\loyka\Documents\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, "Έξοδος", "Έξοδος", [STOPIT]

statictext  #TB1.st15, "Εισαγωγή Στήλης Διαλογής", 30, 05, 245, 25

STYLEBITS #TB1.rb1, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb15, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb29, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb1, "Αγώνας 1ος", 10, 20, 120, 40
radiobutton #TB1.rb1, "1", rad1, dummy, 20, 35, 30, 20
radiobutton #TB1.rb15, "X", rad1, dummy, 60, 35, 30, 20
radiobutton #TB1.rb29, "2", rad1, dummy, 100, 35, 30, 20

STYLEBITS #TB1.rb2, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb16, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb30, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb2, "Αγώνας 2ος", 10, 55, 120, 40
radiobutton #TB1.rb2, "1", rad2, dummy, 20, 70, 35, 20
radiobutton #TB1.rb16, "X", rad2, dummy, 60, 70, 35, 20
radiobutton #TB1.rb30, "2", rad2, dummy, 100, 70, 35, 20

STYLEBITS #TB1.rb3, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb17, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb31, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb3, "Αγώνας 3ος", 10, 90, 120, 35
radiobutton #TB1.rb3, "1", rad3, dummy, 20, 105, 35, 20
radiobutton #TB1.rb17, "X", rad3, dummy, 60, 105, 35, 20
radiobutton #TB1.rb31, "2", rad3, dummy, 100, 105, 35, 20

STYLEBITS #TB1.rb4, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb18, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb32, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb4, "Αγώνας 4ος", 10, 125, 120, 35
radiobutton #TB1.rb4, "1", rad4, dummy, 20, 140, 35, 20
radiobutton #TB1.rb18, "X", rad4, dummy, 60, 140, 35, 20
radiobutton #TB1.rb32, "2", rad4, dummy, 100, 140, 35, 20

STYLEBITS #TB1.rb5, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb19, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb33, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb5, "Αγώνας 5ος", 10, 160, 120, 35
radiobutton #TB1.rb5, "1", rad5, dummy, 20, 175, 35, 20
radiobutton #TB1.rb19, "X", rad5, dummy, 60, 175, 35, 20
radiobutton #TB1.rb33, "2", rad5, dummy, 100, 175, 35, 20

STYLEBITS #TB1.rb6, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb20, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb34, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb6, "Αγώνας 6ος", 10, 195, 120, 35
radiobutton #TB1.rb6, "1", rad6, dummy, 20, 210, 35, 20
radiobutton #TB1.rb20, "X", rad6, dummy, 60, 210, 35, 20
radiobutton #TB1.rb34, "2", rad6, dummy, 100, 210, 35, 20

STYLEBITS #TB1.rb7, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb21, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb35, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb7, "Αγώνας 7ος", 10, 230, 120, 35
radiobutton #TB1.rb7, "1", rad7, dummy, 20, 245, 35, 20
radiobutton #TB1.rb21, "X", rad7, dummy, 60, 245, 35, 20
radiobutton #TB1.rb35, "2", rad7, dummy, 100, 245, 35, 20

STYLEBITS #TB1.rb8, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb22, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb36, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb8, "Αγώνας 8ος", 10, 265, 120, 35
radiobutton #TB1.rb8, "1", rad8, dummy, 20, 280, 35, 20
radiobutton #TB1.rb22, "X", rad8, dummy, 60, 280, 35, 20
radiobutton #TB1.rb36, "2", rad8, dummy, 100, 280, 35, 20

STYLEBITS #TB1.rb9, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb23, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb37, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb9, "Αγώνας 9ος", 10, 300, 120, 35
radiobutton #TB1.rb9, "1", rad9, dummy, 20, 315, 35, 20
radiobutton #TB1.rb23, "X", rad9, dummy, 60, 315, 35, 20
radiobutton #TB1.rb37, "2", rad9, dummy, 100, 315, 35, 20

STYLEBITS #TB1.rb10, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb24, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb38, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb10, "Αγώνας 10ος", 10, 335, 120, 35
radiobutton #TB1.rb10, "1", rad10, dummy, 20, 350, 35, 20
radiobutton #TB1.rb24, "X", rad10, dummy, 60, 350, 35, 20
radiobutton #TB1.rb38, "2", rad10, dummy, 100, 350, 35, 20

STYLEBITS #TB1.rb11, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb25, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb39, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb11, "Αγώνας 11ος", 10, 370, 120, 35
radiobutton #TB1.rb11, "1", rad11, dummy, 20, 385, 35, 20
radiobutton #TB1.rb25, "X", rad11, dummy, 60, 385, 35, 20
radiobutton #TB1.rb39, "2", rad11, dummy, 100, 385, 35, 20

STYLEBITS #TB1.rb12, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb26, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb40, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb12, "Αγώνας 12ος", 10, 405, 120, 35
radiobutton #TB1.rb12, "1", rad12, dummy, 20, 420, 35, 20
radiobutton #TB1.rb26, "X", rad12, dummy, 60, 420, 35, 20
radiobutton #TB1.rb40, "2", rad12, dummy, 100, 420, 35, 20

STYLEBITS #TB1.rb13, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb27, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb41, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb13, "Αγώνας 13ος", 10, 440, 120, 35
radiobutton #TB1.rb13, "1", rad13, dummy, 20, 455, 35, 20
radiobutton #TB1.rb27, "X", rad13, dummy, 60, 455, 35, 20
radiobutton #TB1.rb41, "2", rad13, dummy, 100, 455, 35, 20

STYLEBITS #TB1.rb14, WS.TABSTOP OR WS.GROUP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb28, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0
STYLEBITS #TB1.rb42, WS.TABSTOP OR WS.RADIOBUTTON OR _
                    WS.AUTORADIOBUTTON, 0, 0, 0

groupbox    #TB1.gb14, "Αγώνας 14ος", 10, 475, 120, 35
radiobutton #TB1.rb14, "1", rad14, dummy, 20, 490, 35, 20
radiobutton #TB1.rb28, "X", rad14, dummy, 60, 490, 35, 20
radiobutton #TB1.rb42, "2", rad14, dummy, 100, 490, 35, 20

statictext  #TB2.tb2, "Εισαγωγή Συστήματος", 40, 25, 165, 25
stylebits   #TB2.bt1, _BS_MULTILINE, 0, 0, 0
button      #TB2.bt1, "Stantard", Stantard, UL, 55, 65, 90, 25
stylebits   #TB2.bt2, _BS_MULTILINE, 0, 0, 0
button      #TB2.bt2, "Double", Doublee, UL, 55, 105, 90, 25
stylebits   #TB2.bt3, _BS_MULTILINE, 0, 0, 0
button      #TB2.bt3, "Triple", Triple, UL, 55, 145, 90, 25

statictext  #TB3.st1, "'1' Από", 30, 45, 60, 25
statictext  #TB3.st2, "'1' Έως", 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, "Τρέχουσα στήλη", 25, 15, 120, 30
statictext  #TB4.st2, "Σύνολο Στηλών επιλογής", 165, 15, 120, 30
statictext  #TB4.st3, "Συνολικές Στήλες", 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

stylebits   #TB4.bt1, _BS_MULTILINE, 0, 0, 0
button      #TB4.bt1, "Διαλογή Στηλών", [dialogh], UR, 60, 385, 140, 25

statictext  #TB5.st1, "Εισαγωγή Συστήματος", 30, 10, 245, 25
statictext  #TB5.st2, "Αγώνας 1ος", 15, 55, 80, 20
statictext  #TB5.st2, "Αγώνας 2ος", 15, 80, 80, 20
statictext  #TB5.st4, "Αγώνας 3ος", 15, 105, 80, 20
statictext  #TB5.st5, "Αγώνας 4ος", 15, 130, 80, 20
statictext  #TB5.st6, "Αγώνας 5ος", 15, 155, 80, 20
statictext  #TB5.st7, "Αγώνας 6ος", 15, 180, 80, 20
statictext  #TB5.st8, "Αγώνας 7ος", 15, 205, 80, 20
statictext  #TB5.st9, "Αγώνας 8ος", 15, 230, 80, 20
statictext  #TB5.st10, "Αγώνας 9ος", 15, 255, 80, 20
statictext  #TB5.st11, "Αγώνας 10ος", 15, 280, 80, 20
statictext  #TB5.st12, "Αγώνας 11ος", 15, 305, 80, 20
statictext  #TB5.st13, "Αγώνας 12ος", 15, 330, 80, 20
statictext  #TB5.st14, "Αγώνας 13ος", 15, 355, 80, 20
statictext  #TB5.st15, "Αγώνας 14ος", 15, 380, 80, 20

checkbox    #TB5.cb1, "1", check1set, check1reset,  110, 55, 40, 20
checkbox    #TB5.cb2, "1", check2set, check2reset,  110, 80, 40, 20
checkbox    #TB5.cb3, "1", check3set, check3reset,  110, 105, 40, 20
checkbox    #TB5.cb4, "1", check4set, check4reset,  110, 130, 40, 20
checkbox    #TB5.cb5, "1", check5set, check5reset,  110, 155, 40, 20
checkbox    #TB5.cb6, "1", check6set, check6reset,  110, 180, 40, 20
checkbox    #TB5.cb7, "1", check7set, check7reset,  110, 205, 40, 20
checkbox    #TB5.cb8, "1", check8set, check8reset,  110, 230, 40, 20
checkbox    #TB5.cb9, "1", check9set, check9reset,  110, 255, 40, 20
checkbox    #TB5.cb10, "1", check10set, check10reset,  110, 280, 40, 20
checkbox    #TB5.cb11, "1", check11set, check11reset,  110, 305, 40, 20
checkbox    #TB5.cb12, "1", check12set, check12reset,  110, 330, 40, 20
checkbox    #TB5.cb13, "1", check13set, check13reset,  110, 355, 40, 20
checkbox    #TB5.cb14, "1", check14set, check14reset,  110, 380, 40, 20

checkbox    #TB5.cb15, "X", check15set, check15reset,  150, 55, 40, 20
checkbox    #TB5.cb16, "X", check16set, check16reset,  150, 80, 40, 20
checkbox    #TB5.cb17, "X", check17set, check17reset,  150, 105, 40, 20
checkbox    #TB5.cb18, "X", check18set, check18reset,  150, 130, 40, 20
checkbox    #TB5.cb19, "X", check19set, check19reset,  150, 155, 40, 20
checkbox    #TB5.cb20, "X", check20set, check20reset,  150, 180, 40, 20
checkbox    #TB5.cb21, "X", check21set, check21reset,  150, 205, 40, 20
checkbox    #TB5.cb22, "X", check22set, check22reset,  150, 230, 40, 20
checkbox    #TB5.cb23, "X", check23set, check23reset,  150, 255, 40, 20
checkbox    #TB5.cb24, "X", check24set, check24reset,  150, 280, 40, 20
checkbox    #TB5.cb25, "X", check25set, check25reset,  150, 305, 40, 20
checkbox    #TB5.cb26, "X", check26set, check26reset,  150, 330, 40, 20
checkbox    #TB5.cb27, "X", check27set, check27reset,  150, 355, 40, 20
checkbox    #TB5.cb28, "X", check28set, check28reset,  150, 380, 40, 20

checkbox    #TB5.cb29, "2", check29set, check29reset,  190, 55, 40, 20
checkbox    #TB5.cb30, "2", check30set, check30reset,  190, 80, 40, 20
checkbox    #TB5.cb31, "2", check31set, check31reset,  190, 105, 40, 20
checkbox    #TB5.cb32, "2", check32set, check32reset,  190, 130, 40, 20
checkbox    #TB5.cb33, "2", check33set, check33reset,  190, 155, 40, 20
checkbox    #TB5.cb34, "2", check34set, check34reset,  190, 180, 40, 20
checkbox    #TB5.cb35, "2", check35set, check35reset,  190, 205, 40, 20
checkbox    #TB5.cb36, "2", check36set, check36reset,  190, 230, 40, 20
checkbox    #TB5.cb37, "2", check37set, check37reset,  190, 255, 40, 20
checkbox    #TB5.cb38, "2", check38set, check38reset,  190, 280, 40, 20
checkbox    #TB5.cb39, "2", check39set, check39reset,  190, 305, 40, 20
checkbox    #TB5.cb40, "2", check40set, check40reset,  190, 330, 40, 20
checkbox    #TB5.cb41, "2", check41set, check41reset,  190, 355, 40, 20
checkbox    #TB5.cb42, "2", check42set, check42reset,  190, 380, 40, 20
textbox     #TB5.teb2, 260, 45, 125, 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 "Εισαγωγή Σταθερής Στήλης" FOR WINDOW_popup AS #TB1

    #TB1 "trapclose [STOPIT]"
    #TB1.rb1 "reset"
    #TB1.rb2 "reset"
    #TB1.rb3 "reset"
    #TB1.rb4 "reset"
    #TB1.rb5 "reset"
    #TB1.rb6 "reset"
    #TB1.rb7 "reset"
    #TB1.rb8 "reset"
    #TB1.rb9 "reset"
    #TB1.rb10 "reset"
    #TB1.rb11 "reset"
    #TB1.rb12 "reset"
    #TB1.rb13 "reset"
    #TB1.rb14 "reset"
    #TB1 "font consolas 10"

OPEN "Εισαγωγή Συστήματος" FOR WINDOW_popup AS #TB2

    #TB2 "trapclose [STOPIT]"
    #TB2 "font consolas 10"
    Call MakeTooltips2 HWND(#TB2)

OPEN "Διαλογή Στηλών" 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 "Εισαγωγή 14 Τριπλών" FOR WINDOW_popup AS #TB5

    #TB5 "trapclose [STOPIT]"
    #TB5 "font consolas 10"

    #WIN "TRAPCLOSE [STOPIT]"
    #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$ = "Εισαγωγή 14 Τριπλών"

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

[loop]
WAIT

'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
[text1]
    timer 0
    #TB3.teb1, "!contents? txt1$"
    z(0) = val(txt1$)
    if z(0) < 0 or z(0) > 14 then
        notice "Τιμές Εισόδου Από 0 Έως 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 "Τιμές Εισόδου Από 0 Έως 14"
    end if
    if z(1) < z(0) then
        notice txt2$ + " Μικρότερο από " + txt1$ + " Εισάγετε Ξανά"
    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 "Τιμές Εισόδου Από 0 Έως 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 "Τιμές Εισόδου Από 0 Έως 14"
    end if
    if z(3) < z(2) then
        notice txt4$ + " Μικρότερο από " + txt3$ + " Εισάγετε Ξανά"
    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 "Τιμές Εισόδου Από 0 Έως 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 "Τιμές Εισόδου Από 0 Έως 14"
    end if
    if z(5) < z(4) then
        notice txt6$ + " Μικρότερο από " + txt5$ + " Εισάγετε Ξανά"
    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 "Παρακαλώ περιμένετε να τελειώσει η διαδικασία επιλογής"
    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 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 "C:\Users\loyka\Documents\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 Stantard handle$
    '#handle$ contains button handle
    End Sub

Sub Doublee handle$
    '#handle$ contains button handle
    End Sub

Sub Triple handle$
    '#handle$ contains button handle
    End Sub

sub check1set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb1 "value? v1$":if v1$="set" then v$="1"
    b$(0, 0)=v$
    #TB2.teb2 b$(0, 0)
end Sub
 
sub check1reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb1 "value? v1$":if v1$="set" then v$=""
    b$(0, 0)=v$ 
end Sub
 
sub check2set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb2 "value? v1$":if v1$="set" then v$="1"
    b$(1, 0)=v$
end Sub
 
sub check2reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb2 "value? v1$":if v1$="set" then v$=""
    b$(1, 0)=v$ 
end Sub

sub check3set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb3 "value? v1$":if v1$="set" then v$="1"
    b$(2, 0)=v$
end Sub
 
sub check3reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb3 "value? v1$":if v1$="set" then v$=""
    b$(2, 0)=v$ 
end Sub
 
sub check4set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb4 "value? v1$":if v1$="set" then v$="1"
    b$(3, 0)=v$
end Sub
 
sub check4reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb4 "value? v1$":if v1$="set" then v$=""
    b$(3, 0)=v$ 
end Sub

sub check5set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb5 "value? v1$":if v1$="set" then v$="1"
    b$(4, 0)=v$
end Sub
 
sub check5reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb5 "value? v1$":if v1$="set" then v$=""
    b$(4, 0)=v$ 
end Sub
 
sub check6set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb6 "value? v1$":if v1$="set" then v$="1"
    b$(5, 0)=v$
end Sub
 
sub check6reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb6 "value? v1$":if v1$="set" then v$=""
    b$(5, 0)=v$ 
end Sub

sub check7set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb7 "value? v1$":if v1$="set" then v$="1"
    b$(6, 0)=v$
end Sub
 
sub check7reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb7 "value? v1$":if v1$="set" then v$=""
    b$(6, 0)=v$ 
end Sub
 
sub check8set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb8 "value? v1$":if v1$="set" then v$="1"
    b$(7, 0)=v$
end Sub
 
sub check8reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb8 "value? v1$":if v1$="set" then v$=""
    b$(7, 0)=v$ 
end Sub

sub check9set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb9 "value? v1$":if v1$="set" then v$="1"
    b$(8, 0)=v$
end Sub
 
sub check9reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb9 "value? v1$":if v1$="set" then v$=""
    b$(8, 0)=v$ 
end Sub
 
sub check10set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb10 "value? v1$":if v1$="set" then v$="1"
    b$(9, 0)=v$
end Sub
 
sub check10reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb10 "value? v1$":if v1$="set" then v$=""
    b$(9, 0)=v$ 
end Sub

sub check11set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb11 "value? v1$":if v1$="set" then v$="1"
    b$(10, 0)=v$
end Sub
 
sub check11reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb11 "value? v1$":if v1$="set" then v$=""
    b$(10, 0)=v$ 
end Sub
 
sub check12set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb12 "value? v1$":if v1$="set" then v$="1"
    b$(11, 0)=v$
end Sub
 
sub check12reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb12 "value? v1$":if v1$="set" then v$=""
    b$(11, 0)=v$ 
end Sub

sub check13set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb13 "value? v1$":if v1$="set" then v$="1"
    b$(12, 0)=v$
end Sub
 
sub check13reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb13 "value? v1$":if v1$="set" then v$=""
    b$(12, 0)=v$ 
end Sub
 
sub check14set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb14 "value? v1$":if v1$="set" then v$="1"
    b$(13, 0)=v$
    #TB2.teb2 b$(13, 0)
end Sub
 
sub check14reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb14 "value? v1$":if v1$="reset" then v$=""
    b$(13, 0)=v$
    #TB2.teb2 b$(13, 0)
end Sub
 
sub check15set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb15 "value? v1$":if v1$="set" then v$="X"
    b$(0, 1)=v$
end Sub
 
sub check15reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb15 "value? v1$":if v1$="set" then v$=""
    b$(0, 1)=v$ 
end Sub
 
sub check16set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb16 "value? v1$":if v1$="set" then v$="X"
    b$(1, 1)=v$
end Sub
 
sub check16reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb16 "value? v1$":if v1$="set" then v$=""
    b$(1, 1)=v$ 
end Sub

sub check17set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb17 "value? v1$":if v1$="set" then v$="X"
    b$(2, 1)=v$
end Sub
 
sub check17reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb17 "value? v1$":if v1$="set" then v$=""
    b$(2, 1)=v$ 
end Sub
 
sub check18set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb18 "value? v1$":if v1$="set" then v$="X"
    b$(3, 1)=v$
end Sub
 
sub check18reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb18 "value? v1$":if v1$="set" then v$=""
    b$(3, 1)=v$ 
end Sub

sub check19set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb19 "value? v1$":if v1$="set" then v$="X"
    b$(4, 1)=v$
end Sub
 
sub check19reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb19 "value? v1$":if v1$="set" then v$=""
    b$(4, 1)=v$ 
end Sub
 
sub check20set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb20 "value? v1$":if v1$="set" then v$="X"
    b$(5, 1)=v$
end Sub
 
sub check20reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb20 "value? v1$":if v1$="set" then v$=""
    b$(5, 1)=v$ 
end Sub
 
sub check21set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb21 "value? v1$":if v1$="set" then v$="X"
    b$(6, 1)=v$
end Sub
 
sub check21reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb21 "value? v1$":if v1$="set" then v$=""
    b$(6, 1)=v$ 
end Sub

sub check22set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb22 "value? v1$":if v1$="set" then v$="X"
    b$(7, 1)=v$
end Sub
 
sub check22reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb22 "value? v1$":if v1$="set" then v$=""
    b$(7, 1)=v$ 
end Sub
 
sub check23set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb23 "value? v1$":if v1$="set" then v$="X"
    b$(8, 1)=v$
end Sub
 
sub check23reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb23 "value? v1$":if v1$="set" then v$=""
    b$(8, 1)=v$ 
end Sub

sub check24set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb24 "value? v1$":if v1$="set" then v$="X"
    b$(9, 1)=v$
end Sub
 
sub check24reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb24 "value? v1$":if v1$="set" then v$=""
    b$(9, 1)=v$ 
end Sub
 
sub check25set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb25 "value? v1$":if v1$="set" then v$="X"
    b$(10, 1)=v$
end Sub
 
sub check25reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb25 "value? v1$":if v1$="set" then v$=""
    b$(10, 1)=v$ 
end Sub

sub check26set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb26 "value? v1$":if v1$="set" then v$="X"
    b$(11, 1)=v$
end Sub
 
sub check26reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb26 "value? v1$":if v1$="set" then v$=""
    b$(11, 1)=v$ 
end Sub
 
sub check27set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb27 "value? v1$":if v1$="set" then v$="X"
    b$(12, 1)=v$
end Sub
 
sub check27reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb27 "value? v1$":if v1$="set" then v$=""
    b$(12, 1)=v$ 
end Sub

sub check28set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb28 "value? v1$":if v1$="set" then v$="X"
    b$(13, 1)=v$
    #TB2.teb2 b$(13, 1)
end Sub
 
sub check28reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb28 "value? v1$":if v1$="reset" then v$=""
    b$(13, 1)=v$ 
    #TB2.teb2 b$(13, 1)
end Sub
 
sub check29set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb29 "value? v1$":if v1$="set" then v$="2"
    b$(0, 2)=v$
end Sub
 
sub check29reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb29 "value? v1$":if v1$="set" then v$=""
    b$(0, 2)=v$ 
end Sub
 
sub check30set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb30 "value? v1$":if v1$="set" then v$="2"
    b$(1, 2)=v$
end Sub
 
sub check30reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb30 "value? v1$":if v1$="set" then v$=""
    b$(1, 2)=v$ 
end Sub
 
sub check31set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb31 "value? v1$":if v1$="set" then v$="2"
    b$(2, 2)=v$
end Sub
 
sub check31reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb31 "value? v1$":if v1$="set" then v$=""
    b$(2, 2)=v$ 
end Sub

sub check32set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb32 "value? v1$":if v1$="set" then v$="2"
    b$(3, 2)=v$
end Sub
 
sub check32reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb32 "value? v1$":if v1$="set" then v$=""
    b$(3, 2)=v$ 
end Sub
 
sub check33set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb33 "value? v1$":if v1$="set" then v$="2"
    b$(4, 2)=v$
end Sub
 
sub check33reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb33 "value? v1$":if v1$="set" then v$=""
    b$(4, 2)=v$ 
end Sub

sub check34set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb34 "value? v1$":if v1$="set" then v$="2"
    b$(5, 2)=v$
end Sub
 
sub check34reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb34 "value? v1$":if v1$="set" then v$=""
    b$(5, 2)=v$ 
end Sub
 
sub check35set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb35 "value? v1$":if v1$="set" then v$="2"
    b$(6, 2)=v$
end Sub
 
sub check35reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb35 "value? v1$":if v1$="set" then v$=""
    b$(6, 2)=v$ 
end Sub

sub check36set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb36 "value? v1$":if v1$="set" then v$="2"
    b$(7, 2)=v$
end Sub
 
sub check36reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb36 "value? v1$":if v1$="set" then v$=""
    b$(7, 2)=v$ 
end Sub
 
sub check37set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb37 "value? v1$":if v1$="set" then v$="2"
    b$(8, 2)=v$
end Sub
 
sub check37reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb37 "value? v1$":if v1$="set" then v$=""
    b$(8, 2)=v$ 
end Sub

sub check38set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb38 "value? v1$":if v1$="set" then v$="2"
    b$(9, 2)=v$
end Sub
 
sub check38reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb38 "value? v1$":if v1$="set" then v$=""
    b$(9, 2)=v$ 
end Sub
 
sub check39set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb39 "value? v1$":if v1$="set" then v$="2"
    b$(10, 2)=v$
end Sub
 
sub check39reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb39 "value? v1$":if v1$="set" then v$=""
    b$(10, 2)=v$ 
end Sub
 
sub check40set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb40 "value? v1$":if v1$="set" then v$="2"
    b$(11, 2)=v$
end Sub
 
sub check40reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb40 "value? v1$":if v1$="set" then v$=""
    b$(11, 2)=v$ 
end Sub
 
sub check41set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb41 "value? v1$":if v1$="set" then v$="2"
    b$(12, 2)=v$
end Sub
 
sub check41reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb41 "value? v1$":if v1$="set" then v$=""
    b$(12, 2)=v$ 
end Sub

sub check42set cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb42 "value? v1$":if v1$="set" then v$="2"
    b$(13, 2)=v$
    #TB2.teb2 b$(13, 2)
end Sub
 
sub check42reset cbHandle$
    print #cbHandle$, "value? v$"
    #TB2.cb42 "value? v1$":if v1$="reset" then v$=""
    b$(13, 2)=v$ 
    #TB2.teb2 b$(13, 2)
end Sub
 
sub rad1 handle$
#handle$ "set"
call check1
end sub

sub check1
#TB1.rb1 "value? v1$": if v1$="set" then a$(0)="1"
#TB1.rb15 "value? v2$": if v2$="set" then a$(0)="X"
#TB1.rb29 "value? v3$": if v3$="set" then a$(0)="2"
end sub

sub rad2 handle$
#handle$ "set"
call check2
end sub

sub check2
#TB1.rb2 "value? v1$": if v1$="set" then a$(1)="1"
#TB1.rb16 "value? v2$": if v2$="set" then a$(1)="X"
#TB1.rb30 "value? v3$": if v3$="set" then a$(1)="2"
end sub

sub rad3 handle$
#handle$ "set"
call check3
end sub

sub check3
#TB1.rb3 "value? v1$": if v1$="set" then a$(2)="1"
#TB1.rb17 "value? v2$": if v2$="set" then a$(2)="X"
#TB1.rb31 "value? v3$": if v3$="set" then a$(2)="2"
end sub

sub rad4 handle$
#handle$ "set"
call check4
end sub

sub check4
#TB1.rb4 "value? v1$": if v1$="set" then a$(3)="1"
#TB1.rb18 "value? v2$": if v2$="set" then a$(3)="X"
#TB1.rb32 "value? v3$": if v3$="set" then a$(3)="2"
end sub

sub rad5 handle$
#handle$ "set"
call check5
end sub

sub check5
#TB1.rb5 "value? v1$": if v1$="set" then a$(4)="1"
#TB1.rb19 "value? v2$": if v2$="set" then a$(4)="X"
#TB1.rb33 "value? v3$": if v3$="set" then a$(4)="2"
end sub

sub rad6 handle$
#handle$ "set"
call check6
end sub

sub check6
#TB1.rb6 "value? v1$": if v1$="set" then a$(5)="1"
#TB1.rb20 "value? v2$": if v2$="set" then a$(5)="X"
#TB1.rb34 "value? v3$": if v3$="set" then a$(5)="2"
end sub

sub rad7 handle$
#handle$ "set"
call check7
end sub

sub check7
#TB1.rb7 "value? v1$": if v1$="set" then a$(6)="1"
#TB1.rb21 "value? v2$": if v2$="set" then a$(6)="X"
#TB1.rb35 "value? v3$": if v3$="set" then a$(6)="2"
end sub

sub rad8 handle$
#handle$ "set"
call check8
end sub

sub check8
#TB1.rb8 "value? v1$": if v1$="set" then a$(7)="1"
#TB1.rb22 "value? v2$": if v2$="set" then a$(7)="X"
#TB1.rb36 "value? v3$": if v3$="set" then a$(7)="2"
end sub

sub rad9 handle$
#handle$ "set"
call check9
end sub

sub check9
#TB1.rb9 "value? v1$": if v1$="set" then a$(8)="1"
#TB1.rb23 "value? v2$": if v2$="set" then a$(8)="X"
#TB1.rb37 "value? v3$": if v3$="set" then a$(8)="2"
end sub

sub rad10 handle$
#handle$ "set"
call check10
end sub

sub check10
#TB1.rb10 "value? v1$": if v1$="set" then a$(9)="1"
#TB1.rb24 "value? v2$": if v2$="set" then a$(9)="X"
#TB1.rb38 "value? v3$": if v3$="set" then a$(9)="2"
end sub

sub rad11 handle$
#handle$ "set"
call check11
end sub

sub check11
#TB1.rb11 "value? v1$": if v1$="set" then a$(10)="1"
#TB1.rb25 "value? v2$": if v2$="set" then a$(10)="X"
#TB1.rb39 "value? v3$": if v3$="set" then a$(10)="2"
end sub

sub rad12 handle$
#handle$ "set"
call check12
end sub

sub check12
#TB1.rb12 "value? v1$": if v1$="set" then a$(11)="1"
#TB1.rb26 "value? v2$": if v2$="set" then a$(11)="X"
#TB1.rb40 "value? v3$": if v3$="set" then a$(11)="2"
end sub

sub rad13 handle$
#handle$ "set"
call check13
end sub

sub check13
#TB1.rb13 "value? v1$": if v1$="set" then a$(12)="1"
#TB1.rb27 "value? v2$": if v2$="set" then a$(12)="X"
#TB1.rb41 "value? v3$": if v3$="set" then a$(12)="2"
end sub

sub rad14 handle$
#handle$ "set"
call check14
end sub

sub check14
#TB1.rb14 "value? v1$": if v1$="set" then a$(13)="1"
#TB1.rb28 "value? v2$": if v2$="set" then a$(13)="X"
#TB1.rb42 "value? v3$": if v3$="set" then a$(13)="2"
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 MakeTooltips2 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 TB2.bt1 Tooltip:
    toolinfo.uId.struct = hwnd(#TB2.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

   'Button TB2.bt2 Tooltip:
    toolinfo.uId.struct = hwnd(#TB2.bt2)
    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

   'Button TB2.bt3 Tooltip:
    toolinfo.uId.struct = hwnd(#TB2.bt3)
    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

    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

Regards

Gaslouk

Walt Decker
Guru

There are no negatives in nature.

Posts: 956

The hardest part maybe!!! Apr 17, 2022 12:26:35 GMT -5

Quote

Post by Walt Decker on Apr 17, 2022 12:26:35 GMT -5

What is the purpose of the application?

If the purpose of the application is an attempt to predict the outcome of a football contest before it is played, you have to generate a history first and update that history at the end of each contest along with other considerations. Every thing else stems from that.

I think you should think about the ultimate purpose of the application and make a list of the steps required to accomplish that purpose. Do not worry about the user interface until you have defined the purpose and the steps to accomplish it.

Rod
Global Moderator

Posts: 2,621

The hardest part maybe!!! Apr 17, 2022 13:09:15 GMT -5 via mobile

Quote

Post by Rod on Apr 17, 2022 13:09:15 GMT -5

I pretty much agree with Walt if this is about predicting match outcomes. This also makes holding a history very desirable.

With the history you can run your prediction on old data and actually see how it performed against actual outcomes,

I don’t think three matches will be very predictable. You will need other info like support, morale, manager acumen.

Running Win11 11th Gen Intel(R) Core(TM) i5-1135G7 @ 2.40GHz 2.42 GHz 64bit with 32Gb ram

gaslouk
Full Member

Hi from beautiful Greece.

Posts: 130

The hardest part maybe!!! Apr 18, 2022 0:27:06 GMT -5

Quote

Post by gaslouk on Apr 18, 2022 0:27:06 GMT -5

Apr 17, 2022 12:26:35 GMT -5 Walt Decker said:

My friends Rod And walt.

Good morning from beautiful Greece.

This is the story of PRO-PO.

"" Mutual betting game with football matches, from the initials of the words Football Predictions. It requires foresight and luck from the player. He appeared in Greece on March 1, 1959.

The idea belonged to Konstantinos G. Karamanlis, who wanted to use for the benefit of the state fund the inherent weakness of the Greek towards gambling and to combine it with his love for football. Until the mid-1950s, the only way out for the gambler was gambling and, secondarily, state-controlled lotteries. Now he would be given another way out, for the benefit of society as a whole. Karamanlis's intention, when made public, sparked a storm of protests from the opposition, centrist and left, which accused him of immorality and corruption, calling him the prime minister of gambling.

In 1958 the Football Prediction Organization (OPAP) was founded, a decentralized public organization, which took over the organization of the game, copying the Italian TotoCalcio. On Sunday, March 1, 1959, the first competition took place. Thousands of Greeks responded and hurried to the then few agencies to predict the outcome of 12 matches with points 1, 2, X and to submit their obol. Between the games, the derby of eternities dominated, in which Olympiakos prevailed 2-0.

In total, 213,670 columns were completed in the first tender and the receipts amounted to 1,004,778 drachmas. From the sorting that followed, one and only 12 ari was found, which belonged to the Athenian lawyer Nikos Passaris and he won 228,360 drachmas, a particularly important amount for the time. The next day, Mr. Pasaris was the face of the day and front-page in the newspapers. Among the big losers of the first bulletin, the international players of Panathinaikos Lakis Petropoulos and Vangelis Panakis, who had predicted a victory for their team against Olympiakos and thus were limited to the 4,757 drachmas that each of the 47 11-odd players received.

The new game was immediately embraced by the world and became the only source of income for Greek Sports for the next 31 years, the "blood donor of Greek sports", as it was called. Thanks to the appearance and success of PRO-PO, the First National Division was created from the period 1959 - 1969, the first unified football championship in Greece. In March 1965 a 13th race was added and the categories of winners increased to three: 13s, 12s and 11s.

From 1990 OPAP began to offer new games to its customers (Lotto, Betting, Keno etc.), resulting in the retreat of PRO-PO. The effort of the Organization to revive it (Super 13, PROPO 14 & 7) did not yield the expected. Today, its share in the turnover of OPAP does not exceed 3%. The 21st century player lives and breathes for Betting and MOVIE.""

Source: www.sansimera.gr/articles/421

© SanSimera.gr.

I don't need a History for now.

I need to make my program to run it and test it.

Regards

Gaslouk

Last Edit: Apr 18, 2022 0:27:48 GMT -5 by gaslouk

Rod
Global Moderator

Posts: 2,621

The hardest part maybe!!! Apr 18, 2022 2:28:06 GMT -5

Quote

Post by Rod on Apr 18, 2022 2:28:06 GMT -5

Ok, it is a lottery game. You will allow players to input their guess at the outcome of fourteen matches. Home win, 1 Away win, 2 Draw, X what about not played abandoned?

So you will record each players guess as a 14 element string. How many guesses do you expect to record?

Once the matches are played you will record the actual results and then check for winners.

So what is the prediction part all about?

Last Edit: Apr 18, 2022 5:16:20 GMT -5 by Rod

Running Win11 11th Gen Intel(R) Core(TM) i5-1135G7 @ 2.40GHz 2.42 GHz 64bit with 32Gb ram

Walt Decker
Guru

There are no negatives in nature.

Posts: 956

The hardest part maybe!!! Apr 18, 2022 9:54:54 GMT -5

Quote

Post by Walt Decker on Apr 18, 2022 9:54:54 GMT -5

Ok, it is a betting game. You are making it way too complicated.

In this case you need to set up rules for betting and payout. You have to retain a game player history for the games of the day. So, you only need 1 player interface not 5 or 6.

Example rules:

Player predicts the result of 1 contest and is correct: payout = 1

Player predicts the result of 3 contests and is correct 2 of 3: payout = 5; correct 3 of 3: payout = 7

Player predicts the result of 5 contests and is correct 3 of 5: payout = 1; 4 of 5: payout = 7; 5 of 5: payout = 12

Player predicts the result of 7 contests and is correct 4 of 7: payout = 3; correct 5 of 7: payout = 7; correct 6 of 7: payout = 15; correct 7 of 7: payout = 25

At the end of the day just parse each player and compare his choices against actual contest results and make the payout according to the rules.

Walt Decker
Guru

There are no negatives in nature.

Posts: 956

The hardest part maybe!!! Apr 18, 2022 14:55:00 GMT -5

Quote

Post by Walt Decker on Apr 18, 2022 14:55:00 GMT -5

Here is a basic layout for a game of chance based on your your criteria.

'


'NOmainWIN
OPEN "User32.dll" FOR DLL AS #USER

WS.GROUP          = HEXDEC("&H00020000")
WS.TABSTOP        = HEXDEC("&H00010000")
BS.RADIOBUTTON     = HEXDEC("&H00000004")
BS.AUTORADIOBUTTON = HEXDEC("&H00000009")
BS.PUSHLIKE        = HEXDEC("&H00001000")

GLOBAL UbndPlayers, _
         PlayerNum

GLOBAL PropKey$

DIM Player$(4, 13) '<--- (game players, contests picked)
DIM Contests$(13)  '<--- results of football contests played

UbndPlayers = 4
PlayerNum = 0

PropKey$ = "PLAYER" '<--- property sheet key
                    'associated value = football game number
RetVal = 0

RetVal = FN.ContestResults() '<--- test football contest results

UpperLeftX = 200
UpperRightX = 200
WindowWidth = 400
WindowHeight = 400

STYLEBITS #DMO.rb1, WS.GROUP, 0, 0, 0
statictext  #DMO.st1, "Game #1", 15, 5, 80, 20
radiobutton #DMO.rb1, "1", RDO.CLICK, RDO.CLICK, 110, 5, 25, 20
radiobutton #DMO.rb2, "X", RDO.CLICK, RDO.CLICK, 150, 5, 25, 20
radiobutton #DMO.rb3, "2", RDO.CLICK, RDO.CLICK, 190, 5, 25, 20

STYLEBITS #DMO.rb4, WS.GROUP, 0, 0, 0
statictext  #DMO.st2, "Game #2", 15, 28, 80, 20
radiobutton #DMO.rb4, "1", RDO.CLICK, RDO.CLICK, 110, 28, 25, 20
radiobutton #DMO.rb5, "X", RDO.CLICK, RDO.CLICK, 150, 28, 25, 20
radiobutton #DMO.rb6, "2", RDO.CLICK, RDO.CLICK, 190, 28, 25, 20

STYLEBITS #DMO.rb7, WS.GROUP, 0, 0, 0
statictext  #DMO.st3, "Game #3", 15, 50, 80, 20
radiobutton #DMO.rb7, "1", RDO.CLICK, RDO.CLICK, 110, 50, 25, 20
radiobutton #DMO.rb8, "X", RDO.CLICK, RDO.CLICK, 150, 50, 25, 20
radiobutton #DMO.rb9, "2", RDO.CLICK, RDO.CLICK, 190, 50, 25, 20

STYLEBITS #DMO.rb10, WS.GROUP, 0, 0, 0
statictext  #DMO.st4, "Game #4", 15, 72, 80, 20
radiobutton #DMO.rb10, "1", RDO.CLICK, RDO.CLICK, 110, 72, 25, 20
radiobutton #DMO.rb11, "X", RDO.CLICK, RDO.CLICK, 150, 72, 25, 20
radiobutton #DMO.rb12, "2", RDO.CLICK, RDO.CLICK, 190, 72, 25, 20

STYLEBITS #DMO.rb13, WS.GROUP, 0, 0, 0
statictext  #DMO.st5, "Game #5", 15, 94, 80, 20
radiobutton #DMO.rb13, "1", RDO.CLICK, RDO.CLICK, 110, 94, 25, 20
radiobutton #DMO.rb14, "X", RDO.CLICK, RDO.CLICK, 150, 94, 25, 20
radiobutton #DMO.rb15, "2", RDO.CLICK, RDO.CLICK, 190, 94, 25, 20

STYLEBITS #DMO.rb16, WS.GROUP, 0, 0, 0
statictext  #DMO.st6, "Game #6", 15, 116, 80, 20
radiobutton #DMO.rb16, "1", RDO.CLICK, RDO.CLICK, 110, 116, 25, 20
radiobutton #DMO.rb17, "X", RDO.CLICK, RDO.CLICK, 150, 116, 25, 20
radiobutton #DMO.rb18, "2", RDO.CLICK, RDO.CLICK, 190, 116, 25, 20

STYLEBITS #DMO.rb19, WS.GROUP, 0, 0, 0
statictext  #DMO.st7, "Game #7", 15, 138, 80, 20
radiobutton #DMO.rb19, "1", RDO.CLICK, RDO.CLICK, 110, 138, 25, 20
radiobutton #DMO.rb20, "X", RDO.CLICK, RDO.CLICK, 150, 138, 25, 20
radiobutton #DMO.rb21, "2", RDO.CLICK, RDO.CLICK, 190, 138, 25, 20

STYLEBITS #DMO.rb11, WS.GROUP, 0, 0, 0
statictext  #DMO.st8, "Game #8", 15, 160, 80, 20
radiobutton #DMO.rb22, "1", RDO.CLICK, RDO.CLICK, 110, 160, 25, 20
radiobutton #DMO.rb23, "X", RDO.CLICK, RDO.CLICK, 150, 160, 25, 20
radiobutton #DMO.rb24, "2", RDO.CLICK, RDO.CLICK, 190, 160, 25, 20

STYLEBITS #DMO.rb25, WS.GROUP, 0, 0, 0
statictext  #DMO.st9, "Game #9", 15, 182, 80, 20
radiobutton #DMO.rb25, "1", RDO.CLICK, RDO.CLICK, 110, 182, 25, 20
radiobutton #DMO.rb26, "X", RDO.CLICK, RDO.CLICK, 150, 182, 25, 20
radiobutton #DMO.rb27, "2", RDO.CLICK, RDO.CLICK, 190, 182, 25, 20

STYLEBITS #DMO.rb28, WS.GROUP, 0, 0, 0
statictext  #DMO.st10, "Game #10", 15, 204, 80, 20
radiobutton #DMO.rb28, "1", RDO.CLICK, RDO.CLICK, 110, 204, 25, 20
radiobutton #DMO.rb29, "X", RDO.CLICK, RDO.CLICK, 150, 204, 25, 20
radiobutton #DMO.rb30, "2", RDO.CLICK, RDO.CLICK, 190, 204, 25, 20

STYLEBITS #DMO.rb31, WS.GROUP, 0, 0, 0
statictext  #DMO.st11, "Game #11", 15, 226, 80, 20
radiobutton #DMO.rb31, "1", RDO.CLICK, RDO.CLICK, 110, 226, 25, 20
radiobutton #DMO.rb32, "X", RDO.CLICK, RDO.CLICK, 150, 226, 25, 20
radiobutton #DMO.rb33, "2", RDO.CLICK, RDO.CLICK, 190, 226, 25, 20

STYLEBITS #DMO.rb34, WS.GROUP, 0, 0, 0
statictext  #DMO.st12, "Game #12", 15, 248, 80, 20
radiobutton #DMO.rb34, "1", RDO.CLICK, RDO.CLICK, 110, 248, 25, 20
radiobutton #DMO.rb35, "X", RDO.CLICK, RDO.CLICK, 150, 248, 25, 20
radiobutton #DMO.rb36, "2", RDO.CLICK, RDO.CLICK, 190, 248, 25, 20

STYLEBITS #DMO.rb37, WS.GROUP, 0, 0, 0
statictext  #DMO.st13, "Game #13", 15, 270, 80, 20
radiobutton #DMO.rb37, "1", RDO.CLICK, RDO.CLICK, 110, 270, 25, 20
radiobutton #DMO.rb38, "X", RDO.CLICK, RDO.CLICK, 150, 270, 25, 20
radiobutton #DMO.rb39, "2", RDO.CLICK, RDO.CLICK, 190, 270, 25, 20

STYLEBITS #DMO.rb40, WS.GROUP, 0, 0, 0
statictext  #DMO.st14, "Game #14", 15, 292, 80, 20
radiobutton #DMO.rb40, "1", RDO.CLICK, RDO.CLICK, 110, 292, 25, 20
radiobutton #DMO.rb41, "X", RDO.CLICK, RDO.CLICK, 150, 292, 25, 20
radiobutton #DMO.rb42, "2", RDO.CLICK, RDO.CLICK, 190, 292, 25, 20

BUTTON #DMO.DONE, "APPLY", BTN.DONE, UL, 70, 316, 50, 20

OPEN "Enter Player Choices" FOR WINDOW AS #DMO

#DMO "trapclose [STOPIT]"
#DMO "font consolas 10"

RetVal = FN.DoProps("#DMO.rb", 42) '<--- set up radiobutton numbers
                                   'equal to # of footbal contests

wait

[STOPIT]
CLOSE #USER
close #DMO
end

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

SUB RDO.CLICK RdoHndl$

GameNum = 0
NumChrs = 0
Hndl    = 0

Title$ = ""
PRINT #RdoHndl$, "value? result$"
IF result$ = "set" THEN
  Hndl = HWND(#RdoHndl$)
  GameNum = FN.GetProp(Hndl, PropKey$) '<--- get the football contest number

  Title$ = SPACE$(30)
  CALLDLL #USER, "GetWindowTextA", Hndl AS ULONG, Title$ AS PTR, _
                    30 AS LONG, NumChars AS LONG
  Title$ = LEFT$(Title$, NumChars)
  Player$(PlayerNum, GameNum - 1) = Title$
  PRINT Player$(PlayerNum, GameNum - 1), GameNum - 1
END IF

END SUB

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

SUB BTN.DONE BtnHndl$

RetVal = 0
PlayerNum = PlayerNum + 1
IF PlayerNum > UbndPlayers THEN
  RetVal = FN.GameResults() '<--- find bet winners
  PlayerNum = PlayerNum - 1
  EXIT SUB
END IF

RdoHndl$ = "#DMO.rb"
Tag$ = ""

FOR I = 1 TO 42 '<--- clear all the choices
  Tag$ = RdoHndl$ + STR$(I)
  PRINT #Tag$, "reset"
NEXT I

END SUB

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

FUNCTION FN.ContestResults()
'  dummy football contest results

Tag$ = ""
Result = 0
FOR I = 0 TO 13
  Result = INT(RND(0) * 3) + 1
  SELECT CASE Result
    CASE 1
      Tag$ = "X"
    CASE 2
      Tag$ = "1"
    CASE 3
      Tag$ = "2"
  END SELECT

  Contests$(I) = Tag$
NEXT I
END FUNCTION

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

FUNCTION FN.DoProps(CtlTag$, NumCtls)

Tag$ = ""

TagNum  = 0
Contest = 0

CtlHndl = 0
RetVal  = 0

I = 0
J = 0

FOR I = 1 TO NumCtls STEP 3

  Contest = Contest + 1

  FOR J = 1 TO 3  '<--- set each group or 3 radio buttons to a
                  'football contest
    TagNum = TagNum + 1
    IF TagNum > NumCtls THEN EXIT FOR
    Tag$ = CtlTag$ + STR$(TagNum)
    CtlHndl = HWND(#Tag$)
    RetVal = FN.SetProp(CtlHndl, PropKey$, Contest)
    'PRINT Tag$, TagCnt
  NEXT J
  IF TagNum > NumCtls THEN EXIT FOR
NEXT I

END FUNCTION

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

FUNCTION FN.SetProp(CtlHndl, Key$, Value)

RetVal = 0
CALLDLL #USER, "SetPropA", CtlHndl AS ULONG, Key$ AS PTR, Value AS LONG, _
               RetVal AS VOID

END FUNCTION

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

FUNCTION FN.GetProp(CtlHndl, Key$)

KeyVal = 0
CALLDLL #USER, "GetPropA", CtlHndl AS ULONG, Key$ AS PTR, _
                KeyVal AS LONG
FN.GetProp = KeyVal
END FUNCTION

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

FUNCTION FN.GameResults()
'  PARSE THROUGH THE FOOTBALL CONTESTS
'  PARSE THROUGH EAHC OF THE PLAYERS AND THEIR CONTESTE SELECTIONS
'  DETERMINE THE WINNERS BASED ON BETTING RULES

END FUNCTION

'

Walt Decker
Guru

There are no negatives in nature.

Posts: 956

The hardest part maybe!!! Apr 20, 2022 12:31:35 GMT -5

Quote

Post by Walt Decker on Apr 20, 2022 12:31:35 GMT -5

gaslouk:

I think you have misinterpreted what the first PRO-PO slip was and how it was operated. The first PRO-PO slip was a variation on the gambling game KENO.

The columns were actually punch-card tickets that were perchased by the gamblers. The gamblers punched holes in the tickets to indicate their selections and returned the tickets to the vender who in turn gave them to OPAP.

At the end of the PRO-PO game promotion period 213,670 tickets (columns) were sold (generated). The RESULTS of 12 matches from 4 regions were selected. The results were classed as 1 (home team won), X (tie or draw), or 2 (visiting team won).

When compiled into a master key (column) the contest results may have looked something like this:

X111221XX121

When a gambler's punched ticket (column) was compiled into a key it may have looked something like this:

X211211X2112

In the final analysis, OPAP did not generate anything (other than a lot of money for OPAP). All it did was do a comparison of gambler choices with the master key.

You are making your application way more complicated than is required.