Novità

SPAZIOMETRIA di Luigi e Baffoblu 7° POST

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
Ciao a tutti ed un incommensurabile grazie anche da parte mia a "San LuigiB". Ho da poco incominciato ad usare questo grande programma ed avrei bisogno di aiuto sulla costruzione di una struttura,pertanto chiedo cortesemente a LuigiB od a qualche utente esperto, se può darmi indicazioni a riguardo.
Ho aperto un post qualche giorno fa, con la speranza di avere qualche risposta.Il post ha come oggetto "x LuigiB o chiunque usa il programma Spaziometria" il cui link è http://forum.lottoced.com/topic.asp?TOPIC_ID=118730.

Ringrazio in anticipo e buona giornata a tutti.

Nik
 
ciao
anch'io voglio fare ancora i complimenti
al grande luigi per questa sua ennesima versione,
ormai c'è su quasi tutto, molto molto bello veramente.
avrei anche in serbo una richiesta da aggiungere
quando puoi, se fosse possibile aggiungere
un po di statistiche ne "Piramide ritardi"
come ad esempio il massimo ritardo,
l'indice di convenienza, da quanto tempo
i numeri presenti non sono sfaldati, la frequenza
i colpi per esito ecc.
 
Ragazzi grazie ancora.
Per CutOff oggi pomeriggio da casa vedro se posso aiutarti e se la cosa che chiedi si puo fare.
Per Luigino , forse qualche statistica si puo mettere pero non tutte perche la piramide dei ritardi fa dei calcoli abbastanza laboriosi per il pc e cercare ad esempio i massimi ritardi un 'impresa che richede un notevole tempo di elaborazione.
Per Peppe la password proprio quella vedi se non avevi le lettere maiuscole attive o se non hai commesso qualche errore di digitazione.
Ciao a tutti !
 
Ciao, LuigiB.
Ho installato l'ultima versione di Spaziometria e devo dire che hai fatto un lavoro superbo. Complimenti davvero! :D
Volevo comunicarti anche due errori in fase di elaborazione script:
1) il programma mette automaticamente la spaziatura tra gli elementi, ma in casi come If r < > 11 Then lo spazio tra < e > restituisce errore di script (bisogna cancellarlo a mano... poco male ;))
2) eseguendo il semplice script sottostante (ricerca di un ambo ripetuto su 1 ruota in 2 estrazioni consecutive), dà l'errore "Indice non compreso nell'intervallo" e il programma si blocca.
Codice:
Sub main()

ini = EstrazioneFin - 50
fin = EstrazioneFin
For es = ini To fin
Messaggio "Estrazione: " & es

For r = 1 To 12
For p = 1 To 4
For q = p + 1 To 5
a = Estratto(es - 1,r,p)
b = Estratto(es - 1,r,q)
For p1 = 1 To 4
For q1 = p1 + 1 To 5
c = Estratto(es,r,p1)
d = Estratto(es,r,q1)

If c = a And d = b Or c = b And d = a Then
If r <> 11 Then

Scrivi DataEstrazione(es - 1) & " " & NomeRuota(r) & " " & StringaEstratti(es - 1,r),1
Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r),1
ColoreTesto 1 : Scrivi Space(11) & "Ambo ripetuto: " & Format2(a) & "." & Format2(b),1
Scrivi : ColoreTesto 0

End If
End If
Next
Next
Next
Next
Next
Next
End Sub
Lo script con il programma innominabile funziona. ;) Tempo e voglia permettendo, gli daresti un'occhiata?
Ti ringrazio in anticipo.
:)

PS: Mi scuso per la mancata indentazione nello script, ma il quote non la restituisce correttammente. :(

Fortuna non omnibus aeque.
 
ATTENZIONE VERSIONE 1.0.97

Ragazzi come ringraziarvi di tutti questi complimenti ?
Semplice ... continunado ad aggiornare il programma :-)
A parte gli scherzi oltre a ringraziarvi per i complimenti
ringrazio in particolar modo Thauk che mi ha segnalato 2 problemi
che ho risolto.
Ecco la link col nuovo setup

http://www.megaupload.com/?d=1SGDU0F0

per chi fosse un po' piu pratico col pc dato che non è indispensabile rifare il setup puo scaricare quest'altro file che contiene solo il file eseguibile del programma.
Tale file dovrà essere sostituito a mano dentro la directory d'installazione.
Il vantaggio consiste nel fatto che non dovete riscaricare 12 mega di setup ma solo 1 mega di file eseguibile , pero ripeto dovete essere capaci di andare a sostituire il file nella directory di instalalzione
altrimenti scaricate dalla prima link tutto il setup e rifatelo.

Un saluto a tutti !

http://www.megaupload.com/?d=52081QX3


P.S.

Thauk ti conviene modificare questa linea con

If c = a And d = b Or c = b And d = a Then

in

If c = a And d = b Or c = b And d = a and c <> 0 Then


il motivo è semplice , se fai girare lo script in un periodo in cui la ruota nazionale non esisteva il programma individua come ambi uguali anche quelli composti dai numeri 0 e 0 perche la Funzione Estratto in quel caso torna 0 proprio perche non esistono numeri in quell'estrazione sulla ruota nazionale.
Ciò capita da quello che ho potutto vedere pure nel programma che sai e alla fine si impallerebbe tutto... anzi il programam famoso si impalla di sicuro perche ho provato.
 
quote:Originally posted by LuigiB


P.S.

Thauk ti conviene modificare questa linea con

If c = a And d = b Or c = b And d = a Then

in

If c = a And d = b Or c = b And d = a and c <> 0 Then
Hai perfettamente ragione! :D È uno script che ho fatto in velocità per un utente del forum (caiomok), pensando che lo usasse solo per cercare gli ultimi casi... sto proprio invecchiando. ;)
Ti ringrazio molto per la disponibilità e per le correzioni.

Fortuna non omnibus aeque.
 
x luigi o chi x lui
ho visto che hai fatto lo script di un metodo a cutoff e ti chiedo se posso averlo pure io di un mio metodo.
ti posto il metodo e se non è possibile pazienza.
numero spia 5 a pa
controllo dal 2006 ad oggi
definizioni-secondo di pa+29-----prima ambata
secondo di-pa+89------seconda ambata
abbinamento x ambo e terno il fisso-5
si gioka su ge-pa---colpi-9
se puoi inserire il resoconto di quante ambate ambi sono usciti dal 2006 ad oggi e le ambate da giokare ad ogni uscita del 5 a pa
grazie
ciao

naturalmente script da inserire in spaziometria
 
quote:Originally posted by scoglio2

x luigi o chi x lui
ho visto che hai fatto lo script di un metodo a cutoff e ti chiedo se posso averlo pure io di un mio metodo.
ti posto il metodo e se non è possibile pazienza.
numero spia 5 a pa
controllo dal 2006 ad oggi
definizioni-secondo di pa+29-----prima ambata
secondo di-pa+89------seconda ambata
abbinamento x ambo e terno il fisso-5
si gioka su ge-pa---colpi-9
se puoi inserire il resoconto di quante ambate ambi sono usciti dal 2006 ad oggi e le ambate da giokare ad ogni uscita del 5 a pa
grazie
ciao

naturalmente script da inserire in spaziometria
ciao, scoglio2. controlla se va bene...
Codice:
Sub main()
Dim ruota(2),poste(1),posta(3),nr(3),am(2)
poste(1) = 1
posta(2) = 1
posta(3) = 1
ruota(1) = 4
ruota(2) = 7
k = 9

ini = 7538	' estrazione iniziale 03.01.2006

For es = ini To EstrazioneFin
Messaggio "Estrazione: " & es
ng = 0

sp = 5	' numero spia
r = 7		' ruota di ricerca

For p = 1 To 5
a = Estratto(es,r,p)
If a = sp Then

am(1) = Fuori90(Estratto(es,7,2) + 29)
am(2) = Fuori90(Estratto(es,7,2) + 89)
ng = ng + 1
ImpostaGiocata ng,am,ruota,poste,k,1

nr(1) = am(1)
nr(2) = am(2)
nr(3) = 5
ng = ng + 1
ImpostaGiocata ng,nr,ruota,posta,k,2

casi = casi + 1
ColoreTesto 1 : Scrivi "Caso n° " & casi & " - " & DataEstrazione(es) & " Numero Spia " & sp & " in " & p & "ª posizione su " & NomeRuota(r),1
Scrivi : ColoreTesto 0

Gioca es
End If
Next
Next
Scrivi : ColoreTesto 1
Scrivi "Casi totali: " & casi,1
Scrivi : ColoreTesto 0
ScriviResoconto
End Sub
ciauz
:)

Fortuna non omnibus aeque.
 
Vorrei ringraziare Luigino per avermi segnalato un altro bug , l'ho corretto però essendo tutto sommato una cosa di poco conto l'aggiornamento ve lo darò tra qualche giorno dopo che avrò implementato ancora altre cose in modo da dare un aggiornamento piu consistente.
Mi raccomando tenete tutti gli occhi aperti cosi da evidenziarmi eventuali errori che non ho notato , mi scuso se ci sono però a mia discolpa posso dire che io non sono una softwarehouse ma una persona sola perciò non è che posso eseguire da solo tutto il famoso ciclo di produzione di un software è per questo che certe cose mi sfuggono , perciò è importante l'aiuto di tutti quelli che le individuano e me le segnalano !
Un altro grazie a Thauk ... ci vule gente che sappia scrivere gli script !!!
 
grazie thauk
l'ho messo ma mi esce errore

prevista-fine istruzione
errore script
1025-prevista fine istruzione
linea-39--colonna.26
source-errored'applicazione di microsoft vb script
questo errore mi da
non so cosa fare
ciao a domani pom
grazie
 
Ciao Luigi ho scovato una piccola imperfezione, quando metti la posta ad ED1 si incrementa ED5 come in figura allegata
347cvis.jpg


grazie e complimenti per il software!!
 
Grazie Jack , corretto pure questo.
Per Scoglio ho provato anche io lo script di Thauk non mi da errore , prova a vede che range di estrazioni è impostato , infatti questo valore nello script giustamente è dinamico e dipende appunto da come lo hai impostato tu nel programma, metti un range ampio che copra fino alle ultime estrazioni , a me ha funzionato senza problemi , oppure verifica se hai incollato bene il tutto.
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 27 dicembre 2024
    Bari
    54
    49
    36
    52
    60
    Cagliari
    61
    85
    62
    42
    52
    Firenze
    55
    44
    59
    21
    29
    Genova
    11
    12
    68
    26
    48
    Milano
    88
    17
    01
    74
    76
    Napoli
    37
    51
    26
    09
    76
    Palermo
    67
    78
    49
    57
    69
    Roma
    20
    26
    85
    04
    24
    Torino
    48
    59
    75
    86
    89
    Venezia
    44
    58
    75
    69
    10
    Nazionale
    85
    19
    67
    65
    89
    Estrazione Simbolotto
    Venezia
    41
    36
    23
    11
    16
Indietro
Alto