L
LuigiB
Guest
mi dispiace ma non si puo , ciao .
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.
quote:Originally posted by LuigiB
ho fatto un aggiornamento al programma.
Per Rubino ho inserito una serie di funzioni per consentire il disegno
libero, ora si potranno disegnare segmenti , poligoni , cerchi direttamente dal linguaggio spazio script tutto gestito dall'utente attraverso un set di funzioni grafiche , quindi nulla di precostituito versatile perche potrai disegnare da solo il cerchi come piu ti piace,
tutte le funzioni grafcche iniziano con il prefisso Pic
per scoglio io il multi script l'ho interpretato cosi come puoi vederlo nella nuova versione. Spero vada bene...
per silop ho correto il problema dell'aggiornamento manuale che non mettva l'id
riguardo quella vetina di estrazioni che mi hai segnalato non ho capito se proprio mancavano creando dei buchi oppure se erano precedenti a qulle da cui parte l'archivio del programma ...sinceramente non ho guardato .
ciao luigiquote:Originally posted by LuigiB
ho fatto un aggiornamento al programma.
Per Rubino ho inserito una serie di funzioni per consentire il disegno
libero, ora si potranno disegnare segmenti , poligoni , cerchi direttamente dal linguaggio spazio script tutto gestito dall'utente attraverso un set di funzioni grafiche , quindi nulla di precostituito versatile perche potrai disegnare da solo il cerchi come piu ti piace,
tutte le funzioni grafcche iniziano con il prefisso Pic
per scoglio io il multi script l'ho interpretato cosi come puoi vederlo nella nuova versione. Spero vada bene...
per silop ho correto il problema dell'aggiornamento manuale che non mettva l'id
riguardo quella vetina di estrazioni che mi hai segnalato non ho capito se proprio mancavano creando dei buchi oppure se erano precedenti a qulle da cui parte l'archivio del programma ...sinceramente non ho guardato .
=======================quote:Originally posted by LuigiB
per silop ho correto il problema dell'aggiornamento manuale che non mettva l'id
riguardo quella vetina di estrazioni che mi hai segnalato non ho capito se proprio mancavano creando dei buchi oppure se erano precedenti a qulle da cui parte l'archivio del programma ...sinceramente non ho guardato .
quote:Originally posted by silop2005
Ciao LuigiB,
purtroppo debbo scrivere di nuovo, perché il fatto del DOPPIONE si è ripetuto di nuovo.
Chiedo pure agli altri utenti del forum </u> se è successo pure a loro quando sto per descrivere.
Dopo l'installazione del prg vers 1.2.3 ho aggiornato il 10elotto 5M fino all'indice 61 del 23/02/2011
fin qui tutto bene.
Successivamente ho rifatto l'aggiornamento dell'archivio e questa volta vedo che l'estrazione/indice n.62 viene caricato senza estratti, cioè a ZERO (vedi sotto ) e il numero progressivo (Id) è lo stesso dell'indice n.61
14929 - 60 - 23/02/2011 - 12:00:00 34 04 07 14 17 20 23 28 30 37 47 48 50 56 60 64 81 83 86 88 90
14930 - 61 - 23/02/2011 - 12:05:00 33 04 09 20 22 24 27 31 34 38 45 53 56 58 65 66 68 72 78 83 90
14930 - 62 - 23/02/2011 - 12:10:00 32 00
14932 - 63 - 23/02/2011 - 12:15:00 31 03 07 08 14 15 22 25 34 40 55 58 59 62 69 71 81 82 87 88 90
14933 - 64 - 23/02/2011 - 12:20:00 30 01 02 03 05 06 08 12 14 19 24 26 31 35 36 39 48 61 69 73 78
L'estrazione a ZERO compare nella tabella ELENCO NON VALIDE (insieme alle altre 12)
Quindi a questo punto faccio la procedura manuale d'inserimento
mi posiziono sull'estrazione 62 e nella relativa finestra immetto i 20 estratti sortiti regolarmente
nella finestra viene riportato il numero progressivo giusto Id: 14931
clicco su CONFERMA (e non succede nulla) e poi clicco su CHIUDI e la finestra si chiude controllo l'archivio estrazioni e :
14928 - 59 - 23/02/2011 - 11:55:00 133 06 11 18 21 22 23 24 30 39 48 51 53 65 70 73 76 78 82 84 88
14929 - 60 - 23/02/2011 - 12:00:00 132 04 07 14 17 20 23 28 30 37 47 48 50 56 60 64 81 83 86 88 90
14931 - 62 - 23/02/2011 - 12:10:00 131 02 04 08 09 15 16 20 22 36 41 42 46 49 54 55 56 57 70 81 84
14931 - 62 - 23/02/2011 - 12:10:00 130 02 04 08 09 15 16 20 22 36 41 42 46 49 54 55 56 57 70 81 84
14932 - 63 - 23/02/2011 - 12:15:00 129 03 07 08 14 15 22 25 34 40 55 58 59 62 69 71 81 82 87 88 90
14933 - 64 - 23/02/2011 - 12:20:00 128 01 02 03 05 06 08 12 14 19 24 26 31 35 36 39 48 61 69 73 78
… vedo che l'estrazione MANCANTE è inserita DUE volte mentre l'estrazione/indice n. 61 e l'Id : 14930 e i relativi 20 estratti non ci sta più.
LuigiB scusa se ti riscrivo ma non sono riuscito ad aggiustare da solo, perché
ho anche installato di nuova la versione 1.2.3 ma niente da fare, oramai l'archivio
con l'errore lo ha in memoria del pc e quindi niente.
Poi ho anche disinstallato la vers 1.2.3 ed ho installato una versione vecchia
dove il 10elotto non era ancora nato, tutto bene e su questa versione ho rinstallato la vers. 1.2.3 , ma ho avuto SEMPRE lo stesso risultato.
In attesa di un prossimo aggiornamento ti auguro una buona notte.
Saluti
Silop
:::::::::::::::::::::quote:Originally posted by Pulsar
ciao silop,
anche a me succede che, quando faccio l'aggiornamento frequentemente, mi salta alcune estrazioni. A questo punto dall'elenco delle estrazioni non valide, clicco due volte sull'estrazione che mi interessa si apre la finestra ed inserisco manualmente i numeri. Mi sembra che le estrazioni vengano inserite ma, ciò che volevo sapere è questo: dove si trova l'archivio delle estrazioni per controllare? lo vedi importandolo in excel con lo script?
Grazie per la risposta
Sub Main()
ColoreTesto 2
Scrivi "ATTENZIONE !!!",1
Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
Scrivi "Ricerca per Ambata condizionata a STEP(salti) nel periodo selezionato",1
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim ambata(90)
Dim perc,n_cicli,lu_cicli,colpi,es_elim
perc = InputBox("Imposta la percentuale esiti (10% - 100%)","PERCENTUALE",70)
n_cicli = CInt(InputBox("Quanti cicli(STEP) da analizzare ?","STEP",10))
lu_cicli = CInt(InputBox("La Lunghezza in estrazioni di uno STEP?","LUNGHEZZA STEP",9))
colpi = InputBox("Quanti colpi di gioco ?","COLPI DI GIOCO-ANALISI",3)
es_elim = CInt(InputBox("Quante estrazioni vuoi indietreggiare dall'ultima in archivio?","SOLO per ANALISI",1))
'la riga sopra serve solo per staccare l'analisi dall'ultima estrazione in archivio, potremmo così vedere
'nelle estrazioni che decidiamo di mettere nel limbo(valore es_elim), quali numeri sono già sortiti...
fin = EstrazioneFin - es_elim
ini = Fin -(n_cicli*lu_cicli) '900 estraz
For r2 = 1 To 10
For p = 1 To 90
ambata(p) = 0
Next
ColoreTesto 0
Scrivi
Scrivi String(50,"*")
ColoreTesto 0
Scrivi "IMPOSTAZIONI:",1
s = "Cicli analizzati " & n_cicli & " da " & lu_cicli & " estrazioni cad. per "
If eval(colpi) = 1 Then
s = s + colpi + ") colpo:" 'gestione testo al singolare
Else
s = s + colpi + ") colpi:" ''gestione testo al plurale
End If
ColoreTesto 0
Scrivi s
ColoreTesto 1
Scrivi "Quantità cicli Impostati: (" & n_cicli & ") tot. (" &(n_cicli*lu_cicli) & ") Estr.",1
ColoreTesto 0
Scrivi "Statistica dal: " + DataEstrazione(ini) + " al: " + DataEstrazione(Fin),1
ColoreTesto 2
Scrivi "Percentuale Impostata: " & perc & "%",1
Scrivi
For r = 1 To 10
z = 0
For p = 1 To 5
For j = 1 To 90
som(p,j) = 0
Val(p,j) = True
Next
Next
For p = 1 To 5
estr(p) = 0
Next
valido = False
For es = ini To fin Step lu_cicli
If eval(lu_cicli) = 0 Then' Valutazione: Invece di equiparare le variabili e valori, valuta le dichiarazioni con Eval
m = es + 1
Else
m = es
End If
z = z + 1
For p = 1 To 5
estr(p) = Estratto(es,r,p)
Next
For p = 1 To 5
For j = 1 To 90
Val(p,j) = True ' array di i e j
Next
Next
k3 = es + colpi
If k3 > EstrazioniArchivio Then
k3 = EstrazioniArchivio
End If ' gestisce il fine cicli in caso di estraz. fuori dai limiti
For es_verif = es + 1 To k3
For p = 1 To 5
For j = 1 To 5
k = Estratto(es_verif,r2,j) - estr(p) 'Fisso K
While k <= 0 ' k minore = 0
k = k + 90 'k = k+90
Wend
If Val(p,k) = True Then
som(p,k) = som(p,k) + 1 ' som = valori azzeccati
Val(p,k) = False
End If
Next
Next
Next
Next
For p = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(p)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su "
ColoreTesto 1
s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(p,j)) + "/" + CStr(eval(z))
s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(p) + j))),3)
If(Val(p,j) = True) Then s = s + " in corso" Else s = s + "----> sfaldato" End If
If som(p,j) >= zz Th
quote:Originally posted by LuigiB
Ragazzi la faccenda delle estrazioni dl la sto sistemando ..come tutte le cose va messa un pochino a punto .. al prossimo aggiornamento !