Novità

x ilegend numero minimo e massimo

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:
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 ...

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:
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


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 .
 
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 .

Ciao ilegend , ma l'array e un contenitore che contiene i cinque estratti
e cosi o mi sbaglio
 
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

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.
 
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

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..
 
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..

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:
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

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:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40

Ultimi Messaggi

Indietro
Alto