vecchi script

securmoney · 8 Febbraio 2014

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.

gamberorosso · 9 Febbraio 2014

Ciao questo e uno script per l8 3.6 mi sembra

securmoney · 9 Febbraio 2014

gamberorosso ha scritto:
Ciao questo e uno script per l8 3.6 mi sembra

Grazie mille.

Chissà se è possibile "tradurlo" per SpazioMetria?

LuigiB · 9 Febbraio 2014

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

securmoney · 9 Febbraio 2014

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

veramente fantastico!!...grazie, grazie mille

Joe91 · 9 Febbraio 2014

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.

LuigiB · 10 Febbraio 2014

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..

Joe91 · 10 Febbraio 2014

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..

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.

Cerca

Cerca

vecchi script

securmoney

Junior Member

gamberorosso

Senior Member

securmoney

Junior Member

LuigiB

Guest

securmoney

Junior Member

Joe91

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Joe91

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi