x ilegend numero minimo e massimo

Zetrix · 15 Agosto 2023

ilegend questo cruciverba calcola lo stesso ambo

consiglio di giocare a BA E RO 18 56 ...Rm e la favorita...

calcolo del cruciverba
28+28=56
28+18=46
28+46=74

il cruciverba e perfetto soltanto che questo cruciverba
e stato adattato su tre numeri e non so se darà esito..

Zetrix · 15 Agosto 2023

Ba
Ciclo delle ultime 18 estrazioni
Dati valutati all'estrazione del 12.08.2023
Uscite 0 = 2 9 11 13 16 18 24 25 29 30 32 34 37 39 41 44 45 50 51 52 62 64 69 73 76 78 84 85 86

Zetrix · 15 Agosto 2023

Codice:

sabato, ago 12 2023

BA    83.89.70.59.05
BA    89.83.70.59.05    76 65 11 78 24 35 72 18 29 16     |                   |     0  c    12.08.2023
________________________________________________________________________________
CA    46.08.55.78.83
CA    83.78.55.46.08    60 51 13 74 36 45 69 31 40 17     |                   |     0  c    12.08.2023
________________________________________________________________________________
FI    90.12.19.35.76
FI    90.76.35.19.12    49 33 26 74 67 83 60 53 69 28     |                   |     0  c    12.08.2023
________________________________________________________________________________
GE    03.86.69.65.31
GE    86.69.65.31.03    82 48 20 52 24 58 35 7 41 37     |                   |     0  c    12.08.2023
________________________________________________________________________________
MI    39.32.76.68.27
MI    76.68.39.32.27    47 40 35 69 64 71 61 56 63 34     |                   |     0  c    12.08.2023
________________________________________________________________________________
NA    14.65.26.76.83
NA    83.76.65.26.14    72 33 21 44 32 71 37 25 64 53     |                   |     0  c    12.08.2023
________________________________________________________________________________
PA    69.43.90.31.67
PA    90.69.67.43.31    88 64 52 66 54 78 45 33 57 55     |                   |     0  c    12.08.2023
________________________________________________________________________________
RO    05.07.26.39.46
RO    46.39.26.07.05    33 14 12 27 25 44 20 18 37 24     |                   |     0  c    12.08.2023
________________________________________________________________________________
TO    60.36.79.12.10
TO    79.60.36.12.10    55 31 29 55 53 77 81 34 58 34     |                   |     0  c    12.08.2023
________________________________________________________________________________
VE    37.48.16.84.39
VE    84.48.39.37.16    75 73 52 82 61 63 46 25 27 18     |                   |     0  c    12.08.2023
________________________________________________________________________________
NZ    83.90.07.30.82
NZ    90.83.82.30.07    89 37 14 38 15 67 31 8 60 59     |                   |     0  c    12.08.2023
________________________________________________________________________________

ilegend questa tabella calcola tutti i cinque estratti in tot sono 10 ambate
servono per le convergenze sulle ruote..
vedi il 18 a BA E RO..

Zetrix · 15 Agosto 2023

Ge__________86__________
___________________________
Na_______56____26_______

14+86+26=126

14+86=10
14+26=40
14+56=70

Codice:

126   |   1    =    126
126   |   2    =    63
126   |   3    =    42
126   |   6    =    21
126   |   7    =    18
126   |   9    =    14
126   |   14    =    9
126   |   18    =    7

divisione del numero 126

Zetrix · 16 Agosto 2023

Codice:

sabato, ago 12 2023

89.83.70.59.5

89.83.70.59

89.83.70

89.83

89

83.78.55.46.8

83.78.55.46

83.78.55

83.78

83

90.76.35.19.12

90.76.35.19

90.76.35

90.76

90

86.69.65.31.3

86.69.65.31

86.69.65

86.69

86

76.68.39.32.27

76.68.39.32

76.68.39

76.68

76

83.76.65.26.14

83.76.65.26

83.76.65

83.76

83

90.69.67.43.31

90.69.67.43

90.69.67

90.69

90

46.39.26.7.5

46.39.26.7

46.39.26

46.39

46

79.60.36.12.10

79.60.36.12

79.60.36

79.60

79

84.48.39.37.16

84.48.39.37

84.48.39

84.48

84

90.83.82.30.7

90.83.82.30

90.83.82

90.83

90

ilegend sono riuscito a fare questo script con il triangolo di tartaglia
invece di scrivere i numeri casuali su array ho scritto i numeri degli estratti su ruota
non sono riuscito a scrivere la sigla della ruota perche disordina il triangolo dei numeri..

BA
5 volte 89 ----->5x89=445=85 ------>Ambata
4 volte 83 ----->4x83=332=62
3 volte 70 ----->3x70=210=30
2 volte 59 ----->2x59=118=28
1 volta 05 ----->1x5=5

BA 85+05=90
NA 14+76=90

FIGURA 4 + FIGURA 5 = 9

Zetrix · 16 Agosto 2023

Codice:

Option Explicit
Sub Main
   '
   Dim sRiga,aNumeri,es,r,x,i
   '
   For es = EstrazioneFin - 0 To EstrazioneFin
      Scrivi DataEstrazione((es),1),0,1,4,1
      Scrivi
      For r = 1 To 11
         If r = 11 Then r = 12
         '
         ReDim ae(0)
         Call GetArrayNumeriRuota(es,r,ae)
         sRiga = Array(0,0,0,0,0,0)
         For i = 1 To 5
            sRiga(i) = ae(i)
         Next
         Call OrdinaMatriceTurbo(sRiga,- 1)
         '
         x = UBound(sRiga)
         Do
            Call Scrivi(StringaNumeri(sRiga))
            Scrivi
            sRiga(x) = 0
            x = x - 1
         Loop While x >= 1
      Next
   Next
End Sub

i legend · 16 Agosto 2023

Ciao zetrix.
Sei riuscito a fare tutto ? avevi bisogno di un aiuto in qualcosa?
Non ho capito .
Se posso ci provo.

P.s
Gli array vanno dichiarati con la a davanti.
aRiga .
Con le s si dichiarano le stringhe.

Non è una cosa obbligatoria , per convenzione e per una lettura facilitata si fa così.

Zetrix · 16 Agosto 2023

Ciao ilegend per adesso no lo script va bene cosi..
velevo scrivere la sigla della ruota ma non a comunque importanza..

i legend · 16 Agosto 2023

Zetrix ha scritto:
Ciao ilegend per adesso no lo script va bene cosi..
velevo scrivere la sigla della ruota ma non a comunque importanza..

Dove? Affianco alla stringa?
Se fai un esempio visivo posso provarci.

Zetrix · 16 Agosto 2023

Codice:

89.83.70.59.5

89.83.70.59

89.83.70

89.83

89

ilegend se scrive la sigla ruota davanti dopo si devono scrivere cinque sigle
sono cinque le righe lasciamo le cose come stanno..
ma il computer lai comprato o sei ancora con il cell..

Zetrix · 16 Agosto 2023

ilegend scrivo come si calcola una somma 90

NA 14+76=90 figura 5 + figura 4

NA RO 05+85=90
MI NA 32+58=90
MI NA 22+68=90
GE NA 86+04=90
BA NA 31+59=90
BA NA 85+05=90

la scelta migliore saranno le ruote diametrali BA E NA
in virtù hanno una dist 9
76 85 dist 9
05 14 dist 9

i legend · 16 Agosto 2023

Sempre con cellulare. Sto cercando.

Zetrix · 16 Agosto 2023

Zetrix · 17 Agosto 2023

Codice:

venerdì, ago 4 2023

BA    35.04.53.49.01
BA    01.04.35.49.53    32      |                   |     6  c    16.08.2023
BA    53.49.35.04.01    39      |                   |     6  c    16.08.2023
________________________________________________________________________________
CA    19.16.53.65.03
CA    03.16.19.53.65    06      |                   |     6  c    16.08.2023
CA    65.53.19.16.03    31      |                   |     6  c    16.08.2023
________________________________________________________________________________
FI    28.67.13.86.12
FI    12.13.28.67.86    27      | FI .. 27 .. .. .. |     1  c    05.08.2023
FI    86.67.28.13.12    47      | FI .. 27 .. .. .. |     1  c    05.08.2023
________________________________________________________________________________
GE    83.55.87.31.57
GE    31.55.57.83.87    33      | GE 61 .. .. .. .. |     4  c    11.08.2023
GE    87.83.57.55.31    61      | GE 61 .. .. .. .. |     4  c    11.08.2023
________________________________________________________________________________
MI    01.33.07.28.67
MI    01.07.28.33.67    22      |                   |     6  c    16.08.2023
MI    67.33.28.07.01    62      |                   |     6  c    16.08.2023
________________________________________________________________________________
NA    70.58.76.06.38
NA    06.38.58.70.76    26      | NA .. .. 26 .. .. |     5  c    12.08.2023
NA    76.70.58.38.06    64      | NA .. .. 26 .. .. |     5  c    12.08.2023
________________________________________________________________________________
PA    52.73.10.48.90
PA    10.48.52.73.90    14      | PA 69 .. .. .. .. |     5  c    12.08.2023
PA    90.73.52.48.10    69      | PA 69 .. .. .. .. |     5  c    12.08.2023
________________________________________________________________________________
RO    87.81.47.19.11
RO    11.19.47.81.87    39      | RO .. .. .. .. 39 |     2  c    08.08.2023
RO    87.81.47.19.11    53      | RO .. .. .. .. 39 |     2  c    08.08.2023
________________________________________________________________________________
TO    81.26.54.57.05
TO    05.26.54.57.81    33      |                   |     6  c    16.08.2023
TO    81.57.54.26.05    78      |                   |     6  c    16.08.2023
________________________________________________________________________________
VE    47.41.32.57.79
VE    32.41.47.57.79    38      | VE .. .. .. 69 .. |     4  c    11.08.2023
VE    79.57.47.41.32    69      | VE .. .. .. 69 .. |     4  c    11.08.2023
________________________________________________________________________________
NZ    09.60.46.45.12
NZ    09.12.45.46.60    42      | NZ .. 59 .. 42 .. |     3  c    10.08.2023
NZ    60.46.45.12.09    59      | NZ .. 59 .. 42 .. |     3  c    10.08.2023
________________________________________________________________________________

ilegend ho fatto un altro calcolo su questa tabella
ma ce un problema quanto esce una ambata la scrive su entrambe le ambate
nota scrivendo la cinquina in ordine dal numero minimo a massimo e viceversa
avremo sempre un numero uguale nella 3 Pos
esempio sulla NZ 45-12+9=42 e 45-46+60=59
la stessa cosa si puo fare anche viceversa con la formula inversa a-b+c
09-12+45=42
60-46+45=59

se metto lo script riesci a risolvere il problema perche scrive l'ambata sortita
su entrambe le ambate, ma sei con il cell e come fai a fare le correzioni sullo script..

Zetrix · 17 Agosto 2023

Codice:

Sub Main
   Dim atemp1,atemp2,r,i,es,aN(3),ar(1),nclp,ncolpo,sEstr,rk,rx
   Dim a,b,c,x,y,z
   '
   'rk = InputBox("Quale numero vuoi controllare?",,0)
   '
   For es = EstrazioneFin - 10 To EstrazioneFin
      Scrivi DataEstrazione((es),1),0,1,2,5
      Scrivi
      For r = 1 To 11
         If r = 11 Then r = 12
         For rx = rk To rk
            ReDim ae(0)
            Call GetArrayNumeriRuota(es,r,ae)
            atemp1 = Array(0,0,0,0,0,0)
            For i = 1 To 5
               atemp1(i) = ae(i)
            Next
            Call OrdinaMatriceTurbo(atemp1,+ 1)
            '
            x = Fuori90(atemp1(1) - atemp1(2) + atemp1(3))
            '
            If x = atemp1(1) Or x = atemp1(2) Or x = atemp1(3) Then
               x = Diametrale(x)
            Else
               x = x
            End If
            '------------------
            ReDim ae(0)
            Call GetArrayNumeriRuota(es,r,ae)
            atemp2 = Array(0,0,0,0,0,0)
            For i = 1 To 5
               atemp2(i) = ae(i)
            Next
            Call OrdinaMatriceTurbo(atemp2,- 1)
            '
            y = Fuori90(atemp2(1) - atemp2(2) + atemp2(3))
            '-------------------
            If y = atemp2(1) Or y = atemp2(2) Or y = atemp2(3) Then
               y = Diametrale(y)
            Else
               y = y
            End If
            '------------------
            '------------------
            '
            'If rx = x Or rx = y Then
            '
            aN(1) = x
            aN(2) = y
            '-------------
            ar(1) = r
            '
            Call VerificaEsitoTurbo(aN,ar,es + 1,1,nclp,,,ncolpo,sEstr)
            Scrivi SiglaRuota(r) & Space(4) & StringaNumeri(ae,,1)
            Scrivi SiglaRuota(r) & Space(4) & StringaNumeri(atemp1,,1) & Space(4) & "",,0
            Scrivi Format2(aN(1)) & " " & Space(4) & " | " & FormatSpace(sEstr,17) & " | " & Space(4) & FormatSpace(ncolpo,3) & "c" & Space(4) & DataEstrazione(es + ncolpo) & "",0,1,1,5
            Scrivi SiglaRuota(r) & Space(4) & StringaNumeri(atemp2,,1) & Space(4) & "",,0
            Scrivi Format2(aN(2)) & " " & Space(4) & " | " & FormatSpace(sEstr,17) & " | " & Space(4) & FormatSpace(ncolpo,3) & "c" & Space(4) & DataEstrazione(es + ncolpo) & "",0,1,1,5
            Scrivi String(80,"_")
            'End If
         Next
      Next
   Next
End Sub

ilegend ecco lo script se passa Joe vediamo se risolve lui il problema..

i legend · 17 Agosto 2023

Più tardi provo a dargli uno sguardo.
Ciao.

i legend · 17 Agosto 2023

Zetrix ha scritto:
If y = atemp2(1) Or y = atemp2(2) Or y = atemp2(3) Then y = Diametrale

Questa riga ci dice che se il ricavato della formula è uguale a uno dei tre estratti che utilizzi per calcolarla bisogna fare il diametrale.
1) se è uguale a uno degli altri due estratti che si fa?
2) se anche il diametrale fosse presente? Non so se sia possibile ma con il fuori 90 la mio sul fuoco non la metto.

Sppena mi rispondi proseguo.

i legend · 17 Agosto 2023

Esempio
90.89.88.44.84
Ordino
90-89+88= 89-> diametrale(44)
Presente nella cinquina va bene oppure fai un altra formula?

Zetrix · 18 Agosto 2023

ciao ilegend se nella cinquina si trova anche il diam non la si gioca
mi sembra ovvio ma il problema e un altro perche scrive l'ambata sortita su
entrambe le ambate visto che le due ambate sono diverse..
volevo dirti un altra cosa quanto abbiamo tre numeri di calcolo possiamo fare
diversi calcoli con le figure e sarebbero i quadrati (due ruote) oppure gli aquiloni che sarebbero
l'esempio che ai fatto con il diam oppure con i rombi (tre ruote) invece per i triangoli si fa il calcolo
soltanto su due numeri..

Zetrix · 18 Agosto 2023

aN(1) = x
aN(2) = y

Call VerificaEsitoTurbo(aN,ar,es + 1,1,nclp,,,ncolpo,sEstr)

questa riga cosa fa se si verifica la aN(1) dovrebbe scrivere l'ambata 1
se si verifica la aN(2) dovrebbe scrivere l'ambata 2 ma in out non scrive cosi..
ho notato che il verifica esito e scritto aN quindi ecco perche scrive l'esito su entrambe le ambate
perche le ambate sono scritte nello stesso contenitore di aN..

x ilegend numero minimo e massimo

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member