richiesta script capogioco + decina ritardataria

[ppaaoolloo]

ciao
mi rivolgo qui con la speranza di riuscire
ad avere uno script che mi frulla per la testa
da un bel po....
faccio un esempio:
prendiamo la ruota di milano,
se io vorrei giocare il 41 (capogioco)
qual'è la decina che è più in ritardo di ambo con questo numero?

oppure

se io vorrei giocare il 30 (capogioco)
qual'è la decina che è più in ritardo di ambo con questo numero?

in sintesi vorrei uno script che mi calcoli il ritardo per ambo o terno
tenendo presente l'uscita del capogioco + con la sua decina più ritardata
con un capogioco a mia scelta.

ringrazio anticipatamente chi vorrà provarci

ciao

[ppaaoolloo]

ciao
mi dispiace molto che nessuno riesca a costruire questo script,
ma qual'è il motivo per cui non si riesce a fare?

forse mi sono spiegato male io nella spiegazione di quello che voglio ottenere?

oppure è molto lungo e difficile e complesso da fare?

oppure lo ritenete non utile?

mi potete spiegarne il motivo del perchè nessuno ancora lo ha postato?

fatemi sapere

grazie

ciao

[ppaaoolloo]

cerco di rispiegare come vorrei lo script,
dovrebbe trovarmi il ritardo per ambo che ha il

capogioco + decina 0 (01,02,03,04,05,06,07,08,09,10)
capogioco + decina 1 (11,12,13,14,15,16,17,18,19,20)
capogioco + decina 2 (21,22,23,24,25,26,27,28,29,30)
capogioco + decina 3 (31,32,33,34,35,36,37,38,39,40)
capogioco + decina 4 (41,42,43,44,45,46,47,48,49,50)
capogioco + decina 5 (51,52,53,54,55,56,57,58,59,60)
capogioco + decina 6 (61,62,63,64,65,66,67,68,69,70)
capogioco + decina 7 (71,72,73,74,75,76,77,78,79,80)
capogioco + decina 8 (81,82,83,84,85,86,87,88,89,90)

però voglio sottolineare che l'ambo deve contenere
per forza il capogioco + un numero della decina,
se ci due numeri della stessa decina non mi deve
dare come risultato ottenuto cioè ritardo 0

esempio con numeri presi a caso:
capogioco 15
estrazione BA 02.36.24.15.88
estrazione CA 22.25.48.65.68
estrazione FI 23.15.78.25.76

ruota BARI
15 + decina 0 (01,02,03,04,05,06,07,08,09,10) RITARDO 0
15 + decina 1 (11,12,13,14,15,16,17,18,19,20) RITARDO 1
15 + decina 2 (21,22,23,24,25,26,27,28,29,30) RITARDO 0
15 + decina 3 (31,32,33,34,35,36,37,38,39,40) RITARDO 0
15 + decina 4 (41,42,43,44,45,46,47,48,49,50) RITARDO 1
15 + decina 5 (51,52,53,54,55,56,57,58,59,60) RITARDO 1
15 + decina 6 (61,62,63,64,65,66,67,68,69,70) RITARDO 1
15 + decina 7 (71,72,73,74,75,76,77,78,79,80) RITARDO 1
15 + decina 8 (81,82,83,84,85,86,87,88,89,90) RITARDO 0


ruota CAGLIARI
15 + decina 0 (01,02,03,04,05,06,07,08,09,10) RITARDO 1
15 + decina 1 (11,12,13,14,15,16,17,18,19,20) RITARDO 1
15 + decina 2 (21,22,23,24,25,26,27,28,29,30) RITARDO 1
15 + decina 3 (31,32,33,34,35,36,37,38,39,40) RITARDO 1
15 + decina 4 (41,42,43,44,45,46,47,48,49,50) RITARDO 1
15 + decina 5 (51,52,53,54,55,56,57,58,59,60) RITARDO 1
15 + decina 6 (61,62,63,64,65,66,67,68,69,70) RITARDO 1
15 + decina 7 (71,72,73,74,75,76,77,78,79,80) RITARDO 1
15 + decina 8 (81,82,83,84,85,86,87,88,89,90) RITARDO 1


ruota FIRENZE
15 + decina 0 (01,02,03,04,05,06,07,08,09,10) RITARDO 1
15 + decina 1 (11,12,13,14,15,16,17,18,19,20) RITARDO 1
15 + decina 2 (21,22,23,24,25,26,27,28,29,30) RITARDO 0
15 + decina 3 (31,32,33,34,35,36,37,38,39,40) RITARDO 1
15 + decina 4 (41,42,43,44,45,46,47,48,49,50) RITARDO 1
15 + decina 5 (51,52,53,54,55,56,57,58,59,60) RITARDO 1
15 + decina 6 (61,62,63,64,65,66,67,68,69,70) RITARDO 1
15 + decina 7 (71,72,73,74,75,76,77,78,79,80) RITARDO 0
15 + decina 8 (81,82,83,84,85,86,87,88,89,90) RITARDO 1



ecc. ecc. anche per le altre ruote


grazie


ciao

[lottopassion]

Salve Paolo lo script in questione è abbastanza complicato quindi richiede del tempo lo posterò io nei prossimi giorni.

[ppaaoolloo]

ciao lottopassion
ti ringrazio molto per la tua disponibilità ed
aspetto con molta fiducia e trepidazione,

ti chiedo inoltre se è possibile avere anche un script
al contrario di quello che ho chiesto, cioè in base alle
varie decine quali sono i numeri in ritardo per ambo
ad esempio:

ruota BARI
decina 0 (01,02,03,04,05,06,07,08,09,10) + quali sono i numeri con maggior RITARDO ?
decina 1 (11,12,13,14,15,16,17,18,19,20) + quali sono i numeri con maggior RITARDO ?
decina 2 (21,22,23,24,25,26,27,28,29,30) + quali sono i numeri con maggior RITARDO ?
decina 3 (31,32,33,34,35,36,37,38,39,40) + quali sono i numeri con maggior RITARDO ?
decina 4 (41,42,43,44,45,46,47,48,49,50) + quali sono i numeri con maggior RITARDO ?
decina 5 (51,52,53,54,55,56,57,58,59,60) + quali sono i numeri con maggior RITARDO ?
decina 6 (61,62,63,64,65,66,67,68,69,70) + quali sono i numeri con maggior RITARDO ?
decina 7 (71,72,73,74,75,76,77,78,79,80) + quali sono i numeri con maggior RITARDO ?
decina 8 (81,82,83,84,85,86,87,88,89,90) + quali sono i numeri con maggior RITARDO ?

ecc. ecc. anche per le altre ruote

ringrazio anticipatamente per la tua cortese disponibilità

ciao

[lottopassion]

Ciao Paolo ecco lo script inserisci il capogioco ti analizza le decine in abbinamento ruota per ruota evidenziando i ritardi per ambo con il capogioco ed inoltre ti evidenzia i 5 numeri più ritardatari delle relative decine.

Codice: Seleziona tutto

Sub main()
Dim dec(9,10) ,n(2),ruote(10),r(10,2),n2(1)
cg=CLng(InputBox("Inserire il capogioco : "))
n(1)=cg
For r1=1 To 10
Erase ruote
ruote(1)=r1
Scrivi "Analisi ruota di " + NomeRuota(r1)+ " degli abbinamenti al capogioco "+CStr(cg),True
For d=0 To 8
rrmin=5000
Erase r
For c=1 To 10
Erase n
n(1)=cg
n(2)=(d*10)+c
If n(1)<>n(2) Then
n2(1)=n(2) 
rr = SerieRitardo (EstrazioneIni,EstrazioneFin,n,ruote,2)
r(c,1)=n(2)
r(c,2)=SerieRitardo (EstrazioneIni,EstrazioneFin,n2,ruote,1)
If rr<rrmin Then rrmin=rr
End If
Next
OrdinaMatrice r,-1,2
Scrivi "Con decina "+CStr(d)+" ritardo "+CStr(rrmin)
Scrivi "Numeri più ritardatari "+CStr(r(1,1))+" - "+CStr(r(2,1))+" - "+CStr(r(3,1))+" - "+CStr(r(4,1))+" - "+CStr(r(5,1)),True
Next
Next
End Sub



[ppaaoolloo]

ciao lottopassion
innanzi tutto grazie per esserti interessato a formulare
lo script richiesto da me, io uso Spaziometria e
ho provato a farlo girare su spaziometria ma non va,
mi da
errore script!
9 - Indice non incluso nell'intervallo:
linea : 19
Colonna : 4
Source : Errore di run-time di Microsoft VBScript



fammi sapere se riesci a correggere l'errore che mi da

ti ringrazio anticipatamente per la tua disponibilità

a presto

ciao

[lottopassion]

Purtroppo non uso spaziometria quindi non so perché dia quest'errore su l8 gira benissimo

[Blackmore]

Se hai la scritta

Option Explicit

Sub Main()

End Sub


Cancella Option Explicit

[ppaaoolloo]

Se hai la scritta

Option Explicit

Sub Main()

End Sub


Cancella Option Explicit

ciao Blackmore
sì ho questo messaggio,
ho provato come mi hai suggerito
ma non c'è nulla da fare,
mi da sempre errore,
se puoi prova anche tu questo script su spaziometria
così puoi rendertene conto e suggerirmi come fare
per ovviare a questo problema

fammi sapere

grazie infinite per l'interessamento

ciao