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,NX
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
'
A = Estratto(ES,R1,3)
B = Estratto(ES,R1,4)
C = Estratto(ES,R1,5)
'
N1 = Estratto(ES,R1,1)
N2 = Estratto(ES,R1,2)
'
Y = Fuori90(A - B + C)
'------------------------------
ruota(1) = R1
'-----------------------------
ruote(1) = R1
ruote(2) = 11
ruote(3) = 12
'----------------------------
If DiametraleD(A) = B Or DiametraleD(B) = C Or DiametraleD(A) = C Then
'
If(Y - A + B) = C Then
ambata1(1) = Y
If N1 > N2 Then
ambo1(1) = Y
ambo1(2) = Fuori90(N1 + N2)
ambo2(1) = Y
ambo2(2) = Diametrale(ambo1(2))
End If
End If
If(Y - A + B) = C Then
If N1 < N2 Then
ambo1(1) = Y
ambo1(2) = Abs(N1 - N2)
ambo2(1) = Y
ambo2(2) = Diametrale(ambo1(2))
End If
End If
'
If(Y - A + B) = C Then
'
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))
'-------------------------------
'---------------------------------
T2 = Array(T2," y = " & Y," "," "," "," ")
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))
'--------------------------------
'
'
T3 = Array(T3,Y & " "," - " & 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
'
'
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
End Sub

ecco lo script, aggiunto la condizione dei diam. in decina..

Grazie ma non ho capito questa ultima modifica. Poi controllerò meglio

 

[ceci]

ceci non lo so, devo vedere la situazione su genova e venezia ..
mi collego dopo e vi saprò dire qualcosa a questo ambo..

Grazie mille, sei sempre gentile Zetrix

 

[Zetrix]

x bonalele
ho aggiunto la condizione dei diametrali in decina, in questo modo si hanno poche condizioni
lo script rileva solo quelle condizione ecco perche si mette una IF ..then
e una disposizione di comando che deve fare lo script
sto elaborando le sequenze al SupeEnalotto ma non scrivo qua scrivo nella sezione apposita
puoi leggere in quella sezione..
ho elaborato una centinaia di script solo per il SuperEnalotto..

 

[Zetrix]

Grazie mille, sei sempre gentile Zetrix

grazie ceci, mi impegno perche non vorrei deludervi al lotto, ho molte conoscenze e studi sul lotto
ma comunque e sempre difficile vincere..
ma la batteremo la lm..
fidati di me..

 

[Zetrix]

ho scritto un altra equazione sull'algebra adesso la formula la scrivo nello script
in forma di quiz..
cosi vediamo chi e bravo o brava a dare la risposta esatta..
fare questi script e facilissimo..
dopo vi farò vedere come si fa lo script..
questi script sono utili quanto volete scrivere tre numeri qualsiasi sulle estr
e lo script elabora la equazione e non dovete fare nessun conteggi e calcoli
si scrivono i tre numeri in input box e lo script scrive la equazione sull'algebra..a,b,c,

 

[Zetrix]

allora ho scritto questi tre numeri a ba, magari chissà darà l'ambata a ba,
adesso vi scrivo la equazione,

A = 16 (figura 7)
B = 28 (figura 1)
C = 85 (figura 4)
equazione = A-B+Y=C
Y = ?
soluzione:

risposta:
Y =

quale numero sarà la Y..
chi darà la risposta esatta metto lo script..

 

[trylli]

Per me che non ne capisco
Poi mi mettereste le previsioni in gioco?

 

[bonalele]

Vedi l'allegato 2305928
allora ho scritto questi tre numeri a ba, magari chissà darà l'ambata a ba,
adesso vi scrivo la equazione,

A = 16 (figura 7)
B = 28 (figura 1)
C = 85 (figura 4)
equazione = A-B+Y=C
Y = ?
soluzione:

risposta:
Y =

quale numero sarà la Y..
chi darà la risposta esatta li do questo script..

49

 

[Zetrix]

Per me che non ne capisco
Poi mi mettereste le previsioni in gioco?

scusa quale previsioni intendi dire, quella della equazione a ba

 

[Zetrix]

49

la risposta e sbagliata,prova la formula inversa..

 

[bonalele]

la risposta e sbagliata,prova la formula inversa..

7

 

[Zetrix]

7

esatto

 

[Zetrix]

Anticipazione (Spoiler)

Option Explicit
Sub Main
Dim A,B,C,D,E,X,S,Y,N
A = InputBox("1numero",0)
B = InputBox("2numero",0)
C = InputBox("3numero",0)
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 = A-B+Y=C "),1,1,5,3,8
Scrivi("" & "Y" & " = ? "),1,1,5,1,8
Scrivi
Scrivi("soluzione:"),1,1,5,3,8
Scrivi
Scrivi("-" & A & " + " & B & " + " & C & " = " & Y & ""),1,1,5,1,8
Scrivi("risposta:"),1,1,5,3,8
Scrivi
Scrivi("" & "Y" & " = " &(Y) & ""),1,1,5,1,8
Scrivi
End Sub

x bonalele
ecco lo script