per BAFFO o chi puo'

[mari66]

ciao scusa se ti disturbo,vorrei chiederti come mai lo script a volte il calcolo lo fa con il +5 altre col - 5 ,mi servirebbe solo il - 5 come fare per farlo andare cosi? grazie. sull'ambo di ricerca deve togliere -5 e fare la chiusura,puoi aiutarmi?

 

[Roby]

ciao scusa se ti disturbo,vorrei chiederti come mai lo script a volte il calcolo lo fa con il +5 altre col - 5 ,mi servirebbe solo il - 5 come fare per farlo andare cosi? grazie. sull'ambo di ricerca deve togliere -5 e fare la chiusura,puoi aiutarmi?

Ciao Mari, se vuoi il diametrale in decina è ovvio che a volte farà +5, se non vuoi il + 5 allora non è più il diametraleD ma un semplice calcolo
Baffo ha solo fatto ciò che tu gli hai chiesto
Ciao

 

[mari66]

cia black,secondo il metodo che sto sperimentando mi serve solo -5 in pratica solo il calcolo ,con la chisura a 90 del risultato,ringrazio moltissimo baffo,sono io che non sono molto pratica,e mi sono spiuegata male.

 

[Roby]

Ora calcola solo il - 5

Sub Main()
	Dim idEstr
	Dim Inizio
	Dim Fine
	Dim ruote(10)
	Dim poste(10)
	Dim r
	Dim di
	Dim nAnalisi
	Dim nColpiDiGioco
	Dim n(4)
	poste(1) = 1
	poste(2) = 1
	ruote(1) = r1
	r = CInt(InputBox(" Scegli la ruota ",,"1"))
	di = CInt(InputBox(" Inserire la Differenza voluta ",,"50"))
	nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
	nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
	Inizio = EstrazioneFin - nAnalisi
	Fine = EstrazioneFin
	co = 0
	For idEstr = Inizio To Fine
		Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		For r1 = 1 To 11
			If r1 = 11 Then
				r1 = 12
			End If
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(idEstr,r,p1)
					b = Estratto(idEstr,r,p2)
					If Differenza(a,b) = di Then
						c = Fuori90(a + 90 - 5)
						d = Fuori90(b + 90 - 5)
						e = ComplAdX(c)
						f = ComplAdX(d)
						n(1) = c
						n(2) = d
						n(3) = e
						n(4) = f
						ruote(1) = r1
						co = co + 1
						
						ColoreTesto 0
						Scrivi String(100,"°") & " Caso n°" & co,1
						ColoreTesto 1
						Scrivi DataEstrazione(idEstr) & " - " & "Ambo ricerca : " & a & " - " & b & " - " & "Differenza : " & di & " Trovato a " & SiglaRuota(r) & " *** " & " Numeri :   " & c & " - " & d & " - " & e & " - " & f,1
						ColoreTesto 0
						Scrivi String(100,"°"),1
						ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco
						Gioca idEstr,1
					
					End If 
					If ScriptInterrotto Then Exit For
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi String(100,"*")
	ColoreTesto 2
	Scrivi" casi trovati : " & co,1
	ColoreTesto 0
	Scrivi String(100," * ")
	TestoInBandaPassante(" IDEA BY mari66 <> LISTATO BY  B A F F O B L U "),1,3,0
	ScriviResoconto
End Sub

 

[mari66]

Grazie mille ,lo provo cosi' vediamo se la mia idea e' giusta,sei gentilissimo

 

[mari66]

va benissimo,voui provare la distanza 17 su bari?12 colpi guarda cose esce alla naz.e cagliari e' conveniente?che ne pensi?