Novità

x ilegend numero minimo e massimo

Zetrix

Zetrix

Advanced Premium Member
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
'---------------------------------
f = Array(a,b,c,d,e)
'---------------------------------
x = Massimo(f)
'---------------------------------

Ciao ilegend ho fatto questa prova scrivendo l'array con i cinque estratti
volevo scrivere il numero massimo (f) sull'array ma lo script mi da errore..
in teoria volevo scrivere i cinque estratti in questo modo..

5<4<3<2<1

il 5 e il numero massimo ...

oppure si deve scrivere cosi..

f = Array(a,b,c,d,e)
g = Array(a,b,c,d,e)
h = Array(a,b,c,d,e)
i = Array(a,b,c,d,e)
l = Array(a,b,c,d,e)
 
Ultima modifica:
Zetrix ha scritto:
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
'---------------------------------
f = Array(a,b,c,d,e)
'---------------------------------
x = Massimo(f)
'---------------------------------

Ciao ilegend ho fatto questa prova scrivendo l'array con i cinque estratti
volevo scrivere il numero massimo (f) sull'array ma lo script mi da errore..
in teoria volevo scrivere i cinque estratti in questo modo..

5<4<3<2<1

il 5 e il numero massimo ...
Clicca per espandere...

ciao zetrix
Codice: 
Option Explicit
Sub Main
  Dim Massim
  Dim vettoren
  vettoren = Array(1,2,3,4,5)
  Massim = MassimoV(vettoren)
   Scrivi Massim
End Sub
 
ciao tom75, grazie dello script ma se volessimo scrivere

tutti i cinque estratti dal numero massimo al numero minimo

mi interessa scrivere questi cinque estratti ma in modo
sequenziale
la sequenza dei numeri estratti vorrei scriverle con delle lettere
cosi li posso calcolare..
adesso provo il tuo script..
 
Ultima modifica:
Zetrix ha scritto:
ciao tom75, grazie dello script ma se volessimo scrivere

tutti i cinque estratti dal numero massimo al numero minimo

mi interessa scrivere questi cinque estratti ma in modo
sequenziale
Clicca per espandere...


Codice: 
Option Explicit
Sub Main
  Dim Massim
  Dim vettoren
  vettoren = Array(0,1,2,3,4,5)

   Call OrdinaMatriceTurbo(vettoren,-1)
   Scrivi StringaNumeri(vettoren)
End Sub

ricordati di mettere lo 0 ad inizio array.
 
Ciao zetrix come ha scritto tom devi utilizzare la funzione massimoV .
per questi piccoli dubbi se cerchi all i terno degli script di spaziometrua trovi gli esempi.
Gli array conviene farli partire dall indice 1

F= array(0,1,2,3,4,5)
Perché se fai un ciclo da 1 a 5
Ti perdi il primo valore e ti dice che se fuori indice a 5 .
Ciao .
 
i legend ha scritto:
Ciao zetrix come ha scritto tom devi utilizzare la funzione massimoV .
per questi piccoli dubbi se cerchi all i terno degli script di spaziometrua trovi gli esempi.
Gli array conviene farli partire dall indice 1

F= array(0,1,2,3,4,5)
Perché se fai un ciclo da 1 a 5
Ti perdi il primo valore e ti dice che se fuori indice a 5 .
Ciao .
Clicca per espandere...

Ciao ilegend , ma l'array e un contenitore che contiene i cinque estratti
e cosi o mi sbaglio
 
lotto_tom75 ha scritto:
questo

Codice: 
Option Explicit
Sub Main
  Dim Massim
  Dim vettoren
  vettoren = Array(0,1,2,3,4,5)

   Call OrdinaMatriceTurbo(vettoren,-1)
   Scrivi StringaNumeri(vettoren)
End Sub

a me scrive questo

5.4.3.2.1
Clicca per espandere...

tom a me no lo script scrive solo il numero massimo forse ho sbagliato a scrivere lo script..
 
tom aspetta un po che vedo se riesco a mettere lo script
perche lo script che ho scritto e un po incasinato..
 
Codice: 
Sub Main()
   Dim ruota(1)
   Dim Massim
   Dim vettoren
   Dim ambo1,ambo2,ambo3,ambo4,ambo5
   Dim ambata(1)
   Dim posta(1),poste(2)
   '
   posta(1) = 1
   poste(2) = 1
   '
   k = 9
   ruota(1) = 11
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r = 1 To 10
         '
         '
         a = Estratto(es,r,1)
         b = Estratto(es,r,2)
         c = Estratto(es,r,3)
         d = Estratto(es,r,4)
         e = Estratto(es,r,5)
         '---------------------------------
         f = Fuori90(a + 1)
         g = Fuori90(b + 2)
         h = Fuori90(c + 3)
         i = Fuori90(d + 4)
         l = Fuori90(e + 5)
         '---------------------------------
         vettoren = Array(a,b,c,d,e)
         Massim = MassimoV(vettoren)
         '---------------------------------
         '
         'ambata(1) = f
         '
         ambo1 = Array(f,g)
         ambo2 = Array(g,h)
         ambo3 = Array(h,i)
         ambo4 = Array(i,l)
         ambo5 = Array(l,f)
         '
         Scrivi Massim,1,1,4
         'ImpostaGiocata 1,ambata,ruota,posta,k
         '
         'Gioca es,1,,1
         Scrivi
         Scrivi
         ImpostaGiocata 1,ambo1,ruota,poste,k
         ImpostaGiocata 2,ambo2,ruota,poste,k
         ImpostaGiocata 3,ambo3,ruota,poste,k
         ImpostaGiocata 4,ambo4,ruota,poste,k
         ImpostaGiocata 5,ambo5,ruota,poste,k
         Gioca es,1,,1
         Scrivi
         Scrivi
      Next
   Next
End Sub

ecco lo script
 
L srray è un contenitore
Dim a(3)
A(1)=1
A(2)=2
A(3)=3

È uguale scrivere
Dim a
A= array(0,1,2,3)
Dipende come ti è più comodo caricare il vettore.
 
Zetrix ha scritto:
Codice: 
Sub Main()
   Dim ruota(1)
   Dim Massim
   Dim vettoren
   Dim ambo1,ambo2,ambo3,ambo4,ambo5
   Dim ambata(1)
   Dim posta(1),poste(2)
   '
   posta(1) = 1
   poste(2) = 1
   '
   k = 9
   ruota(1) = 11
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r = 1 To 10
         '
         '
         a = Estratto(es,r,1)
         b = Estratto(es,r,2)
         c = Estratto(es,r,3)
         d = Estratto(es,r,4)
         e = Estratto(es,r,5)
         '---------------------------------
         f = Fuori90(a + 1)
         g = Fuori90(b + 2)
         h = Fuori90(c + 3)
         i = Fuori90(d + 4)
         l = Fuori90(e + 5)
         '---------------------------------
         vettoren = Array(a,b,c,d,e)
         Massim = MassimoV(vettoren)
         '---------------------------------
         '
         'ambata(1) = f
         '
         ambo1 = Array(f,g)
         ambo2 = Array(g,h)
         ambo3 = Array(h,i)
         ambo4 = Array(i,l)
         ambo5 = Array(l,f)
         '
         Scrivi Massim,1,1,4
         'ImpostaGiocata 1,ambata,ruota,posta,k
         '
         'Gioca es,1,,1
         Scrivi
         Scrivi
         ImpostaGiocata 1,ambo1,ruota,poste,k
         ImpostaGiocata 2,ambo2,ruota,poste,k
         ImpostaGiocata 3,ambo3,ruota,poste,k
         ImpostaGiocata 4,ambo4,ruota,poste,k
         ImpostaGiocata 5,ambo5,ruota,poste,k
         Gioca es,1,,1
         Scrivi
         Scrivi
      Next
   Next
End Sub

ecco lo script
Clicca per espandere...

Guarda dove è la differenza..

Codice: 
Sub Main()
   Dim ruota(1)
   Dim Massim
   Dim vettoren
   Dim ambo1,ambo2,ambo3,ambo4,ambo5
   Dim ambata(1)
   Dim posta(1),poste(2)
   '
   posta(1) = 1
   poste(2) = 1
   '
   k = 9
   ruota(1) = 11
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r = 1 To 10
         '
         '
         a = Estratto(es,r,1)
         b = Estratto(es,r,2)
         c = Estratto(es,r,3)
         d = Estratto(es,r,4)
         e = Estratto(es,r,5)
         '---------------------------------
         f = Fuori90(a + 1)
         g = Fuori90(b + 2)
         h = Fuori90(c + 3)
         i = Fuori90(d + 4)
         l = Fuori90(e + 5)
         '---------------------------------
         vettoren = Array(a,b,c,d,e)
         Massim = MassimoV(vettoren)
         '---------------------------------
         '
         'ambata(1) = f
         '
         ambo1 = Array(f,g)
         ambo2 = Array(g,h)
         ambo3 = Array(h,i)
         ambo4 = Array(i,l)
         ambo5 = Array(l,f)
         '
         Scrivi Massim,1,1,4
       
         Call OrdinaMatriceTurbo(vettoren,-1)
         Scrivi StringaNumeri(vettoren),,,,vbRed,5
       
       
         'ImpostaGiocata 1,ambata,ruota,posta,k
         '
         'Gioca es,1,,1
         Scrivi
         Scrivi
         ImpostaGiocata 1,ambo1,ruota,poste,k
         ImpostaGiocata 2,ambo2,ruota,poste,k
         ImpostaGiocata 3,ambo3,ruota,poste,k
         ImpostaGiocata 4,ambo4,ruota,poste,k
         ImpostaGiocata 5,ambo5,ruota,poste,k
         Gioca es,1,,1
         Scrivi
         Scrivi
      Next
   Next
End Sub

Adesso dovrebbe funzionarti ;)
ps: mi togli una piccola curiosità? Sei f e la tua img del nick è una donna gatto con frusta? 👀
 
grazie tom dopo ci do uno sguardo al tuo script..

tom l'img del nick e una biondina con la frusta ma non so
perche non funziona la gif in questo forum..
 
Zetrix ha scritto:
grazie tom dopo ci do uno sguardo al tuo script..

tom l'img del nick e una biondina con la frusta ma non so
perche non funziona la gif in questo forum..
Clicca per espandere...

Le gif non si animano come immagini di nick su questo forum. Comunque potrebbe essere un' interessante idea da comunicare allo staff :D Ma tu sei f o m?
 
Codice: 
Sub Main()
   Dim ruota(1)
   Dim Massim
   Dim vettoren
   Dim ambo1,ambo2,ambo3,ambo4,ambo5
   Dim ambata(1)
   Dim posta(1),poste(2)
   '
   posta(1) = 1
   poste(2) = 1
   '
   k = 9
   ruota(1) = 11
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r = 1 To 10
         '
         '
         a = Estratto(es,r,1)
         b = Estratto(es,r,2)
         c = Estratto(es,r,3)
         d = Estratto(es,r,4)
         e = Estratto(es,r,5)
         '---------------------------------
         f = Fuori90(a + 1)
         g = Fuori90(b + 2)
         h = Fuori90(c + 3)
         i = Fuori90(d + 4)
         l = Fuori90(e + 5)
         '---------------------------------
         vettoren = Array(0,a,b,c,d,e)
         Massim = MassimoV(vettoren)
         '---------------------------------
         '
         'ambata(1) = f
         '
         ambo1 = Array(f,g)
         ambo2 = Array(g,h)
         ambo3 = Array(h,i)
         ambo4 = Array(i,l)
         ambo5 = Array(l,f)
         '
         Scrivi Massim,1,1,4
   
         Call OrdinaMatriceTurbo(vettoren,-1)
         Scrivi StringaNumeri(vettoren),,,,vbRed,5
   
   
         'ImpostaGiocata 1,ambata,ruota,posta,k
         '
         'Gioca es,1,,1
         Scrivi
         Scrivi
         ImpostaGiocata 1,ambo1,ruota,poste,k
         ImpostaGiocata 2,ambo2,ruota,poste,k
         ImpostaGiocata 3,ambo3,ruota,poste,k
         ImpostaGiocata 4,ambo4,ruota,poste,k
         ImpostaGiocata 5,ambo5,ruota,poste,k
         Gioca es,1,,1
         Scrivi
         Scrivi
      Next
   Next
End Sub


ok tom lo script scrive la sequenza in ordine dal numero massimo al numero minimo
ma adesso ce un altro problema come faccio a scrivere questi numeri
con delle lettere perche devo fare dei calcoli su questi numeri..

xtom
non sono di firenze ma di milano se vuoi la risposta
 
Ultima modifica:
6650.png

tom vuoi un ambata a napoli..scrivi questa formula a-b+c e vedi che ambata ti da a napoli..

89-53+35=71 ambata
 
Ultima modifica:
Zetrix ha scritto:
ma adesso ce un altro problema come faccio a scrivere questi numeri
con delle lettere perche devo fare dei calcoli su questi numeri..

xtom
non sono di firenze ma di milano se vuoi la risposta
Clicca per espandere...

Non ti chiedevo se eri di fi o di mi ma se eri femmina o maschio 😀

Per quanto riguarda NA non ho capito a cosa ti riferisci se non al fatto che ti aspetteresti il 71 a breve... 🤞

Ad ogni modo per quanto riguarda lo scrivere lettere (con valori dinamici) al posto dei numeri fissi dell'esempio... non ci dovrebbero essere problemi in quanto i calcoli dinamici relativi alle lettere variabili li fai prima dell'ordinamento... Altrimenti non ho assolutamente capito cosa intendi per scrivere questi numeri con delle lettere... I'm sorry 🫠
 
tom ma se devo scrivere delle formule come dovrei fare..

'---------------------------------
vettoren = Array(0,a,b,c,d,e)
Massim = MassimoV(vettoren)
'---------------------------------
Call OrdinaMatriceTurbo(vettoren,-1)
Scrivi StringaNumeri(vettoren),,,,vbYellow,5
'................................................

ai scritto MassimoV(vettoren) ok e dopo scrive la stringa numeri

ma se devo scrivere delle formule che devo scrivere di nuovo a,b,c,d,e
BA 46.57.27.19.20 ---> numeri estratti ----> a,b,c,d,e
BA 57.46.27.20.19 ---> numeri ordinati ---->...............

a me serve scrivere delle formule sui numeri ordinati
ma se non ho le lettere come a,b,c,d,e come faccio a scrivere le formule..

57-46+27=38 ambata
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto