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
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto