sviluppo sstemi in vbnet

[Mike58]

Ciao Luigi, un bel ritorno alla sistemistica del passato,ci sono quasi tutte i condizionali che si usavano anche per il totocalcio, qualcosa a memoria mi sfugge, ma penso che le più usate sono presenti.... Complimenti per la velocità (tempi di elaborazione).
Apprezzato...
Ho solo una domanda... nella immissione numeri per Tabella Statistica i dat in archivio sia lotto che superEnalotto non sono aggiornati...
e possibili aggiornarli... chiaro io con uno script da spazio posso aggiornarli ma altri utenti avrebbero difficoltà.
Ciao un saluto... e un buon prosieguo progetto.

 

[LuigiB]

ciao Mike , il programma è ancora acerbo .. piano piano aggiungero le funzionalità che servono nel frattempo come hai detto bisogna arrangiarsi.

 

[Mike58]

Luigi ... Scusa l'intromissione, per chi vuole utilizzare il dato SuperEnalotto "Tabella Statistica" ecco lo script di aggiornamento SuperEnalotto
basta poi cambiare solo il percorso di scrittura con il vostro...
sFileCsv = "C:\Users\Mike58\Desktop\Sistemistica\Archivi\EstrazioniSuperEnalotto.csv"

Sub Main
   Dim Nu(8),sFileCsv,sRiga
   Ini = 1'EstrazioniArchivioSE - 10
   fin = EstrazioniArchivioSE
   '
   ResetTimer
   ' prepara il file csv
   'sFileCsv = GetDirectoryAppData & "temp\Analisi2.csv"
   sFileCsv = "C:\Users\Mike58\Desktop\Sistemistica\Archivi\EstrazioniSuperEnalotto.csv"
   Call EliminaFile(sFileCsv)
   ' scrive i titoli delle colonne nel file csv
   sRiga = "Data;IndAnno;E1;E2;E3;E4;E5;E6;JJ;SS"
   Call ScriviFile(sFileCsv,sRiga,False)
   '
   For es = Ini To fin
      For p = 1 To 8
         Nu(p) = EstrattoSE(es,p)
      Next
      Scrivi DataEstrazioneSE(es) & " " & IndiceAnnualeSE(es) & " " & StringaNumeri(Nu)
      sRiga = Replace(DataEstrazioneSE(es),".","/") & ";"
      sRiga = sRiga & IndiceAnnualeSE(es) & ";"
      sRiga = sRiga & Nu(1) & ";"
      sRiga = sRiga & Nu(2) & ";"
      sRiga = sRiga & Nu(3) & ";"
      sRiga = sRiga & Nu(4) & ";"
      sRiga = sRiga & Nu(5) & ";"
      sRiga = sRiga & Nu(6) & ";"
      sRiga = sRiga & Nu(7) & ";"
      sRiga = sRiga & Nu(8) & ";"
      Call ScriviFile(sFileCsv,sRiga,False)
   Next
   '
   Call CloseFileHandle(sFileCsv)
   Call LanciaFile(sFileCsv)
   Scrivi "File scritto in Excel",1
   Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
End Sub

 

[LuigiB]

brav Mike .. ma credo che entro stasera avremo l'aggiornamento degli archivi ..

 

[LuigiB]

nuovo aggiornamento , la link è sempre quella del primo post.

- aggiunta statistica nel fitro cifre
- aggiunta funzione filtra colonne
- aggiornamento archivi lotto e superenalotto ( funzione presente nel menu File
)

 

[rubino2]

LuigiB, ho una domanda per quanto riguarda lo Spoglio

come va impostato?
non elenca le colonne ed il punteggio che hanno dato?



come non detto ho visto ora che la funzione è un altra

 

[LuigiB]

ciao la prima immagine spoglia le condizioni per vedere se la colonna vincente rientra nei condizionmenti. la seconda come hai visto è quella giusta

 

[rubino2]

questa è il punteggio ottenuto con la sestina estratta questa sera.

è chiaro che è una prova fatta, e non giocata


4 tre punti e 57 punti 2

spesa teorica 211 euro
vincita teorica 57*5euro + 4 tre che attualmente le quote non sono ancora presenti

comunque sia sarebbe stata una vincita con un utile

 

[lotto_tom75]

Grandissimo come sempre Mastro Luigi! E Grazie per questa ennesima chicca pre natalizia! 👏 💪 👋

 

[rubino2]

Ho una domanda
E possibile generare random un numero stella per ogni colonna pronta per la stampa?

 

[LuigiB]

nuovo aggiornamento , il file è sempre quello al primo post

- Corretto messaggio in apertura file sisstema condizionato
- Aggiunta gestione numero stella (lo aggiunge alle colonne sviluppate e lo gestisce nella funzione di spoglio vincite)

 

[Zetrix]

 

[Mike58]

x Luigi... Se possibile... sul prossimo aggiornamento nella sezione spoglio... far conteggiare anche gli zero punti per evidenziare un possibile zero punti con superStar in quanto questo è vincente con 5 euro , giusto per non perdere questa possibilità di evidenza.

 

[LuigiB]

qualcuno di voi si deve organizzare per forgiare una bella medaglia al valore da conferirmi ... sto facendo la stampa schedine pur non disponendo della stampante .. sui pdf pare che funge

questa chi la riconosce ?

 

[i legend]

Stavo pensando più ad una coppa .
🙂👍
Sembrerebbe la schedina lotto.
Ma non me ne intendo.
Buon lavoro.

 

[LuigiB]

Stavo pensando più ad una coppa .
🙂👍
Sembrerebbe la schedina lotto.
Ma non me ne intendo.
Buon lavoro.

a non te ne intendi eh ...

 

[Mike58]

sembra corrispondere in toto ad una schedina lotto

 

[Oscar]

B'hè può darsi che vada bene a giudicare dalla posizione delle X sembrerebbe lei

 

[LuigiB]

questa ovviamente è del superenalotto , sempre provata con stampante PDF

probabilmente all'atto pratico ognuno dovrà aggiustare i propri valori di configurazione per la stampa schedine (ammesso che qualcuno usi la funzione ..)

 

[Mike58]

Grazie Luigi, Penso che qualche stampa una volta ogni tanto si possa fare, specialmente al superenalotto, dove i sistemi hanno una loro valenza.
L'importante è averla a disposizione.
P.s. non ho le schedine , ma alla prima occasione la provo.
Un saluto