Novità

TWINBASIC

ciao genios ecco il codice
Codice:
    '------------------------- INIZIO SCRIPT LISTATO -------------------------
    
    Dim ini As Long = EstrazioneIni
    Dim fin As Long = EstrazioneFin
    Dim es As Long
    Dim sSep As String = ";"
    Dim Posizioni As String = "01,02,03,04,05,06,07,08"
    For es = ini To fin
        Call Scrivi(FormatString((IndiceAnnuale(es)), "000", 01) & sSep & _
        DataEstrazione(es) & sSep & StringaEstratti(es, 01, True, Posizioni, sSep))
    Next
    End Sub
    
    '-------------------------- FINE SCRIPT LISTATO --------------------------
 
ciao genios , per salvare un progetto , partendo dalla base di TestConsumer .
devi usare Save Projet As
 

Allegati

  • Cattura.PNG
    Cattura.PNG
    106,4 KB · Visite: 7

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 29 ottobre 2026
    Bari
    28
    19
    52
    20
    46
    Cagliari
    21
    63
    52
    31
    26
    Firenze
    86
    15
    06
    28
    25
    Genova
    35
    59
    20
    34
    30
    Milano
    54
    47
    64
    48
    30
    Napoli
    15
    02
    46
    88
    49
    Palermo
    64
    66
    68
    71
    28
    Roma
    47
    32
    22
    90
    36
    Torino
    73
    61
    10
    24
    59
    Venezia
    54
    60
    33
    20
    14
    Nazionale
    06
    53
    88
    72
    81
    Estrazione Simbolotto
    21
    39
    11
    12
    44
Indietro
Alto