Scrivi String(47,32) & "Mike58",1
ColoreTesto 0
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(2),Num(5),sff(3),Nam(1),DNA(2),Namfr(180,5)
Dim m1(2),m2(2),m3(2),m4(2),m5(2),m6(2),m7(2),m8(2),m9(2),m10(2)
Dim Ru(12),T,x1,x2,x3,x4,x5
Dim MEN(5)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
casi = 0
ini = 9421'EstrazioneFin - est
fin = EstrazioneFin
r = InputBox("Quale Ruota",,6)
'pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Qu1le indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,3))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto1","SOMMATIVO1","FREQ SU CASI","ESTR + SOMMATIVO","Estratto2","SOMMATIVO2","FREQ SU CASI2","ESTR + SOMMATIVO","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","Data","n1","n2","n3","n4","n5","SFF1","SFF2","SFF3")
Call InitTabella(T,6)
For es = ini To fin
idd = GetInfoEstrazione(es)
Call AvanzamentoElab(Ini,fin,es)
p1 = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est1 = Estratto(es,r,p1)
est2 = Estratto(es,r,p2)
est3 = Estratto(es,r,p3)
est4 = Estratto(es,r,p4)
est5 = Estratto(es,r,p5)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est1 + sm)
NuFr(co,1) = sm
sf = SerieFreqTurbo(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
'End If
End If
Next
'Next
'------- calcolo sommativo2 ---------------
For sn = 1 To 90
co = co + 1
Nam(1) = Fuori90(est2 + sn)
Namfr(co,1) = sn
sfx = SerieFreqTurbo(es1,es2,Nam,Ru,1)
If sfx > 0 Then
Namfr(co,2) = Namfr(co,2) + 1
'End If
End If
Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
Call OrdinaMatrice(Namfr,- 1,2)
For i = 1 To smm
'NuAdd(1) = Fuori90(NuFr(i,1))
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
NuAdd(2) = Fuori90(Nam(1) + Namfr(i,1))
ReDim V(30)
V(1) = p1 & "°" & " di " & SiglaRuota(r) & " = " & est1
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = p2 & "°" & " di " & SiglaRuota(r) & " = " & est2
V(6) = " + " & Format2(CStr(Namfr(i,1)))
V(7) = Format2(Namfr(i,2)) & " su " & casi & " Casi "
V(8) = NuAdd(2)
MEN(1) = Fuori90(Nu(1) + NuFr(i,1))
MEN(2) = Fuori90(Nam(1) + Namfr(i,1))
'MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
'MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
'MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
m1(1) = MEN(1) : m1(1) = MEN(1)
m2(1) = MEN(2) : m2(1) = MEN(2)
m3(1) = MEN(3) : m3(1) = MEN(3)
m4(1) = MEN(4) : m4(1) = MEN(4)
m5(1) = MEN(5) : m5(1) = MEN(5)
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
Next
Next
V(9) = MEN(1)
V(10) = MEN(2)
V(11) = MEN(3)
V(12) = MEN(4)
V(13) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,3,,Esito,colpi,estratti,id)
V(14) = Esito
V(15) = estratti
V(16) = colpi & "°"
V(17) = sr
If esito = "Estratto" Or esito = "Terno" Then
V(18) = DataEstrazione(id)
Else
V(18) = " In corso"
End If
V(19) = m1(1)
V(20) = m2(1)
V(21) = m3(1)
V(22) = m4(1)
V(23) = m5(1)
V(24) = sff(1)
V(25) = sff(2)
V(26) = sff(3)
Call AddRigaTabella(V)
Call SetColoreCella(15,,7)
Call SetColoreCella(4,,1)
Call SetColoreCella(8,,1)
If Posizione(es + colpi,r,MEN(1)) > 0 Then Call SetColoreCella(9,3,1)
If Posizione(es + colpi,r,MEN(2)) > 0 Then Call SetColoreCella(10,3,1)
If Posizione(es + colpi,r,MEN(3)) > 0 Then Call SetColoreCella(11,3,1)
If Posizione(es + colpi,r,MEN(4)) > 0 Then Call SetColoreCella(12,3,1)
If Posizione(es + colpi,r,MEN(5)) > 0 Then Call SetColoreCella(13,3,1)
Call VerificaEsito(m1,Ru,es1,1,3,,esito1,colpi1,estratti1,id1)
Call VerificaEsito(m2,Ru,es1,1,3,,esito2,colpi2,estratti2,id2)
Call VerificaEsito(m3,Ru,es1,1,3,,esito3,colpi3,estratti3,id3)
Call VerificaEsito(m4,Ru,es1,1,3,,esito4,colpi4,estratti4,id4)
Call VerificaEsito(m5,Ru,es1,1,3,,esito5,colpi5,estratti5,id5)
If esito1 = "Estratto" Then Call SetColoreCella(19,1,4)
If esito2 = "Estratto" Then Call SetColoreCella(20,1,4)
If esito3 = "Estratto" Then Call SetColoreCella(21,1,4)
If esito4 = "Estratto" Then Call SetColoreCella(22,1,4)
If esito5 = "Estratto" Then Call SetColoreCella(23,1,4)
If V(14) = "Estratto" Then Call SetColoreCella(14,3,1)
If V(14) = "Ambo" Then Call SetColoreCella(14,2,4)
If V(14) = "Terno" Then Call SetColoreCella(14,7,4)
If V(18) = DataEstrazione(id) Then Call SetColoreCella(18,,1)
ImpostaGiocata 1,MEN,Ru,posta,clp
Gioca es
Next
casi = 0
SetTableTitle " Listato Sommativo di antonio65 ","Arial",12
SetTableWidth("100%")
SetTableHeight("100%")
Call CreaTabella()
ScriviResoconto
End Sub