xSalvo50

[Zetrix]

te la senti di fare questo script su questo disegno..?
se e difficile ti spiego come si devono scrivere le condizioni del gioco..

 

[salvo50]

Ciao a Tutti
Ciao Zetrix

Certo è logico che mi devi spiegare non solo le condizioni di gioco ma anche ciò che vuoi ottenere

 

[Zetrix]

Ciao Salvo50,
so che non e facile spiegare le condizioni forse e meglio che scrivo un esempio sulle estr..
stavo vedendo che nome dare allo script visto che qua trattiamo la ciclometria e aggiunta la geometria
il titolo dello script ci scriviamo ciclogeom.
intanto ti scrivo queste formule geometriche, ricordati che la geometria si occupa dei segni : e x
1)dist 4
4x6=24<---
4x7=28 --->(dist. diag.)
4x8=32 --->(dist .max.)
--------------------
2)dist 6
6x4=24<---
6x5=30 --->(dist.diag.)
6x6=36 --->(dist.max.)
-------------------
3)dist 8
8x3=24 <---
8x4=32 --->(dist.diag.)
8x5=40 --> dist.max.)
------------------
come vedi da questo prospetto la dist comune che scrive in tutte e tre le tabelle
e la dist 24 ..(la dist minima),questa e la prima condizione del gioco, dobbiamo avere un ambo con la dist 24,
dopo ti scrivo un esempio sulle estr..

 

[salvo50]

Ok lo chiamiamo CICLOGEOM

 

[salvo50]

niente ho visto

 

[Zetrix]

allora Salvo50 vediamo di rendere lo script piu facile seguimi con attenzione
alle cose che scrivo
allora vediamo questo esempio su palermo e torino
1) condizione la dist 6 in colonna (49,55) su due ruote qualsiasi,
la dist 6 scrive
6x4=24<---(dist.ambo.(79,55))
6x5=30 --->(dist.obliq.(49,79))
6x6=36 --->(dist.max.(?,49))
adesso questa condizione la dobbiamo ridefinire con la formula geometrica
la dist. max e 36
49+36=85
il numero 85 si gioca su palermo e torino
x ambo si gioca 49 85 su tutte
in teoria dobbiamo avere sempre un ambo con la dist 24 su una ruota e una dist 4, or 6 or 8 in colonna, su due ruote,
adesso per non rendere difficile lo script si puo iniziare con la dist 6 perche se rintracciamo una dist 4 or una dist 8
cambia la formula geometrica
la dist max e 4x8=32
la condizione ideale e la dist 6 che genera la dist 30 in obliqua e questa e la condizione migliore..
in seguito si possono aggiungere le altre dist 4 e 8 in colonna..se aggiungiamo queste dist dopo si devono fare
delle variazioni del calcolo del numero e questo rende piu difficile lo script..
x non sbagliare si puo fare un altro calcolo piu facile visto e considerato che i due ambi devono avere la stessa somma
si puo fare
79+55=134-49=85
la stessa somma fa in modo che le due dist in colonna e le due dist in obliqua sono equilibrate..
in questo modo sono corrisposte le formule geometriche e devono essere esatte..
infatti la dist max e 6x6=36
85,49) dist 36
2) condizione ,rilevare un ambo con la dist 24,(79,55) TO, su una ruota qualsiasi..
se ci sono altre variazioni da fare le vedremo in seguito questo e quanto descritto da questa condizione di gioco..
nota : la disposizione dei numeri deve essere come da disegno nella tabella e non viceversa..
PA ? _ 49
TO 79_55

 

[salvo50]

lo script è fatto con le ultime spiegazioni del post 6
sperando di non aver fatto errori

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,Clp,Es,Salvo50
   Dim R1,R2,P1,P2,P3,Caso,Casi
   Dim DistAB,DistAC,DistBC
   Dim Amba(1),Ambo(2),Ruo1(2),RuoT(1)
   Dim Po1(1),Po2(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10701))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   ' Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(18) & "Metodo CicloGeometrico di Zetrx - Script Salvo50" & Space(18),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 12
               If R1 = 11 Then R1 = 12
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        If P1 = P2 Or P1 = P3 Then
                           B = Estratto(Es,R2,P2)
                           C = Estratto(Es,R2,P3)
                           If A > 0 And C > 0 And A <> B And A <> C Then
                              DistAB = Distanza(A,B) : DistAC = Distanza(A,C) : DistBC = Distanza(B,C)
                              If DistBC = 24 Then
                                 If((DistAB = 6) And(P1 = P2))Or((DistAC = 6) And(P1 = P3))Then
                                    Amba(1) = Fuori90(A + 36)
                                    Ambo(1) = A : Ambo(2) = Amba(1)
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                    Scrivi
                                    ReDim MatrCasella(3,1)
                                    MatrCasella(1,0) = R1
                                    MatrCasella(1,1) = P1
                                    MatrCasella(2,0) = R2
                                    MatrCasella(2,1) = P2
                                    MatrCasella(3,0) = R2
                                    MatrCasella(3,1) = P3
                                    Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                    Scrivi
                                    Scrivi
                                    Ruo1(1) = R1 : Ruo1(2) = R2 : RuoT(1) = TT_
                                    ImpostaGiocata 1,Amba,Ruo1,Po1,Clp,1
                                    ImpostaGiocata 2,Ambo,RuoT,Po2,Clp,2
                                    Gioca Es
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Zetrix]

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,Clp,Es,Salvo50
   Dim R1,R2,P1,P2,P3,P5,Caso,Casi
   Dim DistAB,DistAC,DistBC,X
   Dim Amba(1),Ambo(2),Ruo1(2),RuoT(2)
   Dim Po1(1),Po2(2),DT1,DT2,DT3,DT4
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,2620))
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(18) & "Metodo CicloGeom di Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 2 To 5
               For P5 = 1 To 4
                  A = Estratto(Es,R1,P1)
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        X = Estratto(Es,R1,P5)
                        If Distanza(B,C) = 24 Then
                           If P5 = P2 Then
                              If Distanza(A,C) = 4 And(P1 = P3) And Distanza(A,B) = 28 _
                                 Or Distanza(A,C) = 6 And(P1 = P3) And Distanza(A,B) = 30 _
                                 Or Distanza(A,C) = 8 And(P1 = P3) And Distanza(A,B) = 32 Then
                                 DT1 = DiametraleD(X) : DT2 = Diametrale(DT1) : DT3 = DiametraleD(DT2)
                                 DT4 = Diametrale(X)
                                 Amba(1) = Fuori90(B + C - A)
                                 Ambo1(1) = Amba(1)
                                 Ambo1(2) = DT1
                                 Ambo2(1) = Amba(1)
                                 Ambo2(2) = DT2
                                 Ambo3(1) = Amba(1)
                                 Ambo3(2) = DT3
                                 Ambo4(1) = Amba(1)
                                 Ambo4(2) = DT4
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi
                                 ReDim MatrCasella(3,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R2
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R2
                                 MatrCasella(3,1) = P3
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 Scrivi
                                 Ruo1(1) = R1 : Ruo1(2) = R2
                                 RuoT(1) = TT_ : RuoT(2) = NZ_
                                 ImpostaGiocata 1,Amba,Ruo1,Po1,9,1
                                 Gioca Es,1,,1
                                 Scrivi String(55,"-"),0,1
                                 Scrivi
                                 ImpostaGiocata 1,Ambo1,RuoT,Po2,10,2
                                 ImpostaGiocata 2,Ambo2,RuoT,Po2,10,2
                                 ImpostaGiocata 3,Ambo3,RuoT,Po2,10,2
                                 ImpostaGiocata 4,Ambo4,RuoT,Po2,10,2
                                 Gioca Es,1,,1
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   'ScriviResoconto
End Sub

xSalvo50
grazie dello script,
ho fatto delle variazioni nello script alcune condizioni non erano esatte nello script..
vedi se va bene cosi..
alcune righe le ho tolte es , quanti colpi vuoi giocare..per me non a senso scrivere questa riga..
negli script non si devono scrivere troppe domande..
ho cambiato gli abb per ambo..
ho notato in alcune condizioni il numero di calcolo e gia presente nella ruota di calcolo..
es , il 14 a milano..

 

[salvo50]

Zetrix il metodo è tuo sei tu che decidi come modificarlo, io l'ho fatto secondo le poche indicazioni che mi hai dato
Riguardo agli inputbox a me piace metterli, chi lo decide se è un bene o un male, ognuno di noi ha uno stile proprio
e fa gli script come meglio crede, l'hai tolto inputbox, hai fatto bene se a te non piacciono.

 

[Zetrix]

si certo il metodo e mio lo modificato apposta per farti vedere come li scrivo io gli script
considera che non sono esperto come te a scrivere gli script ci sono alcune righe degli script
che non li so scrivere riguardo agli inputbox secondo me meno si mettono gli input box e meglio e
se ne metti troppo input box e come fare un processo es quanti colpi vuoi giocare ?
quale pos vuoi giocare ? che numero vuoi giocare ? ecc...
se uno deve rispondere a tutte queste domande degli input box li passa la voglia di continuare lo script..
ecco perche ho tolto quel input box sui colpi di gioco per me inutile perche si puo scrivere sulle indicazioni
imposta giocata..

 

[Zetrix]

..