Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Dim anum(10),aruo(1)
Dim sRetNumeri,nRetVincita,nAmbetti
r = InputBox("scegli Ruota",,5)
aruo(1) = r
ScegliNumeri(anum)
Ini = EstrazioneFin - 100
fin = EstrazioneFin
Scrivi "Verifica Ambetti sui Numeri : " & StringaNumeri(anum) & " Sulla Ruora di : " & SiglaRuota(r) & " **** Script By Mike58 ****",1,1,,1,4,,1
Scrivi
ReDim AT(10)
AT(1) = " data "
AT(2) = " Comb in gioco "
AT(3) = " Esito "
AT(4) = " Colpo "
AT(5) = " Estratti "
AT(6) = " Info ID Estraz. "
AT(7) = " ambetti "
AT(8) = " Ambetti "
AT(9) = " Vincita "
AT(10) = " Estrazioni "
Call InitTabella(AT,2,,3,5)
For idestr = fin To Ini Step - 1
Call VerificaEsitoTurbo(anum,aruo,idEstr,1,1,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
nAmbetti = VerificaAmbetto(anum,r,idestr,sRetNumeri,nRetVincita)
c = c + 1
If nAmbetti > 0 Then casi = casi + 1
ReDim AV(10)
AV(1) = GetInfoEstrazione(idestr)
AV(2) = StringaNumeri(anum)
AV(3) = RetEsito
AV(4) = c
AV(5) = RetEstratti
If RetEsito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
AV(7) = nAmbetti
AV(8) = sRetNumeri
posta = 1
AV(9) = Round(nRetVincita * posta,2)
AV(10) = StringaEstratti(idestr,r)
Call AddRigaTabella(AV,,,3)
nvincitaAmbetto = nvincitaAmbetto + AV(9)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi "Casi totali di gioco " & c,True,True,5,1,3
Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
Scrivi "Totali Vincita Ambetto :" & nvincitaAmbetto,1
End SubSub Main
Dim nu(10),ru(1),num,vinc,ambetti
Dim aT,aV,Tt,vV,mM
r = InputBox("Ruota",,5)
ru(1) = r
ScegliNumeri(nu)
ab = UBound(nu)
Tt = Array(Tt,"Ambetto","2","3","4","5","6","7","8","9","10")
Call InitTabella(Tt,1,,3,5)
vV = Array(vV,"Vincita Lorda",(65*.94),(21.67*.94),(10.83*.94),(6.50*.94),(4.33*.94),(3.10*.94),(2.32*.94),(1.81*.94),(1.44*.94))
mM = Array(mM,"Moltiplicatore",4,12,24,40,60,84,112,144,180)
Call AddRigaTabella(vV,,,3)
Call SetColoreCella((ab),3,1)
Call AddRigaTabella(mM,,,3)
Call SetColoreCella((ab),3,1)
CreaTabella
Ini = EstrazioneFin - 40
fin = EstrazioneFin
Scrivi StringaNumeri(nu) & " scelti N," & ab,1
aT = Array(aT,"Caso","Info Estrazione","Estratti","N.ambetti","Numeri Vincenti","vincita")
Call InitTabella(aT,2,,3,5)
For es = Ini To fin
n = n + 1
ambetti = VerificaAmbetto(nu,r,es,num,vinc)
aV = Array(aV,n,GetInfoEstrazione(es),StringaEstratti(es,1),ambetti,num,vinc)
Call AddRigaTabella(aV,,,3)
If aV(6) > 0 Then Call SetColoreCella(5,3,0)
'Scrivi GetInfoEstrazione(es) & " " & ambetti & " " & num & " " & vinc
Next
CreaTabella
End SubOption Explicit
Sub Main
Dim idEstr,Ruota
Dim Inizio,Fine
Dim nClasseFrz
Dim id,k
Dim nElemFrz
Dim nQAmbetti
Dim nEstrTot
Dim nFrqMedia
Dim sNomeFrz
Inizio = EstrazioneIni
Fine = EstrazioneFin
Ruota = ScegliRuota
nEstrTot =(Fine + 1) - Inizio
ReDim aElemFormazione(0)
Call RichiediFormazione(aElemFormazione,nClasseFrz,sNomeFrz)
nElemFrz = UBound(aElemFormazione)
ReDim aValStat(nElemFrz,4)
' indice 0 il ritardo
' 1 freq
' 2 ritmax
' 3 incr rit max
' 4 presenze
If Ruota > 0 And nClasseFrz > 1 Then
For id = 1 To nElemFrz
ReDim aNumInGioco(0)
Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
For idEstr = Inizio To Fine
' inserire qui il codice che analizza l'estrazione corrente
nQAmbetti = VerificaAmbetto(aNumInGioco,Ruota,idEstr,"",0)
If nQAmbetti > 0 Then
aValStat(id,0) = 0
aValStat(id,1) = aValStat(id,1) + nQAmbetti
aValStat(id,3) = 0
aValStat(id,4) = aValStat(id,4) + 1
Else
aValStat(id,0) = aValStat(id,0) + 1
If aValStat(id,0) > aValStat(id,2) Then
aValStat(id,2) = aValStat(id,0)
aValStat(id,3) = aValStat(id,3) + 1
End If
End If
If ScriptInterrotto Then Exit For
Next
Call AvanzamentoElab(1,nElemFrz,id)
If ScriptInterrotto Then Exit For
Next
Dim aV
aV = Array("","Formazione","Ritardo","Frequenza","RitardoMax","IncrRitMax","Presenze","I.C.")
Call InitTabella(aV,2,,3,5)
For id = 1 To nElemFrz
ReDim aNumInGioco(0)
Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
aV(1) = StringaNumeri(aNumInGioco)
aV(2) = aValStat(id,0)
aV(3) = aValStat(id,1)
aV(4) = aValStat(id,2)
aV(5) = aValStat(id,3)
aV(6) = aValStat(id,4)
nFrqMedia = Dividi(nEstrTot,aValStat(id,4))
aV(7) = Round(Dividi(aValStat(id,0),nFrqMedia),3)
Call AddRigaTabella(aV)
Next
Call Scrivi("Statistica_Ambetto",1,1,2,4,3)
Call Scrivi("Analisi su formazione : " & sNomeFrz)
Call Scrivi("Sulla ruota : " & NomeRuota(Ruota))
Call Scrivi("Da : " & GetInfoEstrazione(Inizio))
Call Scrivi("A : " & GetInfoEstrazione(Fine))
Call Scrivi("Totali range : " & nEstrTot)
Call Scrivi
Call CreaTabella(2)
End If
End Sub
Sub GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
Dim k
ReDim aNumInGioco(nClasseFrz)
For k = 1 To nClasseFrz
aNumInGioco(k) = aElemFormazione(id,k)
Next
End Sub
Sub RichiediFormazione(aElemFormazione,nClasseFrz,sNome)
Dim s
Dim n
Dim id
ReDim aNomiForm(0)
Call ElencoFileInDirectory(GetDirectoryAppData & "formazioni\",aNomiForm,".frz")
id = ScegliOpzioneMenu(aNomiForm,1,"Selezione formazione")
If GetElementiFormazione(aNomiForm(id),aElemFormazione) Then
nClasseFrz = GetClasseFormazione(aNomiForm(id))
sNome = aNomiForm(id)
End If
End Sub
