Per MIKE 58

vitale · 22 Ottobre 2014

Buongiorno Mike.
Posso chiederti un favore?
Potresti farmi un listato nel quale posso vedere alcune sommi?
Ecco la formula:
Vorrei poter vedere quando sulle ruote di MILANO-NAPOLI-BARI e VENEZIA sommando i cinque numeri di una delle suddette ruote, mi dia una somma comprese tra 240 a 249.
Qualora la somma dovesse essere minore o superiore alla nostra condizione, non la considerare.
Faccio un esempio:
MILANO 32.56.86.22.49 somma 245
Resto in attesa di questo primo script, dopodichè affronteremo la formula per l'ambo secco e il terno.
Cordialmente.

Joe91 · 22 Ottobre 2014

Ciao Vitale,

Scusa se mi permetto ma, per svolgere meglio il compito che hai richiesto a Mike, sarebbe meglio fornirgli tutte le indicazioni.

Scrivo questo perchè in Spaziometria esiste l'istruzione "SommaEstratti"

e quindi la tua richiesta, per ora, si esaurisce in uno script d'un paio di righe ...

però non sapendo cosa di dovrà "avere" ... per il futuro ... s'ha il rischio di utilizzare istruzioni comode, poi magari inutili,

per il resto dello svolgimento.

Codice:

Sub Main
	For ES = EstrazioneFin - 155 To EstrazioneFin
		For R = 1 To 10
			If R = MI_ Or R = NA_ Or R = BA_ Or R = VE_ Then
				SE = SommaEstratti (ES,R)
				If 240 <= SE And SE <= 249 Then
					Scrivi DataEstrazione(ES) & " " & SiglaRuota(R) & " " & StringaEstratti(ES,R) & " = " & SE
				End If
			End If
		Next
	Next
End Sub

vitale · 22 Ottobre 2014

Grazie Joe91 per l'appunto.
Ciao.

Mike58 · 22 Ottobre 2014

Ciao vitale prova +/- cosi poi vediamo per il metodo.

Codice:

Sub Main
	Dim nu(9),ru(1)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 12
			If r1 = 11 Then r1 = 12
			a = SommaEstratti(es,r1)
			If a > 239 And a < 250 Then
				k1 = k1 + 1
				If r1 = 6 Or r1 = 5 Or r1 = 1 Or r1 = 10 Then
					k = k + 1
					Scrivi String(60,"=")
					ColoreTesto 2
					Scrivi FormatSpace(k1,3) & GetInfoEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  " & a,1,0
					Scrivi "    <<< ",1
					ColoreTesto 0
					Scrivi String(60,"-")
				Else
					ColoreTesto 0
					Scrivi FormatSpace(k1,3) & GetInfoEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  " & a
				End If
			End If
		Next
	Next
	Scrivi "Ruote evidenziate e trovate...." & k & " Su estrazioni totali... " & k1,1
End Sub

ops ha postato anche joe che ringrazio e saluto e quoto le sue precisazioni.

vitale · 22 Ottobre 2014

Ecco la formula da applicare, rintracciata la condizione di cui sopra.
ESEMPIO REALE:
Estrazione del 4 ottobre 2014
BARI 53.75.11.64.39 somma degli estratti= 242
NAPOLI 60.64.36.23.65 somma degli estratti= 248
FORMULA:
242-248= 6
Il 6 è la nostra ambata
Come abbinare gli altri numeri per le sorti superiori:
- prendere il primo estratto di BARI e sottrarlo al primo estratto di NAPOLI 53-60= 7
-prendere il secondo estratto di BARI e sottrarlo al secondo estratto di NAPOLI 75-64 11
-prendere il terzo estratto di BARI e sottrarlo al terzo estratto di NAPOLI 11-36 = 25
-prendere il quarto estratto di BARI e sottrarlo al quarto estratto di NAPOLI 64-23 = 21
-prendere il quinto estratto di BARI e sottrarlo al quinto estratto di NAPOLI 39-65 = 26
Il risultato del quinto estratto di BARI sottratto al quinto estratto di NAPOLI, faremo la somma delle due unità 2+6= 8 e cioè 8 sarà il secondo numero da abbinare all'ambata 6
Quindi, primo ambo secco 6.8 da giocare sulle ruote di BARI-NAPOLI-TUTTE
Andiamo avanti.
per ricavare gli altri abbinamenti procederemo in questo modo:
ai numeri ricavati e cioè: 7.11.25.21.26, addizioneremo le due unità di ogni singolo numero;
7= 0+7= 7
11= 1+1= 2
25= 2+5= 7
21= 2+1= 3
26= 2+6= 8
A questo punto, sommeremo i numeri ricavati dalla somma delle unità:
7+2+7+3+8= 27
Il 27 sarà il secondo numero che formerà l'altro ambo secco e cioè 6.27
per la terzina da giocare su BARI-NAPOLI-TUTTE per ambo e terno 6.8.27
Tutto qui.
Spero di aver fatto cosa gradita.
Attendo il listato.
Grazie per tutto quello che fate per noi.
Ciao.

Mike58 · 22 Ottobre 2014

Ciao, Vitale, Controlla possibili errori

Codice:

Sub Main
	Dim nu(5),num(3),ru(2),dc(5),ambata(1),ambo(2),terna(3),posta(1),poste(2),posteT(3),rt(1)
	posta(1) = 1
	poste(2) = 1
	posteT(2) = 1
	posteT(3) = 1
	er = InputBox("QUANTE ESTRAZIONI CONTROLLO",,200)
	Scrivi "*** Metodo Vitale **** Forum LottoCed **** List By Mike58 & Joe91 **** ",1,1,3,1,3
	Scrivi
	For ES = EstrazioneFin - er To EstrazioneFin
		For R1 = 1 To 10
			For R2 = R1 + 1 To 10
				If R1 = MI_ Or R1 = NA_ Or R1 = BA_ Or R1 = VE_ Then
					If R2 = MI_ Or R2 = NA_ Or R2 = BA_ Or R2 = VE_ Then
						If R1 <> R2 Then
							SE = SommaEstratti(ES,R1)
							SE2 = SommaEstratti(ES,R2)
							If 240 <= SE And SE <= 249 Then
								If 240 <= SE2 And SE2 <= 249 Then
									k = k + 1
									If Differenza(SE,SE2) <= 10 Then
										'............. calcoli ....................
										sm = Differenza(se,se2)
										nu(1) = Differenza((Estratto(es,r1,1)),(Estratto(es,r2,1)))
										nu(2) = Differenza((Estratto(es,r1,2)),(Estratto(es,r2,2)))
										nu(3) = Differenza((Estratto(es,r1,3)),(Estratto(es,r2,3)))
										nu(4) = Differenza((Estratto(es,r1,4)),(Estratto(es,r2,4)))
										nu(5) = Differenza((Estratto(es,r1,5)),(Estratto(es,r2,5)))
										dc(1) = FuoriX(Decina(nu(1)) + Cadenza(nu(1)),9)
										dc(2) = FuoriX(Decina(nu(2)) + Cadenza(nu(2)),9)
										dc(3) = FuoriX(Decina(nu(3)) + Cadenza(nu(3)),9)
										dc(4) = FuoriX(Decina(nu(4)) + Cadenza(nu(4)),9)
										dc(5) = FuoriX(Decina(nu(5)) + Cadenza(nu(5)),9)
										smdc = dc(1) + dc(2) + dc(3) + dc(4) + dc(5)
										num(2) = Decina(nu(5)) + Cadenza(nu(5))
										num(1) = sm
										num(3) = smdc
										ambata(1) = num(1)
										ambo(1) = ambata(1)
										ambo(2) = num(3)
										EliminaRipetuti(ambo)
										terna(1) = ambata(1)
										terna(2) = ambo(2)
										terna(3) = num(2)
										EliminaRipetuti(terna)
										ru(1) = R1
										ru(2) = R2
										rt(1) = 11
										Scrivi String(100,"=") & " Caso N. " & K
										Scrivi DataEstrazione(ES) & " " & SiglaRuota(R1) & " " & StringaEstratti(ES,R1) & " = " & SE
										Scrivi DataEstrazione(ES) & " " & SiglaRuota(R2) & " " & StringaEstratti(ES,R2) & " = " & SE2
										Scrivi
										Scrivi "Ambata 1 : " & sm
										Scrivi "differenze...." & StringaNumeri(nu,,1)
										Scrivi "Dec & Cad :   " & StringaNumeri(dc,,1)
										Scrivi "Numeri in gioco.... " & StringaNumeri(num,,1),1
										Scrivi "Amabta  : " & StringaNumeri(ambata,,1)
										Scrivi "Ambo    : " & StringaNumeri(ambo,,1)
										Scrivi "Terna   : " & StringaNumeri(terna,,1)
										Scrivi String(100,"-")
										ImpostaGiocata 1,ambata,ru,posta,10,1
										ImpostaGiocata 2,ambo,ru,poste,10,2
										ImpostaGiocata 3,terna,rt,posteT,10,2
										Gioca es,1,,1
									End If
								End If
							End If
						End If
					End If
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

vitale · 22 Ottobre 2014

Ciao Mike, come posso impostare quanti colpi per l'ambata, ambo e terzina?
Grazie.

Mike58 · 22 Ottobre 2014

ImpostaGiocata 1,ambata,ru,posta,10,1
ImpostaGiocata 2,ambo,ru,poste,10,2
ImpostaGiocata 3,terna,rt,posteT,10,2
in queste 3 righe ci sono i colpi che sono uguali a 10 metti il numero che credi.

Ciao

vitale · 22 Ottobre 2014

Grazie Mike.
Domani farò delle modifiche al metodo.
Buona serata.
Ciao.

Cerca

Cerca

Per MIKE 58

vitale

Junior Member

Joe91

Advanced Member >PLATINUM PLUS<

vitale

Junior Member

Mike58

Advanced Member >PLATINUM PLUS<

vitale

Junior Member

Mike58

Advanced Member >PLATINUM PLUS<

vitale

Junior Member

Mike58

Advanced Member >PLATINUM PLUS<

vitale

Junior Member

Ultima estrazione Lotto

Ultimi Messaggi