Στοιχημα -- Αναπτυξη στηλων

[Touba]

Θελω να φτιαξω καποιο προγραμμα για το ΣΤΟΙΧΗΜΑ σε VB.

Καμια ιδεα για την αναπτυξη των στηλων (καποιο γρηγορο αλγοριθμο);

[piosmexeri]

An kai exo kairo na grapso se VB as kano mia prospathia

Esto N oi agones pou thes na pexeis

Vazeis N triades apo text boxes stin forma

p.x.

agon(1),agon(2),agon(3)

.....

.....

agonN(1),agonN(2),agonN(3)

 

opou agonN(1) : apodosi tou 1

agonN(2) : apodosi tou X

agonN(3) : apodosi tou 2

meta thes omos ke 3*N Labels gia tin apikonisi ton stilon

an den thes na apothikeveis tis times ton stilon se kapio pinaka

-----------------------------

code:

General

option explicit

dim i1,i2,.,iN,j as integer

dim str(1 to 3) as string

 

vazeis ena button stin forma ke grafeis ton ekseis kodika apo piso :

j = 1

str(1) = "1"

str(2) = "X"

str(3) = "2"

 

for i1 = 1 to 3

for i2 =1 to 3

......

for iN to 3

Label(j).caption = str(i1)&"-" &str(i2)&"-"&...&"-"&str(iN) & string(CDBL(agon1(i1).text)*....*CDBL(agonN(iN))

j = j + 1

next iN

.....

next i2

next i1

--------------------telos

Kati tetio ke praktika ine asimforo gia perisoterous apo 4 agones,ektos ki an thes na apothikefseis tis times se kapio pinaka.Vevea afto pou sou edosa ine o kormos ton tropopeis opos theleis.. p.x. na exeis ena onoma sta text boxes ke na pexeis me tous deiktes meta..Kane mia prospathia ke an exeis problem postare ke tha doume ti tha kanoume :grin: