x ilegend numero minimo e massimo

[lotto_tom75]

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 scrive di nuovo a,b,c,d,e

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


quelle che ti ho evidenziato sono già formule...
non ho capito cosa intendi quando scrivi " ma se devo scrivere delle formule che devo scrive di nuovo a,b,c,d,e "

Prova a fare degli esempi descrittivi meno stringati... perchè così non riesco proprio a capire per cercare di aiutarti... In alternativa spero che qualcuno ci riesca e che si tratti solo di un assopimento estivo dei miei pigri neuroni

 

[i legend]

Controllare che funzi

Sub main

Dim atemp,r,i,es
Es= estrazionefin
For r=1 to 11
If r=11 then r=12
Redim ae(0)
Call getarraynumeriruota( es,r,ae)
 atemp= array(0,0,0,0,0,0)
For i= 1 to 5
Atemp(i)= ae(i)
Next
Call ordinamatriceturbo(atemp,-1)
Scrivi siglaruota(r)&"  |"& stringanumeri(ae) ' originale
Scrivi  siglaruota(r)&"  |"& stringanumeri(atemp) ' ordinata
Scrivi "-----------------"
Next

end sub

Così hai la stringa in ordine di estrazione e quella ordinata dal più grande al più piccolo
Non ho capito su quale fare i calcoli , ma adesso le hai entrambe e e decidi tu .

 

[Zetrix]

tom ilegend sono difficili da spiegare queste cose
a ba abbiamo due numeri esclusi il 19 20
questi numeri sono scomposti a roma abbiamo il 39
il numero composto ma non voglio trattare anche
i numeri spia che sono ancora piu difficili da spiegare..
quello che voglio dire e che il 38 gioca sia a BA oppure a RO..
scrivere questo script e difficilissimo..
comunque bisogna iniziare a scrivere lo script e calcolare prima l'ambata
come descritto nell'altro post
57-46+27=38 (ambata)

 

[i legend]

Il problema dell ordinare e su quale estrazione vuoi fare I calcoli ora dovresti risolverlo tranquillamente.

Per alcuni pezzi di script se riesco cerco di aiutarti per uno script intero , sino sempre da cellulare è difficile

 

[Zetrix]

grazie ilegend ma con il cell come si fa a scrivere lo script e difficile..

il calcolo dell'ambata si deve fare su tutte e dieci le ruote
ma prima bisogna ordinare i numeri dal numero massimo al minimo e poi scrivere la formula a-b+c
la stessa formula che abbiamo scritto sulla somma 90 poi rimaranno due numeri esclusi
questi due numeri esclusi detti scomposti dobbiamo fare la somma esempio 19+20=39
questo numero composto si dovrà vedere se estratto su un altra ruota..ma questo e un altro discorso..

 

[i legend]

Prova lo script che ti ho fatto.
Adesso hai i dati per fare i calcoli

 

[Zetrix]

va bene ilegend ci provo ma devo imparare a scrivere questi array..

 

[i legend]

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)
Da quello che si capisce
tu carichi gli estratti
Poi a quest i applichi 5 somme
domanda 1
Le somme sono davvero queste o è un esempio?
a te serve ordinare
da "a " a "d" e poi fare le somme?
oppure
da "f " ad "i"

in pratica su cosa applichi le somme da 1 a 5?
Aulla estrazione reale o su quella ordinata?

 

[Zetrix]

ilegend l'esempio che ai messo che applico le somme non c'entra niente
quelle sono delle prove che volevo fare sull'array
l'ambata si deve calcolare in un altro modo come ho descritto nell'altro post

 

[Zetrix]

martedì, ago 8 2023

BA     46.57.27.19.20
BA     57.46.27.20.19         --->38

CA     05.45.89.83.18
CA     89.83.45.18.05         --->51

FI     88.87.69.61.51
FI     88.87.69.61.51         --->70

GE     30.60.13.42.23
GE     60.42.30.23.13         --->48

MI     31.73.85.02.25
MI     85.73.31.25.02         --->43

NA     24.53.35.89.55
NA     89.55.53.35.24         --->87

PA     35.72.63.60.21
PA     72.63.60.35.21         --->69

RO     56.46.06.87.39
RO     87.56.46.39.06         --->77

TO     90.10.61.05.16
TO     90.61.16.10.05         --->45

VE     44.36.04.71.19
VE     71.44.36.19.04         --->63

NZ     03.07.71.57.87
NZ     87.71.57.07.03         --->73

ilegend sono riuscito a calcolare le ambate grazie al tuo script

 

[Zetrix]

NZ 82.18.58.33.09
NZ 82.58.33.18.09 --->57

Numeri in gioco 57 su NZ per Estratto
[NZ] [.. .. .. 57 ..] C.1 Estratto 02163 [08/08/2023] [03.07.71.57.87]

 

[Zetrix]

grazie tom , ilegend

quanto si deve calcolare i numeri composti e scomposti..

19-20 ------>numero composto 39

sommare la decina con la decina(1+2=3) e la cadenza con la cadenza(9+0=9) e darà il numero composto
senza fare il fuori90..e neanche il fuori9..
questi sono i numeri composti ordinati poi ci sono altri numeri composti disordinati
quanto si fa la somma con il fuori90..ma questo e un altro discorso..

50-09 ------>numero composto 59

 

[lotto_tom75]

Ciao zetrix (f o m? ) complimenti a te per esserci riuscitX con l'aiuto del grande ilegend. Se le frasi riguardo il numero composto da rilevare erano domande... (mancando il ? non ne sono certO...) un modo per ricavare la decina e l'unità da un numero a doppia cifra potrebbe essere quello di considerarlo come un valore stringa e quindi prelevare per ogni singolo caso la parte sx e la parte destra di ogni numero... con le apposite funzioni di scissione così:

Option Explicit
Sub Main
  
  Dim StringaNumerica
  StringaNumerica = "69"
  Dim partesinistra
  Dim partedestra
  partesinistra = Left(StringaNumerica,1)
  partedestra = Right(StringaNumerica,1)
  
  Scrivi "parte sinistra |" & partesinistra & "|"
   Scrivi "parte destra |" & partedestra & "|"
End Sub

 

[Zetrix]

tom lo so come si scrive left e right ho migliaia di script scritti da me qualcosa ho imparato
ma gli script di ilegend non li so scrivere troppi difficili per me..

comunque stasera sulla nazionale e uscito il 51

 

[Zetrix]

NZ 25.26.70.9.45
NZ 70.45.26.25.09 --->51

Numeri in gioco 51 su NZ per Estratto
[51 .. .. .. ..] C.4 Estratto 02164 [10/08/2023] [51.59.30.42.03]

Anticipazione (Spoiler): x tom

la tabella di spaziometria e in formato bmp
e questo forum non accetta questo tipo di file
tutte le volte devo convertire il file bmp in png
e un vero casino...ma davvero un vero casino...
comunque questa e la condizione del 51 sulla nazionale

 

[i legend]

Ciao zetrix , se tu avessi
87;23 Come li faresti?
Ti serve una formula, o hai già fatto?

 

[Zetrix]

Ciao ilegend, quale formula intendi con 87 23 questi hanno i numeretti a 10
la formula lo gia per queste coppie di numeri

 

[Zetrix]

50-----------55


51-----------56

sulla nazionale e uscito il 51 nella 1 Pos

[51 .. .. .. ..] C.6 Estratto 02164 [10/08/2023] [51.59.30.42.03]

 

[Zetrix]

numeri primi    1.2.3.5.7.11.13.17.19.23.29.31.37.41.43.47.53.59.61.67.71.73.79.83.89


55    |  5    =    11 


divisione di un numero


55 vert 59

 

[Zetrix]

.