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
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto