Novità

Help!!! LISTATO

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..
 
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..
 
Ultima modifica:
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.
 
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
 
proviamo cosi per adesso metto il listato nello spoiler solo con l'ambata
ma devo modificare lo script aspetta un po..
 
Codice:
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..
 
Ultima modifica:
Clicca sul mio nome o profilo dovrebbe esserci tutto minuscolo imaging@..........
nome VIOLAZIONE: scambio email non consentito ! spero capisci non la metto insieme...è vietato
 
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..
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto