' --------> gennaro v1.1, scritto per SpazioMetria 1.3.39 o superiore
'Conta i numeri usciti 0,1,2,3,4,5 (e piu di 5 volte) nella qntita di estrazioni scelte e sulla ruota scelta
'Sempre nelle estrazioni scelte, controlla qnt ambi, terni, quaterne, cinquine hanno formato.
Sub Main()
Dim ru(1),nu(1)
Dim vett0(90),vett1(90),vett2(90),vett3(90),vett4(90),vett5(90),vettPiuDi5(90)
ruo = CInt(InputBox("Su quale ruota elaboro?","Ruota",1))
ru(1) = ruo
estr = CInt(InputBox("Quante estrazione indietro vuoi controllare? ","Estrazioni",12))
co0 = 0:co1 = 0:co2 = 0:co3 = 0:co4 = 0:co5 = 0:coPiuDi5 = 0
For x = 1 To 90
Call AvanzamentoElab(1,90,x)
Messaggio "Elaboro il numero [" & Format2(x) & "]"
nu(1) = x
If SerieFreq(EstrazioneFin - estr + 1,EstrazioneFin,nu,ru,1) = 0 Then
co0 = co0 + 1
vett0(co0) = Format2(x)
End If
If SerieFreq(EstrazioneFin - estr + 1,EstrazioneFin,nu,ru,1) = 1 Then
co1 = co1 + 1
vett1(co1) = Format2(x)
End If
If SerieFreq(EstrazioneFin - estr + 1,EstrazioneFin,nu,ru,1) = 2 Then
co2 = co2 + 1
vett2(co2) = Format2(x)
End If
If SerieFreq(EstrazioneFin - estr + 1,EstrazioneFin,nu,ru,1) = 3 Then
co3 = co3 + 1
vett3(co3) = Format2(x)
End If
If SerieFreq(EstrazioneFin - estr + 1,EstrazioneFin,nu,ru,1) = 4 Then
co4 = co4 + 1
vett4(co4) = Format2(x)
End If
If SerieFreq(EstrazioneFin - estr + 1,EstrazioneFin,nu,ru,1) = 5 Then
co5 = co5 + 1
vett5(co5) = Format2(x)
End If
If SerieFreq(EstrazioneFin - estr + 1,EstrazioneFin,nu,ru,1) > 5 Then
coPiuDi5 = coPiuDi5 + 1
vettPiuDi5(coPiuDi5) = Format2(x)
End If
Next
ColoreTesto(0)
Scrivi("Sulla ruota di " & NomeRuota(ruo) & " tra le estrazioni " & EstrazioneFin - estr + 1 & " / " & EstrazioneFin),1
Scrivi
ColoreTesto(1)
Scrivi String(120,"°")
Scrivi("Sono usciti 0 volte " & Format2(co0) & " numeri : " & StringaNumeri(vett0,"."))
'-----------------------------------------------------------------------------------------------------------------------
ColoreTesto(2)
Scrivi String(120,"°")
Scrivi("Sono usciti 1 volta " & Format2(co1) & " numeri : " & StringaNumeri(vett1,"."))
Messaggio ("Conteggio le combinazioni coi numeri usciti 1 volta")
Call ScriviAccoppiamenti(vett1,ru,estr)
'-----------------------------------------------------------------------------------------------------------------------
ColoreTesto(1)
Scrivi String(120,"°")
Scrivi("Sono usciti 2 volte " & Format2(co2) & " numeri : " & StringaNumeri(vett2,"."))
Messaggio ("Conteggio le combinazioni coi numeri usciti 2 volte")
Call ScriviAccoppiamenti(vett2,ru,estr)
'-----------------------------------------------------------------------------------------------------------------------
ColoreTesto(2)
Scrivi String(120,"°")
Scrivi("Sono usciti 3 volte " & Format2(co3) & " numeri : " & StringaNumeri(vett3,"."))
Messaggio ("Conteggio le combinazioni coi numeri usciti 3 volte")
Call ScriviAccoppiamenti(vett3,ru,estr)
'-----------------------------------------------------------------------------------------------------------------------
ColoreTesto(1)
Scrivi String(120,"°")
Scrivi("Sono usciti 4 volte " & Format2(co4) & " numeri : " & StringaNumeri(vett4,"."))
Messaggio ("Conteggio le combinazioni coi numeri usciti 4 volte")
Call ScriviAccoppiamenti(vett4,ru,estr)
'-----------------------------------------------------------------------------------------------------------------------
ColoreTesto(2)
Scrivi String(120,"°")
Scrivi("Sono usciti 5 volte " & Format2(co5) & " numeri : " & StringaNumeri(vett5,"."))
Messaggio ("Conteggio le combinazioni coi numeri usciti 5 volte")
Call ScriviAccoppiamenti(vett5,ru,estr)
'-----------------------------------------------------------------------------------------------------------------------
ColoreTesto(1)
Scrivi String(120,"°")
Scrivi("Sono usciti >5 volte " & Format2(coPiuDi5) & " numeri : " & StringaNumeri(vettPiuDi5,"."))
Messaggio ("Conteggio le combinazioni coi numeri usciti più di 5 volte")
Call ScriviAccoppiamenti(vettPiuDi5,ru,estr)
'-----------------------------------------------------------------------------------------------------------------------
Call TestoInBandaPassante(Chr(14) & " /\ /\ /\ /\ /\ scripted by gennaro! " & Chr(169) & _
" ... San Gennà, pienz'c tu! /\ /\ /\ /\ /\ " & Chr(14),1,vbYellow,1)
End Sub
Function ScriviAccoppiamenti(idVett,idRu,idEstr)
Scrivi
If InitSviluppoIntegrale(idVett,2) > 0 Then
Scrivi("Questi numeri li troviamo accoppiati nei seguenti ambi:"),1
Scrivi
Do While GetCombSviluppo(aCol) = True
Call VerificaEsito(aCol,idRu,EstrazioneFin - idEstr,2,idEstr,aPosizioni,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
If RetEsito = "Ambo" Then
Scrivi(RetIdEstr & " - " & RetEstratti)
End If
Loop
End If
If InitSviluppoIntegrale(idVett,3) > 0 Then
Scrivi
Scrivi("Questi numeri li troviamo accoppiati nei seguenti terni:"),1
Scrivi
Do While GetCombSviluppo(aCol) = True
Call VerificaEsito(aCol,idRu,EstrazioneFin - idEstr,3,idEstr,aPosizioni,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
If RetEsito = "Terno" Then
Scrivi(RetIdEstr & " - " & RetEstratti)
End If
Loop
End If
If InitSviluppoIntegrale(idVett,4) > 0 Then
Scrivi
Scrivi("Questi numeri li troviamo accoppiati nelle seguenti quaterne:"),1
Scrivi
Do While GetCombSviluppo(aCol) = True
Call VerificaEsito(aCol,idRu,EstrazioneFin - idEstr,4,idEstr,aPosizioni,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
If RetEsito = "Quaterna" Then
'Scrivi(StringaNumeri(aCol) & " - " & RetEstratti)
Scrivi(RetIdEstr & " - " & RetEstratti)
End If
Loop
End If
If InitSviluppoIntegrale(idVett,5) > 0 Then
Scrivi
Scrivi("Questi numeri li troviamo accoppiati nelle seguenti cinquine:"),1
Scrivi
Do While GetCombSviluppo(aCol) = True
Call VerificaEsito(aCol,idRu,EstrazioneFin - idEstr,5,idEstr,aPosizioni,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
If RetEsito = "Cinquina" Then
Scrivi(RetIdEstr & " - " & RetEstratti)
End If
Loop
End If
Scrivi
End Function