Novità

Per Mike

rodrigo

Super Member >PLATINUM<
Ciao Mike stavo provando ad aggiungere a questo script anche le ruote di Bari e Nazionale ma non riesco perché evidentemente sbaglio da qualche parte, mi daresti una mano nell'aggiunta?
Ti ringrazio in anticipo.

Codice:
ColoreTesto 2 :Scrivi String(37,32) 


Scrivi String(47,32) 
ColoreTesto 0

Sub Main()
Dim nu(2)
Dim posta(2),poste(2)
Dim ruote(2)
posta(1) = 1
posta(2) = 1
poste(2) = 1
fin = EstrazioneFin
ini = fin - 100
For es = ini To fin
Messaggio es
For r1 = 1 To 9
For p1 = 1 To 5
a1 = Estratto(es,r1,p1)
For r2 = r1 + 1 To 10
a2 = Estratto(es,r2,p1)
If Distanza(a1,a2) = 30 Then

a = Fuori90(a2 + 30)
If a = a1 Then a = Fuori90(a2 + 60)
b = Fuori90(a + 18)'ambata
c = Fuori90(90 + b - 30)'ambata
d = Fuori90(90 + b - 4)' 1° abbinamento
e = Fuori90(90 + d - 30)' 2° abbinamento
f = Diametrale(e)
Scrivi "---------------------------------------",1
Scrivi "Numeri isotopi Distanza 30 --> " & a1 & " " & a2,1
Scrivi

ruote(2) = r2
nu(1) = b
nu(2) = c
ImpostaGiocata 1,nu,ruote,posta,9

Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & "NUMERI ISOTOPI ...DISTANZA 30 by ZIAADRI",1
Scrivi String(47,32) & "by DjNomade",1
ColoreTesto 0
End Sub
 
Ciao Rodrigo per la ruota nazionale mancava il ciclo for che lo allaciava e poi mancava l'assegnazione del vettore Ruota(1) = r1

Ad ogni modo ti ho fatto le correzioni necessarie.

Codice:
ColoreTesto 2 :Scrivi String(37,32)
Scrivi String(47,32)
ColoreTesto 0
Sub Main()
	Dim nu(2)
	Dim posta(2),poste(2)
	Dim ruote(2)
	posta(1) = 1
	posta(2) = 1
	poste(2) = 1
	fin = EstrazioneFin
	ini = fin - 100
	For es = ini To fin
		Messaggio es
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			For p1 = 1 To 5
				a1 = Estratto(es,r1,p1)
				For r2 = r1 + 1 To 12
					If r2 = 11 Then r2 = 12
					a2 = Estratto(es,r2,p1)
					If Distanza(a1,a2) = 30 Then
					
						a = Fuori90(a2 + 30)
						If a = a1 Then a = Fuori90(a2 + 60)
						k = k + 1
						b = Fuori90(a + 18)'ambata
						c = Fuori90(90 + b - 30)'ambata
						d = Fuori90(90 + b - 4)' 1° abbinamento
						e = Fuori90(90 + d - 30)' 2° abbinamento
						f = Diametrale(e)
						Scrivi String(100,"-") & " Caso n. " & k ,1
						Scrivi "Condizione Trovata in data " & DataEstrazione(es),1,1,,1,2
						Scrivi "Numeri isotopi Distanza 30 --> " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " > " & " In Posiz. " & p1 & "  " & a1,1
						Scrivi "Numeri isotopi Distanza 30 --> " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & " > " & " In Posiz. " & p1 & "  " & a2,1
						Scrivi String(110,"="),1
						Scrivi
						ruote(1) = r1
						ruote(2) = r2
						nu(1) = b
						nu(2) = c
						ImpostaGiocata 1,nu,ruote,posta,9
						Gioca es
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 2 :Scrivi String(37,32) & "NUMERI ISOTOPI ...DISTANZA 30 by ZIAADRI",1
	Scrivi String(47,32) & "by DjNomade",1
	ColoreTesto 0
End Sub
 
Apprendere ed imparare è una crescita per tutti e solo applicandosi passo per passo e con l'aiuto guida script si cresce in conoscenza.

Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 29 aprile 2025
    Bari
    03
    07
    32
    05
    33
    Cagliari
    66
    62
    27
    39
    26
    Firenze
    07
    41
    70
    75
    53
    Genova
    10
    26
    64
    44
    74
    Milano
    30
    76
    66
    51
    65
    Napoli
    56
    80
    34
    11
    29
    Palermo
    74
    37
    48
    13
    38
    Roma
    02
    21
    18
    51
    68
    Torino
    64
    06
    32
    88
    54
    Venezia
    66
    01
    11
    74
    54
    Nazionale
    65
    63
    50
    55
    33
    Estrazione Simbolotto
    Genova
    45
    10
    12
    24
    40
Indietro
Alto