BaffoBlù
Advanced Member >PLATINUM<
Domanda :
In questo genere di script come posso ottenere
qualsiasi cosa che assomiglia a un Resoconto?
In questo genere di script come posso ottenere
qualsiasi cosa che assomiglia a un Resoconto?
Codice:
Option Explicit
Sub Main()
TestoInBandaPassante(" ATTENZIONE *** La Condizione è rappresentata dalle 3 righe in Blù, Fatene Tesoro, con essa potete costruire Metodi molto efficaci...Carpe Diem... Questo è solo un esempio per regalarvi la condizione...Infatti i numeri in gioco sono solo statistica... Vi ho segnalato in Blù gli elementi da MANIPOLARE a vostra discrezione...Capisc a Me?...* * *"),2,6,0
ReDim aNum(22)
ReDim aRt(1)
Dim idEstrInizio
Dim idEstrFine
Dim RetEsiti
Dim RetColpi
Dim RetEstratti
Dim RetIdEstr
Dim es,r,co,k,pp,clp,SClp
Dim a,b,c,d,j1,j2,e,f,g,h,i,l,m,p,q,z1,z2,x,x1,sorte,esitum',o
sorte = CInt(InputBox("Scegli il gioco per Ambo o Terno ? " & Chr(13) & Chr(13) & "2 : Ambo / 3 : Terno / 4 : Quaterna ",,"2"))
esitum = CInt(InputBox("Come vuoi visionare gli Esiti ? " & Chr(13) & Chr(13) & "1 : Primo esito raggiunto / 2 : Tutti entro i 9 colpi ",,"2"))
clp = 9
aRt(1) = r
idEstrInizio = 4121' Inizio 1950
idEstrFine = EstrazioneFin
co = 0
ResetTimer
For es = idEstrInizio To idEstrFine
For r = 1 To 10
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(idEstrInizio,idEstrFine,es)
a = Estratto(es,r,1)'1° estratto ' 26 ' Da ultimo caso Roma 30/05/2024.
b = Estratto(es,r,2)'2° estratto ' 68
c = Estratto(es,r,3)'3° estratto ' 83
j1 = Estratto(es,r,4)'4° estratto ' 39
j2 = Estratto(es,r,5)'5° estratto ' 75
d = Decina(a)' 2
e = Decina(b)' 6
f = Decina(c)' 8
g =(d * 10)' 20
h =(a - g)' 6
i =(e * 10)' 60
l =(b - i)' 8
m =(f * 10)' 80
'o =(c - m)' 3
p = Decina(i)' 6
q = Decina(m)' 8
z1 = Trasposizione(b,a)' 66
z2 = Trasposizione(c,b)' 88
If b > 10 And c > 10 Then
If h = p And l = q Then
If z1 <> z2 Then
If z1 < 89 And z2 < 89 Then
x = Fuori90(a + b + c)
x1 = Fuori90(j1 + j2)
'-----------------------
aNum(1) = 88
aNum(2) = 68
aNum(3) = 35
aNum(4) = 86
aNum(5) = 29
aNum(6) = 79
aNum(7) = 70
aNum(8) = 82
aNum(9) = 76
aNum(10) = 43
'------------
aNum(11) = 25
aNum(12) = 23
aNum(13) = 81
aNum(14) = 26
aNum(15) = 42
'------------
aNum(16) = 04
aNum(17) = 05
aNum(18) = 27
aNum(19) = 57
aNum(20) = 63
'------------
aNum(21) = 30
aNum(22) = 36
aRt(1) = r
co = co + 1
' 22 Numeri : 88.68.35.86.29.79.70.82.76.43...25.23.81.26.42...04.05.27.57.63...30.36
Call Scrivi(String(80,"°") & " Caso n°" & co,1)
ColoreTesto 0
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " * " & StringaEstratti(es,r) & " * ",1,,,1,3
Scrivi
Scrivi "1°.2°.3° Estratto : " & Format2(a) & "-" & Format2(b) & "-" & Format2(c) & " * Somma Fuori90 : " & Format2(x),1,,,1,3
Scrivi ".. 4°.5° Estratto : " & Format2(j1) & "-" & Format2(j2) & " * Somma Fuori90 : " & Format2(x1),1,,,1,3
Scrivi "Elementi della Condizione Principale Rilevati : " & Format2(z1) & " * " & Format2(z2),1,,,1,3
Scrivi(String(70,"."))
ColoreTesto 0
Scrivi "22 Numeri in gioco "
Scrivi StringaNumeri(aNum,,True),1,,,,2
Scrivi
If esitum = 2 Then esitum = 10 End If
Dim Zesiti
Zesiti = VerificaEsiti(aNum,aRt,es + 1,sorte,clp,esitum,,RetEsiti,RetColpi,RetEstratti,RetIdEstr)
If Zesiti > 0 Then
Scrivi " Esiti ",,,,2' & Zesiti
SClp = 0
clp = 9
For k = 1 To Zesiti
SClp = SClp + RetColpi(k)
If SClp > clp Then Exit For
ColoreTesto 2
Call Scrivi(FormatSpace(k,2,True) & ")" & GetInfoEstrazione(RetIdEstr(k)) & " " & FormatSpace(RetEsiti(k),9,True) & _
" colpi : " & FormatSpace(SClp,2,True) & "° " & RetEstratti(k),,True)
ColoreTesto 0
Next
Else
Scrivi " Esiti " & Zesiti
Call Scrivi(" Esito non verificato ",1,,Giallo_,,4)' per Ambo, Non lo vedrete mai apparire...
End If
ColoreTesto 0
Scrivi
End If
End If
End If
End If
Next
Next
TestoInBandaPassante(" * * * * * * * * * * Idea e Script by BaffoBlù * * * * * * * * * *"),1,3,0
Scrivi
Scrivi " Tempo elaborazione " & TempoTrascorso
End Sub
