per i programmatori

[genios]

Ho questa matrice di numeri:

01 02 03 04 05 06 07 08 09 10

In out dovremmo avere:

per ciascun numero il ritardo attuale la somma dei ritardi e il ritardo della sorte per ambo

Ciao

 

[Croupier]

Buongiorno,
scusatemi, se mi permetto di chiedere, a chi di Voi , è disponibile la correzione di un listato, che in effetti funziona, ma c'è
una soluzione finale che non riesco a risolvere...
Grazie

 

[genios]

Metti lo script

 

[Croupier]

reso vuoto

 

[Cinzia27]

Ciao, Croupier.
Se vuoi esporre il procedimento, forse si fa prima.

 

[Croupier]

Intanto grazie, e scusatemi

 

[Croupier]

grazie

 

[Croupier]

grazie

 

[Croupier]

Grazie

 

[Cinzia27]

Ciao, Croupier.
Dobbiamo trovare un ambo di figura 7.
E poi cosa deve mettere in gioco?

 

[Croupier]

Grazie

 

[genios]

Cinzia se hai tempo puoi dare uno sguardo al post #1.

Grazie

 

[Croupier]

grazie

 

[Cinzia27]

Ciao, Croupier.

esempio a caso trova un ambo in figura 7 a bari

e dopo nelle successive 3- (4- 5 ) e estrazioni riprovare i migliori per estratto

I casi, moltiplicali per le 11 ruote, moltiplicali per 90 numeri sono tantissimi.
Ad ogni modo ho fatto lo script. Sta ancora girando. Controlla poi anche tu che sia a posto.
Ho messo come indice mensile 1.

 

[Cinzia27]

Ho questa matrice di numeri:

01 02 03 04 05 06 07 08 09 10

In out dovremmo avere:

per ciascun numero il ritardo attuale la somma dei ritardi e il ritardo della sorte per ambo

Ciao

Ciao, Genios.
L'ho fatto per un numero alla volta per una migliore visualizzazione.
Credo tu abbia voluto dire dato che è per ciascun numero il ritardo per la sorte dell'ambata.

Sub main()
Dim n1(1)
Dim ru(1)
'Per Genios: somma ritardi e ritardi attuali
'Scrip Cinzia27
n1(1)=01

For r=1 To 11
If r=11 Then r=12
Scrivi
ru(1)=r
rtt=0
For es=EstrazioneFin-200 To EstrazioneFin
If SerieFreq(es,es,n1,ru,1)>0 Then
rt=SerieRitardo(es-300,es-1,n1,ru,1)
rtt=rtt+rt
at=SerieRitardo(EstrazioneFin-300,EstrazioneFin,n1,ru,1)
Scrivi SiglaRuota(r)&" "&Format2(n1(1))&" "&rt
End If
Next
Scrivi "Somma ritardi "&rtt&" ritardo attuale "&formatspace(at,4,1)
Next

End Sub

 

[Cinzia27]

Ciao, Croupier.
Ecco lo script.

'Per Croupier
'Esiti 90 n. dopo l'uscita di un ambo in figura 7
Sub Main()
Dim n(1)
Dim ruota(1)
Dim posta(1)
posta(1)=1

fin=EstrazioneFin
ini=8117
r=1
ruota(1)=r
For i=1 To 90

For es=ini To fin
If IndiceMensile(es)=1 Then
AvanzamentoElab ini,fin,es



For p=1 To 4
For p1=p+1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r,p1)
If Figura(a)=7 And Figura(b)=7 Then
n(1)=i

Scrivi Format2(a)&"."&Format2(b)
ImpostaGiocata  1,n,ruota,posta,18,1
Gioca es
End If
Next
Next
End If
Next

Scrivi
ColoreTesto 2
Scrivi "NUMERO "&i,1
ColoreTesto 0
ScriviResoconto
Next 

End Sub

 

[Croupier]

Per Cinzia , grazie per il tuo impegno e la tua attenzione nei miei confronti,

 

[Croupier]

grazie

 

[Cinzia27]

Ma lo script è sul primo metodo che hai esposto che cerca la condizione dell'ambo figura 7.
Non interessa più?
Se ho tempo guardo l'altro.

 

[Croupier]

grazie