Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

L

LuigiB

Guest
Rookie ha scritto:
Ciao Luigi, con la beta244... che esegue con successo la build ma... da' (a me) due avvisi che solo Wayne puo' capire... e l'eseguibile non parte! Forse bisogna provare con quache beta meno attuale...

p.s. forse permane qualcosa con stringhe UNICODE, dato che la mia tastiera e' specifica per ENG (inglese) ma windows e' localizzato per la Germania. Fatemi sapere se ottenete lo stesso errore con windows ITA e tastiera italiana...


Vedi l'allegato 2252956
Clicca per espandere...


ragazzi verificate se avete aggiornato la dll o il progetto perche l'errore che da quell orosso non lo deve dare ,e dipende da uan di queste 2 cose. quello giallo invece non è un errore ma una segnalazione


io ho la 244 , il progetto twin basic si compila e si esegue senza problemi

1675868521648.png
 
Rookie

Rookie

Advanced Member >PLATINUM PLUS<
LuigiB ha scritto:
ragazzi verificate se avete aggiornato la dll o il progetto perche l'errore che da quell orosso non lo deve dare ,e dipende da uan di queste 2 cose. quello giallo invece non è un errore ma una segnalazione


io ho la 244 , il progetto twin basic si compila e si esegue senza problemi

Vedi l'allegato 2252957
Clicca per espandere...
Grazie Luigi per il riscontro! Adesso ripulisco winzozz, lo arresto (magari lo potessi fare veramente) e poi lo riavvio e reinstallo la 244! Elimino la cartella del progetto, e ricomincio da capo con la medesima tua struttura…
 
lotto_tom75

lotto_tom75

Advanced Premium Member
Xeroxs ha scritto:
Ciao lotto_tom75

volevo chiederti come imposti il browser mozzilla a me non lo apre solo con il call mi da errore
Clicca per espandere...

Ciao xeroxs , non saprei come mai ti da errore... io per impostare firefox come browser di default solo per un determinato script tweenbasic aggiungo semplicemente ad inizio script questa riga:

Codice: 
Call ImpostaBrowser("C:\Program Files\Mozilla Firefox\firefox.exe")

Tutto qui.

E con la mia versione tb 237 e win 11 pro quando eseguo lo script voluto mi apre come output appunto correttamente firefox nonostante come browser di default del sistema operativo abbia impostato edge.

L'unica cosa che mi viene in mente al riguardo del tuo errore e' che forse non hai aggiornato all'ultima release dll (la n.9) e che quindi dipenda dalla mancanza nella tua dll della relativa nuova funzione di luigi.
 
L

LuigiB

Guest
risolto pure il problema delle tabelle mostrate erroneamente in chrome


registrare la dll
pulire registro se la dll si mette in un percorso differente rispetto a prima

www.mediafire.com

DDLLScript_per_utenti

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.
www.mediafire.com
 
L

LuigiB

Guest
tra l'altro ora funziona anche l'ordinamento delel tabelle direttamente nel browser , però per na colonna sola alla volta
 
G

giomi

Banned
Rookie ha scritto:
Ciao Luigi, con la beta244... che esegue con successo la build ma... da' (a me) due avvisi che solo Wayne puo' capire... e l'eseguibile non parte! Forse bisogna provare con quache beta meno attuale...

p.s. forse permane qualcosa con stringhe UNICODE, dato che la mia tastiera e' specifica per ENG (inglese) ma windows e' localizzato per la Germania. Fatemi sapere se ottenete lo stesso errore con windows ITA e tastiera italiana...


Vedi l'allegato 2252956
Clicca per espandere...
scaricato 245 , per ora tutto ok.
io ho risolto il problema , ricompilando il progetto , con la nuova release , e sovrascrivendo il vecchio .
 
G

giomi

Banned
riposto lo script per il tabellone analitico .
non so ancora se sono state implementate le function format2 formatspace
ma con DDLL vecchia non si allinea bene l' intestazione
Codice: 
Public Sub MyScriptRoutine()
ReDim Usciti(90, 11) As Variant
Dim Totale As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As String
Dim Ruo As Long
Dim Pos As Long
Dim Estr As Long
Dim Tutti As Long
Totale = 90 * 11 ' 10 Ruote + Nazionale
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & _
DataEstrazione(Fin), True)
Call Scrivi()
Call Intestazione(): Call Scrivi(String(178, "-"), True)
For Es = Fin To Ini Step -01
    Call Messaggio(CStr(Es))
    Riga = formatSpace(Fin - Es, 03) & " "
    For Ruo = 01 To 11
        For Pos = 01 To 05
            Estr = Estratto(Es, Ruo, Pos)
            If Usciti(Estr, Ruo) = "" Then
                Riga = Riga & format2(Estr) & " "
                Usciti (Estr, Ruo) = Estr
                Tutti = Tutti + 01
            Else
                Riga = Riga & "-- "
            End If
        Next
        Riga = Riga & " "
    Next
    Call Scrivi(CStr(Riga), True)
    If Tutti = Totale Then Es = 01
Next
Call Scrivi(String(178, "-"), True): Call Intestazione()
End Sub
Sub Intestazione()
    Dim Riga As String
    Dim r As Long
    Riga = formatSpace("Rit", 03)
    For r = 01 To 11
        Riga = Riga + formatSpace(NomeRuota(r), 16)
    Next
    Call Scrivi(CStr(Riga), True)
End Sub
Function format2(N As Variant) As String
    If Len(N) < 02 Then N = "0" & N
    Return N
End Function
Function formatSpace(n As Variant, nCHar As Long) As String
    Dim C  As Integer, temp As String
    temp = n
    C = Len(n)
    If C < nCHar Then temp = Space(nCHar - C) & n
    Return temp
End Function
End Module
 
L

LuigiB

Guest
format2 c'è formatspace è stato sostituito da formatstring , allinamento a sinistra 0 al centro 1 ,a destra 2
 
G

giomi

Banned
happy ha scritto:
Ciao Giomi, cosi pare funzionare.👋
Vedi l'allegato 2252922


Codice: 
Module MyScript

 
    Public Sub MyScriptRoutine()
        ' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
        ' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE
     

Dim M(90, 11) As Variant
Dim Tot As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As String
Dim R As Long
Dim P As Long
Dim E As Long
Dim T As Long
Tot = 90 * 11 ' 11 Ruote
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & DataEstrazione(Fin), True)
Call Scrivi()
Call Scrivi(String(178, "-"), True)
 
 
   For Es = Fin To Ini Step -01
      Call Messaggio(CStr(Es))
      Riga = FormatString((Fin - Es), "00", 2) & "  "
   
     For R = 1 To 11
   
         For P = 01 To 05
            E = Estratto(Es, R, P)
            If M(E, R) = "" Then
               Riga = Riga & FormatString((E), "--", 2) & " "
               M(E, R) = E
               T = T + 01
            Else
               Riga = Riga & "-- "
            End If
         Next
         Riga = Riga & " "
      Next
      Call Scrivi(CStr(Riga), True)
      If T = Tot Then Es = 01
   Next
   Call Scrivi(String(178, "-"), True)


 End Sub
 
   
End Module
Clicca per espandere...
grazie .
allora aveva visto lungo happy ,
ma non e' che ......
 
L

LuigiB

Guest
la sera è pregna di aggiornamenti ..

sempre registrare e pulire il registro se si cambia percorso alla dll

per fare i ltab analitico si puo fare anche cosi

Codice: 
  Public Sub MyScriptRoutine()
' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE
 
     Dim k As Long, r As Long
     Dim aEstr () As Struct_Estrazione_TabAnalitico
     Dim aT (11)As String
      
    aT(0) = "Rit"
    For k = 1 To 11
        aT(k) = NomeRuota (k)
    Next
     
     
    aEstr = GetTabAnalitico(EstrazioneFin)
    Call InitTabella(aT)
    For k = 1 To UBound(aEstr)
        aT(0) = UBound(aEstr) - k
        For r = 1 To 11
            aT(r) = StringaNumeri(aEstr(k).Ruote(r).aNum, , False, , 1)
        Next
        Call AddRigaTabella(aT)
    Next
    Call CreaTabella
   
     
            
End Sub



www.mediafire.com

DDLLScript_per_utenti

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.
www.mediafire.com
 
G

giomi

Banned
provato ,

ma non risolvo la spaziatura dell ' intestazione
poi il format2 di i legend funziona meglio .
mi puoi fare un esempio del uso di
Codice: 
Function FormatString(sValue As String, sFmt As String, nAllineamento As Integer) As String
 
Ultima modifica:
L

LuigiB

Guest
Codice: 
ReDim Usciti(90, 11) As Variant
Dim Totale As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As String
Dim Ruo As Long
Dim Pos As Long
Dim Estr As Long
Dim Tutti As Long
Totale = 90 * 11 ' 10 Ruote + Nazionale
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & _
DataEstrazione(Fin), True)
Call Scrivi()
Call Intestazione(): Call Scrivi(String(178, "-"), True)
For Es = Fin To Ini Step -01
    Call Messaggio(CStr(Es))
    Riga = FormatString (CStr(Fin - Es), Space$(5), 2) & " "
    For Ruo = 01 To 11
        For Pos = 01 To 05
            Estr = Estratto(Es, Ruo, Pos)
            If Usciti(Estr, Ruo) = "" Then
                Riga = Riga & Format2(Estr) & " "
                Usciti (Estr, Ruo) = Estr
                Tutti = Tutti + 01
            Else
                Riga = Riga & "-- "
            End If
        Next
        Riga = Riga & " "
    Next
    Call Scrivi(CStr(Riga), True)
    If Tutti = Totale Then Es = 01
Next
Call Scrivi(String(178, "-"), True): Call Intestazione()
End Sub
Sub Intestazione()
    Dim Riga As String
    Dim r As Long
    Riga = FormatString ("Rit", Space$(3), 1)
    For r = 01 To 11
        Riga = Riga + FormatString(NomeRuota(r), Space$(16), 1)
    Next
    Call Scrivi(CStr(Riga), True)
End Sub


bravo Legend .. non capisco perche per dire 2 dici 02 .. ma va bene lo stesso.. (intendo come variabili non come numeri formattati)
 
H

happy

Super member
giomi ha scritto:
riposto lo script per il tabellone analitico .
non so ancora se sono state implementate le function format2 formatspace
ma con DDLL vecchia non si allinea bene l' intestazione
Codice: 
Public Sub MyScriptRoutine()
ReDim Usciti(90, 11) As Variant
Dim Totale As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As String
Dim Ruo As Long
Dim Pos As Long
Dim Estr As Long
Dim Tutti As Long
Totale = 90 * 11 ' 10 Ruote + Nazionale
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & _
DataEstrazione(Fin), True)
Call Scrivi()
Call Intestazione(): Call Scrivi(String(178, "-"), True)
For Es = Fin To Ini Step -01
    Call Messaggio(CStr(Es))
    Riga = formatSpace(Fin - Es, 03) & " "
    For Ruo = 01 To 11
        For Pos = 01 To 05
            Estr = Estratto(Es, Ruo, Pos)
            If Usciti(Estr, Ruo) = "" Then
                Riga = Riga & format2(Estr) & " "
                Usciti (Estr, Ruo) = Estr
                Tutti = Tutti + 01
            Else
                Riga = Riga & "-- "
            End If
        Next
        Riga = Riga & " "
    Next
    Call Scrivi(CStr(Riga), True)
    If Tutti = Totale Then Es = 01
Next
Call Scrivi(String(178, "-"), True): Call Intestazione()
End Sub
Sub Intestazione()
    Dim Riga As String
    Dim r As Long
    Riga = formatSpace("Rit", 03)
    For r = 01 To 11
        Riga = Riga + formatSpace(NomeRuota(r), 16)
    Next
    Call Scrivi(CStr(Riga), True)
End Sub
Function format2(N As Variant) As String
    If Len(N) < 02 Then N = "0" & N
    Return N
End Function
Function formatSpace(n As Variant, nCHar As Long) As String
    Dim C  As Integer, temp As String
    temp = n
    C = Len(n)
    If C < nCHar Then temp = Space(nCHar - C) & n
    Return temp
End Function
End Module
Clicca per espandere...

Ciao Giomi, questa potrebbe essere una soluzione approssimativa .

Giomi2.PNG

Codice: 
Public Sub MyScriptRoutine()
' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE
    
Dim M(90, 11) As Variant
Dim Tot As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As String, Ruote As String
Dim R As Long
Dim P As Long
Dim E As Long
Dim T As Long
Tot = 90 * 11 ' 11 Ruote
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi()
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & DataEstrazione(Fin), True)
 For R = 1 To 11
     Ruote = Ruote & (NomeRuota(R) & "          ")
 Next
 Call Scrivi(String(178, "-"), True)
 Call Scrivi("n°     " & Ruote)
 Call Scrivi(String(178, "-"), True)
   For Es = Fin To Ini Step -01
      Call Messaggio(CStr(Es))
      Riga = FormatString((Fin - Es), " 00", 2) & "  "
     For R = 1 To 11
    
         For P = 01 To 05
            E = Estratto(Es, R, P)
            If M(E, R) = "" Then
               Riga = Riga & FormatString((E), "--", 2) & " "
               M(E, R) = E
               T = T + 01
            Else
               Riga = Riga & "-- "
            End If
         Next
         Riga = Riga & " "
      Next
      Call Scrivi(CStr(Riga), True)
      If T = Tot Then Es = 01
   Next
   Call Scrivi(String(178, "-"), True)

End Sub
 
G

giomi

Banned
grazie happy ,
forse ho la sensazione di fare le cose complicate .
per luigi , avevo provato , ma usavo solo Space , che idioma che sono !
mi piaccioni i numeri " Format2 "
ho letto varie discussioni , e speriamo che ritornino due allievi di LuigiB , Moro_80 ed Edoardo_95 ,
 
Ultima modifica:
i legend

i legend

Premium Member
LuigiB ha scritto:
Codice: 
ReDim Usciti(90, 11) As Variant
Dim Totale As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As String
Dim Ruo As Long
Dim Pos As Long
Dim Estr As Long
Dim Tutti As Long
Totale = 90 * 11 ' 10 Ruote + Nazionale
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & _
DataEstrazione(Fin), True)
Call Scrivi()
Call Intestazione(): Call Scrivi(String(178, "-"), True)
For Es = Fin To Ini Step -01
    Call Messaggio(CStr(Es))
    Riga = FormatString (CStr(Fin - Es), Space$(5), 2) & " "
    For Ruo = 01 To 11
        For Pos = 01 To 05
            Estr = Estratto(Es, Ruo, Pos)
            If Usciti(Estr, Ruo) = "" Then
                Riga = Riga & Format2(Estr) & " "
                Usciti (Estr, Ruo) = Estr
                Tutti = Tutti + 01
            Else
                Riga = Riga & "-- "
            End If
        Next
        Riga = Riga & " "
    Next
    Call Scrivi(CStr(Riga), True)
    If Tutti = Totale Then Es = 01
Next
Call Scrivi(String(178, "-"), True): Call Intestazione()
End Sub
Sub Intestazione()
    Dim Riga As String
    Dim r As Long
    Riga = FormatString ("Rit", Space$(3), 1)
    For r = 01 To 11
        Riga = Riga + FormatString(NomeRuota(r), Space$(16), 1)
    Next
    Call Scrivi(CStr(Riga), True)
End Sub


bravo Legend .. non capisco perche per dire 2 dici 02 .. ma va bene lo stesso.. (intendo come variabili non come numeri formattati)
Clicca per espandere...
Ciao Luigi lo script è di giomi, i complimenti vanno a lui. :)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 02 luglio 2024
    Bari
    34
    27
    73
    89
    44
    Cagliari
    14
    48
    57
    47
    80
    Firenze
    81
    37
    67
    83
    64
    Genova
    07
    15
    19
    32
    39
    Milano
    90
    63
    26
    64
    70
    Napoli
    16
    65
    85
    45
    21
    Palermo
    12
    03
    56
    43
    62
    Roma
    81
    29
    05
    43
    27
    Torino
    40
    49
    17
    02
    22
    Venezia
    27
    62
    33
    03
    40
    Nazionale
    29
    44
    17
    21
    18
    Estrazione Simbolotto
    Nazionale
    01
    14
    35
    19
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto