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 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto