Novità

SPAZIOMETRIA di Luigi e Baffoblu 11° POST

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
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!!!
 
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?
 
ciao filotto , il nome file è gia presente in basso a destra


immaginenb.jpg
 
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(n)=im Then
Messaggio "elab. del "&dataestrazione(n)&" [ 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
:D[8]:D

Codice:
'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
 
aiutatemi a verificare io sono sempre pronto a correggere i bug che mi segnalate.
 
ahahahahhahahahh come al solito ogni tanto te ne esci con qualcosa che mi fa ammazzare dalle risate ...ahahaha ciao !
 
quote:Originally posted by LuigiB

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

:D:D

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 :D:D

Ti comunico che il Supervisor è partita alla grande.
ho ricevuto poco fa le sue prime supervisioni.
Mi sa che verrà una chicca.
Buona serata:)
 
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?
 
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 ?? :D:D
Dai rubino,facci sapere quali sono che ce li giochiamo:D:D

Magari Luigi ci riuscisse davvero :(:D:D
 
nell'elenco estrazioni superenalotto, la videata si presenta con questi dati

come le devo interpretare?


:D


estse.jpg
[/URL]

[/img]
 
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 :-)


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

Spaziometric 1.1.47:D:D:D
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto