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
    sabato 31 maggio 2025
    Bari
    72
    01
    07
    20
    16
    Cagliari
    39
    04
    81
    79
    09
    Firenze
    87
    73
    57
    72
    63
    Genova
    80
    81
    32
    30
    75
    Milano
    07
    63
    39
    57
    64
    Napoli
    47
    06
    11
    26
    66
    Palermo
    04
    81
    15
    76
    48
    Roma
    84
    15
    52
    56
    25
    Torino
    12
    34
    06
    54
    26
    Venezia
    44
    86
    74
    48
    80
    Nazionale
    44
    77
    11
    58
    62
    Estrazione Simbolotto
    Milano
    41
    25
    12
    08
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto