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:
Zetrix ha scritto:
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..
Clicca per espandere...
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:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 14 marzo 2026
    Bari
    34
    85
    22
    52
    09
    Cagliari
    88
    62
    57
    53
    80
    Firenze
    11
    46
    34
    49
    15
    Genova
    64
    62
    78
    30
    65
    Milano
    56
    16
    31
    12
    49
    Napoli
    44
    66
    80
    45
    07
    Palermo
    39
    38
    83
    66
    84
    Roma
    76
    52
    44
    04
    33
    Torino
    38
    08
    17
    70
    05
    Venezia
    84
    69
    42
    74
    29
    Nazionale
    89
    44
    17
    25
    52
    Estrazione Simbolotto
    Firenze
    19
    29
    21
    11
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto