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
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
Indietro
Alto