script facile facile

[Alien.]

Ciao mi servirebbe uno script ,facile ,facile,,,,inserendo un numero mi dice con quali numeri si è unito ad ogni estrazione poi calcoli il totale presenze di ogni numero ,poi inserimento di quante estrazioni vuoi ricercare 50/100/150 ecc per ruota e tutte infine il ritardo attuale del numero inserito su ogni singola ruota è difficile ?

:esempio: ricerca n°6 esce con 3 2 8 7 poi n°6 con 7 12 18 24 ecc:dopo 50/100 concosi quali sono i numeri più frequenti con il numero 6 ok ?

 

[Cinzia27]

Ciao, Alien.
Guarda se fa al caso tuo

'Alien :abbinamenti più frequenti per capogioco a scelta  (Cinzia)

Sub main()
Dim ambi(89,6),nn(2), ru(1)
e=CInt(InputBox ("estrazione di partenza:",,100))
If e="" Then Exit Sub

n=CInt(InputBox ("Introdurre il numero :",,35))
If n="" Then Exit Sub

r=CInt(InputBox ("Introdurre il numero della ruota:",,11))
If r="" Then Exit Sub

ww=CInt(InputBox ("Introdurre il numero di ambi da tabellare:",,10))
If ww="" Then Exit Sub


fin=EstrazioneFin

ru(1)=r
co=0

x=n
    For y=1 To 90
If x<>y Then
    co=co+1
    nn(1)=x
    nn(2)=y
    rt=SerieRitardo(fin-e,fin,nn,ru,2)
    fr=SerieFreq(fin-e,fin,nn,ru,2)
               ambi(co,1)=co
                 ambi(co,2)=x
               ambi(co,3)=y  
              ambi(co,4)=r    
                ambi(co,5)=rt
            ambi(co,6)=fr

    End If
Next
OrdinaMatrice ambi,-1,6

For x=1 To ww
Scrivi FormatSpace(x,4,1)&" ) "& Format2(ambi(x,2))&"."& Format2(ambi(x,3))&" "& _
SiglaRuota(ambi(x,4))&" rt "&FormatSpace(ambi(x,5),4,1) &" fr "&FormatSpace(ambi(x,6),4,1)
Next


End Sub

 

[Alien.]

Ciao ,Cinzia si può andar bene ma tra dargli il via poi inserire i dati poi per ricevere i dati ho controllato ci impiega 6 minuti ovviamente ti ringrazio per la tua premura e buona volonta come dire a caval donato non guardare in bocca,ovviamente mi va bene anche cosi il lavoro lo fà, senti puoi aggiungere la data dal.........al..................inoltre volendo da imput puoi far vedere a video tutte le ruote poi una ad una ? Infinite grazie,

 

[salvo50]

Ciao ,Cinzia si può andar bene ma tra dargli il via poi inserire i dati poi per ricevere i dati ho controllato ci impiega 6 minuti ovviamente ti ringrazio per la tua premura e buona volonta come dire a caval donato non guardare in bocca,ovviamente mi va bene anche cosi il lavoro lo fà, senti puoi aggiungere la data dal.........al..................inoltre volendo da imput puoi far vedere a video tutte le ruote poi una ad una ? Infinite grazie,

Ciao Alien, ma dove l'hai trovato il tuo computer nelle patatine? (scherzo)

Lasciando le impostazioni di Cinzia, il mio computer per questo script impiega circa un secondo, ho provato a partire dall'estrazione numero 1 ed ha impiegato 4 secondi

 

[Alien.]

acc.....cavolacci è mi pareva strano.....credo che mi sia "ingolfato" il computer è che se lo lascio acceso poi gli ci vuole per riprendersi anche se gli do un grappino....forse faccio meglio a spegnere ed riaccendere o forse dagli fuoco hhahahaha......

chiedo scusa a Cinzia nella speranza che non sia permalosa.........grazie Salvo.

 

[Cinzia27]

Grazie, Salvo per la conferma.Anch' io ci ho messo pochi secondi.
Alien, preferisco sorvolare.

Evidenzio che ho rimediato a una piccola dimenticanza ( non avevo richiamato la variabile
dei numeri da tabellare, quindi chi vuole può riscaricarlo).
Ho messo il periodo analizzato, come richiesto.
La ruota la scegli tu, di default ho messo 11(tutte) ma puoi cambiarla nella finestra di dialogo.
Se invece vuoi che l' analisi sia effettuata su gruppi di ruota, va rivisto sensibilmente.
Se qualcuno vuol farlo ...




'Alien :abbinamenti più frequenti per capogioco a scelta (Cinzia)

Sub main()
Dim ambi(89,6),nn(2), ru(1)
e=CInt(InputBox ("estrazione di partenza:",,100))
If e="" Then Exit Sub

n=CInt(InputBox ("Introdurre il numero :",,35))
If n="" Then Exit Sub

r=CInt(InputBox ("Introdurre il numero della ruota:",,11))
If r="" Then Exit Sub

ww=CInt(InputBox ("Introdurre il numero di ambi da tabellare:",,10))
If ww="" Then Exit Sub


fin=EstrazioneFin
Scrivi "Dall' estrazione "&fin-e&" del "& DataEstrazione(fin-e)&" all' estrazione "&fin&" del "& DataEstrazione(fin)
Scrivi
ru(1)=r
co=0

x=n
    For y=1 To 90
If x<>y Then
    co=co+1
    nn(1)=x
    nn(2)=y
    rt=SerieRitardo(fin-e,fin,nn,ru,2)
    fr=SerieFreq(fin-e,fin,nn,ru,2)
               ambi(co,1)=co
                 ambi(co,2)=x
               ambi(co,3)=y   
              ambi(co,4)=r    
                ambi(co,5)=rt
            ambi(co,6)=fr

    End If
Next
OrdinaMatrice ambi,-1,6

For x=1 To ww
Scrivi FormatSpace(x,4,1)&" ) "& Format2(ambi(x,2))&"."& Format2(ambi(x,3))&" "& _
SiglaRuota(ambi(x,4))&" rt "&FormatSpace(ambi(x,5),4,1) &" rt1 "&FormatSpace(ambi(x,6),4,1)
Next


End Sub

 

[i legend]

Ciao se non sbaglio luigi ha fatto la funzione abbinamenti.

 

[Alien.]

Ciao Cinzia grazie di tutto ...hai capito che ho preso un granchio il guaio che con una chela mi ha preso un dito hahhaahahha

ho spento il computer e riacceso adesso il tuo listato va veloce che figura di M..........ARMELLATA HAHAHAH CIAO.

 

[Cinzia27]

Bene. Il tuo computer va, si era solo addormentato.