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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto