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 10 maggio 2025
    Bari
    13
    59
    06
    79
    87
    Cagliari
    72
    15
    60
    08
    41
    Firenze
    33
    12
    20
    40
    43
    Genova
    46
    01
    70
    16
    19
    Milano
    69
    55
    02
    44
    20
    Napoli
    33
    10
    38
    87
    72
    Palermo
    79
    55
    11
    62
    10
    Roma
    43
    29
    79
    05
    31
    Torino
    25
    26
    61
    75
    63
    Venezia
    47
    33
    64
    31
    20
    Nazionale
    56
    46
    38
    41
    74
    Estrazione Simbolotto
    Milano
    43
    28
    34
    03
    20
Indietro
Alto