antonio65
Super Member >PLATINUM<
Salve, dopo l'avvio ormai sono un po' di mesi che si e' avviata la lotteria MillionDay...e grazie alla bravura di Mike e nonche' lo stimolo personale da questa nuova avviata Lotteria...
Si tratta di un semplice sommativo basato sui migliori 5 algoritmi per ogni estratto...In questo caso ho scelto i 5 migliori sommativi del 2 estratto...ovviamente come estetica e codici
non saranno mai come gli script di Mike etc etc....nonostante la mia passione pero' si riesce a capire ed in buona sostanza il succo dello script....non me ne vogliate...
La mia idea a partire da questo script e le variazioni che pubblichero' in un secondo tempo riguarda le linee dei sommativi...prima di iniziare a dare delle previsioni...occorre che il maestro Mike o altri bravi scripter mi consigliano e che le mie idee possono stimolare....per migliore resa come detto in precedenza posto i migliori 5 algoritmi(sommativi) riguardante solo il 2 estratto in ordine di uscita...quindi non ordinata....posto lo script dopo i commenti...
Si tratta di un semplice sommativo basato sui migliori 5 algoritmi per ogni estratto...In questo caso ho scelto i 5 migliori sommativi del 2 estratto...ovviamente come estetica e codici
non saranno mai come gli script di Mike etc etc....nonostante la mia passione pero' si riesce a capire ed in buona sostanza il succo dello script....non me ne vogliate...
La mia idea a partire da questo script e le variazioni che pubblichero' in un secondo tempo riguarda le linee dei sommativi...prima di iniziare a dare delle previsioni...occorre che il maestro Mike o altri bravi scripter mi consigliano e che le mie idee possono stimolare....per migliore resa come detto in precedenza posto i migliori 5 algoritmi(sommativi) riguardante solo il 2 estratto in ordine di uscita...quindi non ordinata....posto lo script dopo i commenti...
Codice:
Sub Main
Dim Nu(10),N1(55,8),N2(55,8),N3(55,8),N4(55,8),N5(55,8),aN(10),SFF(3),nn(1),MEN(5)
Dim sFileBd,T
Dim sChrSep
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estrattcaso
sChrSep = ";"
sFileBd = ScegliFile("C:\Users\anton\Desktop\.txt")
Call ApriBaseDatiFT(sFileBd,5,sChrSep,55)
caso = 0
Ini = 1' EstrazioniArchivioFT - 20
fin = EstrazioniArchivioFT
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
T = Array(T,"Estr-1","SOM1","CASI-1","Estr-2","SOM2","CASI-2","Estr-3","SOM3","CASI-3","Estr-4","SOM4","CASI-4","Estr-5","SOM5","CASI-5","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","Data","SFF1","SFF2","SFF3")
Call InitTabella(T,1,,3,5)
For es = Ini To fin
Call AvanzamentoElab(Ini,fin,es)
stE = StringaEstrattiFT(es)
casi = casi + 1
co = 0
p1 = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
a01 = EstrattoFT(es,p1)
a02 = EstrattoFT(es,p2)
a03 = EstrattoFT(es,p3)
a04 = EstrattoFT(es,p4)
a05 = EstrattoFT(es,p5)
'------- calcolo sommativo ---------------
For sm = 1 To 55
co = co + 1
Nu(1) = FuoriX((a01 + sm),55)
Nu(2) = FuoriX((a02 + sm),55)
Nu(3) = FuoriX((a03 + sm),55)
Nu(4) = FuoriX((a04 + sm),55)
Nu(5) = FuoriX((a05 + sm),55)
N1(co,1) = co
N2(co,1) = co
N3(co,1) = co
N4(co,1) = co
N5(co,1) = co
N1(co,3) = p1
N2(co,3) = p2
N3(co,3) = p3
N4(co,3) = p4
N5(co,3) = p5
N1(co,4) = sm
N2(co,4) = sm
N3(co,4) = sm
N4(co,4) = sm
N5(co,4) = sm
N1(co,6) = MEN(1)
N2(co,6) = MEN(2)
N3(co,6) = MEN(3)
N4(co,6) = MEN(4)
N5(co,6) = MEN(5)
N1(co,7) = 0
N2(co,7) = 0
N3(co,7) = 0
N4(co,7) = 0
N5(co,7) = 0
es1 = es + 1
es2 = es1 + clp
For pp = 1 To 5
e = EstrattoFT(es1,pp)
If e = Nu(1) Then
N1(co,5) = N1(co,5) + 1
nn(1) = N1(co,6)
N1(co,7) = SerieFreqFT(es + 1,es2,nn,1)
End If
'--------------------------------------------
If e = Nu(2) Then
N2(co,5) = N2(co,5) + 1
nn(1) = N2(co,6)
N2(co,7) = SerieFreqFT(es + 1,es2,nn,1)
End If
'-------------------------------------------
If e = Nu(3) Then
N3(co,5) = N3(co,5) + 1
nn(1) = N3(co,6)
N3(co,7) = SerieFreqFT(es + 1,es2,nn,1)
End If
'-------------------------------------------
If e = Nu(4) Then
N4(co,5) = N4(co,5) + 1
nn(1) = N4(co,6)
N4(co,7) = SerieFreqFT(es + 1,es2,nn,1)
End If
'------------------------------------------
If e = Nu(5) Then
N5(co,5) = N5(co,5) + 1
nn(1) = N5(co,6)
N5(co,7) = SerieFreqFT(es + 1,es2,nn,1)
End If
Next
Next
'------------------------------------------
For i = 1 To 1
For a = 2 To 2
For b = 3 To 3
For c = 4 To 4
For d = 5 To 5
Call OrdinaMatrice(N2,- 1,5)
Call OrdinaMatrice(N2,- 1,5)
Call OrdinaMatrice(N2,- 1,5)
Call OrdinaMatrice(N2,- 1,5)
Call OrdinaMatrice(N2,- 1,5)
MEN(1) = FuoriX((Nu(2) + N2(i,4)),55)
MEN(2) = FuoriX((Nu(2) + N2(a,4)),55)
MEN(3) = FuoriX((Nu(2) + N2(b,4)),55)
MEN(4) = FuoriX((Nu(2) + N2(c,4)),55)
MEN(5) = FuoriX((Nu(2) + N2(d,4)),55)
'---------------------------------------------------
ReDim V(50)
V(1) = p2 & "°" & " di " & " = " & a02
V(2) = " + " & Format2(CStr(N2(i,4)))
V(3) = Format2(N2(i,5)) & "su" & casi & " Casi "
V(4) = p2 & "°" & " di " & " = " & a02
V(5) = " + " & Format2(CStr(N2(a,4)))
V(6) = Format2(N2(a,5)) & "su" & casi & " Casi "
V(7) = p2 & "°" & " di " & " = " & a02
V(8) = " + " & Format2(CStr(N2(b,4)))
V(9) = Format2(N2(b,5)) & "su" & casi & " Casi "
V(10) = p2 & "°" & " di " & " = " & a02
V(11) = " + " & Format2(CStr(N2(c,4)))
V(12) = Format2(N2(c,5)) & "su" & casi & " Casi "
V(13) = p2 & "°" & " di " & " = " & a02
V(14) = " + " & Format2(CStr(N2(d,4)))
V(15) = Format2(N2(d,5)) & "su" & casi & " Casi "
For x = 1 To 3
SFF(x) = SerieFreqFT(Ini,fin,MEN,x)
Next
V(16) = MEN(1)
V(17) = MEN(2)
V(18) = MEN(3)
V(19) = MEN(4)
V(20) = MEN(5)
sr = SerieRitardoFT(Ini,fin,MEN,1)
Call VerificaEsitoFT(MEN,es + 1,1,1,Esito,colpi,estratti,id)
V(21) = Esito
V(22) = estratti
V(23) = colpi & "°"
V(24) = sr
If Esito = "Estratto" Or Esito = "Terno" Then
V(25) = DataEstrazioneFT(id)
Else
V(25) = " In corso"
End If
V(26) = SFF(1)
V(27) = SFF(2)
V(28) = SFF(3)
Call AddRigaTabella(V)
If PosizioneFT(es + colpi,MEN(1)) > 0 Then Call SetColoreCella(16,2,5)
If PosizioneFT(es + colpi,MEN(2)) > 0 Then Call SetColoreCella(17,2,5)
If PosizioneFT(es + colpi,MEN(3)) > 0 Then Call SetColoreCella(18,2,5)
If PosizioneFT(es + colpi,MEN(4)) > 0 Then Call SetColoreCella(19,2,5)
If PosizioneFT(es + colpi,MEN(5)) > 0 Then Call SetColoreCella(20,2,5)
'-------------------------------------------------------------
If V(21) = "Estratto" Then Call SetColoreCella(21,1,5)
If V(21) = "Ambo" Then Call SetColoreCella(21,2,4)
If V(21) = "Terno" Then Call SetColoreCella(21,7,4)
If V(21) = "Quaterna" Then Call SetColoreCella(21,4,2)
If V(21) = "Cinquina" Then Call SetColoreCella(21,4,3)
If V(25) = DataEstrazioneFT(id) Then Call SetColoreCella(25,,1)
Call SetColoreCella(22,,7)
Call OrdinaMatrice(N2,+ 1,4)
Call OrdinaMatrice(N2,+ 1,4)
Call OrdinaMatrice(N2,+ 1,4)
Call OrdinaMatrice(N2,+ 1,4)
Call OrdinaMatrice(N2,+ 1,4)
'----------------------------------------------------------
ImpostaGiocataFT 1,MEN,posta,clp
GiocaFT es
Next
Next
Next
Next
Next
Next
casi = 0
SetTableTitle " Listato Sommativo di antonio65 ","Arial",12
SetTableWidth("100%")
SetTableHeight("100%")
Call CreaTabella()
ScriviResocontoFT
End Sub
