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
    giovedì 21 agosto 2025
    Bari
    41
    55
    23
    09
    54
    Cagliari
    52
    26
    51
    34
    47
    Firenze
    23
    78
    17
    35
    86
    Genova
    82
    15
    07
    44
    70
    Milano
    19
    86
    22
    77
    73
    Napoli
    39
    48
    82
    70
    15
    Palermo
    05
    25
    88
    54
    87
    Roma
    54
    19
    24
    62
    09
    Torino
    29
    83
    49
    59
    74
    Venezia
    65
    01
    45
    72
    55
    Nazionale
    10
    60
    88
    55
    37
    Estrazione Simbolotto
    Nazionale
    20
    24
    28
    33
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto