Help!!! LISTATO

[Zetrix]

i listati sono miei e ognuno li mette a sua discrezione non sta scritto da nessuna parte
che devo mettere i miei listati in questo forum..
e gia tanto che ho messo i prospetti..

 

[Rafele ‘o Ruoss’]

beh.. certo, come darti torto.

 

[Zetrix]

qua ce gente che mi a risposto male e piu facile che uno ti risponde male
che dirti grazie..
i miei listati sono scritti da me e ci ho messi giorni a realizzare una tecnica
con gli script e non credere che sia facile a scrivere gli script..
quindi ognuno li mette a sua discrezione gli script..
ma la richiesta che e stata fatta in questo post era di fare uno script
come descritto nella locandina..
e lo script lo fatto a sua richiesta..e le altre cose che sono state scritte
sono cose personali..

 

[Imaging]

Sono QUI OK!!!!

 

[Imaging]

perchè dovresti cancellarlo ..questa non l'ho capita proprio.

Bogotà.......FERMATI UN 'ATTIMO ............OK!!!!!!

 

[Imaging]

Se Vuoi lo puoi mandare direttamente alla mia MAIL OK.

 

[Rafele ‘o Ruoss’]

qua ce gente che mi a risposto male e piu facile che uno ti risponde male
che dirti grazie..
i miei listati sono scritti da me e ci ho messi giorni a realizzare una tecnica
con gli script e non credere che sia facile a scrivere gli script..
quindi ognuno li mette a sua discrezione gli script..
ma la richiesta che e stata fatta in questo post era di fare uno script
come descritto nella locandina..
e lo script lo fatto a sua richiesta..e le altre cose che sono state scritte
sono cose personali..

capisco ,cosa posso dirti ...ti ringrazio ugualmente anche se in tanti non lo fanno ,buona continuazione.

 

[Zetrix]

ciao lo script lo potrei mettere anche qua ma dobbiamo risolvere la ruota nazionale
a chi possiamo chiedere per risolvere il problema ..
Ramco a collaborato a un mio listato e ho visto che e molto bravo a scrivere gli script

 

[Zetrix]

Se Vuoi lo puoi mandare direttamente alla mia MAIL OK.

lo script devo mettere solo con l'ambata oppure con gli abb
li sai calcolare poi gli abb per ambo ?
comunque il listato si deve sistemare la ruota nazionale
se no la dobbiamo escludere dal gioco..

 

[Imaging]

ok

 

[Zetrix]

proviamo cosi per adesso metto il listato nello spoiler solo con l'ambata
ma devo modificare lo script aspetta un po..

 

[Imaging]

Non ho visto il metodo ma manda tutto .......

 

[Imaging]

proviamo cosi per adesso metto il listato nello spoiler solo con l'ambata
ma devo modifcare lo script aspetta un po..

OK.

 

[Zetrix]

Sub Main
   Dim ambata1(5),re(5),calc(10),ru(5),num(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(3)
   Dim r1,r2,r3
   Dim caso
   posta(1) = 1
   poste(2) = 1
   'rk = InputBox("Quale numero vuoi controllare?",,0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   co = 0
   '--------------------------------
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 8
         For r2 = r1 + 1 To 9
            For r3 = r2 + 1 To 10
              ' If r3 = 12 Then r3 = 12 End If
               For p1 = 1 To 5
                  For p2 = 1 To 5
                     For p3 = 1 To 5
                        For rx = rk To rk
                           '
                           a = Estratto(es,r1,p1)
                           b = Estratto(es,r2,p2)
                           c = Estratto(es,r3,p3)
                           '---------------------------------
                           w = Minimo(a,b)
                           j = Massimo(a,b)
                           '---------------------------------
                           z = Differenza(r1,r2)
                           y = Differenza(a,b)
                           '.---------------------------------
                           '--------------------
                           If j Then
                              x = Fuori90(b*2 - a)
                           Else
                              x = Fuori90(a*2 - b)
                           End If
                           '---------------------
                           If r3 = r2 + z Then
                              '----------------------
                              ambata1(1) = x
                              ambo1(1) = x
                              ambo1(2) = Diametrale(c)
                              '------------------------------
                              '
                              If p1 = p2 And p1 = p3 Then
                                 If Decina(a) = Decina(b) Then ' Or Cadenza(a) = Cadenza(b) Then
                                    'If rx = x Then
                                    '-------------------------------------------------------------------------
                                    '----------------------------------------------------------------------------
                                    caso = caso + 1
                                    Scrivi String(100,"-") & " gioco n. " & caso
                                    '
                                    ru(1) = r1
                                    ru(2) = r2
                                    ru(3) = r3
                                    re(1) = TT_
                                    re(2) = NZ_
                                    '------------------------------
                                    calc(1) = a
                                    calc(2) = b
                                    calc(3) = c
                                    '------------------------------
                                    ' identifica ad esempio 4 caselle
                                    ReDim MatriceCaselleDaEvid(4,1)
                                    ' Primo elemento
                                    MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                                    MatriceCaselleDaEvid(1,1) = p1 ' Primo Estratto
                                    ' secondo elemento
                                    MatriceCaselleDaEvid(2,0) = r2 ' ruota di bari
                                    MatriceCaselleDaEvid(2,1) = p2 ' secondo Estratto
                                    ' secondo elemento
                                    MatriceCaselleDaEvid(3,0) = r3 ' ruota di bari
                                    MatriceCaselleDaEvid(3,1) = p3 ' secondo Estratto
                                    '-------------------------------
                                    Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                                    '
                                    Scrivi "diff r1-r2 = " & z & "",0,1,1,5,5
                                    Scrivi
                                    Scrivi "" & a & "_____" & b & "________?",0,1,1,5,5
                                    Scrivi "____(" & y & ")____(" & y & ")____",0,1,1,5,5
                                    Scrivi
                                    'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                                    ImpostaGiocata 1,ambata1,ru,posta,co,0
                                    Gioca es,1,,1
                                    Scrivi
                                    Scrivi String(55,"-")
                                    Scrivi
                                    ImpostaGiocata 1,ambo1,re,poste,co,0
                                    Gioca es,1,,1
                                    Scrivi
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix"
End Sub

allora ho fatto una modifica ho messo solo l'ambata
e un ambo ma ci sono altri abb che si devono calcolare
lo script integrale potrei scriverlo nella email ma non so come avere la tua email..
qua la puoi scrivere la email oppure no..se no lasciamo stare..
semmai poi ti diro come si calcolano gli altri abb..
la nazionale sarebbe meglio escluderla dal gioco..
perche non calcola bene l'ambata..
quindi risistemo lo script..
ho disattivato la condizione con le cadenze ma se vuoi anche con le cadenze
si deve sistemare lo script..
con le cadenze avremmo piu condizioni di gioco..

 

[Imaging]

Ok ....... già sul PC.

 

[Imaging]

Clicca sul mio nome o profilo dovrebbe esserci tutto minuscolo imaging@..........
nome VIOLAZIONE: scambio email non consentito ! spero capisci non la metto insieme...è vietato

 

[Imaging]

virgilio

 

[Imaging]

spero hai capito?

 

[Zetrix]

ho cliccato sul nome o profilo ma non ce nessuna email..

comunque lasciamo stare la email..

sai scrivere nel listato..bisogna inserire un 2ambo..
anche se ce un 3ambo e un 4ambo..ma adesso non voglio scriverli tutti..
il 2ambo però lo devi inserire nel listato e importante..
se non sai come fare devo mettere il listato con il 2ambo..

 

[Imaging]

Clicca sul mio nome o profilo dovrebbe esserci tutto minuscolo imaging@..........
nome VIOLAZIONE: scambio email non consentito ! spero capisci non la metto insieme...è vietato

Leggi questa