puntoevirgola
Member
Ciao Giulio
Copia e controlla il listato che poi cancello ...
saluto codicebinario e daniel
Copia e controlla il listato che poi cancello ...
saluto codicebinario e daniel
quote:Originally posted by puntoevirgola
Ciao Giulio
Copia e controlla il listato che poi cancello il post
Codice:'TERZINE sincrone ( 10 ) 'ADATTATE' giocata a colpo su Ruota per la sorte di Ambata, Ambo e Terno. 'Scritto da Gam (lottogam)il 06/12/2007 -modificato da puntoevirgola Sub Main() Dim num(5),rit(10),rmax(1),ruota(1) Dim terniv(3,10) Dim rita(10) Dim b(5) rt = InputBox("Su che ruota vuoi effettuare il calcolo?",,1) If rt > 13 Then rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 12 per NZ") End If p = InputBox("Da quando inizia la ricerca? (0 = tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,7440) x = InputBox("Quale adattatore? (1-90)",,90) s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2) If p = 0 Then p = EstrazioniRicerca End If eini = p efin = EstrazioneFin For i = eini To efin Messaggio(i) ruota(1) = rt da = 0 For p = 1 To 3 For pp = p + 1 To 4 For ppp = pp + 1 To 5 da = da + 1 num(1) = Estratto(i,rt,p) num(2) = Estratto(i,rt,pp) num(3) = Estratto(i,rt,ppp) b(1) = Fuori90(num(1) + x) b(2) = Fuori90(num(2) + x) b(3) = Fuori90(num(3) + x) rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i If rit(da) = 1 Then casivalidi = casivalidi + 1 riga1 = FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) riga1 = riga1 & FormatSpace(StringaEstratti(i,rt),15) & " +Adattatore " & x & "> " & StringaNumeri(b) & "...pos..." & p & pp & ppp riga1 = riga1 & " Rit. " & FormatSpace(rita(da),5) Scrivi riga1 If rita(da) > rmax(1) Then rmax(1) = rita(da) End If rita(da) = 0 Else rita(da) = rita(da) + 1 If i = efin Then Scrivi riga1 = FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & " +Adattatore " & x & "> " & StringaNumeri(b) & "...pos... " & p & pp & ppp riga1 = riga1 & " Rit. ATT. " & FormatSpace((rita(da) - 1),5) Scrivi riga1,1 End If End If Next Next Next Next Scrivi " " riga1 = "Casi riscontrati sulla ruota di " & FormatSpace(NomeRuota(rt),10) & ": " & FormatSpace(casivalidi,5) Scrivi riga1 riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rt),10) & _ FormatSpace(rmax(1),5) Scrivi riga2 End Sub
Ciao
quote:Originally posted by codicebinario
quote:Originally posted by puntoevirgola
Ciao Giulio
Copia e controlla il listato che poi cancello il post
Codice:'TERZINE sincrone ( 10 ) 'ADATTATE' giocata a colpo su Ruota per la sorte di Ambata, Ambo e Terno. 'Scritto da Gam (lottogam)il 06/12/2007 -modificato da puntoevirgola Sub Main() Dim num(5),rit(10),rmax(1),ruota(1) Dim terniv(3,10) Dim rita(10) Dim b(5) rt = InputBox("Su che ruota vuoi effettuare il calcolo?",,1) If rt > 13 Then rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 12 per NZ") End If p = InputBox("Da quando inizia la ricerca? (0 = tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,7440) x = InputBox("Quale adattatore? (1-90)",,90) s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2) If p = 0 Then p = EstrazioniRicerca End If eini = p efin = EstrazioneFin For i = eini To efin Messaggio(i) ruota(1) = rt da = 0 For p = 1 To 3 For pp = p + 1 To 4 For ppp = pp + 1 To 5 da = da + 1 num(1) = Estratto(i,rt,p) num(2) = Estratto(i,rt,pp) num(3) = Estratto(i,rt,ppp) b(1) = Fuori90(num(1) + x) b(2) = Fuori90(num(2) + x) b(3) = Fuori90(num(3) + x) rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i If rit(da) = 1 Then casivalidi = casivalidi + 1 riga1 = FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) riga1 = riga1 & FormatSpace(StringaEstratti(i,rt),15) & " +Adattatore " & x & "> " & StringaNumeri(b) & "...pos..." & p & pp & ppp riga1 = riga1 & " Rit. " & FormatSpace(rita(da),5) Scrivi riga1 If rita(da) > rmax(1) Then rmax(1) = rita(da) End If rita(da) = 0 Else rita(da) = rita(da) + 1 If i = efin Then Scrivi riga1 = FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & " +Adattatore " & x & "> " & StringaNumeri(b) & "...pos... " & p & pp & ppp riga1 = riga1 & " Rit. ATT. " & FormatSpace((rita(da) - 1),5) Scrivi riga1,1 End If End If Next Next Next Next Scrivi " " riga1 = "Casi riscontrati sulla ruota di " & FormatSpace(NomeRuota(rt),10) & ": " & FormatSpace(casivalidi,5) Scrivi riga1 riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rt),10) & _ FormatSpace(rmax(1),5) Scrivi riga2 End Sub
Ciao
Bel lavoro ;
Artemisio
Memento Audere Semper
quote:Scusa Giulio e ";" non capisco la logica del "Cancellare" state in un forum se non dite cose offensive x gli altri che male c'è a far capire agli altri ???? altrimenti trovate la maniera di colloquiare fra voi !!! ovviamente con questo non voglio censurare il vostro fare solo non lo capisco. Ciao
quote:Ciao Giulio
avrei da chiederti un favore: potresti nelle tue segnalazioni,
scrivere solo l' adattatore senza mettere " /-90
"
mi agevolerebbe la lettura:
In cambio, mi pare che avevi delle richieste da farmi....
quote:Originally posted by puntoevirgola
X fillotto
quote:Scusa Giulio e ";" non capisco la logica del "Cancellare" state in un forum se non dite cose offensive x gli altri che male c'è a far capire agli altri ???? altrimenti trovate la maniera di colloquiare fra voi !!! ovviamente con questo non voglio censurare il vostro fare solo non lo capisco. Ciao
Ciao fillotto
Sorvolando su "altrimenti trovate la maniera di colloquiare fra voi "
(Giulio mette a disposizione di tutti le sue segnalazioni statistiche , 'frutto' anche delle sue richieste)
che male c'è a far capire agli altri ?
mi pare sia assodato che parliamo semplicemente di ADATTATORI
Riguardo il cancellare gli script
[quoteCiao Giulio
Copia e controlla il listato che poi cancello ...
]
quote:Ciao Giulio
avrei da chiederti un favore: potresti nelle tue segnalazioni,
scrivere solo l' adattatore senza mettere " /-90
"
mi agevolerebbe la lettura:
In cambio, mi pare che avevi delle richieste da farmi....
quote:M'interessano gli ADATTATORI che mi danno Ambi/Terni/Quaterne
Con uno Script riesci a ottenere tutto questo.
Mi semplifica/agevola decisamente il LAVORO.
il 29.10.2011 Firenze da 84.21.12.05.38 ha dato ambo l'Adattatore 61...> in gioco ...55.82.73.66.09... numeri estratti...82.78.72.67.73
il 29.10.2011 Firenze da 84.21.12.05.38 ha dato ambo l'Adattatore 73...> in gioco ...67.04.85.78.21... numeri estratti...82.78.72.67.73
il 02.11.2011 Firenze da 82.78.72.67.73 ha dato ambo l'Adattatore 55...> in gioco ...47.43.37.32.38... numeri estratti...73.60.47.30.43
il 03.11.2011 Firenze da 73.60.47.30.43 ha dato ambo l'Adattatore 45...> in gioco ...28.15.02.75.88... numeri estratti...75.41.89.28.87
il 03.11.2011 Firenze da 73.60.47.30.43 ha dato ambo l'Adattatore 58...> in gioco ...41.28.15.88.11... numeri estratti...75.41.89.28.87
il 03.11.2011 Firenze da 73.60.47.30.43 ha dato ambo l'Adattatore 71...> in gioco ...54.41.28.11.24... numeri estratti...75.41.89.28.87
il 03.11.2011 Firenze da 73.60.47.30.43 ha dato ambo l'Adattatore 88...> in gioco ...71.58.45.28.41... numeri estratti...75.41.89.28.87
il 05.11.2011 Firenze da 75.41.89.28.87 ha dato ambo l'Adattatore 25...> in gioco ...10.66.24.53.22... numeri estratti...18.22.23.86.24
il 08.11.2011 Firenze da 18.22.23.86.24 ha dato ambo l'Adattatore 22...> in gioco ...40.44.45.18.46... numeri estratti...47.44.46.07.21
il 08.11.2011 Firenze da 18.22.23.86.24 ha dato ambo l'Adattatore 23...> in gioco ...41.45.46.19.47... numeri estratti...47.44.46.07.21
il 08.11.2011 Firenze da 18.22.23.86.24 ha dato ambo l'Adattatore 24...> in gioco ...42.46.47.20.48... numeri estratti...47.44.46.07.21
il 08.11.2011 Firenze da 18.22.23.86.24 ha dato ambo l'Adattatore 25...> in gioco ...43.47.48.21.49... numeri estratti...47.44.46.07.21
il 10.11.2011 Firenze da 47.44.46.07.21 ha dato ambo l'Adattatore 55...> in gioco ...12.09.11.62.76... numeri estratti...11.69.41.28.62
il 12.11.2011 Firenze da 11.69.41.28.62 ha dato ambo l'Adattatore 16...> in gioco ...27.85.57.44.78... numeri estratti...78.90.05.12.57
il 12.11.2011 Firenze da 11.69.41.28.62 ha dato ambo l'Adattatore 33...> in gioco ...44.12.74.61.05... numeri estratti...78.90.05.12.57
il 12.11.2011 Firenze da 11.69.41.28.62 ha dato ambo l'Adattatore 67...> in gioco ...78.46.18.05.39... numeri estratti...78.90.05.12.57
il 17.11.2011 Firenze da 83.75.19.22.03 ha dato ambo l'Adattatore 12...> in gioco ...05.87.31.34.15... numeri estratti...87.11.05.25.88
il 19.11.2011 Firenze da 87.11.05.25.88 ha dato ambo l'Adattatore 48...> in gioco ...45.59.53.73.46... numeri estratti...53.23.27.45.66
il 19.11.2011 Firenze da 87.11.05.25.88 ha dato ambo l'Adattatore 55...> in gioco ...52.66.60.80.53... numeri estratti...53.23.27.45.66
Casi riscontrati sulla ruota di Firenze : 2173
quote:il 03.11.2011 Fi..da..73.60..in posizioni..1-2 ha dato ambo l'Adattatore 58 ..sortiti..>..41.28
il 03.11.2011 Fi..da..73.30..in posizioni..1-4 ha dato ambo l'Adattatore 45 ..sortiti..>..28.75
il 03.11.2011 Fi..da..60.47..in posizioni..2-3 ha dato ambo l'Adattatore 71 ..sortiti..>..41.28
il 03.11.2011 Fi..da..30.43..in posizioni..4-5 ha dato ambo l'Adattatore 88 ..sortiti..>..28.41
il 05.11.2011 Fi..da..89.87..in posizioni..3-5 ha dato ambo l'Adattatore 25 ..sortiti..>..24.22
il 08.11.2011 Fi..da..22.23..in posizioni..2-3 ha dato ambo l'Adattatore 24 ..sortiti..>..46.47
il 08.11.2011 Fi..da..22.86..in posizioni..2-4 ha dato ambo l'Adattatore 25 ..sortiti..>..47.21
il 08.11.2011 Fi..da..22.24..in posizioni..2-5 ha dato ambo l'Adattatore 22 ..sortiti..>..44.46
il 08.11.2011 Fi..da..23.24..in posizioni..3-5 ha dato ambo l'Adattatore 23 ..sortiti..>..46.47
il 10.11.2011 Fi..da..46.07..in posizioni..3-4 ha dato ambo l'Adattatore 55 ..sortiti..>..11.62
il 12.11.2011 Fi..da..11.28..in posizioni..1-4 ha dato ambo l'Adattatore 67 ..sortiti..>..78.05
il 12.11.2011 Fi..da..69.62..in posizioni..2-5 ha dato ambo l'Adattatore 33 ..sortiti..>..12.05
il 12.11.2011 Fi..da..41.62..in posizioni..3-5 ha dato ambo l'Adattatore 16 ..sortiti..>..57.78
il 17.11.2011 Fi..da..83.75..in posizioni..1-2 ha dato ambo l'Adattatore 12 ..sortiti..>..05.87
il 19.11.2011 Fi..da..87.05..in posizioni..1-3 ha dato ambo l'Adattatore 48 ..sortiti..>..45.53
il 19.11.2011 Fi..da..11.88..in posizioni..2-5 ha dato ambo l'Adattatore 55 ..sortiti..>..66.53
quote:OSSERVAZIONI :
1) LA data non corrisponde__Perchè ?
2) Conteggio numerico estrazionale generale/annuale__NO ! ( cosa utile )
3)L'ordine che gli ho dato io__NO !
'Casi sortita stesso adattatore in DUE posizioni
Sub Main()
Dim num(5),rit(10,90),ruota(1)
Dim rita
Dim b(5)
rt = InputBox("RUOTA ?",,1)
q = InputBox("Inizio ricerca (considerare che lo scipt è lento)",,8400)
s = 2
eini = q
efin = EstrazioneFin
For i = eini To efin
Messaggio(i)
ruota(1) = rt
da = 0
For p = 1 To 4
For pp = p + 1 To 5
da = da + 1
num(1) = Estratto(i,rt,p)
num(2) = Estratto(i,rt,pp)
For x = 1 To 90
b(1) = Fuori90(num(1) + x)
b(2) = Fuori90(num(2) + x)
rit(da,x) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da,x) = 1 Then
riga1 = FormatSpace(i,4) & "/" & FormatSpace(IndiceAnnuale(i),4)
riga1 = riga1 & "__" & FormatSpace(DataEstrazione(i),12) & "__ " & SiglaRuota(rt)
riga1 = riga1 & "__ " & StringaEstratti(i,rt) & "__" & StringaEstratti(i + 1,rt) &_
" sortito ADATTATORE " & Format2(x) & " in " & p & "-" & pp & " pos."
Scrivi riga1
End If
Next
Next
Next
Next
End Sub
quote:1 NUMERO__ESTRATTO
2 NUMERI__AMBO** (fatto)
3 NUMERI__TERNO**
4 NUMERI__QUATERNA**
5 NUMERI__CINQUINA
'Casi sortita stesso adattatore in TRE posizioni
Sub Main()
Dim num(3),rit(10,90),ruota(1)
Dim b(5)
rt = InputBox("Ruota?",,1)
q = InputBox("Inizio ricerca (considerare che lo scipt è lento)",,8400)
'x=InputBox ("Quale adattatore? (1-90)",,90)
s = 3
eini = q
efin = EstrazioneFin
For i = eini To efin
Messaggio(i)
ruota(1) = rt
da = 0
For p = 1 To 3
For pp = p + 1 To 4
For ppp = pp + 1 To 5
da = da + 1
num(1) = Estratto(i,rt,p)
num(2) = Estratto(i,rt,pp)
num(3) = Estratto(i,rt,ppp)
For x = 1 To 90
b(1) = Fuori90(num(1) + x)
b(2) = Fuori90(num(2) + x)
b(3) = Fuori90(num(3) + x)
rit(da,x) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da,x) = 1 Then
riga1 = FormatSpace(i,4) & "/" & FormatSpace(IndiceAnnuale(i),4)
riga1 = riga1 & "__" & FormatSpace(DataEstrazione(i),12) & "__ " & SiglaRuota(rt)
riga1 = riga1 & "__ " & StringaEstratti(i,rt) & "__" & StringaEstratti(i + 1,rt) & _
" sortito ADATTATORE " & Format2(x) & " in " & p & "-" & pp & "-" & ppp & " pos."
Scrivi riga1
End If
Next
Next
Next
Next
Next
End Sub
quote:1 NUMERO__ESTRATTO
2 NUMERI__AMBO** (fatto)
3 NUMERI__TERNO** (fatto)
4 NUMERI__QUATERNA** (casi rari)
5 NUMERI__CINQUINA
'Casi sortita stesso adattatore in QUATTRO posizioni (casi POCHISSIMI)
Sub Main()
Dim num(4),rit(5,90),ruota(1)
Dim b(4)
rt = InputBox("Ruota?",,3)
q = InputBox("Inizio ricerca (considerare che lo script è lento)",,8000)
s = 4
eini = q
efin = EstrazioneFin
For i = eini To efin
If ScriptInterrotto Then Exit For
Messaggio(i)
ruota(1) = rt
da = 0
For p = 1 To 2
For pp = p + 1 To 3
For ppp = pp + 1 To 4
For pppp = ppp + 1 To 5
da = da + 1
num(1) = Estratto(i,rt,p)
num(2) = Estratto(i,rt,pp)
num(3) = Estratto(i,rt,ppp)
num(4) = Estratto(i,rt,pppp)
For x = 1 To 90
b(1) = Fuori90(num(1) + x)
b(2) = Fuori90(num(2) + x)
b(3) = Fuori90(num(3) + x)
b(4) = Fuori90(num(4) + x)
rit(da,x) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da,x) = 1 Then
riga1 = FormatSpace(i,4) & "/" & FormatSpace(IndiceAnnuale(i),4)
riga1 = riga1 & "__" & FormatSpace(DataEstrazione(i),12) & "__ " & SiglaRuota(rt)
riga1 = riga1 & "__ " & StringaEstratti(i,rt) & "__" & StringaEstratti(i + 1,rt) & _
" sortito ADATTATORE " & Format2(x) & " in " & p & "-" & pp & "-" & ppp & "-" & pppp & " pos."
Scrivi riga1
End If
Next
Next
Next
Next
Next
Next
End Sub