Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
...partiamo da questo esempio:
05.03.2015 GE 54.03.48.51.19 [a1 = 54 51 = a2 ] Pos. 1^ 4^ Ambo Triplicato : 17 51
05.03.2015 TO 17.34.69.56.15 [a3 = 17 56 = a4 ] Pos. 1^ 4^ Somma Diagonale : (54+56)=20
For r1 = 1 To 10 ' Ciclo per r1 = sulle 10 ruote
For p1 = 1 To 4 ' Ciclo per p1 = posizione degli estratti
a1 = Estratto(es,r1,p1)' come da esempio, a1= 54 su r1=GE in p1=1a posizione
For p2 = p1 + 1 To 5' Ciclo per p2 = posizione degli estratti
a2 = Estratto(es,r1,p2)' come da esempio, a2= 51 su r1=GE in p2=4a posizione
For r2 = r1 + 1 To 11' Ciclo per r2 = r1+1
If r2 = 11 Then r2 = 12'Salta l'11 per andare sulla Nazionale
a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2)'a3=17 su r2=TO in 1a posizione e a4=56 su r2=TO in 4a posizione
If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then' Controlla in diagonale se a1 è il trplo di a4 o a2 è triplo di a3 e viceversa
If(a1*3) = a4 Or(a4*3) = a1 Then x(1) = a1 : x(2) = a4 :sa = Fuori90(a2 + a3) Else x(1) = a2 : x(2) = a3 : sa = Fuori90(a1 + a4)
se la condizione corrisponde alla diagonale a1 - a4 l'ambata è data dalla somma della diagonale a2+a3 Altrimenti l'ambata è data dalla
somma della diagonale a1+a4
OrdinaMatrice x,1 ' ordina l'ambo triplicato in ordine crescente
ruote(1) = r1 : ruote(2) = r2 'Indica le ruote che presentano la condizione di ricerca
Nella speranza di essere stato chiaro, saluto.
Ciao, Enplein.
grazie......acc...non mi ricordo molto prima facevo il basic......si può sommare i 4 numeri le due coppie diagonali e le due verticali ? da darmi 4 numeri da giocare su tutte? grazie-
'
...ecco lo script "Ambi Triplicati in diagonale su due ruote"
N.B. Le ambate che hanno la presenza retroattiva di 9 estrazioni, vengono eliminate
come previsione.
Ciao, Enplein.
Codice:Sub Main() Scrivi "Forum LottoCed - Ambi Triplicati in diagonale di Zetrix_by Enplein",1 Dim ruote(2),x(2),amb(2),posta(1) posta(1) = 1 t = 0 rs = InputBox("Quante estrazioni vuoi controllare?",,100) cl = InputBox("Quanti colpi?",,14) For es = EstrazioneFin - rs To EstrazioneFin For r1 = 1 To 10 For p1 = 1 To 4 a1 = Estratto(es,r1,p1) For p2 = p1 + 1 To 5 a2 = Estratto(es,r1,p2) For r2 = r1 + 1 To 11 If r2 = 11 Then r2 = 12 a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2) If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then If(a1*3) = a4 Or(a4*3) = a1 Then x(1) = a1 : x(2) = a4 :sa = Fuori90(a2 + a3) Else x(1) = a2 : x(2) = a3 : sa = Fuori90(a1 + a4) OrdinaMatrice x,1 ruote(1) = r1 : ruote(2) = r2 'Previsione amb(1) = sa 'Controlla la presenza dell'ambata If SerieFreq(es - 8,es,amb,ruote,1) = 0 Then t = t + 1 ColoreTesto 1 Scrivi "------------------------------------------------------------------------------" Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _ " [ " & Format2(a1) & " " & Format2(a2) & " ] Pos. " & p1 & "^ " & p2 & "^ Ambo Triplicato : " & Format2(x(1)) & " " & Format2(x(2)) & Chr(10) & _ DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _ " [ " & Format2(a3) & " " & Format2(a4) & " ] Pos. " & p1 & "^ " & p2 & "^ Somma Diagonale : " & Format2(sa),1 Scrivi "------------------------------------------------------------------------------",1 ColoreTesto 0 ImpostaGiocata 1,amb,ruote,posta,cl,1 Gioca es End If End If Next Next Next Next Next ScriviResoconto End Sub
![]()
questa condz su ba-ve ce l'ambata90 in corso ...chi e interessato puo seguire la quartina x ambo e terno
sulle due ruote ba-ve.... durata del gioco 6colpi dalla data di rilievo condz gioco.
Sub Main()
Scrivi "Forum LottoCed - Ambi Triplicati in diagonale con elementi non ripetuti di Zetrix_by Enplein",1
Dim ruote(2),rtt(1),rt(1),x(2),amb(2),posta(1)
posta(1) = 1
t = 0
rs = InputBox("Quante estrazioni vuoi controllare?",,100)
cl = InputBox("Quanti colpi?",,14)
For es = EstrazioneFin - rs To EstrazioneFin
For r1 = 1 To 10
For p1 = 1 To 4
a1 = Estratto(es,r1,p1)
For p2 = p1 + 1 To 5
a2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2)
If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then
If(a1*3) = a4 Or(a4*3) = a1 Then x(1) = a1 : x(2) = a4 :sa = Fuori90(a2 + a3) Else x(1) = a2 : x(2) = a3 : sa = Fuori90(a1 + a4)
OrdinaMatrice x,1
ruote(1) = r1 : ruote(2) = r2 : rtt(1)=11 :rt(1)=12
'Previsione
amb(1) = sa
'Controlla la presenza dell'ambata e dei numeri dell'ambo triplicato su TUTTE LE RUOTE
sf1=SerieFreq (es,es,x,rtt,1) : sf2=SerieFreq (es,es,x,rt,1)
If (sf1=2 And sf2=0) Or (sf1=1 And sf2=1) Then
If SerieFreq(es - 8,es,amb,ruote,1) = 0 Then
t = t + 1
ColoreTesto 1
Scrivi "------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" [ " & Format2(a1) & " " & Format2(a2) & " ] Pos. " & p1 & "^ " & p2 & "^ Ambo Triplicato : " & Format2(x(1)) & " " & Format2(x(2)) & Chr(10) & _
DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" [ " & Format2(a3) & " " & Format2(a4) & " ] Pos. " & p1 & "^ " & p2 & "^ Somma Diagonale : " & Format2(sa),1
Scrivi "------------------------------------------------------------------------------",1
ColoreTesto 0
ImpostaGiocata 1,amb,ruote,posta,cl,1
Gioca es
End If
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub