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ì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto