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..