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
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
Indietro
Alto