x mike58

[rubino2]

ciao mike
volevo chiederti se per caso con lo smess di LuigiB
hai fatto qualcosa per il 10eLotto

siccome non riesco a creare esattamente l'archivio del 10eLotto serale e a crearlo nella tendina degli archivi
LOTTO/SUPERENALOTTO/ETC..
anche prendendolo da spaziometria volevo chiederti se per caso tu ce l'hai e se funziona.

mi basterebbe anche solo qualche estrazione per capire come è stato preparato
con separatore ;
data e ora o solo data?
indice progressivo annuale
indice progressivo mensile

e poi?

e una videata di quando si aggiunge un archivio con i parametri
Ruota = 1 ?
quanti Numeri 20 o 22 per oro e doppio oro?
90 numeri
quanti numeri per la statistica 10 o 20?

se per caso tu non hai preparato nulla, provo a chiedere in questo spazio ad altri che sono riusciti a prepararl e farlo funzionare.

ciao

 

[Mike58]

Ciao Rubino.
Purtroppo No !! Non ho fatto nessun Archivio 10 e lotto Serale , ed anche l'uso di TwinBasic Smess è andato nel dimenticatoio.
Per i parametri archivi FT mi sembra di ricordare che sono quelli che hai elencato.

Tuttavia ti posso mettere lo script (Spaziometria) che aggiorna l'archivio SuperEnalotto cosi da capire i parametri settati, ti basta cambiare i suffissi da SE a DL e mettere la variabile a 20 Numeri

script x SuperEnalotto con formattazione parametri

Option Explicit
'Aggiornatore archivio SuperEnaLotto FrameworkScriptGiochi
Sub Main
   Dim nEstrInizio,nEstrFine
   Dim DataIni,DataFin
   Dim sFile
   Dim sChrSep
   Dim sDirDest
   Call MsgBox("Sostituisci nello script la directory dove verrà creato il file csv" & _
   vbCrLf & "Poi elimina questo messaggio",vbInformation)
   'modificare questa riga con il percorso della cartella archivio sul vostro pc
   sDirDest = "C:\Users\Mike58\Desktop\NewTwinBasic\DDLLScript_per_utenti\Archivio"
   'sDirDest = GetDirectoryAppData
   sChrSep = ";"
   sFile = AddSlash(sDirDest) & "EstrazioniSuperEna.csv"
   If EliminaFile(sFile) Then
      nEstrInizio = 0001
      nEstrFine = EstrazioniArchivioSE
      Call EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
   End If
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
   Dim k,f,idEstr
   Dim sRecord
   Dim sDataCorr,sOraCorr
   Dim nIndAnn,nIndMen,nIndGio
   Dim e,g
   For k = nEstrInizio To nEstrFine
      Call Messaggio("Estrazione : " & k)
      idEstr = k
      ReDim aNum(08)
      If GetEstrazioneCompletaSE(idEstr,aNum) Then
         sDataCorr = Replace(DataEstrazioneSE(idEstr),".","/")
         sOraCorr = " 00:00:00"
         sRecord = ""
         nIndAnn = FormattaStringa(IndiceAnnualeSE(idEstr),"0000000")
         nIndMen = FormattaStringa(IndiceMensileSE(idEstr),"0000000")
         nIndGio = "0000000"
         sRecord = sDataCorr
         sRecord = sRecord & sOraCorr
         sRecord = sRecord & sChrSep & nIndAnn
         sRecord = sRecord & sChrSep & nIndMen
         sRecord = sRecord & sChrSep & nIndGio & sChrSep
         '  sRecord = FormatSpace(nProgr,9,True) & sChrSep
         '  sRecord = sRecord & IndiceAnnuale(idEstr) & sChrSep
         '  sRecord = sRecord & sDataCorr & sChrSep
         ' da errore
         ReDim sEstr(08) : Dim nMaxPos,sNumeri
         If idEstr <= 914 Then
            nMaxPos = 07 : sEstr(08) = "99"
         Else
            nMaxPos = 08
         End If
         For e = 01 To nMaxPos
            sEstr(e) = EstrattoSE(idEstr,e)
         Next
         sNumeri = StringaNumeri(sEstr,sChrSep,True)
         sNumeri = Replace(sNumeri,"99","00")
         sRecord = sRecord & sNumeri
         sRecord = RimuoviLastChr(sRecord,sChrSep)
         Call Scrivi(sRecord,True)
         Call ScriviFile(sFile,sRecord,False,True)
      Else
         Exit For
      End If
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
   Next
   Call CloseFileHandle(sFile)
   ' Call LanciaFile(sFile)
   Call Scrivi("Esportato file " & sFile,True)
   Call MsgBox("Fine",vbInformation)
End Sub
Function AddSlash(s)
   If Right(s,01) <> "\" Then
      AddSlash = s & "\"
   Else
      AddSlash = s
   End If
End Function

Per come si aggiunge l'archivio penso che sia da smess che da finestra iniziale del sorgente è possibile aggiungere un archivio FT.

Intanto prova a vedere se con le dovute modifiche DL lo script crea un archivio DiecieLotto serale.
sono sicuro che riuscirai nell'intento , nel caso posso riesumare il Programma TB ed aiutarti a fare qualche prova.

Ciao Rubino
fammi sapere

 

[Mike58]

Rubino lo script per creare l'archivio 10 e lotto , penso di averlo fatto io e funziona
lo posto

Option Explicit
'Aggiornatore archivio SuperEnaLotto FrameworkScriptGiochi
Sub Main
   Dim nEstrInizio,nEstrFine
   Dim DataIni,DataFin
   Dim sFile
   Dim sChrSep
   Dim sDirDest
   Call MsgBox("Sostituisci nello script la directory dove verrà creato il file csv" & _
   vbCrLf & "Poi elimina questo messaggio",vbInformation)
   'modificare questa riga con il percorso della cartella archivio sul vostro pc
   sDirDest = "C:\Users\miche\OneDrive\Desktop\NewTwinBasic\DDLLScript_per_utenti\Archivio"
   'sDirDest = GetDirectoryAppData
   sChrSep = ";"
   sFile = AddSlash(sDirDest) & "DiecieLotto.csv"
   If EliminaFile(sFile) Then
      nEstrInizio = 0001
      nEstrFine = EstrazioniArchivioDL
      Call EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
   End If
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
   Dim k,f,idEstr
   Dim sRecord
   Dim sDataCorr,sOraCorr
   Dim nIndAnn,nIndMen,nIndGio
   Dim e,g
   For k = nEstrInizio To nEstrFine
      Call Messaggio("Estrazione : " & k)
      idEstr = k
      ReDim aNum(20)
      If GetEstrazioneCompletaDL(idEstr,aNum) Then
         sDataCorr = Replace(DataEstrazioneDL(idEstr),".","/")
         sOraCorr = " 00:00:00"
         sRecord = ""
         nIndAnn = FormattaStringa(IndiceAnnualeDL(idEstr),"0000000")
         nIndMen = FormattaStringa(IndiceMensileDL(idEstr),"0000000")
         nIndGio = "0000000"
         sRecord = sDataCorr
         sRecord = sRecord & sOraCorr
         sRecord = sRecord & sChrSep & nIndAnn
         sRecord = sRecord & sChrSep & nIndMen
         sRecord = sRecord & sChrSep & nIndGio & sChrSep
         '  sRecord = FormatSpace(nProgr,9,True) & sChrSep
         '  sRecord = sRecord & IndiceAnnuale(idEstr) & sChrSep
         '  sRecord = sRecord & sDataCorr & sChrSep
         ' da errore
         ReDim sEstr(20) : Dim nMaxPos,sNumeri
         'If idEstr <= 914 Then
            'nMaxPos = 07 : sEstr(08) = "99"
         'Else
            nMaxPos = 20
         'End If
         For e = 01 To nMaxPos
            sEstr(e) = EstrattoDL(idEstr,e)
         Next
         sNumeri = StringaNumeri(sEstr,sChrSep,True)
         sNumeri = Replace(sNumeri,"99","00")
         sRecord = sRecord & sNumeri
         sRecord = RimuoviLastChr(sRecord,sChrSep)
         Call Scrivi(sRecord,True)
         Call ScriviFile(sFile,sRecord,False,True)
      Else
         Exit For
      End If
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
   Next
   Call CloseFileHandle(sFile)
   ' Call LanciaFile(sFile)
   Call Scrivi("Esportato file " & sFile,True)
   Call MsgBox("Fine",vbInformation)
End Sub
Function AddSlash(s)
   If Right(s,01) <> "\" Then
      AddSlash = s & "\"
   Else
      AddSlash = s
   End If
End Function

 

[Mike58]

Rubino vedi videata di aggiunta archivio da Form





Penso si possa usare stesso procedimento anche da smess

prova a vedere
Ciao

 

[rubino2]

grazie molte Mike58

l'archivio è creato e definito in twinbasic, ok bene

ho capito per il 10 e lotto
viene creato un archivio con i 20 numeri, quindi senza oro e doppio oro

max pos statistica proviamo a mettere 20, ma viene pagato fino a 10 numeri, quindi è da provare.

l'ha creato dal 1871, va be posso cancellare le estrazioni che non servono per tenere solo quelle dall'inizio
ufficiale del gioco, o mettere il range di estrazione dall'inizio.

bene grazie grazie

 

[Mike58]

ho capito per il 10 e lotto
viene creato un archivio con i 20 numeri, quindi senza oro e doppio oro

nello script del superenalotto ci sono delle righe che permettono la gestione del numero Jolly e Star, io nel 10 e lotto la avevo tolta
se la vuoi inserire è questa

ReDim sEstr(08) : Dim nMaxPos,sNumeri
If idEstr <= 914 Then
nMaxPos = 07 : sEstr(08) = "99"
Else
nMaxPos = 08
End If

prova ad immettere 22 numeri e gestendo i numeri oro e doppio oro

Per il numero di estrazioni totali si può gestire già nello script partendo da una data estrazione tanto lo script sovrascrive tutto l'archivio.

Felice di esserti stato utile.
Ciao

 

[rubino2]

ciao Mike58

perfetto, sono riuscito a fare il primo programmino 10 e Lotto
funziona bene.

ora provo ad impostare il superenalotto e fare qualcosa.

abbozzo l'impianto degli archivi.

 

[Mike58]

Purtroppo quando mi ero appena avvicinato le lezioni TB stavano per finire.

Ero appena riuscito ad attaccare al tuo Form un qualche mio script, ma senza più esempi quel poco che stavo imparando è andato perduto o dimenticato.

Peccato per tutti quegli errori di TB che hanno fatto desistere dal andare oltre.

Comunque bene che sei riuscito nel tuo progetto.

Ciao