Novità

Per GiulioLG #

R

Roby

Guest
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
 
R

Roby

Guest
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
 
R

Roby

Guest
oh,io ho' fatto solo un quote coi complimenti per il lavoro.....mica e' un reato....o no?[:0]

Artemisio
Memento Audere Semper
 
fillotto

fillotto

Advanced Member >PLATINUM<
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
 
P

puntoevirgola

Member
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?


;
 
fillotto

fillotto

Advanced Member >PLATINUM<
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!! :)
 
R

Roby

Guest
:(.........siamo tutti ..........ignoranti....perche' ignoriamo....
credete Voi.........:(

Artemisio
Memento Audere Semper
 
P

puntoevirgola

Member
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

;
 
P

puntoevirgola

Member
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...

;
 
P

puntoevirgola

Member
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
 
P

puntoevirgola

Member
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

;
 
P

puntoevirgola

Member
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
    martedì 07 maggio 2024
    Bari
    68
    80
    23
    56
    71
    Cagliari
    43
    74
    20
    02
    11
    Firenze
    75
    19
    18
    74
    69
    Genova
    45
    38
    26
    16
    87
    Milano
    06
    23
    72
    66
    05
    Napoli
    46
    21
    49
    80
    73
    Palermo
    15
    09
    54
    48
    49
    Roma
    06
    58
    78
    27
    31
    Torino
    78
    27
    31
    64
    74
    Venezia
    60
    47
    90
    06
    22
    Nazionale
    43
    58
    26
    18
    79
    Estrazione Simbolotto
    Milano
    17
    16
    25
    23
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto