Novità

metodo per ambate e ambo

Zetrix ha scritto:
Vedi l'allegato 2305983
A = 85 .........(numero massimo)
B = 30 ........(numero medio) ....32+28=60:2=30
C = 16 ... ......(numero minimo)
equazione: (A + B) - Y = C

soluzione:
Y = ?
...............
risposta:

Y = 99

a BA e uscito il 9 a colpo
e uscito anche il 54
9+45=54 (diam)

wow


x bonalele ,
non ci ai fatto caso di questa equazione su ba,
su queste equazioni dobbiamo concentrarci che sono le migliori..
Clicca per espandere...
Buongiorno Zetrix
Ottimo ci ragioniamo
 
buongiorno buonalele,

ok ti metto lo script,


Option Explicit
Sub Main
Dim A,B,C,D,E,X,S,Y,N
Dim A1,B1,C1
A1 = InputBox("1numero",0)
B1 = InputBox("2numero",0)
C1 = InputBox("3numero",0)
'
For A = A1 To A1
For B = B1 To B1
For C = C1 To C1
'
X =(A + B - C)
Y = Fuori90(A + B - C)
'
Scrivi("" & "A" & " = " & A & ""),1,1,5,1,8
Scrivi("" & "B" & " = " & B & ""),1,1,5,1,8
Scrivi("" & "C" & " = " & C & ""),1,1,5,1,8
Scrivi("equazione:"),1,1,5,3,8
Scrivi("" & "(A + B) - Y = C" & " " & "" & ""),1,1,5,1,8
'
Scrivi
Scrivi("soluzione:"),1,1,5,3,8
Scrivi
Scrivi("(" & A & "+" & B & ") -" & X & " = " & C & ""),1,1,5,1,8
Scrivi("risposta:"),1,1,5,3,8
Scrivi
Scrivi("" & "Y" & " = " &(Y) & ""),1,1,5,1,8
Scrivi
Next
Next
Next
End Sub

ho fatto una modifica allo script, ricopia lo script..
1) il numero massimo ..sui cinque estratti
2) il numero medio
3) il numero minimo
x adesso ho scritto solo questo script
si devono scrivere i numeri in input box
vedi nell'ultima estr se trovi una combinazione buona..
 
Ultima modifica:
Zetrix ha scritto:
buongiorno buonalele,

ok ti metto lo script,


Option Explicit
Sub Main
Dim A,B,C,D,E,X,S,Y,N
Dim A1,B1,C1
A1 = InputBox("1numero",0)
B1 = InputBox("2numero",0)
C1 = InputBox("3numero",0)
'
For A = A1 To A1
For B = B1 To B1
For C = C1 To C1
'
X = (A + B - C)
Y = Fuori90(A + B - C)
'
Scrivi("" & "A" & " = " & A & ""),1,1,5,1,8
Scrivi("" & "B" & " = " & B & ""),1,1,5,1,8
Scrivi("" & "C" & " = " & C & ""),1,1,5,1,8
Scrivi("" & "(A + B) - Y = C" & " " & "" & ""),1,1,5,1,8
'
Scrivi
Scrivi("soluzione:"),1,1,5,3,8
Scrivi
Scrivi("(" & A & "+" & B & ") -" & X & " = " & C & ""),1,1,5,1,8
Scrivi("risposta:"),1,1,5,3,8
Scrivi
Scrivi("" & "Y" & " = " &(Y) & ""),1,1,5,1,8
Scrivi
Next
Next
Next
End Sub
Clicca per espandere...
Per medio intendi il medio dei 5 estratti?
 
no, il numero medio deve essere tra i tre numeri esclusi
togliendo il numero massimo e il numero minimo..

Codice: 
Estrazione del  21.08.2025

Bari        41 55 23 09 54
Cagliari    52 26 51 34 47
Firenze     23 78 17 35 86
Genova      82 15 07 44 70
Milano      19 86 22 77 73
Napoli      39 48 82 70 15
Palermo     05 25 88 54 87
Roma        54 19 24 62 09
Torino      29 83 49 59 74
Venezia     65 01 45 72 55
Nazionale   10 60 88 55 37
es, a ba, abbiamo il 55 (max) e 9 (min)
medio = 23 41 54
quale sarà il medio tra questi tre numeri ..
(23+41)=64 : 2= 32 <---
(41+54)=95 : 2=47.5
(23+54)=77 : 2 =38.5

55+9=64 : 2=32 <----

ci sono due ambi con le somme uguali
si deve fare lo script per velocizzare i calcoli..

Codice: 
A = 55
B = 54
C = 9
equazione:
(A + B) - Y = C

soluzione:

(55+54) -100 = 9
risposta:

Y = 10

proviamo questa equazione a ba 10 ambata
forse ho una condizione a cruciverba con il 10 a ba
 
Ultima modifica:
Zetrix ha scritto:
buongiorno buonalele,

ok ti metto lo script,


Option Explicit
Sub Main
Dim A,B,C,D,E,X,S,Y,N
Dim A1,B1,C1
A1 = InputBox("1numero",0)
B1 = InputBox("2numero",0)
C1 = InputBox("3numero",0)
'
For A = A1 To A1
For B = B1 To B1
For C = C1 To C1
'
X =(A + B - C)
Y = Fuori90(A + B - C)
'
Scrivi("" & "A" & " = " & A & ""),1,1,5,1,8
Scrivi("" & "B" & " = " & B & ""),1,1,5,1,8
Scrivi("" & "C" & " = " & C & ""),1,1,5,1,8
Scrivi("equazione:"),1,1,5,3,8
Scrivi("" & "(A + B) - Y = C" & " " & "" & ""),1,1,5,1,8
'
Scrivi
Scrivi("soluzione:"),1,1,5,3,8
Scrivi
Scrivi("(" & A & "+" & B & ") -" & X & " = " & C & ""),1,1,5,1,8
Scrivi("risposta:"),1,1,5,3,8
Scrivi
Scrivi("" & "Y" & " = " &(Y) & ""),1,1,5,1,8
Scrivi
Next
Next
Next
End Sub

ho fatto una modifica allo script, ricopia lo script..
1) il numero massimo ..sui cinque estratti
2) il numero medio
3) il numero minimo
x adesso ho scritto solo questo script
si devono scrivere i numeri in input box
vedi nell'ultima estr se trovi una combinazione buona..
Clicca per espandere...
Non puoi fare in inputbox tutti e 5 gli estratti e calcolare con lo script il massimo medio minimo e calcolare la Y? Grazie
 
Zetrix ha scritto:
no, il numero medio deve essere tra i tre numeri esclusi
togliendo il numero massimo e il numero minimo..

Codice: 
Estrazione del  21.08.2025

Bari        41 55 23 09 54
Cagliari    52 26 51 34 47
Firenze     23 78 17 35 86
Genova      82 15 07 44 70
Milano      19 86 22 77 73
Napoli      39 48 82 70 15
Palermo     05 25 88 54 87
Roma        54 19 24 62 09
Torino      29 83 49 59 74
Venezia     65 01 45 72 55
Nazionale   10 60 88 55 37
es, a ba, abbiamo il 55 (max) e 9 (min)
medio = 23 41 54
quale sarà il medio tra questi tre numeri ..
(23+41)=64 : 2= 32 <---
(41+54)=95 : 2=47.5
(23+54)=77 : 2 =38.5

55+9=64 : 2=32 <----

ci sono due ambi con le somme uguali
si deve fare lo script per velocizzare i calcoli..

Codice: 
A = 55
B = 54
C = 9
equazione:
(A + B) - Y = C

soluzione:

(55+54) -100 = 9
risposta:

Y = 10

proviamo questa equazione a ba 10 ambata
forse ho una condizione a cruciverba con il 10 a ba
Clicca per espandere...
1755853695910.png

questo intendevi?
 
11728.png

11729.PNG

questa e la condizione a cruciverba con il 10 a ba
di queste condizioni con il 10 lo script ne trova diverse sulle estr..
adesso non so se questo ambo 10 35 farà a ba
il gioco vale su tutte
 
11732.png

11733.PNG

[NZ] [10 .. 88 .. ..] C.7 Ambo 02588 [133 - 21/08/2025] [10.60.88.55.37]
 
Ultima modifica:
x bonalele se trovi una combinazione buona sulla equazione che ho scritto
scrivela quanto posso dopo vediamo se la condizione e buona..
fare lo script non e semplice
 
Ultima modifica:
sto vedendo che equazione ai scritto, sarebbe meglio che scrivi la formula della equazione con le lettere
negli script le equazioni lo scritte con le relative formule..

A = 15
B = 7
C = 82
A x Y + B = C

ai usato questa equazione
15x5=75+7=82

.............................................
Genova
82
15
07
44
70
.............................................
A = 7 --- min
B = ?
C = 82 ....max
............................................
gli altri numeri danno i risultati errati , non si puo fare questa equazione..
deve dare un numero intero senza i decimali..
..........................................
l'altra equazione che ai fatto va bene ma il 15 non e il numero minimo,
vediamo che succede a genova..
la (b) doveva essere il 44 il medio tra il 15 e 70 = 15+70=85:2=42.5
se fai questa equazione ti da la Y con i decimali

Y = 5.42 ( decimali)

allora fai una prova gioca il 5 estratto e 5-42 a genova,sempre per ambo e ambetto,
se no la lm ti imbroglia e non ti fa vincere niente..
a volte e meglio accontentarsi dell'ambetto se no vincere l'ambo su ruota e difficile..
se poi vuoi tentare solo il 5 come estratto gioca sempre come estratto determinato..
se non ai lo script per l'estratto determinato ti metto lo script..

5 RIT. 36
 
Ultima modifica:
Sub Main
Dim ARRDATA(5,6)
Dim ES,R,X,K,P,N,S
Dim ANUM(1),ANUMERO(1),RPOS,RIGA
X = InputBox("QUALE NUMERO VUOI ?",,0)
For ES = EstrazioneFin To EstrazioneFin
AvanzamentoElab EstrazioneFin,EstrazioneFin,ES
R = ScegliRuota
For P = 1 To 5
ReDim APOS(5)
APOS(P) = True
RPOS = EstrattoRitardo(R,X,,,,,APOS)
ReDim Preserve POS(P)
POS(P) = RPOS
RIGA = RIGA & FormattaStringa(RPOS,"0") & " . "
Next
ARRDATA(1,1) = " POS 1 "
ARRDATA(2,1) = " POS 2 "
ARRDATA(3,1) = " POS 3 "
ARRDATA(4,1) = " POS 4 "
ARRDATA(5,1) = " POS 5 "
ARRDATA(1,2) = POS(1)
ARRDATA(2,3) = POS(2)
ARRDATA(3,4) = POS(3)
ARRDATA(4,5) = POS(4)
ARRDATA(5,6) = POS(5)
'
ANUMERO(1) = EstrattoRitardo(R,X)
For K = 1 To 1
Call Scrivi("Grafico" & K)
Call Grafico(ARRDATA,2,DataEstrazione(ES) & Space(5) & SiglaRuota(R) & Space(5) & "(" &(X) & ")" & Space(5) & "RIT." & Space(5) & RIGA,"titX","titY",True)
Next
RIGA = ""
Next
For N = 1 To 90
S = S + 1
Scrivi " " &(S) & Space(5) & " RIT. " & EstrattoRitardo(R,N) & "",0,1,1,5
Next
End Sub

questo e lo script per l'estratto determinato
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 11 settembre 2025
    Bari
    60
    35
    51
    84
    13
    Cagliari
    57
    89
    73
    27
    16
    Firenze
    12
    73
    44
    36
    09
    Genova
    24
    22
    51
    16
    46
    Milano
    24
    62
    77
    55
    58
    Napoli
    41
    44
    09
    35
    50
    Palermo
    74
    62
    15
    21
    41
    Roma
    80
    40
    27
    07
    10
    Torino
    77
    34
    68
    17
    24
    Venezia
    65
    59
    10
    87
    11
    Nazionale
    34
    18
    77
    39
    03
    Estrazione Simbolotto
    Palermo
    18
    30
    17
    06
    21
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto