Novità

Archivio superenalotto

  • Creatore Discussione Creatore Discussione genios
  • Data di inizio Data di inizio
ciao ,
prima devi modificare un estrazione edll' archivio , che e' sbagliata
evidentemente , facendo lo scraping , qualcosa e' andato storto .
questa e' quella giusta .
Codice:
104;10/10/2020;24;73;46;15;19;12;67;46
gai che ci sei aggiorna l' archivio , con queste
Codice:
029;08/03/2022;16;31;15;21;80;03;24;70
030;10/03/2022;34;39;18;66;47;52;22;69
031;12/03/2022;24;32;56;41;80;76;10;11
032;15/03/2022;86;75;22;53;65;08;55;44
033;17/03/2022;14;86;55;54;52;53;34;29
e prova questo , lo trovate nel web .
i dati li ho verificati e sembrano essere esatti .
Codice:
Option Explicit
Sub Main()
   Dim sFileArchivio : sFileArchivio = GetDirectoryAppData & _
   "\Archivio SuperEnalotto Ordine d’ estrazione.txt"
   Call ApriBaseDatiFT(sFileArchivio,08,";",90)
   Dim giauscito(90),tabellone(1000,08)
   Dim p : p = InputBox("Numero di posizioni da considerare:"," 1 - 8 ",6)
   Dim es,r,i,Ini,fin : Ini = 00001 : fin = EstrazioniArchivioFT
   For i = 01 To 90
      giauscito(i) = 00
   Next
   Dim usciti : usciti = 00
   For es = fin To Ini Step - 01
      If usciti = 90 Then Exit For
      For i = 01 To p
         If usciti = 90 Then Exit For
         If giauscito(EstrattoFT(es,i)) = 00 Then
            tabellone(fin - es,i) = EstrattoFT(es,i)
            giauscito(EstrattoFT(es,i)) = 01
            usciti = usciti + 01
            Dim max : max = fin - es
            If usciti = 90 Then Exit For
         End If
      Next
   Next
   For r = 00 To max
      Dim riga : riga = FormatSpace(r,03) & "    "
      For i = 01 To p
         If tabellone(r,i) > 00 Then
            riga = riga & Format2(tabellone(r,i)) & "  "
         Else
            riga = riga & "--  "
         End If
      Next
      Call Scrivi(riga,01)
   Next
End Sub
 
Ultima modifica:
Grazie fabri.m di primo acchitto sembra funzionare bene . Se hai altri script potresti postarli .

Ciao Eugenio
 
ho trovato questo ,
Codice:
Option Explicit
Sub Main()
   Dim sFileArchivio : sFileArchivio = GetDirectoryAppData & _
   "\Archivio SuperEnalotto Ordine d’ estrazione.txt"
   Call ApriBaseDatiFT(sFileArchivio,08,";",90)
   Dim nu(08)
   Dim Ini,fin,es : Ini = 001 : fin = EstrazioniArchivioFT
   For es = fin To Ini Step - 01 : Call Messaggio(es) : Call AvanzamentoElab(fin,Ini,es)
      Dim nk,pos,kk : nk = nk + 01
      For pos = 01 To 08
         nu(pos) = EstrattoFT(es,pos)
         If EstrattoFrequenzaFT(nu(pos),es,fin) > 01 Then nu(pos) = "__"
         If nu(pos) <> "__" Then kk = kk + 01
      Next
      If kk > 00 Then
         Call Scrivi(IndiceAnnualeFT(es) & vbTab,False,False)
         Call Scrivi(DataEstrazioneFT(es) & vbTab,False,False)
         Call Scrivi(nk - 01 & vbTab,False,False)
         Call Scrivi(StringaNumeri(nu,,True) & vbTab & "  Caduti... " & 08 - kk & vbTab & " Rimasti... " & kk,True)
         kk = 00
      End If
   Next
End Sub
 
trovato Tabellone Analitico isocrono

Codice:
Option Explicit
Sub Main()
   Dim sFileArchivio : sFileArchivio = GetDirectoryAppData & _
   "\Archivio SuperEnalotto Ordine d’ estrazione.txt"
   Call ApriBaseDatiFT(sFileArchivio,08,";",90)
   Dim ER : ER = CInt(InputBox(" Estrazione di rilevamento a ritroso "," 01 - 00 ",1))
   If ER > 01 Then Call MsgBox(" I DATI IMMESSI SONO ERRATI ",vbYes," ERRORE "):Exit Sub
   Dim EC : EC = InputBox(" Quante ESTRAZIONI "," ESTRAZIONI DI CONTROLLO ",150)
   Dim nSorte : nSorte = CInt(InputBox(" Quale sorte Ricerco "," CONTROLLO RICERCA ",2))
   Dim nEsito : nEsito = CInt(InputBox("  Quale sorte Controllo "," CONTROLLO ESITO ",1))
   If nEsito >= nSorte Then Call MsgBox(" I DATI IMMESSI SONO ERRATI ",vbYes," ERRORE "):Exit Sub
   Dim Ini,fin,fine,es : Ini = EstrazioniArchivioFT - EC : fin = EstrazioniArchivioFT - ER : fine = EstrazioniArchivioFT
   Call Scrivi(String(021,"-") & " Tabellone Analitico isocrono " & String(021,"-"),01)
   Call Scrivi("sorte...." & NomeSorte(nSorte) & "  .... Rilevamento estrazione ..." & GetInfoEstrazioneFT(fin),01,01,,01,02)
   Call Scrivi(String(072,"-"),01)
   Dim nu(08),cad(08),p,k,kk
   For es = fin To Ini Step - 01 : Call Messaggio(es) : Call AvanzamentoElab(fin,Ini,es)
      For p = 01 To 08
         nu(p) = EstrattoFT(es,p)
         If EstrattoFrequenzaFT(nu(p),es,fin) > 01 Then nu(p) = "--"
         k = k + 01
         'If EstrattoFrequenzaFT(cad(p),es,fin) = 01 Then cad(p) = "--"
         If nu(p) = "--" Then kk = kk + 01
         Dim EntroColpi,RetEsito,RetColpi,RetEstratti,RetIdEstr
         EntroColpi = 01
         Call VerificaEsitoFT(nu,fin + 01,nSorte,EntroColpi,RetEsito,RetColpi,RetEstratti,RetIdEstr)
      Next
      Dim k1,k2,kc,kEsito,kCorso
      k1 = k - kk
      If k1 = nSorte Then
         k2 = k2 + 01 : kc = kc + 01
         Call Scrivi("Ritardo..." & FormatSpace(Format2(fin - es),03) & "  " & _
         FormatSpace(Format2(k2),02) & "  " & GetInfoEstrazioneFT(es) & "  ",00,00)
         Call Scrivi(StringaNumeri(nu,,True) & "   count..." & Format2(k - kk),00,00)
         Call Scrivi("   " & RetEstratti,01,00,,01,02)
         If RetEsito <> "" And RetIdEstr = fine Then Call Scrivi("    Al colpo..." & _
         Format2(RetColpi) & "  " & GetInfoEstrazioneFT(RetIdEstr) & "     ### ",01,01,,01,02)
         If RetEsito <> "" And RetIdEstr <> fine Then Call Scrivi("    Al colpo..." & _
         Format2(RetColpi) & "  " & GetInfoEstrazioneFT(RetIdEstr),01,01,,01,02)
         If RetEsito <> "" Then kEsito = kEsito + 01
         If RetEsito = "" Then kCorso = kCorso + 01 : Call Scrivi(String(025,".") & " In Corso ",00,01,,02,02)
         'Call Scrivi (StringaNumeri(nu,,True) & "  " & format2(k - k2k) '& "    Ritarda da.... " & fin - es,00,00)
         'Call Scrivi (vbTab & " Caduti  " & StringaNumeri(cad,,true))
         'Call Scrivi()
      End If
      k = 00 : kk = 00
      If k2 > 00 Then Call Scrivi(String(156,"="),01)
      k2 = 00
   Next
   Call Scrivi("Casi Rilevati...... : " & Format2(kc),01,01,,02,03)
   Call Scrivi("Casi In Corso...... : " & Format2(kCorso),01,01,,02,03)
   Call Scrivi("Esiti Positivi..... : " & Format2(kEsito),01,01,,02,03)
   Call Scrivi("Perc % di Esito.... : " & Int((kEsito / kc) * 100) & " % ",01,01,,01,03)
End Sub
 
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20

Ultimi Messaggi

Indietro
Alto