Dalla tabella del bravo zetrix

[Zetrix]

Bari =  30
Cagliari =  30
Firenze =  30
Genova =  30
Milano =  30
Napoli =  30
Palermo =  30
Roma =  30
Torino =  30
Venezia =  30
Tutte =  30
Nazionale =  30

lottopython ci sono dei problemi a scrivere le ambate algoritme su questa tabella
ci risiamo con questi for next forse sono scritti sulle righe sbagliate
nella tabella scrive solo il 30 che sarebbe l'ultimo numero della nazionale

ambata1(1) = Y

Gioca ES,1,,1
Scrivi
Next *
Next *
'
For R1 = 1 To 12
N = NomeRuota(R1)
Scrivi(N & " = " & " " & Format2(ambata1(1)) & "")
Next
End Sub

riesci a risolvere questo problema perche non scrive tutte le ambate nella tabella

TV = InputBox("Quante estrazioni vuoi controllare ?",,0)
* For ES = EstrazioneFin - TV To EstrazioneFin

Messaggio(ES)
*For R1 = 1 To 12

se riesci a risolvere questo problema ti svelo come si calcolano gli algoritmi
nessuno sa dare una risposta

 

[Lottopython]

Bari =  30
Cagliari =  30
Firenze =  30
Genova =  30
Milano =  30
Napoli =  30
Palermo =  30
Roma =  30
Torino =  30
Venezia =  30
Tutte =  30
Nazionale =  30

lottopython ci sono dei problemi a scrivere le ambate algoritme su questa tabella
ci risiamo con questi for next forse sono scritti sulle righe sbagliate
nella tabella scrive solo il 30 che sarebbe l'ultimo numero della nazionale

ambata1(1) = Y

Gioca ES,1,,1
Scrivi
Next *
Next *
'
For R1 = 1 To 12
N = NomeRuota(R1)
Scrivi(N & " = " & " " & Format2(ambata1(1)) & "")
Next
End Sub

riesci a risolvere questo problema perche non scrive tutte le ambate nella tabella

TV = InputBox("Quante estrazioni vuoi controllare ?",,0)
* For ES = EstrazioneFin - TV To EstrazioneFin

Messaggio(ES)
*For R1 = 1 To 12

se riesci a risolvere questo problema ti svelo come si calcolano gli algoritmi
nessuno sa dare una risposta

detto cosi magari per chi è piu esperto di me lo risolverebbe in un istante ,io avendo solo questo pezzettino di codice ho provato con L'ia che ha suggerito questo passaggio per risolvere :testalo prova e fammi sapere

TV = InputBox("Quante estrazioni vuoi controllare ?", , 0)

' Assicurati che TV sia un valore valido
If TV <= 0 Then
    MsgBox "Inserire un numero positivo di estrazioni da controllare."
    Exit Sub
End If

' Controlla che ci siano abbastanza estrazioni disponibili
If EstrazioneFin < TV Then
    MsgBox "Non ci sono abbastanza estrazioni disponibili per il numero scelto."
    Exit Sub
End If

' Inizializza una matrice o un array per le ambate delle varie ruote
Dim ambate(1 To 12) As Integer

For ES = EstrazioneFin - TV + 1 To EstrazioneFin
    Messaggio(ES) ' Funzione che mostra o gestisce l'estrazione corrente
    For R1 = 1 To 12
        N = NomeRuota(R1) ' Ottieni il nome della ruota corrente

        ' Esegui la logica per calcolare ambata1, usando un metodo appropriato
        ambata1(1) = Y ' Assicurati che Y sia calcolato per questa estrazione e ruota
        ambate(R1) = ambata1(1) ' Salva l'ambo nella matrice per tutte le ruote

        ' Stampa il valore per ogni ruota
        Scrivi(N & " = " & Format2(ambate(R1)))
    Next R1
    Scrivi(vbCrLf) ' Aggiungi una riga vuota tra le estrazioni
Next ES

 

[Lottopython]

' Inizio del codice
ambata1(1) = Y

' Qui inizia il ciclo per controllare le estrazioni
TV = InputBox("Quante estrazioni vuoi controllare ?", , 0)

For ES = EstrazioneFin - TV To EstrazioneFin
    Messaggio(ES)
    
    ' Ciclo per le ruote
    For R1 = 1 To 12
        N = NomeRuota(R1)  ' Nome della ruota attuale
        ambata1(1) = Y     ' Assumiamo che Y venga calcolato correttamente qui
        Scrivi(N & " = " & Format2(ambata1(1))) ' Stampa il valore per la ruota corrente
    Next R1

    ' Se hai bisogno di aggiungere ulteriori istruzioni o controlli, fallo qui
    Scrivi(vbCrLf) ' Aggiungi una riga vuota tra le estrazioni
Next ES


n.b
Modifiche e Spiegazioni:
Rimozione dello scrivere il valore due volte: Ho rimosso il secondo ciclo For R1 che era duplicato all'interno del ciclo. Ora il valore viene scritto una sola volta per ciascuna ruota.

Utilizzo corretto di ambata1: Assumiamo che Y venga calcolato per ogni estrazione nel ciclo (assicurati di calcolare Y in ogni ciclo, altrimenti potresti non ottenere il valore desiderato).

Scrittura nella tabella: La parte di scrittura Scrivi(N & " = " & Format2(ambata1(1))) ora verrà eseguita per ciascuna ruota nelle estrazioni specificate.

Aggiunta di una riga vuota: Scrivi(vbCrLf) è stato mantenuto per aggiungere una riga separatore tra le estrazioni, se questo è ciò che desideri.

 

[Lottopython]

se riesci a risolvere questo problema ti svelo come si calcolano gli algoritmi
nessuno sa dare una risposta

i segreti tali devono rimanere sono
........................ troppo preziosi per essere condivisi.
ti ringrazio cosi la penso

 

[Zetrix]

sto leggendo lo script che ai messo scritto da A I ma non e facile perche nello script ho messo un altro next
in una riga dello script in quanto ho dovuto resettare i conteggi degli algoritmi su ogni ruota

X =(nSomma) ' somma tutti gli algoritmi
Y = Fuori90(nSomma)
Next
nSomma = 0 ' qua azzera il contatore e fa di nuovo la somma su un altra ruota

forse e dovuto da questa riga,

 

[Zetrix]

i segreti tali devono rimanere sono
........................ troppo preziosi per essere condivisi.
ti ringrazio cosi la penso

ok

 

[Zetrix]

Bari =  30
Cagliari =  30
Firenze =  30
Genova =  30
Milano =  30
Napoli =  30
Palermo =  30
Roma =  30
Torino =  30
Venezia =  30
Tutte =  30
Nazionale =  30

ho aggiunto l'ambata Y ma non si risolve

 For R1 = 1 To 12
      N = NomeRuota(R1)
       ambata1(1) = Y 
      Scrivi(N & " = " & " " & Format2(ambata1(1)) & "")
   Next
End Sub

legge solo l'ultima ambata della nazionale che e il 30

 

[Zetrix]

allora intanto aggiorno il 10 61 a MI E TT
allora questo 10 61 vedendo i nr spia sarebbe dovuto sortire a RO ma martedi e uscito solo il 61 a RO e come mai
allora insistiamo e riproviamo di nuovo 10 61 RO E TT,
ma metteteci qualcosa anche su MI..non si sa mai..perche la condizione e su milano..

 

[Lottopython]

pausa pranzo .dolce e caffè a dopo

 

[Zetrix]

se vediamo questo quadrato manca il 10 a RO,
e questi quadrati valgono un milione di dollari,
su questi quadrati non si scherza..