Novità

vecchi script

S

securmoney

Junior Member
Gentilmente qualcuno del forum sa dirmi con quale programma "gira" questo script?:
'2 ambate x Roma +
'ambo su 9 numeri
'sufficente in % al giocato

ESTRAZIONI 01-01-1998
primo=EST(1,8,@ESTR)
quinto=EST(5,8,@ESTR)
caprimo=CAD(primo)
caquinto=CAD(quinto)
uguali=caprimo=caquinto
SE uguali
cd1=CAD(primo)=1
cd2=CAD(primo)=2
cd3=CAD(primo)=3
cd4=CAD(primo)=4
cd5=CAD(primo)=5
cd6=CAD(primo)=6
cd7=CAD(primo)=7
cd8=CAD(primo)=8
cd9=CAD(primo)=9

SE cd1
VAIA nogioc
FINE SE
SE cd2
VAIA nogioc
FINE SE
SE cd3
VAIA nogioc
FINE SE
SE cd4
VAIA nogioc
FINE SE
SE cd5
VAIA nogioc
FINE SE
SE cd6
VAIA nogioc
FINE SE
SE cd7
VAIA nogioc
FINE SE
SE cd8
VAIA nogioc
FINE SE
SE cd9
VAIA nogioc
FINE SE

num1=CAD(primo)+10
num2=CAD(primo)+20
num3=CAD(primo)+30
num4=CAD(primo)+40
num5=CAD(primo)+50
num6=CAD(primo)+60
num7=CAD(primo)+70
num8=CAD(primo)+80
num9=CAD(primo)+90

GIOCA
NUMERI primo,quinto
RUOTA 8
PER 7 ESTRAZIONI
AMBATA 1000
INTERROMPI 2
FINE GIOCA

GIOCA
NUMERI num1,num2,num3,num4,num5,num6,num7,num8,num9
RUOTA 8
PER 7 ESTRAZIONI
AMBO 1000
INTERROMPI 2
FINE GIOCA


FINE SE
nogioc: PROSSIMA
RESOCONTO TOT

me lo sono trovato in una vecchia cartella, ma non ricordo più con quale programma si poteva realizzare.
Grazie anticipate per chi me lo sa dire. :)
 
Credo sia cosi ...


Codice: 
Option Explicit
Sub Main
	Dim Inizio,Fine,idEstr
	Dim nPrimo,nQuinto,nCaPrimo,nCaQuinto
	Dim cd1,cd2,cd3,cd4,cd5,cd6,cd7,cd8,cd9
	Dim num1,num2,num3,num4,num5,num6,num7,num8,num9
	Dim nRuota
	Dim bGioca  
	Inizio = GetIdEstrFromData("01/01/1998")
	Fine = EstrazioniArchivio
	nRuota = 8
	If Inizio > 0 Then
		For idEstr = Inizio To Fine
			nPrimo = Estratto(idEstr,nRuota,1)
			nQuinto = Estratto(idEstr,nRuota,5)
			nCaPrimo = Cadenza(nPrimo)
			nCaQuinto = Cadenza(nQuinto)
			bGioca = True
			If nCaPrimo = nCaQuinto Then
				cd1 = Cadenza(nPrimo) = 1
				cd2 = Cadenza(nPrimo) = 2
				cd3 = Cadenza(nPrimo) = 3
				cd4 = Cadenza(nPrimo) = 4
				cd5 = Cadenza(nPrimo) = 5
				cd6 = Cadenza(nPrimo) = 6
				cd7 = Cadenza(nPrimo) = 7
				cd8 = Cadenza(nPrimo) = 8
				cd9 = Cadenza(nPrimo) = 9
				If cd1 Then bGioca = False
				If cd2 Then bGioca = False
				If cd3 Then bGioca = False
				If cd4 Then bGioca = False
				If cd5 Then bGioca = False
				If cd6 Then bGioca = False
				If cd7 Then bGioca = False
				If cd8 Then bGioca = False
				If cd9 Then bGioca = False
				If bGioca Then
					num1 =  Fuori90(Cadenza(nPrimo) + 10)
					num2 =  Fuori90(Cadenza(nPrimo) + 20)
					num3 =  Fuori90(Cadenza(nPrimo) + 30)
					num4 =  Fuori90(Cadenza(nPrimo) + 40)
					num5 =  Fuori90(Cadenza(nPrimo) + 50)
					num6 =  Fuori90(Cadenza(nPrimo) + 60)
					num7 =  Fuori90(Cadenza(nPrimo) + 70)
					num8 =  Fuori90(Cadenza(nPrimo) + 80)
					num9 =  Fuori90(Cadenza(nPrimo) + 90)
					ReDim aNum(2)
					ReDim aRuota(1)
					ReDim aPoste(5)
					aNum(1) = nPrimo
					aNum(2) = nQuinto
					aRuota(1) = nRuota
					aPoste(1) = 1
					Call ImpostaGiocata(1,aNum,aRuota,aPoste,7,2)
					ReDim aNum(9)
					ReDim aRuota(1)
					ReDim aPoste(5)
					aNum(1) = num1
					aNum(2) = num2
					aNum(3) = num3
					aNum(4) = num4
					aNum(5) = num5
					aNum(6) = num6
					aNum(7) = num7
					aNum(8) = num8
					aNum(9) = num9
					aRuota(1) = nRuota
					aPoste(2) = 1
					Call ImpostaGiocata(2,aNum,aRuota,aPoste,7,2)
					Call Gioca(idEstr)
				End If
			End If
		Next
	End If
	
	ScriviResoconto
	
End Sub
Function GetIdEstrFromData(sData)
	Dim idEstr
	Dim sDataNew
	idEstr = 0
	If IsDate(sData) Then
		sDataNew = sData
		idEstr = DataEstrToIdEstr(Day(sDataNew),Month(sDataNew),Year(sDataNew))
		Do While idEstr = 0
			sDataNew = DateAdd("d",1,sDataNew)
			If DateDiff("d",sDataNew,Now) >= 0 Then
				idEstr = DataEstrToIdEstr(Day(sDataNew),Month(sDataNew),Year(sDataNew))
			Else
				Exit Do
			End If
		Loop
	End If
	GetIdEstrFromData = idEstr
End Function
 
LuigiB ha scritto:
Credo sia cosi ...


Codice: 
Option Explicit
Sub Main
	Dim Inizio,Fine,idEstr
	Dim nPrimo,nQuinto,nCaPrimo,nCaQuinto
	Dim cd1,cd2,cd3,cd4,cd5,cd6,cd7,cd8,cd9
	Dim num1,num2,num3,num4,num5,num6,num7,num8,num9
	Dim nRuota
	Dim bGioca  
	Inizio = GetIdEstrFromData("01/01/1998")
	Fine = EstrazioniArchivio
	nRuota = 8
	If Inizio > 0 Then
		For idEstr = Inizio To Fine
			nPrimo = Estratto(idEstr,nRuota,1)
			nQuinto = Estratto(idEstr,nRuota,5)
			nCaPrimo = Cadenza(nPrimo)
			nCaQuinto = Cadenza(nQuinto)
			bGioca = True
			If nCaPrimo = nCaQuinto Then
				cd1 = Cadenza(nPrimo) = 1
				cd2 = Cadenza(nPrimo) = 2
				cd3 = Cadenza(nPrimo) = 3
				cd4 = Cadenza(nPrimo) = 4
				cd5 = Cadenza(nPrimo) = 5
				cd6 = Cadenza(nPrimo) = 6
				cd7 = Cadenza(nPrimo) = 7
				cd8 = Cadenza(nPrimo) = 8
				cd9 = Cadenza(nPrimo) = 9
				If cd1 Then bGioca = False
				If cd2 Then bGioca = False
				If cd3 Then bGioca = False
				If cd4 Then bGioca = False
				If cd5 Then bGioca = False
				If cd6 Then bGioca = False
				If cd7 Then bGioca = False
				If cd8 Then bGioca = False
				If cd9 Then bGioca = False
				If bGioca Then
					num1 =  Fuori90(Cadenza(nPrimo) + 10)
					num2 =  Fuori90(Cadenza(nPrimo) + 20)
					num3 =  Fuori90(Cadenza(nPrimo) + 30)
					num4 =  Fuori90(Cadenza(nPrimo) + 40)
					num5 =  Fuori90(Cadenza(nPrimo) + 50)
					num6 =  Fuori90(Cadenza(nPrimo) + 60)
					num7 =  Fuori90(Cadenza(nPrimo) + 70)
					num8 =  Fuori90(Cadenza(nPrimo) + 80)
					num9 =  Fuori90(Cadenza(nPrimo) + 90)
					ReDim aNum(2)
					ReDim aRuota(1)
					ReDim aPoste(5)
					aNum(1) = nPrimo
					aNum(2) = nQuinto
					aRuota(1) = nRuota
					aPoste(1) = 1
					Call ImpostaGiocata(1,aNum,aRuota,aPoste,7,2)
					ReDim aNum(9)
					ReDim aRuota(1)
					ReDim aPoste(5)
					aNum(1) = num1
					aNum(2) = num2
					aNum(3) = num3
					aNum(4) = num4
					aNum(5) = num5
					aNum(6) = num6
					aNum(7) = num7
					aNum(8) = num8
					aNum(9) = num9
					aRuota(1) = nRuota
					aPoste(2) = 1
					Call ImpostaGiocata(2,aNum,aRuota,aPoste,7,2)
					Call Gioca(idEstr)
				End If
			End If
		Next
	End If
	
	ScriviResoconto
	
End Sub
Function GetIdEstrFromData(sData)
	Dim idEstr
	Dim sDataNew
	idEstr = 0
	If IsDate(sData) Then
		sDataNew = sData
		idEstr = DataEstrToIdEstr(Day(sDataNew),Month(sDataNew),Year(sDataNew))
		Do While idEstr = 0
			sDataNew = DateAdd("d",1,sDataNew)
			If DateDiff("d",sDataNew,Now) >= 0 Then
				idEstr = DataEstrToIdEstr(Day(sDataNew),Month(sDataNew),Year(sDataNew))
			Else
				Exit Do
			End If
		Loop
	End If
	GetIdEstrFromData = idEstr
End Function
Clicca per espandere...


veramente fantastico!!...grazie, grazie mille :D
 
Buona serata a tutti.

Luigi volevo chiederti:

Hai aggiunto la funzione solo perchè la data fornita in esempio non è valida?

Altrimenti avresti potuto usare direttamente Call GetIdEstrFromData (GG,MM, AAAA)

... Grazie.
 
Ciao Joe certo ho creato come si dice in gergo un wrapper a quella funzione che dici. Infatti quella richiede una data valida con il wrapper se la data passata non fosse valida cerca la prima estrazione successiva..
 
LuigiB ha scritto:
Ciao Joe certo ho creato come si dice in gergo un wrapper a quella funzione che dici. Infatti quella richiede una data valida con il wrapper se la data passata non fosse valida cerca la prima estrazione successiva..
Clicca per espandere...

Ciao Luigi.

Garzie per la conferma.

Mi interassava decodificare, le varie, interpretazioni che avevi dato al codice proposto,

e ... tra le altre, questa.

:) Buona Serata.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 17 febbraio 2026
    Bari
    40
    72
    47
    39
    63
    Cagliari
    03
    66
    47
    27
    35
    Firenze
    14
    62
    53
    08
    51
    Genova
    55
    12
    81
    52
    04
    Milano
    41
    31
    55
    23
    59
    Napoli
    30
    09
    38
    14
    50
    Palermo
    19
    86
    40
    32
    07
    Roma
    65
    88
    51
    42
    41
    Torino
    10
    06
    34
    84
    81
    Venezia
    06
    25
    82
    24
    52
    Nazionale
    10
    74
    04
    29
    88
    Estrazione Simbolotto
    Cagliari
    01
    41
    21
    44
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto