Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
- Stato
L
LuigiB
Guest
ATTENZIONE VERSIONE 1.1.48
http://www.megaupload.com/?d=1KZ2A479
' ho aggiunto alcune funzioni negli script per il superenalotto
Un saluto
http://www.megaupload.com/?d=1KZ2A479
' ho aggiunto alcune funzioni negli script per il superenalotto
Un saluto
elephantbig
Advanced Member >PLATINUM<
X CLAUDIO
Ciao volpone
,hai scritto:" ed ambo aperto TO-VE 14 e 27 al 3° colpo"
2 domande [8D]
1) Quanto paga l'ambo aperto?
2) Quanto puo essere aperto questo ambo ?
Sei Forte, ciao
X Luigi
Ciao carissimo,osservando la figura sottostante vedrai 2 situazioni che ho denominato A e B
Per la situazione A è solo una curiosità.
Per tre estrazioni consecutivi la sortita di un ambo consecutivo.
Chissà se si misceleranno fra loro per dare un bel Ambozzo.???
Per la situazione B invece chiedo il tuo aiuto.
il 44 è sortito per tre estrazioni consecutive.
Poiche tempo fa durante una ricerca avevo notato un'altra situazione simile con 4 estrazioni in cui era sortito uno stesso numero(non il 44),come posso fare con spaziometria a cercare situazioni simili ?
Ho provato con l'editor a selezionare i 5 numeri estratti e quelli delle estrazioni successive per quatto estrazioni.Poiche il numero interessato puo sortire in qualsiasi delle posizioni,ho dovuto usare la funzione OR e AND ma alla fine mi sono arreso.
tra errori di sintassi e una marea di numeri evidenziati non c'ho capito piu niente.
Ovviamente ,in questo caso, credo che l'editor di figure non sia lo strumento piu idoneo a questo tipo di ricerca.
cosa si puo fare?
Grazie e ciao
Ciao volpone
,hai scritto:" ed ambo aperto TO-VE 14 e 27 al 3° colpo" 2 domande [8D]
1) Quanto paga l'ambo aperto?
2) Quanto puo essere aperto questo ambo ?
Sei Forte
, ciao X Luigi
Ciao carissimo,osservando la figura sottostante vedrai 2 situazioni che ho denominato A e B
Per la situazione A è solo una curiosità.
Per tre estrazioni consecutivi la sortita di un ambo consecutivo.
Chissà se si misceleranno fra loro per dare un bel Ambozzo.???
Per la situazione B invece chiedo il tuo aiuto.
il 44 è sortito per tre estrazioni consecutive.
Poiche tempo fa durante una ricerca avevo notato un'altra situazione simile con 4 estrazioni in cui era sortito uno stesso numero(non il 44),come posso fare con spaziometria a cercare situazioni simili ?
Ho provato con l'editor a selezionare i 5 numeri estratti e quelli delle estrazioni successive per quatto estrazioni.Poiche il numero interessato puo sortire in qualsiasi delle posizioni,ho dovuto usare la funzione OR e AND ma alla fine mi sono arreso.
tra errori di sintassi e una marea di numeri evidenziati non c'ho capito piu niente.
Ovviamente ,in questo caso, credo che l'editor di figure non sia lo strumento piu idoneo a questo tipo di ricerca.
cosa si puo fare?
Grazie e ciao
L
LuigiB
Guest
Eh caro Elphantone ... la risposta gia la sai ma mi sa che non ti piace Imparare a fare gli script !
Non dico che sia un gioco da ragazzi ma lo strumento degli script lo strumento piu versatile che in queste circostanze risolve la situazione !
Ciao !
Imparare a fare gli script !Non dico che sia un gioco da ragazzi ma lo strumento degli script lo strumento piu versatile che in queste circostanze risolve la situazione !
Ciao !
elephantbig
Advanced Member >PLATINUM<
quote:Originally posted by LuigiB
Eh caro Elphantone ... la risposta gia la sai ma mi sa che non ti piace
Non dico che sia un gioco da ragazzi ma lo strumento degli script lo strumento piu versatile che in queste circostanze risolve la situazione !
Ciao !
Ahi,Ahi,Ahi
Hai proprio ragione,lo avevo capito.
Prima o dopo sarò costretto a SCRIPTARE.
Del resto non si puo avere tutto dalla vita anzi da SPAZIOMETRIA !
Ciao e grazie.
L
LuigiB
Guest
Elephantone giusto perche sei tu o forse perche sono cosi idealista che nutro ancora qualche speranza che impariate a scriverli pure
da soli
Il range su cui opera lo prende dalle impostazioni del programma.
La ruota e la quantita di ripetizioni te le chiede a runtime
ciao !
da soli
Il range su cui opera lo prende dalle impostazioni del programma.
La ruota e la quantita di ripetizioni te le chiede a runtime
ciao !
Codice:
Sub Main
Dim idEstr ' ciclo estrazioni
Dim nEstrConsec ' quantita estr consecutive
Dim k,kk
Dim R
Dim sAmbo
Dim nDaFare,nFatte
R = ScegliRuota
If R > 0 Then
nEstrConsec = CInt(InputBox("Inserire il numero di ripetizioni per l'ambo nelle estrazioni successive ",,"2"))
If nEstrConsec > 1 Then
nDaFare =(EstrazioneFin -(nEstrConsec - 1)) -(EstrazioneIni - 1)
For idEstr = EstrazioneIni To EstrazioneFin -(nEstrConsec - 1)
For k = 1 To 4
For kk = k + 1 To 5
ReDim aB(90)
aB(Estratto(idEstr,R,k)) = True
aB(Estratto(idEstr,R,kk)) = True
If QuantitaAmboEstrSucc(aB,R,idEstr + 1,(nEstrConsec - 1)) =(nEstrConsec - 1) Then
sAmbo = Format2(Estratto(idEstr,R,k)) & " - " & Format2(Estratto(idEstr,R,kk))
Call Scrivi("Dall'estrazione " & GetInfoEstrazione(idEstr))
Call Scrivi("L'ambo " & sAmbo & " si è ripetuto " & nEstrConsec & " volte consecutive")
Call ScriviEstrazioni(aB,R,idEstr,nEstrConsec)
Call Scrivi(String(100,"_"))
End If ' If QuantitaAmboEstrSucc(aB,R,i...
Next ' For kk = k + 1 To 5...
Next ' For k = 1 To 4...
nFatte = nFatte + 1
Call AvanzamentoElab(1,nDaFare,nFatte)
If ScriptInterrotto Then Exit For
Next ' For idEstr = EstrazioneIni To ...
Else
MsgBox "Specificare almeno 2 estrazioni consecutive"
End If ' If nEstrConsec > 1 Then ...
End If ' If R > 0 Then ...
End Sub
Sub ScriviEstrazioni(aB,R,idEstr,nEstrConsec)
Dim i,k
Dim sBuf,sBuf2
Call Scrivi
For i = idEstr To idEstr +(nEstrConsec - 1)
sBuf = ""
sBuf2 = ""
For k = 1 To 5
If aB(Estratto(i,R,k)) Then
sBuf = sBuf & Format2(Estratto(i,R,k))
Else
sBuf = sBuf & ".."
End If ' If aB(Estratto(i,R,k)) Then ...
sBuf2 = sBuf2 & Format2(Estratto(i,R,k)) & " "
sBuf = sBuf & " "
Next ' For k = 1 To 5...
Call Scrivi(GetInfoEstrazione(i) & " [" & sBuf & "]" & Space(5) & "[" & sBuf2 & "]")
Next ' For i = idEstr To idEstr +(nEs...
End Sub
Function QuantitaAmboEstrSucc(aB,R,idEstr,nEstrConsec)
Dim i
Dim p
Dim k
Dim pTot
For i = idEstr To idEstr +(nEstrConsec - 1)
p = 0
For k = 1 To 5
If aB(Estratto(i,R,k)) Then
p = p + 1
End If ' If aB(Estratto(i,R,k)) Then ...
Next ' For k = 1 To 5...
If p = 2 Then
pTot = pTot + 1
End If ' If p = 2 Then ...
Next ' For i = idEstr To idEstr +(nEs...
QuantitaAmboEstrSucc = pTot
End Functionelephantbig
Advanced Member >PLATINUM<
Grazie Luigi,regalo gradito ed inaspettato.
Aggiungerò altri 10 cannoli a quelli che prima o poi ti manderò.
Però probabilmente mi sono espresso male,perchè lo script cerca gli AMBI ripetuti cosecutivamente.Io invece cercavo le ambate uscite consecutivamente e come ti dicevo nel post precedente avevo trovato un caso con l'ambata 43 sortita 5 volte consecutivamente.
Mi incuriosiva sapere se ci sono casi simili con magari 3 o 4 o 5 estrazioni successive per creare le mie farfalline.
Comunque va bene lo stesso.Se si presenteranno altri casi spero di vederli in tempo.
Ciao giggione e grazie sempre
Aggiungerò altri 10 cannoli a quelli che prima o poi ti manderò.
Però probabilmente mi sono espresso male,perchè lo script cerca gli AMBI ripetuti cosecutivamente.Io invece cercavo le ambate uscite consecutivamente e come ti dicevo nel post precedente avevo trovato un caso con l'ambata 43 sortita 5 volte consecutivamente.
Mi incuriosiva sapere se ci sono casi simili con magari 3 o 4 o 5 estrazioni successive per creare le mie farfalline.
Comunque va bene lo stesso.Se si presenteranno altri casi spero di vederli in tempo.
Ciao giggione e grazie sempre
luigino_lo
Member
ciao luigi
ho appena scaricato l'ultima tua versione del programma, ma mi sembra che qualcosa non va per il verso giusto, il problema riguarda la ricerca delle lunghette ritardatarie classe 5,infatti ho fatto una ricerca
-con l'estrazione precedente del 04/11/2010 ed il massimo ritardo della lunghetta risulta con 57 estrazioni
-con l'estrazione del 06/11/2010 ed il massimo ritardo della lunghetta risulta con 64 estrazioni che nella precedente non c'è
potresti controllare a cosa sia dovuta questa anomalia?
ti ringrazio anticipatamente
ciao
ecco qui le due ricerche
ho appena scaricato l'ultima tua versione del programma, ma mi sembra che qualcosa non va per il verso giusto, il problema riguarda la ricerca delle lunghette ritardatarie classe 5,infatti ho fatto una ricerca
-con l'estrazione precedente del 04/11/2010 ed il massimo ritardo della lunghetta risulta con 57 estrazioni
-con l'estrazione del 06/11/2010 ed il massimo ritardo della lunghetta risulta con 64 estrazioni che nella precedente non c'è
potresti controllare a cosa sia dovuta questa anomalia?
ti ringrazio anticipatamente
ciao
ecco qui le due ricerche
per Luigi
ho fatto il download dell'aggiornamento,
Dalla versione Garibaldi 1.1.18
sono passato alla 1.1.47 la 48 non era ancora disponibile
ti ringrazio nuovamente, per aver messo a disposizione un buon programma.
Ho notato subito ( il bug Diametrali decina che avevo segnalato) corretto.
ho fatto il download dell'aggiornamento,
Dalla versione Garibaldi 1.1.18
sono passato alla 1.1.47 la 48 non era ancora disponibile
ti ringrazio nuovamente, per aver messo a disposizione un buon programma.
Ho notato subito ( il bug Diametrali decina che avevo segnalato) corretto.
Per Luigi
Scusami ho rilevato questo problema su uno script del genere
ti posto soltanto la parte che interessa l'errore
Puoi incollare questo piccolo script sul 47
Sul mio. Incollo lo script.
clicco sul pulsante Avvio (fulmine) al primo avvio dello script risultato giusto.
" Ci sono numeri uguali "
ma quando ritorno sul codice, e riavvio lo script mi da un errore
di runtime 13 sulla riga Dim n(3)
come mai il primo avvio giusto il secondo No ?
quella matrice è globale va dichiarata fuori dalla routine.
Scusami ho rilevato questo problema su uno script del genere
ti posto soltanto la parte che interessa l'errore
Codice:
Sub Main
n(1)=11
n(2)=11
n(3)=52
If NumeriUguali Then
Scrivi " Ci Sono Numeri uguali"
End If
End Sub
Dim n(3) <---------------------- qui errore 13
Function NumeriUguali
fc=0
For s= 1 To 2
For ss=s+1 To 3
If n(s)=n(ss) Then fc=fc+1
If fc >o Then NumeriUguali=True
Next
Next
End FunctionPuoi incollare questo piccolo script sul 47
Sul mio. Incollo lo script.
clicco sul pulsante Avvio (fulmine) al primo avvio dello script risultato giusto.
" Ci sono numeri uguali "
ma quando ritorno sul codice, e riavvio lo script mi da un errore
di runtime 13 sulla riga Dim n(3)
come mai il primo avvio giusto il secondo No ?
quella matrice è globale va dichiarata fuori dalla routine.
L
LuigiB
Guest
ciao Esse , hai ragione infatti devi scaricare la 1.1.48 che non ha il problema che dici .. di quel problema infatti mi ero accorto e la 1.1.48 era anche per quello.
Ora sto facendo importanti modifiche all'editor del codice che certo verranno apprezzate da chi fa gli script , sto gestendo meglio la formattazione automatica del codice e sto facendo in modo che nell'intellisense appaiano anche le funzioni definite dall'utente che in script articolati è una cosa comoda se uno non ricorda bene i parametri delle funzioni che ha scritto.
Ora sto facendo importanti modifiche all'editor del codice che certo verranno apprezzate da chi fa gli script , sto gestendo meglio la formattazione automatica del codice e sto facendo in modo che nell'intellisense appaiano anche le funzioni definite dall'utente che in script articolati è una cosa comoda se uno non ricorda bene i parametri delle funzioni che ha scritto.
Grazie Luigi aggiorno alla 48 e poi versioni future.
Buon Lavoro. Non ho molto tempo a disposizione,
ma se serve un'aiutino, conta pure.
Le grandezze fisiche che caratterizzano un moto oscillatorio
sono l'ampiezza e la frequenza.
°°°esselotto°°°
Mi scuso, se modifico sempre i post, perchè sbaglio invece di cliccare, su anteprima clicco su invia.
L
LuigiB
Guest
ATTENZIONE VERSIONE 1.1.49
http://www.megaupload.com/?d=5PJRK7AR
- ho introdotto nello spazioscript nuove funzioni statistiche per il superenalotto
- ho modificato la gestione della formattazione del codice nell'editor
degli script
Un saluto
Per Esse : se hai qualche idea e vuoi contribuire anche scrivendo tu delle funzioni in vb, possiamo metterci daccordo che ti informo sulla struttura dell'archivio e altre cose tecniche per poi integrare il tuo lavoro nell 'eseguibile.
http://www.megaupload.com/?d=5PJRK7AR
- ho introdotto nello spazioscript nuove funzioni statistiche per il superenalotto
- ho modificato la gestione della formattazione del codice nell'editor
degli script
Un saluto
Per Esse : se hai qualche idea e vuoi contribuire anche scrivendo tu delle funzioni in vb, possiamo metterci daccordo che ti informo sulla struttura dell'archivio e altre cose tecniche per poi integrare il tuo lavoro nell 'eseguibile.
Caro Ele [}], mi fa sempre piacere leggerti,
l'ambo aperto è un ambo che fisicamente non paga niente, ma da' soddisfazioni di riuscita della previsione perché esso scaturisce da una situazione creatasi sulle due ruote di partenza che erano TO-VE dove sono cadute le ambate di CASSA.
La prossima volta che si presenterà la formazione di partenza ti allegherò gli abb/terno che in questo caso erano 16 e 74. Terno aperto
Salutoni a tutti.
Ps: costa molto una spedizione di cannoli dalla Sicilia a Roma?
se aspetti ancora ti toccherà pagare un TIR frigorifero...
... AGGIORNAMENTO ...
BA NA ambata 36
TO VE ambata 58 e 44 ambo 58 44 a recupero 32 44
claudio
</u> --ERRRATA CORRIGE --
- - L'ambata 58 è presente e quindi non è piu valida - -
], mi fa sempre piacere leggerti, l'ambo aperto è un ambo che fisicamente non paga niente, ma da' soddisfazioni di riuscita della previsione perché esso scaturisce da una situazione creatasi sulle due ruote di partenza che erano TO-VE dove sono cadute le ambate di CASSA.
La prossima volta che si presenterà la formazione di partenza ti allegherò gli abb/terno che in questo caso erano 16 e 74. Terno aperto
Salutoni a tutti.
Ps: costa molto una spedizione di cannoli dalla Sicilia a Roma?
se aspetti ancora ti toccherà pagare un TIR frigorifero...
... AGGIORNAMENTO ...
BA NA ambata 36
TO VE ambata 58 e 44 ambo 58 44 a recupero 32 44
claudio
</u> --ERRRATA CORRIGE --
- - L'ambata 58 è presente e quindi non è piu valida - -
elephantbig
Advanced Member >PLATINUM<
quote:Originally posted by claudio8
Caro Ele [}
l'ambo aperto è ..............
Ps: costa molto una spedizione di cannoli dalla Sicilia a Roma?
se aspetti ancora ti toccherà pagare un TIR frigorifero...
claudio
Ciao Claudio
Con sta storia dell'ambo aperto non immagini quante risate mi sono fatto.
Certo che tra un Ambo Aperto ed un Sincronone alla Panna c'è da sganasciare.
Vuoi sapere quanto costa una spedizione di cannoli ??
Esattamente quanto paga un "AMBO APERTO" cioè :
se i due numeri sono distanti 2 posizioni ma in ruote diverse paga 300 volte.
se invece i due numeri sono distanti 10 posizioni allora
" BINGO " 10.000 volte la posta.
Ciao Claudio
L
LuigiB
Guest
ATTENZIONE VERSIONE 1.1.50
http://www.megaupload.com/?d=SXFMYW5P
' nella versione di prima c'era un errore di cui non mi ero accorto ..
Un saluto
http://www.megaupload.com/?d=SXFMYW5P
' nella versione di prima c'era un errore di cui non mi ero accorto ..
Un saluto
L
LuigiB
Guest
quote:Originally posted by ANGIE1911
Ciao Luigi
Ho scaricato la tua ultima versione.
Non mi ricordo più la voce esatta , ma carinissimo lo scorrimento
degli iscritti al forum come contributi
carino davvero
Eih fatti vivo qualche volta eh!?
i disegni dell universo nei numeri
Hai visto che ci sei pure tu ?
imported_n/a
Advanced Premium Member
quote:Originally posted by LuigiB
quote:Originally posted by ANGIE1911
Ciao Luigi
Ho scaricato la tua ultima versione.
Non mi ricordo più la voce esatta , ma carinissimo lo scorrimento
degli iscritti al forum come contributi
carino davvero
Eih fatti vivo qualche volta eh!?
i disegni dell universo nei numeri
Hai visto che ci sei pure tu ?
Ciao Luigi ti avevo fatto una domanda qualche giorno fa
Mi dici cosa e sopratutto "come si usa" il Grafico su dati Gennalyst
- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 21 gennaio 2025Bari7809700323Cagliari3288301345Firenze8723153986Genova7148675923Milano5850808529Napoli9081798262Palermo7033900510Roma1571558576Torino8909183369Venezia4480827358Nazionale8025136317Estrazione Simbolotto
Bari
3936341431
