Per Solare o chi mi puo aiutare

[Serpico 90]

Buona sera Solare,,,,,,leggendo tra i vari post del forum Ti chiedo cortesemente se mi puoi aiutare .....
io mi ritrovo con un mio modo di gioco che vado a spiegare;
dal modo di gioco individuo due ruote faccio esempio
estrazione del 22.o6.2019
individuo due ruote palermo roma
faccio la previsione dei numeri 51-06-35-80-16.61.45.90
questi i risultati....18-7 rom ambo 6.45
1-Agosto roma 51- 6 ambo
8-agosto roma 45-51 ambo
10-agosto....palermo 80-6 ambo
Questo e solo un esempio reale
evidentemente non ho scoperto chissà che......sono otto numeri che non posso giocare per intero e per due ruote

di queste situazioni in altre ruote e con altre previsioni capita molto spesso di fare degli ambi in una o nell'altra ruota di gioco.
cosa chiedo?
hai per caso qualche script dove io
inserisco le due ruote di gioco
inerisco i numeri da giocare
e lo script mi potrebbe dare delle indicazioni di gioco per Ambo?
Spero di essere stato chiaro nell'esposizione.......
In ogni caso sono disponibile a chiarire meglio il tutto
Ti ringrazio se mi risponderai e in attesa buon pomeriggio
saluti
Serpico

 

[solare]

Ciao Serpico 90, se ti può essere di aiuto ho trovato questo script.
Option Explicit
Sub Main
'''rubino-Chicco3 Numeri Ricerca Statistica sulle le 10 ruote
Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
Dim rr,pos,z,nu,bb,Classe,coltot,ele0,acol,ii,jj,vuoi,ctr
Dim numeri(90)
ColoreTesto(10)
Scrivi " - Rubino-Chicco3-8 ",1,,2,5
Scrivi "Verifica Risultati di una lunghetta di Numeri Inserita a scelta Utente ",1,,1,4
Scrivi "-- Idea Numeri Usciti e Ripetuti oppure Non usciti tra le 10 Ruote ",1,,1,4
ColoreTesto(0)
'''' trova i nr rimasti vergini o non usciti tra tutte le 10 ruote e listali
'''' trova i nr.usciti e ripetuti tra le 10 ruote e listati
nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
es = InputBox("dall Estraz.n.",,EstrazioneFin)
vuoi = InputBox("Vuoi elenco solo Ambi (Rc >= Rmax) S/N ",,"N")
Call ScegliNumeri(numeri)
S = UBound(numeri)
'''''
'''''
ReDim nr(90,2)
For n = 1 To 90
rit = EstrattoRitardo(11,n,3950,es)
nr(n,1) = rit
nr(n,2) = n
Next
''' provenienza ruota e posizione estratto
ele0 = ""
ReDim prov(90,2)
For rr = 1 To 10
For pos = 1 To 5
nu = Estratto(es,rr,pos)
For z = 1 To S
If Int(nu) = Int(numeri(z)) Then
prov(z,1) = rr
prov(z,2) = pos
Exit For
End If
Next
Next
Next
''' prepara per output 2 campi contenente la provenienza
For bb = 1 To S
ele0 = ele0 & Format2(numeri(bb)) & "-"
Next
'''
Scrivi
ColoreTesto(2)
Scrivi "Numeri Rilevati ed Inseriti nell estrazione " & es & " / " & DataEstrazione(es) & " attesi per l'Uscita su varie ruote ",1
ColoreTesto(0)
Scrivi "Nr. " & ele0 & " Tot.nr " & S,1
ColoreTesto(1)
Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " dall estraz.successiva " & es & " / " & DataEstrazione(es),1
ColoreTesto(0)
Scrivi "Ru Attuale Verifica Esito",1
ReDim ruote(1)
For h = 1 To 11
ruote(1) = h
c = 0
'''verifica esito al colpo successivo
Call VerificaEsitoTurbo(numeri,ruote,es + 1,nsorte,1,,retesito,,retestratti,retidestr)
'''''se negativo prova per più colpi
If retestratti = "" Then
retesito = " Neg.InCorso <<"
Call VerificaEsitoTurbo(numeri,ruote,es + 2,nsorte,,,retesito,,retestratti,retidestr)
If retestratti = "" Then
retesito = " Neg.InCorso <<"
retidestr = EstrazioneFin
c = 1
End If
End If
Call StatisticaFormazioneTurbo(numeri,ruote,2,retrit,retritmax,,retfre,3950,EstrazioneFin)
If retrit > 0 Then ColoreTesto(0) Else ColoreTesto(1) End If
If c = 1 Then ColoreTesto(11)End If
Scrivi SiglaRuota(h) & " Rc." & FormattaStringa(retrit,"000") & " / Rx." & FormattaStringa(retritmax,"000") & " Esito Estr.n. " & retidestr & " colpo " & Format2(retidestr - es) & " " & retestratti & " " & retesito,1
Next
Scrivi String(90,"*")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ColoreTesto(1)
Scrivi:Scrivi " Sviluppa Ambi secchi -- Situazione a Estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
Scrivi "Elenco AMBI solo con RC >= Rmax ( S/N )...scelto " & vuoi,1
ColoreTesto(0)
Classe = 2
coltot = InitSviluppoIntegrale(numeri,Classe)
If coltot > 0 Then
''''
Do While GetCombSviluppo(acol) = True
ii = ii + 1
Call Messaggio("Col.Tot. " & coltot & " / Int." & ii)
If ScriptInterrotto Then Exit Do
''''
ReDim ar(1)
For jj = 1 To 11
ar(1) = jj
Call StatisticaFormazioneTurbo(acol,ar,2,retrit,retritmax,,retfre,3950,EstrazioneFin)
If retrit >= retritmax Then
ColoreTesto(2)
Else
ColoreTesto(0)
End If
If retrit >= retritmax And vuoi = "S" Then
ctr = 1
Scrivi SiglaRuota(jj) & " Ambo." & Format2(acol(1)) & "." & Format2(acol(2)) & " Rc." & FormattaStringa(retrit,"0000") & " Rx." & FormattaStringa(retritmax,"0000") & " Fr." & FormattaStringa(retfre,"0000"),1
End If
If vuoi = "N" Then
Scrivi SiglaRuota(jj) & " Ambo." & Format2(acol(1)) & "." & Format2(acol(2)) & " Rc." & FormattaStringa(retrit,"0000") & " Rx." & FormattaStringa(retritmax,"0000") & " Fr." & FormattaStringa(retfre,"0000"),1
End If
Next
If ctr = 0 Then Scrivi "---------------",1
'''''
Loop
End If
''''''''''''
ColoreTesto(0)
Scrivi:Scrivi TempoTrascorso,1
End Sub

 

[Serpico 90]

Ciao Solare,ti ringrazio intanto per aver risposto,,,,
lo script che gentilmente mi hai inviato io gia lo uso perchè tempo fa Rubino e stato cosi gentile di inviarmelo ,ma dopo aver fatto tante prove con i numeri previsti dal mio modo di gioco cioe dalle ottine da me previste solo per due ruote e per il gioco dell'ambo non......mi da le previsioni per poter aggangiare ,,,,il sognato ambo.( o meglio magari non sono io che lo so interpretare perche lo sript fatto da Rubino e ottimo ma non lo posso adattare per le mie previsioni)
per caso ti trovi qualche script che dopo che inserisco i numeri me li divida per pari e dispari?
faccio un altro esempio
estrazione del 27.06.2019
ruote cagliari firenze

numeri in previsione 10-33.88.90--78--43--55-45--
risultato il 27.6...cagliari 78.10.43.....
ora se riesco ad avere uno script che mi divida i numeri in previsione tra dispari e pari
avrei fatto un ambo 10.78 in quartina.....certamente meglio di un ambo in ottina
Se per caso ne sei in possesso bene,,se no devo chiedere al bravo Salvo o ad altri bravi scriptisti se gentilmente ,,mi possono fare questo tipo di script.......aspettando tua gentile risposta o se per caso qualcuno che legge questo post e in grado di farmelo avere ringrazio e saluto
serpico

 

[Serpico 90]

scusate ma stasera il mio collegamento con internet e i forum e molto scarso ho indicato nel post precedente ruote e numeri non giusti anche perche il terno e gia presente nell'estrazione del 27.6
questa la previsione esatta
ruote bari cagliari
numeri 28.---73---43--45--88-26--90---71
estrazione del 7.luglio bari 88.45
estrazione del 25.luglio bari 26-90--- ecco l'ambo pari in quartina.