Novità

per i programmatori

lottoLuke ha scritto:
NON SONO UN PROGRAMMATORE😉

Codice: 
Sub Main()
    ' Apri il file di testo per la lettura
    Dim filePath As String
    filePath = "percorso_del_tuo_file.txt" ' Assicurati di sostituire "percorso_del_tuo_file.txt" con il percorso effettivo del tuo file
    Open filePath For Input As #1


    Dim line As String
    Dim lineNumber As Integer
    lineNumber = 1


    ' Leggi il contenuto del file riga per riga
    Do While Not EOF(1)
        Line Input #1, line


        ' Esegui le operazioni desiderate sui dati letti
        Dim estratti() As String
        estratti = Split(line, ",") ' Supponendo che i numeri estratti siano separati da virgole nel file di testo


        ' Verifica se ci sono numeri uguali consecutivi e scrivi l'output se presenti
        For p = 1 To 5 ' Assumendo che ci siano sei estrazioni per riga
            If estratti(p) = estratti(p + 1) Then
                ' Scrivi l'output
                Console.WriteLine("Riga " & lineNumber & ":")
                Console.WriteLine(estratti(p))
                Console.WriteLine(estratti(p + 1))
                Console.WriteLine()
            End If
        Next


        lineNumber = lineNumber + 1
    Loop


    ' Chiudi il file
    Close #1
End Sub


è la prima volta che provo a far modificare dall'IA questo tipo di script  (giusto un  tentativo il mio ) .Non l'ho testato. prova

Assicurati di sostituire "percorso_del_tuo_file.txt" con il percorso effettivo del tuo file di testo. Questo script legge il contenuto del file di testo riga per riga e verifica se ci sono numeri uguali consecutivi in ciascuna riga, scrivendo l'output se presente. Puoi personalizzare ulteriormente l'operazione all'interno del ciclo Do While in base alle tue esigenze specifiche.
Clicca per espandere...
lo hgai provato ?
 
Eugenio,

non so e non intendo interessarmi di nuovi giochi e di correzioni di lavori fatti da altri.

Perché richiedono nuovi approcci, nuovi studi, nuovi archivi ed assorbono molte risorse delle poche disponibili.

:)
 
joe ha scritto:
Eugenio,

non so e non intendo interessarmi di nuovi giochi e di correzioni di lavori fatti da altri.

Perché richiedono nuovi approcci, nuovi studi, nuovi archivi ed assorbono molte risorse delle poche disponibili.

:)
Clicca per espandere...
Vabbe ma il tentativo lo puoi fare . 🙂

Ciao Eugenio
 
Perche non stampa nulla ?
Codice: 
Option Explicit
Sub Main
   Dim numeri(10),Ini,fin,es,ruota
   ruota = 1
   For Ini = EstrazioneFin - 200 To fin Step 11
      es = Ini
      numeri(1) = Estratto(es,ruota,3)
      numeri(2) = Estratto(es + 1,ruota,3)
      numeri(3) = Estratto(es + 2,ruota,3)
      numeri(4) = Estratto(es + 3,ruota,3)
      numeri(5) = Estratto(es + 4,ruota,3)
      numeri(6) = Estratto(es + 5,ruota,3)
      numeri(7) = Estratto(es + 6,ruota,3)
      numeri(8) = Estratto(es + 7,ruota,3)
      numeri(9) = Estratto(es + 8,ruota,3)
      numeri(10) = Estratto(es + 9,ruota,3)
      Scrivi numeri
   Next
End Sub
 
genios ha scritto:
Perche non stampa nulla ?
Codice: 
Option Explicit
Sub Main
   Dim numeri(10),Ini,fin,es,ruota
   ruota = 1
   For Ini = EstrazioneFin - 200 To fin Step 11
      es = Ini
      numeri(1) = Estratto(es,ruota,3)
      numeri(2) = Estratto(es + 1,ruota,3)
      numeri(3) = Estratto(es + 2,ruota,3)
      numeri(4) = Estratto(es + 3,ruota,3)
      numeri(5) = Estratto(es + 4,ruota,3)
      numeri(6) = Estratto(es + 5,ruota,3)
      numeri(7) = Estratto(es + 6,ruota,3)
      numeri(8) = Estratto(es + 7,ruota,3)
      numeri(9) = Estratto(es + 8,ruota,3)
      numeri(10) = Estratto(es + 9,ruota,3)
      Scrivi numeri
   Next
End Sub
Clicca per espandere...
Devi aggiungere prima del for
fin = estrazionefin
Codice: 
Option Explicit
Sub Main
   Dim numeri(10),Ini,fin,es,ruota
   ruota = 1
   fin = EstrazioneFin
   For Ini = EstrazioneFin - 200 To fin Step 11
      es = Ini
      numeri(1) = Estratto(es,ruota,3)
      numeri(2) = Estratto(es + 1,ruota,3)
      numeri(3) = Estratto(es + 2,ruota,3)
      numeri(4) = Estratto(es + 3,ruota,3)
      numeri(5) = Estratto(es + 4,ruota,3)
      numeri(6) = Estratto(es + 5,ruota,3)
      numeri(7) = Estratto(es + 6,ruota,3)
      numeri(8) = Estratto(es + 7,ruota,3)
      numeri(9) = Estratto(es + 8,ruota,3)
      numeri(10) = Estratto(es + 9,ruota,3)
      Scrivi StringaNumeri(numeri," ",True)
   Next
End Sub
 
genios ha scritto:
ho una stringa di 10 numeri come applicare la funzione verificaesito ?
Clicca per espandere...

ciao se la stringa numerica ha come separatore il carattere punto "."

Codice: 
dim vettorenumeri
call splitbychar(stringa10numeri,".",vettorenumeri)
call VerificaEsitoTurbo(vettorenumeri,vettoreruote,estrazione,sortediverifica,colpidiverifica,,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita)
 
Ultima modifica:
Lotto_tom75 non mi funziona :

Codice: 
Option Explicit
Sub Main
   Dim numeri(10),Ini,fin,es,ruota,sortediverifica,colpidiverifica,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita
   ruota = 1
   sortediverifica=2
   colpidiverifica=15
  
   fin = EstrazioneFin
   For Ini = EstrazioneFin - 200 To fin Step 11
      es = Ini
      numeri(1) = Estratto(es,ruota,3)
      numeri(2) = Estratto(es + 1,ruota,3)
      numeri(3) = Estratto(es + 2,ruota,3)
      numeri(4) = Estratto(es + 3,ruota,3)
      numeri(5) = Estratto(es + 4,ruota,3)
      numeri(6) = Estratto(es + 5,ruota,3)
      numeri(7) = Estratto(es + 6,ruota,3)
      numeri(8) = Estratto(es + 7,ruota,3)
      numeri(9) = Estratto(es + 8,ruota,3)
      numeri(10) = Estratto(es + 9,ruota,3)
      Scrivi StringaNumeri(numeri," ",True)
    
Call SplitByChar(StringaNumeri(numeri)," ",numeri)
Call VerificaEsitoTurbo(numeri,ruota,es,sortediverifica,colpidiverifica,,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita)
   Next
End Sub
 
genios ha scritto:
Lotto_tom75 non mi funziona :

Codice: 
Option Explicit
Sub Main
   Dim numeri(10),Ini,fin,es,ruota,sortediverifica,colpidiverifica,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita
   ruota = 1
   sortediverifica=2
   colpidiverifica=15
 
   fin = EstrazioneFin
   For Ini = EstrazioneFin - 200 To fin Step 11
      es = Ini
      numeri(1) = Estratto(es,ruota,3)
      numeri(2) = Estratto(es + 1,ruota,3)
      numeri(3) = Estratto(es + 2,ruota,3)
      numeri(4) = Estratto(es + 3,ruota,3)
      numeri(5) = Estratto(es + 4,ruota,3)
      numeri(6) = Estratto(es + 5,ruota,3)
      numeri(7) = Estratto(es + 6,ruota,3)
      numeri(8) = Estratto(es + 7,ruota,3)
      numeri(9) = Estratto(es + 8,ruota,3)
      numeri(10) = Estratto(es + 9,ruota,3)
      Scrivi StringaNumeri(numeri," ",True)
 
Call SplitByChar(StringaNumeri(numeri)," ",numeri)
Call VerificaEsitoTurbo(numeri,ruota,es,sortediverifica,colpidiverifica,,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita)
   Next
End Sub
Clicca per espandere...

non ti funziona perchè non hai letto bene la mia risp...

tu hai messo nella funzione verificaesitoturbo ruota come intero mentre questa funzione accetta ruota come vettore...
quindi prima di metterla nella funzione devi preoccuparti di trasformarne il valore in quel modo così:

Codice: 
dim aruota(1)
aruota(1) = ruota

e quindi poi devi sostituire la tua riga di codice sottostante:
VerificaEsitoTurbo(numeri,ruota,es,sortediverifica,colpidiverifica,,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita)
Clicca per espandere...

con questa

VerificaEsitoTurbo(numeri,aruota,es,sortediverifica,colpidiverifica,,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita)
Clicca per espandere...
 
lotto_tom75 ha scritto:
non ti funziona perchè non hai letto bene la mia risp...

tu hai messo nella funzione verificaesitoturbo ruota come intero mentre questa funzione accetta ruota come vettore...
quindi prima di metterla nella funzione devi preoccuparti di trasformarne il valore in quel modo così:

Codice: 
dim aruota(1)
aruota(1) = ruota

e quindi poi devi sostituire la tua riga di codice sottostante:


con questa
Clicca per espandere...
Qualcosa non quadra e da un ora che gira ma ancorea non da out . bho
 
Tralasciando tutto il pasticcio che hai fatto, con gli step ecc. ecc.

Se non lo programmi l'output, è ovvio che poi non ci sarà.

I risultati calcolati da quell'istruzione ... non hanno nessuna istruzione di output.

Ci vuole almeno una istruzione del tipo:

Scrivi (qualcuno dei dati che ho calcolato (Per esempio: quello del "colpo in cui ..." )

Ricorda che lo zero .. se lo usi così vale 1 e non 2.

dunque il passo diventa sbagliato perché devi usare dei "multipli di 10" e non di 11.

Se vuoi chiudere la decina con l'estratto dell' Ultima Estrazione.

Altrimenti saranno delle delle undicine, che dovrebbero essere decine ...

di 9 numeri che poi possono essere (circa 10 volte su 11) di 9/8/7/6/5/4/3/2/1 numeri!

Codice: 
Option Explicit
Sub Main
   Dim numeri(10),Ini,fin,es,ruota(1),sortediverifica,colpidiverifica,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita
   ruota(1) = 1
   sortediverifica = 2
   colpidiverifica = 15
   fin = EstrazioneFin
   For es = EstrazioneFin - 199 To fin Step 10
      numeri(1) = Estratto(es,ruota(1),3)
      numeri(2) = Estratto(es + 1,ruota(1),3)
      numeri(3) = Estratto(es + 2,ruota(1),3)
      numeri(4) = Estratto(es + 3,ruota(1),3)
      numeri(5) = Estratto(es + 4,ruota(1),3)
      numeri(6) = Estratto(es + 5,ruota(1),3)
      numeri(7) = Estratto(es + 6,ruota(1),3)
      numeri(8) = Estratto(es + 7,ruota(1),3)
      numeri(9) = Estratto(es + 8,ruota(1),3)
      numeri(10) = Estratto(es + 9,ruota(1),3)
      Scrivi StringaNumeri(numeri,,True) & " ",0,0
      Call VerificaEsitoTurbo(numeri,ruota,es + 10,sortediverifica,colpidiverifica,,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita)
      Scrivi alcolponumero,,,,1
   Next
End Sub
 
Ultima modifica:
joe ha scritto:
Tralasciando tutto il pasticcio che hai fatto, con gli step ecc. ecc.

Se non lo programmi l'output, è ovvio che poi non ci sarà.

I risultati calcolati da quell'istruzione ... non hanno nessuna istruzione di output.

Ci vuole almeno una istruzione del tipo:

Scrivi (qualcuno dei dati che ho calcolato (Per esempio: quello del "colpo in cui ..." )

Ricorda che lo zero .. se lo usi così vale 1 e non 2.

dunque il passo diventa sbagliato perché devi usare dei "multipli di 10" e non di 11.

Se vuoi chiudere la decina con l'estratto dell' Ultima Estrazione.

Altrimenti saranno delle delle undicine, che dovrebbero essere decine ...

di 9 numeri che poi possono essere (circa 10 volte su 11) di 9/8/7/6/5/4/3/2/1 numeri!

Codice: 
Option Explicit
Sub Main
   Dim numeri(10),Ini,fin,es,ruota(1),sortediverifica,colpidiverifica,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita
   ruota(1) = 1
   sortediverifica = 2
   colpidiverifica = 15
   fin = EstrazioneFin
   For es = EstrazioneFin - 199 To fin Step 10
      numeri(1) = Estratto(es,ruota(1),3)
      numeri(2) = Estratto(es + 1,ruota(1),3)
      numeri(3) = Estratto(es + 2,ruota(1),3)
      numeri(4) = Estratto(es + 3,ruota(1),3)
      numeri(5) = Estratto(es + 4,ruota(1),3)
      numeri(6) = Estratto(es + 5,ruota(1),3)
      numeri(7) = Estratto(es + 6,ruota(1),3)
      numeri(8) = Estratto(es + 7,ruota(1),3)
      numeri(9) = Estratto(es + 8,ruota(1),3)
      numeri(10) = Estratto(es + 9,ruota(1),3)
      Scrivi StringaNumeri(numeri,,True) & " ",0,0
      Call VerificaEsitoTurbo(numeri,ruota,es + 10,sortediverifica,colpidiverifica,,esitoverifica,alcolponumero,estrattiusciti,idesuscita,aruoteuscita)
      Scrivi alcolponumero,,,,1
   Next
End Sub
Clicca per espandere...
Grazie joe
 
Eugenio,

quando ti ho scritto che per scrivere ci vogliono le istruzioni per scrivere,

sta a significare che quando ho aggiunto "Scrivi alcolponumero" al tuo script

ha scritto "il colpo" in cui si ha il risultato.

Se ci aggiungi: Scrivi estrattiusciti & Space(1),0,1,,1

ti scrive la stringa con i numeri nelle posizioni in cui sono stati estratti.

Le 2 linee per i 2 output potrebbero essere:

Scrivi alcolponumero & Space(1),0,0,,1
Scrivi estrattiusciti & Space(1),0,1,,2

nelle quali utilizzando gli "a Capo" ed i colori è possibile mantenere tutto in una linea,

(abbastanza) incolonnato e colorato.

Però ... dovresti provare a camminare con le tue gambe gestite dalla tua testa.

Cioè imparare e capire cosa, come, dove, perché, aggiungere-togliere-modificare-calcolare ...

:)
 
Ultima modifica:
Joe se volessi formattare meglio questo out :

20.09.2022 10136 03.05.14.20.22.23.28.30.35.51.58.66.67.84.90 4 BA 66 20 .. .. ..
25.10.2022 10151 09.10.11.13.30.31.41.60.63.65.71.72.88 1 BA 30 .. .. 31 71
29.11.2022 10166 07.14.22.26.30.39.41.47.57.59.64.70.74.82 6 BA 70 .. .. .. 22
03.01.2023 10181 18.20.28.31.34.61.70.71.74.81.84.88 1 BA .. .. .. 70 84

dove e come intervenire ?

Ciao Eugenio
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 dicembre 2025
    Bari
    61
    81
    73
    68
    78
    Cagliari
    76
    59
    33
    78
    23
    Firenze
    10
    37
    58
    30
    71
    Genova
    17
    45
    37
    36
    72
    Milano
    10
    71
    70
    46
    87
    Napoli
    21
    11
    51
    68
    01
    Palermo
    84
    72
    26
    17
    79
    Roma
    39
    63
    46
    67
    50
    Torino
    35
    86
    79
    68
    85
    Venezia
    67
    68
    22
    77
    76
    Nazionale
    46
    12
    72
    65
    70
    Estrazione Simbolotto
    Venezia
    05
    13
    40
    35
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto