la somma 90

[Zetrix]

If A And B = i Then Call SetColoreCella((2),2,5)

i legend questa e la riga per colorare i numeri

la ( i ) sta per la somma 90 e A E B sono i numeri che hanno la somma 90

(2) e la riga della tabella e , 2,5 sono i colori rosso e bianco
ma ce un altra funzione con il sistema rgb per colorare i numeri

 

[i legend]

Zetrix sotto il rigo addrigatabella metti questo codice

For p2=1 to 5

 If ap(p2)=1 then

Call SetColoreCella(int(p2+2),2,5)

Else

Call SetColoreCella(int(p2+2),RGB(220,220,220),RGB(11,71,78))

End if

Next

Dimmi se evidenzia la somma 90

 

[Zetrix]

Sub Main
   Dim aN,aLung(30),Id
   Dim Nu,Ru(1),er(12)
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin
   filtro = CInt(InputBox("Quale scelta" & Chr(13) & Chr(13) & "1 - Frequenza" & Chr(13) & "2 - Ritardo",,2))
   If filtro = 1 Then Scrivi "Verifica Combinazioni per Frequenza",1
   If filtro = 2 Then Scrivi "Verifica Combinazioni per Ritardo",1
   Scrivi
   Scrivi "Range Inizio........ " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine.......... " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni... " & fin - Ini + 1
   Scrivi
   ReDim T(15)
   For x = 1 To 12
      T(1) = "Terzine consecutive"
      T(x + 1) = Left(NomeRuota(x),2)
   Next
   T(15) = "Max"
   T(14) = "Min"
   'T(16) = "Valida/Non Valida"
   ' Call InitTabella(T,,,3,,"Georgia")
   'Call InitTabella(T,RGB(0,71,171),,3,6,"Gisha")
   Call InitTabella(T,RGB(0,100,128),,,RGB(200,200,250),"arial black")
   ' Call InitTabella(T,RGB(0,71,171),,,5)
   '-------------------------------------------
   For Id = 1 To 30 ' variare il massimo a secondo la q.tà di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------
      ReDim V(15)
      V(1) = StringaNumeri(aN)
      For r = 1 To 12
         Ru(1) = r
         If filtro = 1 Then er(r) = SerieFreqTurbo(Ini,fin,aN,Ru,1)
         If filtro = 2 Then er(r) = SerieRitardoTurbo(Ini,fin,aN,Ru,1)
         V(r + 1) = er(r)
      Next
      Call OrdinaMatrice(er,1,1)
      V(14) = er(2)
      V(15) = er(12)
      Call AddRigaTabella(V,,,3,0,"gisha")
      '------------------------------------------
      '   If V(xx) = er(12) Then Call SetColoreCella((xx),2,4)
      '   If V(xx) = er(2) Then Call SetColoreCella((xx),3,2)
      'If V(xx) = er(1) And V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
      Call SetColoreCella(1,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(2,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(3,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(4,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(5,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(6,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(7,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(8,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(9,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(10,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(11,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(12,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(13,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(14,RGB(0,100,128),RGB(200,200,250))
      Call SetColoreCella(15,RGB(0,100,128),RGB(200,200,250))
      For xx = 1 To 11
         If V(xx) = er(12) Then Call SetColoreCella((xx),RGB(255,51,171),1)
         If V(xx) = er(2) Then Call SetColoreCella((xx),RGB(255,204,58),1)
         If er(12) > 25 Then Call SetColoreCella(15,RGB(255,51,171),1)
         'Scrivi DataEstrazione(fin)&"   " ,0,0,7,4
      Next
   Next
   CreaTabella
End Sub
Sub Lunghetta(aLung,id,aN)
   '--- inserimento Lunghette ----------------------
   aLung(1) = Array(0,1,2,3)
   aLung(2) = Array(0,4,5,6)
   aLung(3) = Array(0,7,8,9)
   aLung(4) = Array(0,10,11,12)
   aLung(5) = Array(0,13,14,15)
   aLung(6) = Array(0,16,17,18)
   aLung(7) = Array(0,19,20,21)
   aLung(8) = Array(0,22,23,24)
   aLung(9) = Array(0,25,26,27)
   aLung(10) = Array(0,28,29,30)
   aLung(11) = Array(0,31,32,33)
   aLung(12) = Array(0,34,35,36)
   aLung(13) = Array(0,37,38,39)
   aLung(14) = Array(0,40,41,42)
   aLung(15) = Array(0,43,44,45)
   aLung(16) = Array(0,46,47,48)
   aLung(17) = Array(0,49,50,51)
   aLung(18) = Array(0,52,53,54)
   aLung(19) = Array(0,55,56,57)
   aLung(20) = Array(0,58,59,60)
   aLung(21) = Array(0,61,62,63)
   aLung(22) = Array(0,64,65,66)
   aLung(23) = Array(0,67,68,69)
   aLung(24) = Array(0,70,71,72)
   aLung(25) = Array(0,73,74,75)
   aLung(26) = Array(0,76,77,78)
   aLung(27) = Array(0,79,80,81)
   aLung(28) = Array(0,82,83,84)
   aLung(29) = Array(0,85,86,87)
   aLung(30) = Array(0,88,89,90)
   '----Fine Inserimento-------------------------------
   aN = aLung(id)
End Sub

se no i legend vedi questo script la scritto mike..

 

[Zetrix]

Zetrix sotto il rigo addrigatabella metti questo codice

For p2=1 to 5

 If ap(p2)=1 then

Call SetColoreCella(int(p2+2),2,5)

Else

Call SetColoreCella(int(p2+2),RGB(220,220,220),RGB(11,71,78))

End if

Next

Dimmi se evidenzia la somma 90

ok provo

 

[i legend]

Zetrix , se questo va bene ,provo a fare la ricerca nel forum per la funzione
Posta un immagine per favore cosi controllo le colonne .

 

[Zetrix]

i legend non si mette in discussione la tua bravura la tabella e ok e non a dato nessun errore..
domani vediamo la funzione verifica esito , adesso e tardi ,
buonanotte

 

[i legend]

Call VerificaEsitoTurbo(aN,aR,iDestr + 1,2,nClp,,,colpo,sEstr)
Promemoria funzione verifica esito

Zetrix prova anche su più estrazioni per vedere se colora sempre correttamente.
Domani provo a inserire anche l esito

 

[i legend]

Buona notte a tutti

 

[Zetrix]

buongiorno, i legend lo script funziona correttamente anche su diverse estr..
ma ho notato alcune cose su questa tecnica..

Estrazione del 22.07.2023

Venezia 81 59 38 03 32

a VE e uscito 38 81 ambetto ecco come imbrogliano i numeri..
se non e il banco a fare questi imbrogli, quindi e da considerare anche l'ambetto su ruota,
se da l'ambetto su ruota e da considerare chiusa la previsione..
ma ho notato un altra cosa..

Estrazione del 21.07.2023

Bari 61 67 22 43 19
Napoli 10 84 17 32 22
Venezia 50 67 17 46 40

10+22=32

a VE E uscito il 38 32 , questo significa che la somma 90 legge anche le altre ruote
oltre la ruota gemella..

 

[Zetrix]

Rt(1) = a(1) -->1 numero (dist)
Rt(2) = a(2) -->2 numero (som)
Rt(3) = a(3) -->3 numero (diff)


n1(1) = Rt(1) : n1(2) = Rt(2) : n1(3) = Rt(3)

esito = "--"
If VerificaEsito (n1,RuotaGioco,2,es+1,,10,clp,aUscite) Then
For k1 As Integer = 0 To aUscite.GetUpperbound(0)
If aUscite(k1) <> "" Then esito = aUscite(k1)
Next
End If

i legend questo e il codice che scrive mike per la verifica esito ambo
ma questo codice verifica esito scrive su spaziolight e non su spaziometria..

 

[Zetrix]

i legend questa e la tabella che a scritto mike, io lo colorata solo la tabella..

 

[i legend]

Buon giorno zetrix
Ma se lancia da Bari a Venezia esce solo la tabella di Venezia a video?
La funzione verifica esito l ho trovata ieri bel forum

Prima xhe xi metta mano
Per favore dimmi su xhe ruote va verificato l ambata e l ambo

 

[i legend]

Fai con calma.
Verifica se quanto fatto sino ad ora coincide con i tuoi calcoli..
Metteremo una colonna affianco all ambata per vedere l esito , e una colonna dopo l ambo .
verifica esito valuta anche piu ruote assieme e si ferma al primo esito ottenuto.


Se riesco provo a fare qualcosa stasera,

Ciao

 

[Zetrix]

Ciao ilegend,
se vogliamo inserire la funzione verifica esito va bene per ambata e ambo su tutte
ma estrattiruGemella questa la possiamo elminare perche non serve e anche
isoRuGemP1 e l'altra perche se dobbiamo inserire la funzione verifica esito
dopo la tabella diventa troppo estesa quindi dobbiamo fare in questo modo..
si deve fare cosi..

estrattiruGemella --->sost con verifica esito ambata su ruota
isoRuGemP1 --->sost con verifica esito ambo su ruota
isoRuGemP2 --->sost con verifica esito ambo su tutte

i colpi di gioco per ambata possiamo mettere 9 colpi
invece per ambo sino a sfaldamento dell'ambo su tutte

 

[i legend]

Se lanci da Bari a nz esce solo la tabella di Venezia??
Se è così c è un errore.
Se a te serve solo la previsione senza far vedere come fai togliamo.anche le colonne n1,n2 , n3 . Quelle sono meno utili visivamente dei numeri isotopi per il calcolo dell abbinamento.
Anche i software con i metodi non ti fanno vedere il calcolo.
Ma poi ti ricordi? Non è facile leggere lo script. Metti una descrizione del procedimento dentro lo script.

io non la riporto scritta qui perché è un tuo metodo .

Mi raccomando fammi sapere delle altre ruote. Prima di andare avanti deve essere giusto quello fatto sino ad ora.

 

[Zetrix]

ilegend le tabelle escono tutte se non ce la condizione della somma 90 esce la tabella in bianco

 

[Zetrix]

si la n1,n2,n3 si puo anche eliminare dalla tabella ma il calcolo deve rimanere sempre nello script
soltanto che non la visualizziamo nella tabella

 

[Zetrix]

delle altre ruote potremmo estendere il calcolo dell'ambo anche sulle
altre ruote corrispondenti alla somma 90 ma non so se si puo fare e come fare
a visualizzare tutti gli ambi nella tabella perche poi diventano 10 ambi su tutte
compresa la ruota di calcolo perche puo anche dare l'ambo con la somma 90
il calcolo sulla ruota gemella e l'ambo base della tecnica ma come avrai visto l'ambata si puo
abbinare anche con le altre ruote che non siano ne gemelle e ne diametrale..

 

[Zetrix]

ilegend ti farò vedere un esempio su questa tabella
vedi a Rm l'ambata e 31

adesso vedi sulla gemella --> Fi 61+10=71
ambo 31 71 su Rm Fi tutte
ma se vedi a NA 19+40=59

ambo 31 59 su Rm Na e tutte

invece a VE 66+18=84

ambo 31 84 Rm VE e tutte

11.07.2023 GE 71.67.23.85.53 --> 71
11.07.2023 MI 31.68.02.74.34 --> 31
13.07.2023 BA 17.82.71.81.34 --> 71
13.07.2023 TO 71.37.61.10.62 --> 71
13.07.2023 NZ 71.43.56.90.59 --> 71
15.07.2023 BA 19.31.33.71.80 --> 31.71
15.07.2023 RO 31.11.69.17.59 --> 31
15.07.2023 TO 88.04.03.34.71 --> 71
20.07.2023 BA 10.59.71.54.55 --> 71
20.07.2023 FI 68.71.13.90.69 --> 71
20.07.2023 GE 11.32.81.31.16 --> 31
20.07.2023 PA 16.31.82.57.41 --> 31
29.07.2023 VE 31.81.84.06.61 --> 31
01.08.2023 CA 03.50.84.31.56 --> 31
01.08.2023 NA 71.62.84.31.29 --> 71.31

 

[i legend]

Zetrix , lascio la tecnica così come mi hai detto di impostarla inizialmente.
Se fai la ricerca su 100 estrazioni esempio vedi anche come si è comportata negli altri casi precedenti, magari su una ruota funziona meglio delle altre e valuti se postarla o meno.

Se vuoi si può fare in maniera inversa e l ultimo caso lo mettiamo nella prima riga sotto i titoli della tabella e il primo trovato in fondo così è più leggibile.

Allora ambata
la vrtifichiamo sulla ruota
e L ambo a TT
Per i colpi non credo sia un problema
Ambata 9
Ambo metto 25 clp ?
Se non ricordo male è il premio di un ambo su tutte.
Fammi sapere se ho capito bene.