Novità

per i programmatori

G

genios

Advanced Member >PLATINUM<
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 ?
 
joe

joe

Advanced Member >PLATINUM PLUS<
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.

:)
 
G

genios

Advanced Member >PLATINUM<
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
 
G

genios

Advanced Member >PLATINUM<
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
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
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
 
lotto_tom75

lotto_tom75

Advanced Premium Member
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:
G

genios

Advanced Member >PLATINUM<
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
 
lotto_tom75

lotto_tom75

Advanced Premium Member
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...
 
G

genios

Advanced Member >PLATINUM<
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
 
joe

joe

Advanced Member >PLATINUM PLUS<
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:
G

genios

Advanced Member >PLATINUM<
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
 
joe

joe

Advanced Member >PLATINUM PLUS<
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:
G

genios

Advanced Member >PLATINUM<
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
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto