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
    martedì 03 febbraio 2026
    Bari
    26
    30
    24
    71
    38
    Cagliari
    07
    71
    77
    64
    16
    Firenze
    15
    23
    49
    50
    66
    Genova
    65
    85
    01
    03
    68
    Milano
    79
    21
    03
    43
    54
    Napoli
    65
    72
    89
    76
    43
    Palermo
    20
    50
    26
    72
    77
    Roma
    75
    76
    31
    77
    51
    Torino
    52
    47
    11
    14
    08
    Venezia
    84
    41
    88
    13
    47
    Nazionale
    19
    03
    34
    61
    48
    Estrazione Simbolotto
    Cagliari
    05
    12
    13
    20
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto