per salvo50 script per ambi isotopi cadenze e figure

[kubes]

ciao salvo50 puoi gentilmente fare questo
script per ambi isotopi cadenze , figure e distanze vert....
grazie .



ESEMPIO CON ELEMENTI DELLA STESSA CADENZA
Estrazione del 02 Dicembre 1998
milano 67-47
Palermo 77-57
i numeri sono in cadenza 7.
Si mettono i numeri in quadrato :
77 - .. - 47
10 - 20 - 10
67 - .. - 57
i numeri, sono in ordine, partendo da alto a sx.
Si fa la somma orizzontale:
77+47=124
67+57=124
Il 124 lo si prende solo uno.
Si fa poi la distanza in verticale:
da 47 a 57 = 10
da 67 a 77 = 10
Anche in questo caso il 10 si scrive una sola volta.
Ora si fa la distanza in diagonale:
da 47 a 67 = 20
da 57 a 77 = 20
Il 20 lo si scrive una sola volta.
faremo la somma dei tre risultati ricavati:
124+10+20 = 154
Si divide il numero 154 per 2:
154 : 2 = 77
Il numero calcolato è il numero più grande dei 2 ambi presa in esame
previsione in gioco è Milano - Palermo
77-47/77-57 / 77-67 -Ambi secchi
77-47-57-67 -Quartina per Ambo e Terno

ESEMPIO CON ELEMENTI DELLA STESSA FIGURA
Estrazione del 09 Dicembre 1998
Roma 73-82
Venezia 19-28
tutti fig. 1.
solito quadrato:
82 - .. - 19
09 - 54 - 09
73 - .. - 28
Somma orizzontale:
82+19=101
28+73= 101
Distanza verticale: da
19 a 28=9
73 a 82=9
Distanza diagonale: da
19 a 73=54
28 a 82=54
somma dei risultati:
101+9+54=164
Risultato che diviso per 2 fa:
164:2=82
La previsione sarà:Roma - Venezia
82-19/ 82-28 / 19-73 Ambi secchi
82-19-28-73 Quartina per Ambo e Terno

Estrazione del 02 Dicembre 1998
Milano 09-39
Venezia 29-59
nel quadrato:
59 - .. - 9
20 - 30 - 30
39 - .. - 29
operazioni:Somma orizzontale:
59+9=68
39+29=68
Distanza verticale:
39 a 59=20
09 a 29=20
Distanza diagonale:
09 a 39=30
29 a 59=30
somma dei risultati ottenuti:
68+20+30= 118
118:2=59
La previsione:Milano - Venezia
59-9 /59-29/59-39 Ambi secchi
59-9-29-39 Quartina per Ambo e Terno

Estrazione del 23 Aprile 2019
Cagliari : 49-13
Napoli : 40-4

Estrazione del 27 aprile 2019
milano : 17-77
genova : 67-27

Estrazione del 16 Maggio 2019
Bari : 21-35
Estrazione del 21 Maggio 2019
genova : 28-14

 

[salvo50]

Ciao a Tutti

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Clp2,Salvo50,E1,E2,So1,So2
   Dim R1,R2,Caso,Casi,P1,P2,P5,P6,A,B,C,D,S1,S2
   Dim CaA,CaB,CaC,CaD,FiA,FiB,FiC,FiD,DM43,DM12,DM13,DM42
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Quart(4)
   Dim Posta(2),Ruote(2),Poste(3),M(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Clp1 = InputBox("Per quanti colpi vuoi giocare gli amb1?",,7)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la quartina?",,7)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "CHIESTO da KUBES AMBI ISOTOPI IN FIGURA O CADENZA - SCRIPT Salvo50",1,,4,,3,,1
   Posta(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If D > 0 Then
                     CaA = Cadenza(A) : CaB = Cadenza(B) : CaC = Cadenza(C) : CaD = Cadenza(D)
                     FiA = Figura(A) : FiB = Figura(B) : FiC = Figura(C) : FiD = Figura(D)
                     If((CaA = CaB) And(CaA = CaC) And(CaA = CaD)) Or((FiA = FiB) And(FiA = FiC) And(FiA = FiD))Then
                        M(1) = A : M(2) = B : M(3) = C : M(4) = D
                        OrdinaMatrice M,1
                        'M4--M1
                        '|   |
                        'M3--M2
                        So1 = M(4) + M(1)
                        So2 = M(3) + M(2)
                        If So1 = So2 Then
                           DM43 = Distanza(M(4),M(3)) : DM12 = Distanza(M(1),M(2))
                           DM42 = Distanza(M(4),M(2)) : DM13 = Distanza(M(1),M(3))
                           S1 = So1 + DM43 + DM42
                           S2 = S1\ 2
                           If S2 = M(4) Then
                              Ambo1(1) = S2 : Ambo1(2) = M(1)
                              Ambo2(1) = S2 : Ambo2(2) = M(2)
                              Ambo3(1) = S2 : Ambo3(2) = M(3)
                              Quart(1) = M(1) : Quart(2) = M(2) : Quart(3) = M(3) : Quart(4) = M(4)
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 2
                              Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P5 = 1 To 5
                                 E2 = Estratto(Es,R2,P5)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi " Ambi Isotopi" & Space(9) & " Somme" & Space(11) & " Distanze" & Space(8) & " Distanze",1
                              Scrivi "in FIG. o CAD." & Space(6) & " Orizontali" & Space(9) & "Verticali" & Space(8) & "Diagonali",1
                              ColoreTesto 0
                              Scrivi Space(4) & " " & Format2(M(4)),1,0,,2
                              Scrivi " " & Format2(M(1)) & Space(14) & Format2(So1),1,0
                              Scrivi Space(16) & Format2(DM43) & Space(15) & Format2(DM42),1
                              Scrivi Space(4) & " " & Format2(M(3)) & " " & Format2(M(2)) & Space(14) & Format2(So2),1,0
                              Scrivi Space(16) & Format2(DM12) & Space(15) & Format2(DM13),1
                              Scrivi
                              Scrivi Space(24) & Format2(So1) & " + " & Format2(DM43) & " + " & Format2(DM42),1,0
                              Scrivi " = " & Format2(S1) & " \ 2 = ",1,0
                              Scrivi Format2(S2),1,,,2
                              Ruote(1) = R1
                              Ruote(2) = R2
                              Scrivi
                              ImpostaGiocata 1,Ambo1,Ruote,Posta,Clp1
                              ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp1
                              ImpostaGiocata 3,Ambo3,Ruote,Posta,Clp1
                              ImpostaGiocata 4,Quart,Ruote,Poste,Clp2
                              Gioca Es
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[kubes]

NON HO PAROLE. SEI SUPERLATIVO!!!! GRAZIE INFINITE !