SPAZIOMETRIA di Luigi e Baffoblu 11° POST

[cozzio]

Ciao a tutti, ho cercato di creare un sistema per superenalotto. Ma mi da un errore n° 429 "il componente ActiveX non può creare l'oggetto, sia facendo sistemi ridotti che condizionati. L'errore si presenta quando cerco di salvare con ESPORTA foglio EXCEL.
[?]


La fortuna è cieca...ma la sfiga ci vede benissimo!!!

 

[LuigiB]

ATTENZIONE VERSIONE 1.1.46


http://www.megaupload.com/?d=994FSHFD



-ho fatto delle modifiche interne
-ho aggiunto alcune funzioni in spazioscript per generare grafici


Un saluto

 

[fillotto]

Buona sera Luigi & C una richiesta piccola piccola (almeno penso)
alcune volte ,parlo degli script, con tutte le prove che uno fa non riesce più a ricordarsi di che file sta trattando perchè fa una prima modifica e lo manda in esecuzione vede che non lo soddisfa e fa una seconda modifica e lo manda in esecuzione per poi non ricordarsi più che file sta trattando, non si potrebbe far in modo di vedere in alto a sinistra il nome del file?

 

[LuigiB]

ciao filotto , il nome file è gia presente in basso a destra

 

[fillotto]

e te pareva che lo vedevo ! grazie

 

[elephantbig]

quote:Originally posted by fillotto

e te pareva che lo vedevo ! grazie

Tranquillo Fill
sei entrato nello stesso tunnel che ho intrapreso io
Ciao fill buona serata

 

[genlotto]

quote:Originally posted by cebino

quote:Originally posted by LuigiB

ciao Solare ,i listati che non funzionano me li dovete postare ..come faccio a rispondere senno ?

ok luigi a me questo non funziona
mi fa vedere solo il resoconto tutto a 0
Versione spaziometria 1.1.45
ti allego il listato che puoi trovare comunque qaulche post indietro

'Figura Pentagona
'http://forum.lottoced.com/topic.asp?TOPIC_ID=117040&whichpage=2
'Lottosenior - 03/07/2010
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(1)=1
poste(2)=1

m="Figura Pentagona"
ri = InputBox ("Scrivi la data GG/MM/AAAA per il periodo da esaminare.",m,"01/01/2010")
im=CInt(InputBox("Da quale estrazione iniziamo ?","Indice Mensile",1))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",12))

For n=PrimaSuccessiva(ri) To EstrazioneFin
If Indicemensile=im Then
Messaggio "elab. del "&dataestrazione&" [ by Genlotto ]"
For r= 1 To 10
ruote(1)=r
a=Estratto(n,r,5)
b=Estratto(n,r,4)
c=Estratto(n,r,2)
d=Estratto(n,r,3)
e=Estratto(n,r,1)
crA=2 :crB=9 :crC=7 :crD=34
'-----------------------------------
aa=(a+crB+crC) :bb=(c+2+34)
cc=(c+34+a+b) :dd=e :ee=d+crC
nu1=Fuori90 ((aa*dd)/ee)
nu2=Fuori90 ((bb*dd)/ee)
nu3=Fuori90 ((cc*dd)/ee)
Scrivi "----------------------------------------------------------------"
ColoreTesto 2 :Scrivi "Ruota di > "&Left(NomeRuota(r),10)&" "&Cint(E)& " "&Cint(C)&_
" "&Cint(D)&" "&Cint(B)&" "&Cint(A),1 :coloretesto 0
'------------------------------------------------------------------------
numeri1(1)=nu1 :numeri1(2)=nu2 :numeri1(3)=nu3
ImpostaGiocata 1,numeri1,ruote,poste,k
Gioca n
Next
End If
Next
ScriviResoconto
End Sub

x Cebino e altri script modificato per Spaziometria v.1.1.45
[8]

'Figura Pentagona
'Lottosenior - 03/07/2010
'Spaziometria v.1.1.45 & L8 + 
'x Cebino 31/10/2010
Sub main()
Dim ruote(1)
Dim numeri1(3)
Dim poste(5)
poste(1) = 1
poste(2) = 1

m = "Figura Pentagona"
ee = CInt(InputBox("Quante estrazioni vuoi controllare ? ",m,200))
im = CInt(InputBox("Da quale estrazione iniziamo ?","Indice Mensile",1))
k = CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",12))

For n = EstrazioneFin - ee To EstrazioneFin 
 If IndiceMensile(n) = im Then 
 Messaggio "elab. del " & DataEstrazione(n) & " [ by Genlotto ]"
 For r = 1 To 12
 If r = 11 Then r = 12 
 ruote(1) = r
 a = Estratto(n,r,5) 
 b = Estratto(n,r,4)
 c = Estratto(n,r,2)
 d = Estratto(n,r,3)
 e = Estratto(n,r,1)
 crA = 2 :crB = 9 :crC = 7 :crD = 34
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
	 aa =(a + crB + crC) :bb =(c + 2 + 34) 
	 cc =(c + 34 + a + b) :dd = e :ee = d + crC
	 nu1 = Fuori90((aa*dd)/ee)
	 nu2 = Fuori90((bb*dd)/ee)
	 nu3 = Fuori90((cc*dd)/ee)
Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " 
ColoreTesto 2 :Scrivi "Ruota di > " & Left(NomeRuota(r),10) & " " & CInt(E) & " " & CInt(C) & _
" " & CInt(D) & " " & CInt(B) & " " & CInt(A),1 :ColoreTesto 0
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
	 numeri1(1) = nu1 :numeri1(2) = nu2 :numeri1(3) = nu3
	 ImpostaGiocata 1,numeri1,ruote,poste,k
	 Gioca n 
 Next
 End If
Next 
ScriviResoconto
End Sub

 

[LuigiB]

ATTENZIONE VERSIONE 1.1.47


http://www.megaupload.com/?d=DGBSRN4Y



ho corretto il bug segnalato da Morfeo.


Un saluto

 

[imported_n/a]

grazie Luigi

 

[imported_n/a]

domanda hai corretto tutte le ricerche o solo quelle delle dormazioni personalizzate?

 

[LuigiB]

aiutatemi a verificare io sono sempre pronto a correggere i bug che mi segnalate.

 

[elephantbig]

Questa è la fine che fanno i BUGs nel nostro forum.

Grazie Luigi e Grazie Morfeo.

 

[LuigiB]

ahahahahhahahahh come al solito ogni tanto te ne esci con qualcosa che mi fa ammazzare dalle risate ...ahahaha ciao !

 

[elephantbig]

quote:Originally posted by LuigiB

ahahahahhahahahh come al solito ogni tanto te ne esci con qualcosa che mi fa ammazzare dalle risate ...ahahaha ciao !

Ogni tanto mi ricordo il motto di mio nonno, te lo ricordi ?

"meglio pigliarsela a ridere che pigliarsela nel ......."

Mio Nonno era un Big non un Bug

Ti comunico che il Supervisor è partita alla grande.
ho ricevuto poco fa le sue prime supervisioni.
Mi sa che verrà una chicca.
Buona serata

 

[Roby]

ciao Luigib


come mai nell'archivio superenalotto che ho appena aggiornato, mi ritrovo già le sestine uscite dal 2 novembre (cioè oggi a 10 dicembre)

prossimo?

 

[elephantbig]

Ciao Rubino,
ho appena istallato la nuova release (1.1.47)
e le estrazioni enalotto sono OK.
Buona giornata

PS. Il grande Luigi è riuscito a darci le sestine del super enalotto in anticipo ??
Dai rubino,facci sapere quali sono che ce li giochiamo

Magari Luigi ci riuscisse davvero

 

[Roby]

nell'elenco estrazioni superenalotto, la videata si presenta con questi dati

come le devo interpretare?

[/URL]

[/img]

 

[LuigiB]

Ciao Rubino , no ti confermo che è tutto ok , mi sa che hai qualche
impostazione non allineata nel pannello di controllo su impostazioni internazionali di data e ora.
E' un problema di windows devi risolverlo appunto da impostazioni internazionali, sono certo di questo perche anche lo script che ti avevo fatto usava una funzione format con la data che ti dava guardacaso dati errati che a me non dava.

P.S.
Per Elephant : tali poteri di sapere in anticipo le combinazioni vincenti li possiede solo il sommo Ra io da povero faraone non sono a conoscenza di tutti i misteri dell'universo ... devo aspettare di passare a miglior vita prima di averli

 

[elephantbig]

Mannaggia la miseria
Ed io che mi ero gia fatto i conti per l'acquisto della prima Ferrari.
Beh, vorrà dire che continuerò a usare l'altra Ferrari.Si,la

Spaziometric 1.1.47

 

[peppe60]

grazie luigi