X Mike58

[rodrigo]

Ciao Mike volevo chiederti se potevi realizzare uno script che mi realizzi questi calcoli:

Ponendo una ipotetica estrazione su una ruota a mia scelta tipo: 46-14-13-67-44 andremo a fare la piramide delle decine (4.1.1.6.4) e poi quella delle cadenze (6.4.3.7.4).

Decine
41164
5271
798
78

Cadenze
64374
1712
883
72

Si pongono adesso in piramide le figure dei due numeri 78 e 72 col 44, ultimo estratto:

644
18

944
48


Disponiamo infine in piramide i numeri 78 col 18 ed 72 con il 48:

7818
699
69

7248
963
69



Il risultato come si vede è 69, identico sia nel primo che nel secondo calcolo, il risultato identico è proprio quello che mi interessa cercare.
Spero sia fattibile e non troppo difficoltoso, ti ringrazio in anticipo e ti saluto cordialmente.

 

[Mike58]

Ciao Rodrigo, lo script è fattibile, devo solo rivedermi la funzione per elaborare la Piramide.
Mi sembra anche che avevo già fatto un qualcosa del genere devo anche li cercarla.
Purtroppo mi serve un po' di tempo tra poco vado al lavoro (Notte) e la concentrazione manca, ma non ti preoccupare lo script come ti dicevo sembra fattibile.

Ciao se altri volessero cimentarsi sono ben accetti, altrimenti penso entro domani di provarci.

Ciao

 

[Mike58]

Rodrigo, quando puoi fai un esempio di estrazione reale può servire per comparare i dati.
Elencando numero estrazione reale ed estratti e ruota reale.

Ciao

 

[rodrigo]

Rodrigo, quando puoi fai un esempio di estrazione reale può servire per comparare i dati.
Elencando numero estrazione reale ed estratti e ruota reale.

Ciao

Ho provato a fare una ricerca facendo i calcoli con carta e penna ma è stata una impresa impossibile poiché sono stato costretto ad affidarmi alla casualità sia per la scelta delle estrazioni che per quella delle ruote senza ottenere alcun risultato, però proverò ancora sperando di essere più fortunato...

 

[Mike58]

Ciao Rodrigo, stavo dando un ultimo sguardo al forum e ho visto la tua risposta,purtroppo la bozza di script non è completa

ti posto lo script della ricerca per capire se siamo sulla strada giusta.

Devo proprio scappare al lavoro (ahimè)

Sub Main
	Dim nu(5),dc(5),cd(5)
	'r = 1
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
	For r = 1 To 12
	If r <> 11 Then
		For p = 1 To 5
			nu(p) = Estratto(es,r,p)
			dc(p) = Decina(nu(p))
			cd(p) = Cadenza(nu(p))
			num = StringaNumeri(nu,"")
			nd = StringaNumeri(dc,"")
			nc = StringaNumeri(cd,"")
		Next
		aa = Piramide(nd,10,2)
		bb = Piramide(nc,10,2)
		If aa = bb Then
			Scrivi GetInfoEstrazione(es) & "  ",0,0
			Scrivi SiglaRuota(r) & "  ",0,0
			Scrivi StringaNumeri(nu,,1) & "  ",0,0
			Scrivi vbTab & StringaNumeri(nu,"") & "  ",0,0
			Scrivi vbTab & StringaNumeri(dc,"") & "  ",0,0
			Scrivi vbTab & StringaNumeri(cd,"") & "  ",0,0
			Scrivi vbTab & aa & "  ",0,0
			Scrivi vbTab & bb
		End If
		End If
		Next
	Next
End Sub

ti leggerò domani

ciao

 

[rodrigo]

Ciao Mike ho notato un errore nella piramide nel senso che quando capita lo zero lo script dovrebbe inserirlo altrimenti cambia il risultato:

Es: [08879] [ 92] 02.08.2014 BA 37.40.29.27.81 ------3740292781------34228-------7971 (senza 0) il risultato del primo calcolo sarebbe 56 56,
ma in realtà 70971 (con lo 0) il risultato del primo calcolo è 56 54

Ovviamente non ha importanza che questi abbiano risultato identico poiché è solo un parziale, l'importante che l'abbia quello finale.

Buon lavoro a domani.

 

[Mike58]

Dopo Turno notturno e piccolo impegno mattutino, ho cercato di capirci qualcosina ma temo che ancora ci possono essere dei correttivi da apportare.
Vedi se cosi può essere + veritiero.

Ci aggiorniamo a pomeriggio.

Sub Main
	Dim nu(5),dc(5),cd(5)
	'r = 1
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r = 1 To 12
			If r <> 11 Then
				For p = 1 To 5
					nu(p) = Estratto(es,r,p)
					dc(p) = Decina(nu(p))
					cd(p) = Cadenza(nu(p))
					num = StringaNumeri(nu,"")
					nd = StringaNumeri(dc,"")
					nc = StringaNumeri(cd,"")
				Next
				aa = dc(1) & dc(2) & dc(3) & dc(4) & dc(5)
				bb = cd(1) & cd(2) & cd(3) & cd(4) & cd(5)
				cc = Piramide(aa,10,2)
				dd = Piramide(bb,10,2)
				ff = Figura(cc)& nu(5)
				gg = Figura(dd)& nu(5)
				hh = Piramide(ff,1,2)
				ii = Piramide(gg,1,2)
				
				
				nn = cc&hh			
				mm = dd& ii
				a = Piramide(nn,4,2)
				b = Piramide(mm,4,2) 				
				If a = b Then
					Scrivi GetInfoEstrazione(es) & "  ",0,0
					Scrivi SiglaRuota(r) & "  ",0,0
					Scrivi StringaNumeri(nu,,1) & "  ",0,0
					Scrivi vbTab & StringaNumeri(nu,"",1) & "  ",0,0
					Scrivi vbTab & dc(1) & dc(2) & dc(3) & dc(4) & dc(5),0,0
					Scrivi vbTab & cd(1) & cd(2) & cd(3) & cd(4) & cd(5),0,0
					Scrivi vbTab & cc & "  ",0,0
					Scrivi vbTab & dd & "  ",0,0
					Scrivi vbTab & ff& "  " &  gg,0,0
					Scrivi vbTab & hh & "  ",0,0
					Scrivi vbTab & ii & "  ",0,0
					Scrivi vbTab & nn & "  ",0,0
					Scrivi vbTab & mm & "  ",0,0

					Scrivi vbTab & a & " - " & b,1
					
				End If
			End If
		Next
	Next
End Sub

 

[rodrigo]

Grazie Mike lo script è perfetto, sei stato gentilissimo come al solito... vorrei però parlarti di una certa cosa e siccome è vietato lo scambio di mail mi chiedevo se tu avessi un contatto fb! Che ne pensi?

 

[Mike58]

Ciao Rodrigo, mi dici che lo script è giusto ? per averlo completato senza riposare è già un bel risultato.
Pensavo che qualche operazione andava rivista, se cosi non è ottimo lo script di ricerca piace anche a me.

No !!! non ho contatto fb, non ho mai voluto queste forme di socializzazioni (sarà causa dell'età che avanza), e forse non dovrei dirlo ma se cerchi in altri forum il mio nik magari li ci sono gli Mp per i contattti privati.

Purtroppo qui queste forme non ci sono e non si possono nemmeno menzionare siti e link per i contatti privati, anche se penso che tutto debba essere condiviso e visibile.

Voglio dire anche che un po' grazie alle vostre richieste e alla mia curiosità ho in qualche modo imparato a listare vbscript, il tutto sempre senza presunzione di perfezione.

Un saluto.