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ì 05 maggio 2026
    Bari
    13
    20
    43
    72
    40
    Cagliari
    88
    50
    81
    43
    47
    Firenze
    60
    32
    13
    23
    06
    Genova
    71
    19
    22
    55
    39
    Milano
    14
    09
    22
    16
    19
    Napoli
    51
    69
    89
    62
    46
    Palermo
    68
    78
    38
    27
    44
    Roma
    20
    47
    62
    56
    34
    Torino
    09
    29
    06
    14
    01
    Venezia
    34
    77
    11
    88
    83
    Nazionale
    56
    26
    22
    77
    75
    Estrazione Simbolotto
    Milano
    27
    16
    04
    30
    18
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto