Novità

Per gli scripter

rabberto

rabberto

Advanced Member
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 .
 
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
 
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 .
 
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
 
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.
 
...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.
 
Grazie Enplein pero' per favore potresti essere piu' chiaro in non ne capisco di script e non so cosa fare , grazie , ciao.
 
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
 
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 .
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto