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ì 08 ottobre 2026
    Bari
    74
    62
    12
    61
    09
    Cagliari
    75
    78
    41
    86
    54
    Firenze
    42
    65
    75
    16
    73
    Genova
    47
    50
    31
    80
    49
    Milano
    61
    23
    39
    57
    40
    Napoli
    31
    65
    58
    19
    66
    Palermo
    19
    26
    06
    71
    27
    Roma
    40
    65
    45
    29
    49
    Torino
    24
    67
    45
    64
    48
    Venezia
    35
    61
    62
    19
    13
    Nazionale
    67
    26
    57
    14
    89
    Estrazione Simbolotto
    32
    10
    08
    39
    24

Ultimi Messaggi

Indietro
Alto