metodo per ambate e ambo

[bonalele]

Anticipazione (Spoiler)

Sub Main
Dim T1,T2,T3,T4,T5,T6,T7
Dim A,B,C,X,Y,E,F,K
Dim N1,N2,N3,N4,N5,N6,N7
Dim ES,TV,R1
Dim larghezze
Dim ambata1(2),ruota(5),ruote(5),posta(1),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
posta(1) = 1
poste(2) = 1
TV = InputBox("Quante estrazioni vuoi controllare?",,0)
K = 0
For ES = EstrazioneFin - TV To EstrazioneFin
AvanzamentoElab EstrazioneFin - ES,EstrazioneFin,ES
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For p1 = 1 To 3
p2 = p1 + 1
p3 = p2 + 1
'
A = Estratto(ES,R1,p1)
B = Estratto(ES,R1,p2)
C = Estratto(ES,R1,p3)
'
N1 = Estratto(ES,R1,1)
N2 = Estratto(ES,R1,2)
N3 = Estratto(ES,R1,1)
N4 = Estratto(ES,R1,5)
N5 = Estratto(ES,R1,4)
N6 = Estratto(ES,R1,5)
'
ReDim MatriceCaselleDaEvid(5,1)
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = 1
MatriceCaselleDaEvid(2,0) = R1
MatriceCaselleDaEvid(2,1) = 2
MatriceCaselleDaEvid(3,0) = R1
MatriceCaselleDaEvid(3,1) = 3
MatriceCaselleDaEvid(4,0) = R1
MatriceCaselleDaEvid(4,1) = 4
MatriceCaselleDaEvid(5,0) = R1
MatriceCaselleDaEvid(5,1) = 5
Call DisegnaEstrazione(ES,MatriceCaselleDaEvid)
'
'
T1 = Array(T1," "," "," "," "," ")
'-------------------------------
'---------------------------------
'-------------------------------
T1 = Array(T1," y "," + a "," - b "," = ","c")
larghezze = Array(T1,4,4,4,4,4,4)
Call InitTabella(T1,Bianco_,"center",larghezze,Nero_,"raavi")
Call SetColoreCella(1,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(2,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(3,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(4,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(5,RGB(249,198,104),RGB(0,0,0))
'-------------------------------
X = Fuori90(C + B - A)
'---------------------------------
T2 = Array(T2," y = " & X," "," "," "," ")
larghezze = Array(T2,4,4,4,4,4,4)
Call AddRigaTabella(T2,Bianco_,"center",larghezze,Nero_,"raavi")
Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
'
X = Fuori90(C + B - A)
'
T3 = Array(T3,X & " "," + " & A," - " & B," = ",C)
larghezze = Array(T3,4,4,4,4,4,4)
Call AddRigaTabella(T3,Bianco_,"center",larghezze,Nero_,"raavi")
Call SetColoreCella(1,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(2,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(3,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(4,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(5,RGB(249,198,104),RGB(0,0,0))
'--------------------------------
'
Call SetTableWidth("20%")
CreaTabella
'
'------------------------------
ruota(1) = R1
'-----------------------------
ruote(1) = R1
ruote(2) = 11
ruote(3) = 12
'----------------------------
If p1 = 1 And p2 = 2 And p3 = 3 Then
ambata1(1) = X
ambo1(1) = X
ambo1(2) = Fuori90(N5 + N6)
ambo2(1) = X
ambo2(2) = Abs(N5 - N6)
Else
'
If p1 = 2 And p2 = 3 And p3 = 4 Then
ambata1(1) = X
ambo1(1) = X
ambo1(2) = Fuori90(N1 + N6)
ambo2(1) = X
ambo2(2) = Abs(N1 - N6)
Else
'
If p1 = 3 And p2 = 4 And p3 = 5 Then
ambata1(1) = X
ambo1(1) = X
ambo1(2) = Fuori90(N1 + N2)
ambo2(1) = X
ambo2(2) = Abs(N1 - N2)
End If
End If
End If
'
ImpostaGiocata 1,ambata1,ruota,posta,K
Gioca ES,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,K
ImpostaGiocata 2,ambo2,ruote,poste,K
Gioca ES,1,,1
Scrivi
Next
Next
Next
End Sub

ecco lo script

Fantastico appena riesco lo guardo immediatamente. Grazie

 

[bonalele]

Per fortuna non sai programmare! Complimenti ottimo script! Adesso via con le analisi
Grande!

 

[Zetrix]

grazie bonalele dei complimenti, ma non ai visto ancora gli altri script che ho scritto,
ma sono un dilettante con gli script mi adatto un po alle cose che ho letto sul visual basic e su questo forum
ne avrò scritto piu di tremila script non li ho nemmeno contati
solo sull'algebra ne ho scritti piu di cinquanta script
avrai notato che i miei script scrivono sempre le tabelle, ma dobbiamo dire grazie anche al programma..
con excel non mi trovo bene non so nemmeno come si scrive una formula matematica..
troppo complicato nel programmare..
meglio scrivere con gli script..

 

[Zetrix]

sull'algebra si possono scrivere tante formule
dovrei avrei uno script che ho scritto sull'algebra facendo i calcoli su due ruote
l'algebra si puo adattare anche su due ruote..
se trovo lo script ti farò vedere cosa fa l'algebra sulle estr..

 

[Zetrix]

bonalele vuoi vedere come a fatto il 50 sulla nazionale ?
e qua ti meravigliai ma non solo te chiunque passa di qua ti farò vedere cosa fa l'algebra ..
con l'algebra si possono fare le sequenze a scaletta
dirai e cosa sono le sequenze a scaletta ..??
non so se sei collegato e stai leggendo..

scriviamo A e B , l'algebra la faremo solo con queste due lettere..ma con un trucco..
A = 75
B = 62
scriviamo la formula algebra
1) A-B+A
2) B-A+B
75-62+75=88 + 1 = 89
62-75+62=49 + 1 = 50 ( ambata)


ecco la sequenza a scaletta...

[NZ] [.. .. .. 50 ..] C.1 Estratto 02585 [130 - 16/08/2025] [72.01.46.50.52]

ecco il 50 colpito e affondato.. e 50-1 ambo secco..

 

[Zetrix]

grazie pontina2

 

[curioso]

Vedi l'allegato 2305863

bonalele vuoi vedere come a fatto il 50 sulla nazionale ?
e qua ti meravigliai ma non solo te chiunque passa di qua ti farò vedere cosa fa l'algebra ..
con l'algebra si possono fare le sequenze a scaletta
dirai e cosa sono le sequenze a scaletta ..??
non so se sei collegato e stai leggendo..

scriviamo A e B , l'algebra la faremo solo con queste due lettere..ma con un trucco..
A = 75
B = 62
scriviamo la formula algebra
1) A-B+A
2) B-A+B
75-62+75=88 + 1 = 89
62-75+62=49 + 1 = 50 ( ambata)

Vedi l'allegato 2305866
ecco la sequenza a scaletta...

[NZ] [.. .. .. 50 ..] C.1 Estratto 02585 [130 - 16/08/2025] [72.01.46.50.52]

ecco il 50 colpito e affondato.. e 50-1 ambo secco..

Scusa zetrix, volevo chiedere come fai a stabilire quali numeri scegliere da abbinare ad A e B ? Grazie

 

[Zetrix]

curioso i numeri non si devono scegliere e l'algebra analizza tutti i numeri sulle estr..
questo metodo non puoi fare con carta e penna diventa difficile..
ti metto una condizione che a trovato l'algebra su firenze

 

[Zetrix]

A = 45
B = 37
si scrive la formula
1) A-B+A = 45-37+45=53+1=54
2) B-A+B = 37-45+37=29+1= 30 (ambata)



x curioso, se vuoi tentare questa condizione su firenze
ambata 30 e ambo 30 01
vediamo stasera che succede a firenze

il trucco si deve aggiungere +1 per generare la sequenza a scaletta..-9-8-7..

 

[curioso]

Grazie mille