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 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19

Ultimi Messaggi

Indietro
Alto