Novità

10elotto

Zetrix, magari hai un metodo come si po' calcolare sulla ruota sola. Per esempio, i numeri sulla ruota di Venezia della estrazione ultima, e prendere i numeri della stessa ruota ma estrazione precedente??
 
4919.png

i legend vedi questa tabella se noi scriviamo la sequenza in cadenza 8
la nazionale non la collega e come se collega la ruota a tutte..

If R1 = 11 Then ' -> disegna la nazionale
questa R1 adesso non so se disegna la nazionale o evidenzia solo il numero
perche ce una bella differenza e quanto scrivo disegna la nazionale deve
collegare anche le linee con la nazionale..

i legend non e che non mi interessa lo script e che volevo provare a risolvere
questo problema della nazionale..
comunque elimino le linee sulla tabella e il problema si e risolto..
se no non la devo considerare la nazionale..
ciao
 
Ultima modifica:
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:
Zetrix, magari hai un metodo come si po' calcolare sulla ruota sola. Per esempio, i numeri sulla ruota di Venezia della estrazione ultima, e prendere i numeri della stessa ruota ma estrazione precedente??

ciao nadin ho tantissime tecniche su una ruota sola se ho letto bene
i numeri sulla ruota di Venezia della estrazione ultima, e prendere i numeri della stessa ruota ma estrazione precedente??

si ce lo questo script ma e una tecnica tua e vorresti fare uno script
ma te ai spaziometria se no come fai a vedere i risultati di una tecnica..
 
For R1 = 1 To 12
If R1 = 11 Then R1 = 12 End If
'

If R1 = 12 Then ' -> disegna la nazionale
End If

no gcarlo ho provato cosi ma non va bene..
evidenzia solo i numeri sulla nazionale ma non disegna le linee sulle nazionale..
 
4920.png

gcarlo ecco quale e il problema lo script evidenzia i numeri sulla nazionale
ma non disegna bene le linee sui numeri della nazionale..
perche e evidente che non calcola bene il numero sulla nazionale...
 
Ultima modifica:
Codice:
Option Explicit
Sub Main
   Dim R1,R2,R3,E,X,I,RB,RK,K,S,Q
   Dim nRighe,nColonne
   Dim nCaselleDaEvid
   Dim aQuadroNum
   Dim aNumDaEvid
   Dim stesto
   '
   nRighe = 12
   nColonne = 6
   ReDim aQuadroNum(nRighe,nColonne)
   ReDim aNumDaEvid(100,1) ' dato che non so a priori la quantita di numeri metto 100
   Q = InputBox("Inizia sequenza da.....0-1-2-3-4-5-6-7-8-9-10-11?",,0)
   S = InputBox("Quale sequenza.........1-2-3-4-5-6-7-8-9-10-11?",,0)
   X = InputBox("Quante estrazioni vuoi controllare?",,0)
   For R1 = 1 To 12
      If R1 = 11 Then R1 = 12 End If
      '
      For RK = S To S
         '
         For E = 1 To 5
            For K = Q To 90 Step RK
               stesto = Fuori90(Format2(K)) & "."
               Scrivi stesto,0,0
               '
               aQuadroNum(R1,E) = Estratto(EstrazioneFin - X,R1,E)
               '
               '
               If(aQuadroNum(R1,E)) = Fuori90(K) Then
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  '
                  aNumDaEvid(nCaselleDaEvid,0) = R1
                  aNumDaEvid(nCaselleDaEvid,1) = E
                  '
                  '
               End If
               '--------------------------------------------
               If R1 = 12 Then ' -> disegna la nazionale
               End If
            Next
         Next
      Next
   Next
   ReDim aMatriceLegami(nCaselleDaEvid - 1,3)
   For R1 = 1 To nCaselleDaEvid - 1
      aMatriceLegami(R1,0) = aNumDaEvid(R1,0)
      aMatriceLegami(R1,1) = aNumDaEvid(R1,1)
      aMatriceLegami(R1,2) = aNumDaEvid(R1 + 1,0)
      aMatriceLegami(R1,3) = aNumDaEvid(R1 + 1,1)
   Next
   '-----------------------------
   '-----------------------------
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,aMatriceLegami,CLng(0))
   Call DisegnaEstrazione(EstrazioneFin - X,aNumDaEvid,aMatriceLegami,CLng(0))
   Scrivi
   Scrivi
   Scrivi "Disegna sequenza da ?  " & Q & "",0,0,6,2,3
   Scrivi
   Scrivi "Quale sequenza ?  " & S & "",0,0,3,2,3
   Scrivi
End Sub

gcarlo questo e lo script forse il problema lo puo risolvere luigi.B perche la scritto lui questo script..
io lo solo modificato per studiare le sequenze dei numeri estratti sulle estrazioni..

If R1 = 11 Then ' -> salta la ruota tutte e disegna la nazionale

comunque so che luigiB a scritto questa riga per disegnare la nazionale
 
Ultima modifica:
4921.png

sequence number da ? 50
sequence ? 1
number sequence 50.51.52.53.54.55.56.57.58.59
 
Ultima modifica:
4922.png

sequence number da ? 1
sequence ? 4
number sequence 1.5.9.13.17.21.25.29.33.37.41.45.49.53.57.61.65.69.73.77.81.85.89
 
Ciao Zetrix, io non c'è l'ho il programma. Io uso pena, foglio di carta, calcolatrice e logica. Volevo provare di fare il calcolo sulla Rita singola, e lavorare solo con questa ruota.
 
ciao nadin scrivimi la tecnica che deve calcolare la ruota e vedrò di scrivere lo script
mi spiace che non ai spaziometria perche con questo programma puoi calcolare
e disegnare tutte le tabelle..

ma la devo scrivere io la tecnica su ruota oppure la devi scrivere te la tecnica..

ai scritto Ruota..boo
 
4923.png

sequence number da ? 1
sequence ? 7
number sequence 1.8.15.22.29.36.43.50.57.64.71.78.85

nadin vedi con gli script possiamo scrivere qualsiasi sequenza di numeri..
 
Io pensavo che tu hai la tecnica, perché si che ne hai tantissime:)

nadin sapevo gia la tua risposta allora vuoi che la devo scrivere io la tecnica..
va bene quanto posso poi vediamo una tecnica che calcola su ruota singola..
vogliamo vedere una tabella con le sequenze che calcola il numero 59..
 
4924.png
sequence number da ? 3
sequence ? 7
number sequence 3.10.17.24.31.38.45.52.59.66.73.80.87

nadin ci leggiamo dopo adesso devo sistemare alcuni script..
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20

Ultimi Messaggi

Indietro
Alto