Ciao, Croupier. Lo script che ti ho fatto lo fa già tutto questo, numero per numero ti dà il resoconto.la ricerca dovrebbe estrapolare i numeri uguali e contare la frequenza
alla fine o evento per evento dovrebbe dare un riepilogo...
parziale o totale
esempio :
18 uscito 2 volte
66 uscito 2 volte
70 uscito 2 volte
Scrivi Space(10)&"Per Croupier :AMBO SPIA CONDIZIONE A SCELTA SU UNA RUOTA(Cinzia)"
Scrivi Space(10)&"ambi e ambate più frequenti nei cicli"
Sub main()
Dim ru(1),nn(2),nu(4005,4),nn1(2),nu1(90,3)
ee=InputBox("controllo le ultime estrazioni :",,1000)
If ee="" Then Exit Sub
cl=InputBox("quanti colpi :",,5)
If cl="" Then Exit Sub
fg=CInt(InputBox("quale figura :",,7))
If fg="" Then Exit Sub
rr=InputBox("Scegli ruota :",,5)
If rr="" Then Exit Sub
qq=InputBox("Quanti ambi ed estratti vuoi visualizzare :",,15)
If qq="" Then Exit Sub
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
ok=0
'-----------------------------
r=rr :ru(1)=r
For p=1 To 4
For pp=p+1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r,pp)
If a>0 Then
If figura(a)=fg And Figura(b)=fg Then
Messaggio es&" "& NomeRuota(r)&":"&Stringaestratti(es,r)
cc=cc+1
Scrivi
Scrivi String (100,"=")
Scrivi
Scrivi Space(12)&"estrazione : " &es&" del "&dataestrazione(es)
Scrivi Space(12)&nomeRuota(r)&" "&Format2(a)&" "&Format2(b)
'-----------------------------
If cc>0 Then ok=1
If ok=1 Then
'-----------------------------------------------------------------
Scrivi
ColoreTesto 2
Scrivi Space(12)&dataestrazione(es)&" "&es&" "&siglaruota(r)&":"&stringaestratti(es,r)
For i=es+1 To es+cl
ColoreTesto 0
Scrivi Space(12)&dataestrazione(i)&" "&i&" "&siglaruota(r)&":"&stringaestratti(i,r)
Next
'-----------------------------------------------------------------
ok=0
casi=casi+1
ww=cl
ess=es+ww
If ess>fin Then ess=fin End If
'------------------------------------------------
co=0
For x1=1 To 89 :For y1=x1+1 To 90
co=co+1
nu(co,1)=co:nu(co,2)=x1:nu(co,3)=y1
nn(1)=x1:nn(2)=y1:ru(1)=r
k1=SerieFreq (es+1,ess,nn,ru,2)
If k1<0 Then k1=0
nu(co,4)=nu(co,4)+ k1
Next
Next
'-------------------------------------------
co=0
For xx=1 To 90
co=co+1
nu1(co,1)=co:nu1(co,2)=xx
nn1(1)=xx:ru(1)=r:
k10=SerieFreq (es+1,ess,nn1,ru,1)
If k10<0 Then k10=0
nu1(co,3)=nu1(co,3)+ k10
Next
End If
End If
End If
Next
Next
Next
OrdinaMatrice nu,-1,4
OrdinaMatrice nu1,-1,3
Scrivi
Scrivi
ColoreTesto 2
Scrivi Space(23)&" Condizione-Spia Cercata su :"& NomeRuota (r)
ColoreTesto 0:Scrivi Space(23)& " AMBO DI NUMERI FIGURA "&fg,1
Scrivi
Scrivi Space(20)&"dal "& DataEstrazione(ini)&" ,estr. n."&ini&", al "& _
DataEstrazione(fin)&" ,estr. n."&fin&""
ColoreTesto 1
Scrivi Space(20)&" Casi riscontrati "& CInt(casi) &" - Analisi effettuata sulle "& _
ww& " estrazioni successive "
ColoreTesto 2
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI "
ColoreTesto 1
Scrivi Space(16)&qq&" AMBI ED ESTRATTI PIU' FREQUENTI NEI CICLI "
Scrivi
ColoreTesto 2
Scrivi Space(14)&formatspace( "Ambo",4,True)&Space(14)&FormatSpace("Tot.",4,True)&Space(10)& _
FormatSpace("Estratti",4,True)&Space(10)&FormatSpace("Tot.",4,True)
ColoreTesto 0
For wx=1 To qq ' puoi variare il numero di ambi e estratti
riga=Space(3)&Format2(nu(wx,2))&"-"& Format2(nu(wx,3))&Space(12)&Formatspace((nu(wx,4)),4,True)& _
Space(15)&Format2(nu1(wx,2))&Space(12)&Formatspace((nu1(wx,3)),4,True)
Scrivi Space(10)& riga,1
riga=""
Next
Scrivi String(90,"*")
End Sub
Cinzia qualcosa non quadra io mi riferisco al conteggio dei ritardi dei singoli numeri che formano la decina naturale 0 . e quindi trovare il ritardo dell' ambo nella decina naturale 0 . Ti posto un esempio :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.
Codice: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
Mi sembra che sia diverso da ciò che dici qua, manca solo il ritardo della sorte per ambo.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.
Codice:Sub main() Dim n1(1) Dim ru(1) 'Per Genios: somma ritardi e ritardi attuali 'Scrip Cinzia27 n1(1)=01' qui metti il numero 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
Sub main()
Dim n1(1)
Dim ru(1)
'Per Genios: somma ritardi e ritardi attuali - n. da 1 a 10
'Scrip Cinzia27
For i=1 To 10
n1(1)=i
rtt=0
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
Next
End Sub
Sub Main()
'Per Genios: somma ritardi e ritardi attuali - n. da 1 a 10
'Script
For r = 1 To 12
If r = 11 Then r = 12
T = 0
Scrivi NomeRuota(R)
For i = 1 To 10
E = EstrattoRitardo(R,I)
Scrivi i & " Rit " & E
T = T + E
Next
Scrivi String(10,"=") & " tot " & T
Next
End Sub
Eu ...
... come ti ho già scritto tante volte dovresti esercitarti con il "fai da te",
invece di dare il tormento a sta gentil pulzella.
Codice:Sub Main() 'Per Genios: somma ritardi e ritardi attuali - n. da 1 a 10 'Script For r = 1 To 12 If r = 11 Then r = 12 T = 0 Scrivi NomeRuota(R) For i = 1 To 10 E = EstrattoRitardo(R,I) Scrivi i & " Rit " & E T = T + E Next Scrivi String(10,"=") & " tot " & T Next End Sub
... come ti ho già scritto tante volte dovresti esercitarti con il "fai da te",
Option Explicit
Sub Main()
'Per Genios: somma ritardi e ritardi attuali - n. da 1 a 10
'Script By Joe
Dim R,Ru(1),Nu(10),T,I,E,S
Scrivi String(21,"="),1,,,1
For R = 1 To 12
If R = 11 Then R = 12
Ru(1) = R
T = 0
Scrivi NomeRuota(R),1
For I = 1 To 10
Nu(I) = I
E = EstrattoRitardo(R,I)
Scrivi FormatSpace(I,2,1) & " Rit " & FormatSpace(E,3,1)
T = T + E
Next
S = SerieRitardo(1,EstrazioneFin,Nu,Ru,2)
Scrivi String(8,"-") & " TOT Estr" & FormatSpace(T,4,1)
Scrivi String(8,"-") & " RIT Ambo" & FormatSpace(S,4,1)
Scrivi String(21,"="),1,,,1
Next
End Sub
questi scrivi (Format/String) non sono strettamente necessari ma facilitano la lettura.
Sub Main
Dim k
Dim aValori(10)
Dim aColori(10)
' gli array vengono alimentati con un ciclo per comodita esendo un esempio
' in un caso specifico ovviamente gli array devono essere valorizzati
' in base alle esigenze .. l'esempio serve solo a far capire come si fa
' N.B. l'array dei valori da scrivere parte da 0 !!!! non da 1 !!! Fare attenzione
For k = 0 To 10
If k Mod 2 <> 0 Then
aValori(k) = "-" ' trattino separatore tras un numero e l'altro
aColori(k) = Nero_ ' colore nero
Else
aValori(k) = Format2(NumeroCasuale(1,90)) ' scelgo un nmero casule
aColori(k) = RGB(NumeroCasuale(0,255),NumeroCasuale(0,255),NumeroCasuale(0,255)) ' do un colore casuale
End If
Next
' gli elementi dell'array vengono scritti in output ognuno col suo colore
' e uno affianco all'altro come fosse un unico testo
Call ScriviConColori(aValori,aColori)
End Sub