Novità

x ilegend numero minimo e massimo

Zetrix

Zetrix

Banned
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
 
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ì 11 marzo 2025
    Bari
    88
    82
    13
    06
    24
    Cagliari
    61
    79
    29
    01
    05
    Firenze
    68
    22
    69
    13
    40
    Genova
    16
    20
    82
    43
    38
    Milano
    30
    70
    75
    86
    82
    Napoli
    08
    11
    13
    25
    38
    Palermo
    63
    42
    14
    79
    56
    Roma
    39
    26
    14
    82
    47
    Torino
    31
    76
    21
    10
    40
    Venezia
    70
    65
    62
    44
    61
    Nazionale
    16
    57
    90
    52
    19
    Estrazione Simbolotto
    Firenze
    26
    39
    27
    16
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto