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
    venerdì 27 marzo 2026
    Bari
    09
    07
    85
    34
    35
    Cagliari
    66
    23
    50
    17
    18
    Firenze
    29
    14
    68
    75
    09
    Genova
    52
    88
    58
    19
    50
    Milano
    07
    80
    05
    46
    90
    Napoli
    16
    33
    75
    35
    17
    Palermo
    43
    08
    82
    48
    74
    Roma
    36
    71
    23
    15
    44
    Torino
    21
    67
    54
    14
    06
    Venezia
    69
    23
    81
    74
    89
    Nazionale
    83
    60
    76
    78
    07
    Estrazione Simbolotto
    Firenze
    31
    38
    24
    39
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto