NUOVO AMBIENTE SCRIPT AREA TECNICA

[LuigiB]

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

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

 

[Rookie]

fatto creato un nuovo progetto .exe lasciando solo il form di default e scegliendo, prima di importare da settings la relativa DLLGIOCHI, la versione a win64 come si vede dalla finestrella... lanciato il run appare il form...

Vedi l'allegato 2252140

Cioe', nel setting hai tu e anche tB visto la dll e il programma non ha dato errori?

 

[Rookie]

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

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

 

[LuigiB]

inb questo nuovo progetot che hai aperot puoi incollare il codice che ho messo sopra che vale benissimo anche in twinbasic

 

[lotto_tom75]

Cioe', nel setting hai tu e anche tB visto la dll e il programma non ha dato errori?

No salvato chiuso e riaperto ma nel settings non la vedo..

 

[LuigiB]

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

 

[Rookie]

Tom guarda sotto, nelle referenze disponibili

 

[Rookie]

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...

 

[lotto_tom75]

Tom guarda sotto, nelle referenze disponibili

nelle enabled references c'è... ma non è flaggata

 

[Rookie]

nelle enabled references c'è... ma non è flaggata

Vedi l'allegato 2252142

flaggala, salva il progetto e fai correre di nuovo

 

[LuigiB]

senza contare che pure a me l'altro ieri compliavo l'eseguiblie lo lanciavo e windows mi richiedeva un analisi del file...

 

[lotto_tom75]

flaggala, salva il progetto e fai correre di nuovo

fatto

non ha dato errori e

lanciato il run

e' riapparso nuovamente il form...

 

[LuigiB]

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

 

[LuigiB]

all'evento click del pulsante scrivi call test

 

[Rookie]

Caro Luigi, attraverso un forum (come questo) non si puo' gestire un progetto...

 

[lotto_tom75]

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...

 

[Rookie]

all'evento click del pulsante scrivi call test

E incrociamo le dita... o altro gesto apotropaico...

 

[Rookie]

Habemus Papam!!!

 

[LuigiB]

 

[LuigiB]

hai modificato il percorso dell'archivio ?