Per gli scripter

rabberto · 6 Agosto 2011

Ciao ragazzi ho trovato un ottimo metodo di A.Ginestrino , lo inserisco con la speranza di fare cosa gardita per tutti , e con la speranza che qualcuno mi possa fare uno script :

Trovare due ambi con distanza 36 sia uniti ( isotopi ) che non uniti
devo vedere se fra di essi intercorre una distanza 45 verticale
nel caso lo trovo gioco come ambata rapida il diagonale

E.S. :

1 37
46 82

distanza 36 orizzontale e' la prima condizione
distanza 45 in verticale e' la seconda condizione
allora va bene gioco come ambata il diagonale

1 + 82 = 83
56 + 37 = 83

Il numero 83 e' l'ambata secca da giocare sulle due ruote , per massimo 5 - 6 colpi.

Spero di aver fatto cosa gradita , aspetto chi per favore mi possa fare uno script , grazie anticipatamente , ciao .

imported_n/a · 7 Agosto 2011

Ciao Rabberto,premetto che non sono riuscito a fare di meglio ma, non mi pare che il metodo sia cosi eccezionale.

Verifica un po cambiando il range di partenza e aumentando i colpi di gioco.

Sicuramente c'è qualcosa da modificare.

Ciao

Mike58

Codice:

Sub Main()
	'ambi Somma 36'
	Dim nu1(2),ruote(10),n(4)
	Dim poste(2)
	poste(1) = 1
	so = CInt(InputBox("qual'e' la somma?","numero somma",36))
	ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8000)
	k = InputBox("per quanti colpi?","colpi di gioco",12)
	ini = ce
	fin = EstrazioneFin
	ColoreTesto 1
	Scrivi "ambi somma " & Format2(so) & " su 2 ruote per Rabberto",1
	ColoreTesto 0
	Scrivi String(70,"="),1
	Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
	DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
	For es = ini To EstrazioneFin
		Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					sm3 = Fuori90(a + b)
					If sm3 = so Then
						'---------------------------------------------------------------------------
						For r2 = r1 + 1 To 12 '<<<--- x tutte le ruote (+ 1 next alla fine del listato
							If r2 = 11 Then r2 = 12
							'---------------------------------------------------------------------------
							'r1=r+1 '<<<--- per ruote consecutive
							'If r=10 Then r1=1 End If '<<<--- per ruote consecutive
							'---------------------------------------------------------------------------
							For p3 = 1 To 4
								For p4 = p3 + 1 To 5
									c = Estratto(es,r2,p3)
									d = Estratto(es,r2,p4)
									sm6 = Fuori90(c + d)
									'If p1 = p3 And p2 = p4 Then 'iso
									If sm3 = sm6 And sm3 = so Then
										n(1) = a
										n(2) = b
										n(3) = c
										n(4) = d
										OrdinaMatrice n,1
										num1 = Distanza(a,c)
										num2 = Distanza(b,d)
										If num1 = 45 And num2 = 45 Then
											casi = casi + 1
											Scrivi String(70,"="),1
											Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > ambo < " & _
											Format2(a) & " - " & Format2(b) & " > in " &(p1) & "^/" &(p2) & "^ pos."
											Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > ambo < " & _
											Format2(c) & " - " & Format2(d) & " > in " &(p3) & "^/" &(p4) & "^ pos."
											Scrivi String(57,"-") & " caso n° " & casi
											Scrivi Format2(a) & " + " & Format2(b) & " = " & sm3 & " / " & Format2(c) & " + " & Format2(d) & " = " & sm6
											Scrivi "Distanza 1 in verticale " & Format2(a) & "." & Format2(c) & " = " & num1
											Scrivi "Distanza 2 in verticale " & Format2(b) & "." & Format2(d) & " = " & num2
											Scrivi String(70,"-")
											ruote(1) = r1
											ruote(2) = r2
											nu1(1) = Fuori90(a + d)
											'nu1(2) = Fuori90(b+c)
											ImpostaGiocata 1,nu1,ruote,poste,k
											Gioca es
										End If
									End If
									'End If 'iso
								Next
							Next
						Next
					End If
				Next
			Next
		Next
		'---------------------------------------------------------------------------
	Next '<<<--- solo per tutte le ruote, per ruote consec. togliere
	'---------------------------------------------------------------------------
	ScriviResoconto
End Sub

rabberto · 7 Agosto 2011

Ciao Mike58 , ti ringrazio per lo script , ma purtroppo c'e' un errore il tuo script mi calcola la somma 36 , invece deve calcolare la distanza 36 , potresti rivederlo ed aggiustarlo per favore , grazie ciao .

imported_n/a · 7 Agosto 2011

OK Rabberto avevo letto male nessun problema per la correzione
eccoti lo script corretto con la distanza 36

ciao Mike58

Codice:

Sub Main()
	'ambi distanza 36'
	Dim nu1(2),ruote(10),n(4)
	Dim poste(2)
	poste(1) = 1
	so = CInt(InputBox("qual'e' la differenza?",,36))
	ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",7000)
	k = InputBox("per quanti colpi?","colpi di gioco",12)
	ini = ce
	fin = EstrazioneFin
	ColoreTesto 1
	Scrivi "ambi a distanza 36 " & Format2(so) & " su 2 ruote per Rabberto",1
	ColoreTesto 0
	Scrivi String(100,"="),1
	Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
	DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
	For es = ini To EstrazioneFin
		Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					sm3 = Abs(a - b)
					If sm3 = so Then
						'---------------------------------------------------------------------------
						For r2 = r1 + 1 To 12 '<<<--- x tutte le ruote (+ 1 next alla fine del listato
							If r2 = 11 Then r2 = 12
							'---------------------------------------------------------------------------
							'r1=r+1 '<<<--- per ruote consecutive
							'If r=10 Then r1=1 End If '<<<--- per ruote consecutive
							'---------------------------------------------------------------------------
							For p3 = 1 To 4
								For p4 = p3 + 1 To 5
									c = Estratto(es,r2,p3)
									d = Estratto(es,r2,p4)
									sm6 = Abs(c - d)
									'If p1 = p3 And p2 = p4 Then 'iso
									If sm3 = sm6 And sm3 = so Then
										n(1) = a
										n(2) = b
										n(3) = c
										n(4) = d
										OrdinaMatrice n,1
										num1 = Distanza(a,c)
										num2 = Distanza(b,d)
										If num1 = 45 And num2 = 45 Then
											casi = casi + 1
											Scrivi String(100,"="),1
											Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > ambo < " & _
											Format2(a) & " - " & Format2(b) & " > in " &(p1) & "^/" &(p2) & "^ pos."
											Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > ambo < " & _
											Format2(c) & " - " & Format2(d) & " > in " &(p3) & "^/" &(p4) & "^ pos."
											Scrivi String(70,"-") & " caso n° " & casi
											Scrivi Format2(a) & " - " & Format2(b) & " = " & sm3 & " / " & Format2(c) & " - " & Format2(d) & " = " & sm6
											Scrivi "Distanza 1 in verticale " & Format2(a) & "." & Format2(c) & " = " & num1
											Scrivi "Distanza 2 in verticale " & Format2(b) & "." & Format2(d) & " = " & num2
											Scrivi String(100,"-")
											ruote(1) = r1
											ruote(2) = r2
											nu1(1) = Fuori90(a + d)
											'nu1(2) = Fuori90(b+c)
											ImpostaGiocata 1,nu1,ruote,poste,k,1
											Gioca es
										End If
									End If
									'End If 'iso
								Next
							Next
						Next
					End If
				Next
			Next
		Next
		'---------------------------------------------------------------------------
	Next '<<<--- solo per tutte le ruote, per ruote consec. togliere
	'---------------------------------------------------------------------------
	ScriviResoconto
End Sub

rabberto · 7 Agosto 2011

Grazie mike58 sei stato gentilissimo ,lo script va benissimo , pero' volevo chiederti una cosa, e normale che dal 7 marzo 2001 al 6 agosto 2011 abbia trovato solo 5 casi giocabili , fammi sapere qualcosa e grazie ancora , ciao.

Enplein · 7 Agosto 2011

...con il permesso di mike58, bisogna sostituire il codice Abs con Distanza.

Codice:

sm3 = Abs(a - b) e sm6 = Abs(c - d)
con
sm3 = Distanza (a,b) e sm6 = Distanza (c,d)

Ciao, Enplein.

rabberto · 7 Agosto 2011

Grazie Enplein pero' per favore potresti essere piu' chiaro in non ne capisco di script e non so cosa fare , grazie , ciao.

imported_n/a · 7 Agosto 2011

Ciao Rabberto,Emplein, benvenuto per il tuo intervento, io avevo usato abs o differenza per avere la differenza reale dell'ambo invece con distanza si hanno + casi in quanto prende la distanza ciclometrica ossia fuori90.

x Rabberto allego script con distanza 36 e piccolo appunto se ti suggerisce di cambiare una riga almeno provaci.

Sub Main()
'ambi distanza 36'
Dim nu1(2),ruote(10),n(4)
Dim poste(2)
poste(1) = 1
so = CInt(InputBox("qual'e' la distanza?",,36))
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",7000)
k = InputBox("per quanti colpi?","colpi di gioco",12)
ini = ce
fin = EstrazioneFin
ColoreTesto 1
Scrivi "ambi a distanza 36 " & Format2(so) & " su 2 ruote per Rabberto",1
ColoreTesto 0
Scrivi String(100,"="),1
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
sm3 = Distanza(a,b)
If sm3 = so Then
'---------------------------------------------------------------------------
For r2 = r1 + 1 To 12 '<<<--- x tutte le ruote (+ 1 next alla fine del listato
If r2 = 11 Then r2 = 12
'---------------------------------------------------------------------------
'r1=r+1 '<<<--- per ruote consecutive
'If r=10 Then r1=1 End If '<<<--- per ruote consecutive
'---------------------------------------------------------------------------
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
sm6 =Distanza(c,d)
'If p1 = p3 And p2 = p4 Then 'iso
If sm3 = sm6 And sm3 = so Then
n(1) = a
n(2) = b
n(3) = c
n(4) = d
OrdinaMatrice n,1
num1 = Distanza(a,c)
num2 = Distanza(b,d)
If num1 = 45 And num2 = 45 Then
casi = casi + 1
Scrivi String(100,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > ambo < " & _
Format2(a) & " - " & Format2(b) & " > in " &(p1) & "^/" &(p2) & "^ pos."
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > ambo < " & _
Format2(c) & " - " & Format2(d) & " > in " &(p3) & "^/" &(p4) & "^ pos."
Scrivi String(70,"-") & " caso n° " & casi
Scrivi Format2(a) & " - " & Format2(b) & " = " & sm3 & " / " & Format2(c) & " - " & Format2(d) & " = " & sm6
Scrivi "Distanza 1 in verticale " & Format2(a) & "." & Format2(c) & " = " & num1
Scrivi "Distanza 2 in verticale " & Format2(b) & "." & Format2(d) & " = " & num2
Scrivi String(100,"-")
ruote(1) = r1
ruote(2) = r2
nu1(1) = Fuori90(a + d)
'nu1(2) = Fuori90(b+c)
ImpostaGiocata 1,nu1,ruote,poste,k,1
Gioca es
End If
End If
'End If 'iso
Next
Next
Next
End If
Next
Next
Next
'---------------------------------------------------------------------------
Next '<<<--- solo per tutte le ruote, per ruote consec. togliere
'---------------------------------------------------------------------------
ScriviResoconto
End Sub

rabberto · 8 Agosto 2011

Grazie ragazzi ora va benissimo siete grandi , io lo vorrei inserire in mega raccolta script , in modo da vaere un post con tanti script a disposizione di tutti , per voi va bene o no , fatemi sapere , e grazie ancora, ciao .

imported_n/a · 8 Agosto 2011

ok

per quanto mi riguarda puoi mettere anche altri script postati da me richiesti in altri post.

ciao

mike58

rabberto · 9 Agosto 2011

OK grazie ciao.

Cerca

Cerca

Per gli scripter

rabberto

Advanced Member

imported_n/a

Advanced Premium Member

rabberto

Advanced Member

imported_n/a

Advanced Premium Member

rabberto

Advanced Member

Enplein

Super Member >PLATINUM<

rabberto

Advanced Member

imported_n/a

Advanced Premium Member

rabberto

Advanced Member

imported_n/a

Advanced Premium Member

rabberto

Advanced Member

Ultima estrazione Lotto

Ultimi Messaggi