Un ambo secco, due ruote.

[ananda]

Quando esce un doppio ambo isotopo procedere così:

sommare i due componenti dell'ambo (col -90). Questo è il primo numero!
Abbinarlo al fisso 45. Questo è il secondo numero!

Mettere in gioco questi due per ambo secco sulle due ruote di rilevazione ed anche su TU!

Per quanti colpi?
Solitamente l'ambo esce o ai primi due colpi o fra il 12° e il 20°. In tutto 10 estrazioni di gioco.

Per aumentare le probabilità abbinare ai due capigioco i numeri originari.

Se potete fare un listato L8 grazie mille.

Ciao e buona fortuna.

 

[Roby]

Dovrebbe essere così

Ciao

Sub main()
scrivi:Scrivi String(40," ")& " Metodo di Ananda script By Blackmore",1
Scrivi 
Dim ruote(10)
Dim ambo1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim ambo5(2)
Dim poste(2)
poste(2)=1 
inizio=InputBox ("INSERISCI L'ESTRAZIONE DI PARTENZA :",,8200)
k=InputBox ("INSERISCI I COLPI DI GIOCO",,10)
ini=inizio
fin=EstrazioneFin
For es = ini To fin 
AvanzamentoElab ini,fin,es
For r1=1 To 10
For r2=r1+1 To 12
If r2=11 Then r2=12
For p=1 To 4
For p1 = p+1 To 5
a=Estratto(es,r1,p) : b=Estratto(es,r1,p1)
c=Estratto(es,r2,p) : d=Estratto(es,r2,p1)
If c = a And b = d Or c = b And d = a Then 
casi=casi+1
Scrivi String(105,"*")& " Caso N° " & casi,1
Scrivi DataEstrazione(es)&"  "& FormatSpace(NomeRuota(r1),10)& "  " & StringaEstratti(es,r1)&"    "& Format2(a)& "-" & Format2(b)& "   in   " &p& "°  e " &p1& "° Posizione",1
Scrivi DataEstrazione(es)&"  "& FormatSpace(NomeRuota(r2),10)& "  " & StringaEstratti(es,r2)&"    "& Format2(c)& "-" & Format2(d)& "   in   " &p& "°  e " &p1& "° Posizione",1
ruote(1)=r1 : ruote(2)=r2 : ruote(3) = 11

'---------------------------------------------------- 'Ambo principale 
ambo1(1)= Fuori90(a+b)
ambo1(2)= 45
ImpostaGiocata 1,ambo1,ruote,poste,k,2
'---------------------------------------------------- 
ambo2(1)= Fuori90(a+b)
ambo2(2)= a
ImpostaGiocata 2,ambo2,ruote,poste,k,2
'---------------------------------------------------- 
ambo3(1)= Fuori90(a+b)
ambo3(2)= b
ImpostaGiocata 3,ambo3,ruote,poste,k,2
'---------------------------------------------------- 
ambo4(1)= 45
ambo4(2)= a
ImpostaGiocata 4,ambo4,ruote,poste,k,2
'---------------------------------------------------- 
ambo5(1)= 45
ambo5(2)= b
ImpostaGiocata 5,ambo5,ruote,poste,k,2
'---------------------------------------------------- 
Gioca es 

End If 
Next 
Next
Next
Next
Next
ScriviResoconto 
End Sub

 

[trylli]

scusa blackmore mi da errore inserire data di inizio...

 

[Roby]

scusa blackmore mi da errore inserire data di inizio...

Ciao trilly, ricopia nuovamente il listato, da sub main a end sub e vedrai che gira

 

[trylli]

ciao blac ma quando apro spazio gestione script mi appare sub..li cancello ed incollo il tutto ma non gira..

 

[Roby]

ciao blac ma quando apro spazio gestione script mi appare sub..li cancello ed incollo il tutto ma non gira..

Trilly devi cancellare TUTTO, anche Option Explicit, è per questo che ti da errore
Ciao

 

[ananda]

Dovrebbe essere così

Ciao

Sub main()
scrivi:Scrivi String(40," ")& " Metodo di Ananda script By Blackmore",1
Scrivi 
Dim ruote(10)
Dim ambo1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim ambo5(2)
Dim poste(2)
poste(2)=1 
inizio=InputBox ("INSERISCI L'ESTRAZIONE DI PARTENZA :",,8200)
k=InputBox ("INSERISCI I COLPI DI GIOCO",,10)
ini=inizio
fin=EstrazioneFin
For es = ini To fin 
AvanzamentoElab ini,fin,es
For r1=1 To 10
For r2=r1+1 To 12
If r2=11 Then r2=12
For p=1 To 4
For p1 = p+1 To 5
a=Estratto(es,r1,p) : b=Estratto(es,r1,p1)
c=Estratto(es,r2,p) : d=Estratto(es,r2,p1)
If c = a And b = d Or c = b And d = a Then 
casi=casi+1
Scrivi String(105,"*")& " Caso N° " & casi,1
Scrivi DataEstrazione(es)&"  "& FormatSpace(NomeRuota(r1),10)& "  " & StringaEstratti(es,r1)&"    "& Format2(a)& "-" & Format2(b)& "   in   " &p& "°  e " &p1& "° Posizione",1
Scrivi DataEstrazione(es)&"  "& FormatSpace(NomeRuota(r2),10)& "  " & StringaEstratti(es,r2)&"    "& Format2(c)& "-" & Format2(d)& "   in   " &p& "°  e " &p1& "° Posizione",1
ruote(1)=r1 : ruote(2)=r2 : ruote(3) = 11

'---------------------------------------------------- 'Ambo principale 
ambo1(1)= Fuori90(a+b)
ambo1(2)= 45
ImpostaGiocata 1,ambo1,ruote,poste,k,2
'---------------------------------------------------- 
ambo2(1)= Fuori90(a+b)
ambo2(2)= a
ImpostaGiocata 2,ambo2,ruote,poste,k,2
'---------------------------------------------------- 
ambo3(1)= Fuori90(a+b)
ambo3(2)= b
ImpostaGiocata 3,ambo3,ruote,poste,k,2
'---------------------------------------------------- 
ambo4(1)= 45
ambo4(2)= a
ImpostaGiocata 4,ambo4,ruote,poste,k,2
'---------------------------------------------------- 
ambo5(1)= 45
ambo5(2)= b
ImpostaGiocata 5,ambo5,ruote,poste,k,2
'---------------------------------------------------- 
Gioca es 

End If 
Next 
Next
Next
Next
Next
ScriviResoconto 
End Sub

Gentilissimo come sempre. Grazie Black
Nel listato vedo che hai impostato le estrazioni di gioco a 10. Consiglio a chi fa girare lo script di mettere 20 estrazioni perchè quasi sempre esce fra il 12° e 20° colpo, oppure subito. Ciaooooo

 

[miko]

grazie, ci sono previsioni in corso '

 

[curioso]

ciao ananda, innanzitutto grazie per il metodo, avresti per caso una anche se pur breve statitica?. grazie mille.

 

[pistacchio]

Info.....l'ambo deve oltre che isotopo anche unito?

 

[ananda]

X pistacchio:ciao non importa che sia unito.
X curioso: Per quanto riguarda la statistica puoi farla con lo script. Oppure posto la schermata di L8 quando posso. Ciao

 

[ananda]

Ciao la previsione per questo metodo è ambo secco 45-88 su RO-TO-TU

Se volete aggiungete anche i numeri di partenza 26-62

Io tengo in gioco soltanto l'ambo principale.

Buone vincite

 

[mihael]

Buongiorno ananda, presumo ci continui questo ambo...giusto?
Grazie se vorrà rispondermi.
Buona giornata

 

[ananda]

Buongiorno ananda, presumo ci continui questo ambo...giusto?
Grazie se vorrà rispondermi.
Buona giornata

Si si continua....ciaoooo

 

[ananda]

Ciao la previsione per questo metodo è ambo secco 45-88 su RO-TO-TU

Se volete aggiungete anche i numeri di partenza 26-62

Io tengo in gioco soltanto l'ambo principale.

Buone vincite

_____________________

AMBO SECCO 45-88 a TU il 31 gennaio

_____________________

 

[ananda]

In attesa del prossimo....