Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
prova con excel ..io ho appena provato sia a 64 bit con office 365 sia a 32 con office 2010

in excel metti questa routine . .e naturalmente metti i riferimenti alla dlll come ho fatto vedere prima

Codice:
Sub test()
    
     Dim c As New VSDLLGiochi.clsScript
    
    If c.Init("C:\TestScript\estrazionilotto.csv", 5, 11, 90, 5, 0) Then
        MsgBox c.DataEstrazione(c.EstrazioniArchivio)
        
        MsgBox c.Ritardo(1, c.EstrazioniArchivio, 1, 1)
        
        Dim ret As STRUCT_FRZ_STATISTICA_TUTTI_GLI_ESITI
        
        Call c.Statistica(1, 7000, c.EstrazioniArchivio, ret, 1)
            
        MsgBox ret.RetValori(1).Ritardo
            
            
            
 
        
        
    End If
    
    Set c = Nothing
    
End Sub
 
prova con excel ..io ho appena provato sia a 64 bit con office 365 sia a 32 con office 2010

in excel metti questa routine . .e naturalmente metti i riferimenti alla dlll come ho fatto vedere prima

Codice:
Sub test()
   
     Dim c As New VSDLLGiochi.clsScript
   
    If c.Init("C:\TestScript\estrazionilotto.csv", 5, 11, 90, 5, 0) Then
        MsgBox c.DataEstrazione(c.EstrazioniArchivio)
       
        MsgBox c.Ritardo(1, c.EstrazioniArchivio, 1, 1)
       
        Dim ret As STRUCT_FRZ_STATISTICA_TUTTI_GLI_ESITI
       
        Call c.Statistica(1, 7000, c.EstrazioniArchivio, ret, 1)
           
        MsgBox ret.RetValori(1).Ritardo
           
           
           
 
       
       
    End If
   
    Set c = Nothing
   
End Sub
Al momento tom non ha excel
 
inb questo nuovo progetot che hai aperot puoi incollare il codice che ho messo sopra che vale benissimo anche in twinbasic
 
Al momento tom non ha excel
si avevo letto pero vale per domani lo dico perche ho fatot una prova piu approfondita su seven a 32 bit , il programma si apre , le date e le estrazioni le vede , questo ieri mi era bastato per dire ok , invece se lancio il famoso script di tom va in errore , sulla stessa macchina provatosia in vb6 che in excel i lcodice sopra e ha funzionato ...quindi qui dc'è twinbasic ballerino
 
si avevo letto pero vale per domani lo dico perche ho fatot una prova piu approfondita su seven a 32 bit , il programma si apre , le date e le estrazioni le vede , questo ieri mi era bastato per dire ok , invece se lancio il famoso script di tom va in errore , sulla stessa macchina provatosia in vb6 che in excel i lcodice sopra e ha funzionato ...quindi qui dc'è twinbasic ballerino
Brutto affare...
 
senza contare che pure a me l'altro ieri compliavo l'eseguiblie lo lanciavo e windows mi richiedeva un analisi del file...
 
flaggala , metti un pulsante e questo codice

Sub test()

Dim c As New VSDLLGiochi.clsScript

If c.Init("C:\TestScript\estrazionilotto.csv", 5, 11, 90, 5, 0) Then
MsgBox c.DataEstrazione(c.EstrazioniArchivio)

MsgBox c.Ritardo(1, c.EstrazioniArchivio, 1, 1)

Dim ret As STRUCT_FRZ_STATISTICA_TUTTI_GLI_ESITI

Call c.Statistica(1, 7000, c.EstrazioniArchivio, ret, 1)

MsgBox ret.RetValori(1).Ritardo






End If

Set c = Nothing

End Sub
 
flaggala , metti un pulsante e questo codice

Sub test()

Dim c As New VSDLLGiochi.clsScript

If c.Init("C:\TestScript\estrazionilotto.csv", 5, 11, 90, 5, 0) Then
MsgBox c.DataEstrazione(c.EstrazioniArchivio)

MsgBox c.Ritardo(1, c.EstrazioniArchivio, 1, 1)

Dim ret As STRUCT_FRZ_STATISTICA_TUTTI_GLI_ESITI

Call c.Statistica(1, 7000, c.EstrazioniArchivio, ret, 1)

MsgBox ret.RetValori(1).Ritardo






End If

Set c = Nothing

End Sub

il test parrebbe riuscito... o almeno non ha dato alcun errore...

iltestparrebberiuscito.jpg
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
Indietro
Alto