Novità

Aiuto script per ambata determinata

S

siriano

Member
Partendo da una semplice previsione come potrebbe essere il primo di bari più il primo di cagliari
come si fa a verificare se ha dato l'ambata determinata nella stessa posizione dei numeri considerati
per la previsione, cioè la prima?

Ho cercato parecchio nel forum ma non ho trovato niente che possa aiutarmi.

Grazie a tutti.
Salutoni.
 
Per la verifica del gioco determinato, bisogna mettere la posta con i valori da 6 a 10

faccio un piccolo script ad esempio, se volessimo prendere un numero isotopo se 2 ruote stessa posizione e volessimo rigiocarlo in quella posizione lo script ad esempio può essere esplicativo.

Codice: 
Sub Main

Dim nu(1),ru(2)

Ini = EstrazioneFin - 10

fin = EstrazioneFin

For es = Ini To fin

For r1 = 1 To 9

For r2 = r1 + 1 To 10

For p1 = 1 To 5

a = Estratto(es,r1,p1)

b = Estratto(es,r2,p1)

If a = b Then

nu(1) = a

'nu(2) = b

ru(1) = r1

ru(2) = r2

ReDim poste(10)

poste(p1 + 5) = 1

Scrivi String(100,"=")

Scrivi SiglaRuota(r1) & vbTab & StringaEstratti(es,r1) & " Posizione.... " & p1 & " Numero... " & a

Scrivi SiglaRuota(r2) & vbTab & StringaEstratti(es,r2) & " Posizione.... " & p1 & " Numero... " & b

Scrivi String(100,"=")

ImpostaGiocata 1,nu,ru,poste,10

Gioca es

End If

Next

Next

Next

Next

End Sub

Mi auguro ti sia di aiuto.

Ciao
 
Ciao a tutti
Ciao Siriano
tutto molto semplice puoi cambiare quello che vuoi ed imparare ad impostare quello che ti occorre
Ciao grande Mike:)
Codice: 
Option Explicit
'Verificare se ci sono errori
Sub Main
    Dim idestr,Ini,Fin,Colpi
    Dim e1,e2,e3
    Dim R1,R2,p1,p2,p3
    Dim aRu(2),aNum(1),aPosta(10)
    Rem
    aRu(1) = BA_ 'Ruota di gioco si puo cambiare
    aRu(2) = CA_ 'Ruota di gioco si puo cambiare
    Rem
    R1 = BA_ ' Ruota  Base calcolo
    R2 = RO_ 'Ruota base calcolo
    Rem
    p1 = 3 'PosizioneBase 1
    p2 = 1 'PosizioneBase 2
    p3 = 1 'Posizione di Verifica estratto
    Rem
    aPosta(6) = 1 ' 6=ED1,7=ED2 ecc
    Rem
    Colpi = 9
    Ini = EstrazioneFin - 100
    Fin = EstrazioneFin
    For idestr = Ini To Fin
        If IndiceMensile(idestr) = 1 Then ' qui scrivi qualsiasi condizione tu voglia vagliare
            e1 = Estratto(idestr,R1,p1) ' qui metti gli estratti che vuoi
            e2 = Estratto(idestr,R2,p2) '////
            e3 = Fuori90(e1 + e2) ' somma degli estratti che hai selezionato
            aNum(1) = e3
            Call ImpostaGiocata(1,aNum,aRu,aPosta,Colpi)
            Call Gioca(idestr,1)
        End If
    Next
    Call ScriviResoconto
End Sub
 
Un oceano di grazie per le risposte.
Però, errore mio, ho dimenticato di scrivere prima che l'esempio era sul primo estratto ma la condizione per elaborare la previsione potrebbe verificarsi in una qualsiasi delle 5 posizioni, come si risolve per indicare allo script che la posizione in cui verificare l'ambata determinata è quella?

Grazie, buona serata.
 
Le Posizioni per le poste determinate sono
posta(6) = Ed1
posta(7) = Ed2
posta(8) = Ed3
posta(9) = Ed4
posta(10) = Ed5

nel mio caso o esempio ho messo questo codice Posta(p1+5), che letto significava la posizione trovata + 5.

resta inteso che puoi agire come credi meglio, basta ragionarci su.

Ciao
 
Buongiono
volevo chiedere gentilmente a Mike se era possibile portare la gestione dello script da due numeri a tre o quattro in quanto ci sono casi con estrazioni di tre o quattro numeri isotopi nella stessa posizione.
Grazie e buon inizio settimana.
 
Ciao Simini, estrazioni con + di 3 Numeri stessa posizione isotopa la vedo dura.
Qualora ce ne fosse + di 3 allora dovresti vederla con il riferimento estrazione.

prova a vedere cosi.

Codice: 
Sub Main

Dim Nu(3),Ru(3)

Ini = EstrazioneFin - 300

fin = EstrazioneFin

For es = Ini To fin

For r1 = 1 To 9

For r2 = r1 + 1 To 10

For r3 = r2 + 1 To 12

For p = 1 To 5

a = Estratto(es,r1,p)

b = Estratto(es,r2,p)

c = Estratto(es,r3,p)

If a = b And b = c Then

k = k + 1

Ru(1) = r1

Ru(2) = r2

Ru(3) = r3

Nu(1) = a

Nu(2) = b

Nu(3) = c

Scrivi GetInfoEstrazione(es) & vbTab,0,0

Scrivi StringaNumeri(Nu,,1) & " - Pos : " & p,0,0

Scrivi vbTab & StringaRuote(Ru)

End If

Next

Next

Next

Next

'Scrivi

Next

Scrivi

Scrivi "Casi trovati con Frequenza = 3 in Isotopia... " & k,1

Scrivi "Estrazioni Analizzate : " & fin - Ini,1

End Sub
 
Ciao Mike
grazie del listato fa quello che chiedevo, volevo sapere se era possibile integrare il primo listato che hai fatto con le funzioni del secondo,(sempre se hai tempo e disponibilità) in quanto il primo mi fa vedere tutte le statistiche nel secondo manca di tutte esse. Io ho provato a unirli ma con scarso successo, non credo di aver maturato le logiche dei listati.

Ti saluto e attendo una tua.
 
Ciao.

Nello script contenuto nel messaggio #8 c'è un errore sulla terza ruota

potebbe creare i problemi di allineamento dei risultati.

:)
 
Ciao.

Nello script contenuto nel messaggio #8 c'è un errore sulla terza ruota

potebbe creare i problemi di allineamento dei risultati.
Clicca per espandere...

Ciao Joe, non saprei dove e come, ma penso che quando luigi ha messo le mani sul verificaesito anche a tutte, ha modificato qualcosa su tutte nel parametro 11 ed anche il codice di esclusione 11 non fa bene il suo lavoro.

Se hai imput diversi intervieni come meglio credi, infatti dico questo perché anche il codice verifica esito passando nel mio script dalla ruota 11, falsa la verifica (vedi verifica numeri uscito su 2 ruote).

Questo difetto l'ho avevo già fatto presente ed in ultimo anche altro utenti hanno riscontrato questa anomalia, per il momento non so !!!.

Per Simini, tutto si può fare, se le richieste sono chiare ed esaustive.

prova anche cosi.

Codice: 
Sub Main

Dim Nu(3),Ru(3),posta(1)

Ini = EstrazioneFin - 300

fin = EstrazioneFin

For es = Ini To fin

For r1 = 1 To 9

For r2 = r1 + 1 To 10

For r3 = r2 + 1 To 12

'If r3 = 11 Then r3 = 12

If r3 <> 11 Then

For p = 1 To 5

a = Estratto(es,r1,p)

b = Estratto(es,r2,p)

c = Estratto(es,r3,p)

If a = b And b = c Then

k = k + 1

Ru(1) = r1

Ru(2) = r2

Ru(3) = r3

Nu(1) = a

'Nu(2) = b

'Nu(3) = c

posta(1) = 1

Call VerificaEsitoTurbo(Nu,Ru,es+1,1,10,,esito,clp,estratti,id)

Scrivi FormatSpace(k,2) & vbTab & GetInfoEstrazione(es) & vbTab,0,0

Scrivi StringaNumeri(Nu,,1) & " - Pos : " & p,0,0

Scrivi vbTab & StringaRuote(Ru) & vbTab,0,0

Scrivi estratti & " Al colpo.... " & clp,1,,,1,,,1

ImpostaGiocata 1,Nu,Ru,posta,10,1

Gioca es,,,,,False

End If

Next

End If

Next

Next

Next

'Scrivi

Next

Scrivi

Scrivi "Casi trovati con Frequenza = 3 in Isotopia... " & k,1

Scrivi "Estrazioni Analizzate : " & fin - Ini,1

ScriviResoconto

End Sub

cosa che non accade se analizziamo le 10 ruote canoniche esclusa la nazionale.

Codice: 
Sub Main

Dim Nu(3),Ru(3),posta(1)

Ini = EstrazioneFin - 300

fin = EstrazioneFin

For es = Ini To fin

For r1 = 1 To 8

For r2 = r1 + 1 To 9

For r3 = r2 + 1 To 10

'If r3 = 11 Then r3 = 12

'If r3 <> 11 Then

For p = 1 To 5

a = Estratto(es,r1,p)

b = Estratto(es,r2,p)

c = Estratto(es,r3,p)

If a = b And b = c Then

k = k + 1

Ru(1) = r1

Ru(2) = r2

Ru(3) = r3

Nu(1) = a

'Nu(2) = b

'Nu(3) = c

posta(1) = 1

Call VerificaEsitoTurbo(Nu,Ru,es+1,1,10,,esito,clp,estratti,id)

Scrivi FormatSpace(k,2) & vbTab & GetInfoEstrazione(es) & vbTab,0,0

Scrivi StringaNumeri(Nu,,1) & " - Pos : " & p,0,0

Scrivi vbTab & StringaRuote(Ru) & vbTab,0,0

Scrivi estratti & " Al colpo.... " & clp,1,,,1,,,1

ImpostaGiocata 1,Nu,Ru,posta,10,1

Gioca es,,,,,False

End If

Next

'End If

Next

Next

Next

'Scrivi

Next

Scrivi

Scrivi "Casi trovati con Frequenza = 3 in Isotopia... " & k,1

Scrivi "Estrazioni Analizzate : " & fin - Ini,1

ScriviResoconto

End Sub
 
Ultima modifica:
Ciao Mike.

Per ora ... l'unica soluzione utile sarebbe riscrivere tutto dal principio ...

utilizzando solo le istruzioni, di minore livello.

Come dici, ci si era accorti di qualcosa che non quadrava ... e c'è la promessa di Luigi ... di controllare.

Quindi penso, si debba dar tempo al tempo ed intanto limitare la ricerca alle 10 ruote classiche.

Perlomeno fintanto che ... lo script a seguito delle correzioni al programma non forninirà risultati estendibili

ed attendibili anche per la Nazionale.

:)
 
Mhmhmhm ... rettifico:

Affinchè, sia generato e controllato il numero esatto di combinazioni ...

... il codicre dovrebbe essere circa questo (che ho ripreso e mofificato dal messaggio #8):

Codice: 
 Sub Main
	Scrivi Combinazioni(11,3) 'terne  ... con 11 ruote
	For r1 = 1 To 9
		For r2 = r1 + 1 To 10
			For r3 = r2 + 1 To 12
				If R3 <> 11 Then 'salta la ruota "Tutte"
					K = K + 1
				End If
			Next
		Next
	Next
	Scrivi K
End Sub

Poi ... il resto, è il resto del problema ...

:)
 
Ottimo Joe, in un primo momento non avevo messo IF di esclusione perché vedevo che comunque la ruota Tutte non veniva generata.

Purtroppo rimangono i problemi legati alla NZ con tutti gli altri problemi, speriamo che Luigi dia una controllatina.

Ciao e grazie dell'intervento
 
Ciao Mike.

ho predisposto un piccolissimo script ... per chi non avesse ancora aggiornato alla versione 1.5.51 di Spaziometria

Dovrebbe indicare degli errori.

Codice: 
Option Explicit
Sub Main
Dim Ini,Fin,R,Nu(1),Ru(1),SF,Tot,Man
Nu(1) = NumeroCasuale (1,90)
Ini = 7440 : Fin = 9000
For R = 1 To 12 : Ru(1) = R
SF = SerieFreqTurbo(Ini,Fin,Nu,Ru,1)
Scrivi SiglaRuota(R) & " " & SF
Tot = Tot + SF
Next
Man = (Tot - SF)/2
Ru(1) = TU_ : SF = SerieFreqTurbo(Ini,Fin,Nu,Ru,1)
Scrivi "TT " & SF,False,False
If Man = SF Then Scrivi " OK !",True Else Scrivi " ERRORE ",True,,,2
End Sub


Quindi i pronostici calcolati con versioni non aggiornate ... potrebbero al pari contenere errori.

Per lo script .... fin qui considerato ed utilizzabile appunto dalla versione 1.5.51 di Spaziometria,

ho riorganizzato un pochino l'output e corretto quanto s'era detto ed alcune cosette.

Codice: 
Sub Main
	Dim Nu(3),Ru(3),posta(1)
	Ini = EstrazioneFin - 300
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 9
			For r2 = r1 + 1 To 10
				For r3 = r2 + 1 To 12
					If r3 = 11 Then r3 = 12
					For p = 1 To 5
						a = Estratto(es,r1,p)
						b = Estratto(es,r2,p)
						c = Estratto(es,r3,p)
						If a = b And a = c Then
							k = k + 1
							Nu(1) = a
							
							Ru(1) = r1
							Ru(2) = r2
							Ru(3) = r3
							
							posta(1) = 1
							Call VerificaEsito(Nu,Ru,es + 1,1,10,,esito,clp,Estratti,id)
							Scrivi FormatSpace(k,2) & vbTab & GetInfoEstrazione(es) & vbTab,0,0
							Scrivi StringaNumeri(Nu,,1) & " - Pos : " & p,0,0
							Scrivi vbTab & StringaRuote(Ru) & vbTab,0,0
							Scrivi clp & "° Colpo" & Space(3) & Estratti
							ImpostaGiocata 1,Nu,Ru,posta,10,1
							Gioca es,,,,,False
						End If
					Next
				Next
			Next
		Next
		'Scrivi
	Next
	Scrivi
	Scrivi "Casi trovati con Frequenza = 3 in Isotopia... " & k,1
	Scrivi "Estrazioni Analizzate : " & fin - Ini,1
	ScriviResoconto
End Sub

:) Buona Giornata a tutte/i.
 
Si !!! Joe ho visto che con la versione 1.5.51 Tutto funziona al meglio anche il tuo quesito sulla SeriefreQTurbo.

Ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto