Novità

Per GiulioLG #

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
Clicca per espandere...

Bel lavoro ; ;)

Artemisio
Memento Audere Semper
 
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
Clicca per espandere...

Bel lavoro ; ;)

Artemisio
Memento Audere Semper
Clicca per espandere...


Ihihihihih!!!!
Codice mica l'ha detto a te de fa il copia incolla!!
:D:D:D:D

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
 
oh,io ho' fatto solo un quote coi complimenti per il lavoro.....mica e' un reato....o no?[:0]

Artemisio
Memento Audere Semper
 
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
 
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
Clicca per espandere...

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]

mi sembrava una scelta opportuna dato

che nell' intestazione dello script si fa riferimento ada un' altro forum


E cosa c'è di strano se giulio mi chiede di cancellare questo mio intervento:
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....
Clicca per espandere...

per lasciare 'pulite' le sue segnalazioni?


;
 
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
Clicca per espandere...

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 ...
]
Clicca per espandere...

mi sembrava una scelta opportuna dato

che nell' intestazione dello script si fa riferimento ada un' altro forum


E cosa c'è di strano se giulio mi chiede di cancellare questo mio intervento:
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....
Clicca per espandere...

per lasciare 'pulite' le sue segnalazioni?


;
[/quote]
OK!! :)
 
:(.........siamo tutti ..........ignoranti....perche' ignoriamo....
credete Voi.........:(

Artemisio
Memento Audere Semper
 
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.
Clicca per espandere...

Può andare bene uno script che ha questo output?

Codice: 
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

;
 
Ho aggiunto le posizioni, di più non so fare

vedi se va bene così

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
Clicca per espandere...

;
 
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 !
Clicca per espandere...

Ho aggiustato:

Codice: 
'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

Ciao
 
Ciao Giulio

quote:1 NUMERO__ESTRATTO
2 NUMERI__AMBO** (fatto)
3 NUMERI__TERNO**
4 NUMERI__QUATERNA**
5 NUMERI__CINQUINA
Clicca per espandere...

Codice: 
'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


PS: Ti sarei grato se cancellassi il post

ADATTATOTI SOMMATIVI script

nella sezione STATISTICA

Grazie

;
 
quote:1 NUMERO__ESTRATTO
2 NUMERI__AMBO** (fatto)
3 NUMERI__TERNO** (fatto)
4 NUMERI__QUATERNA** (casi rari)
5 NUMERI__CINQUINA
Clicca per espandere...

Codice: 
'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

Ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto