x Salvo

salvo50 · 14 Giugno 2018

rudivall;n2119513 ha scritto:
Come posso sommare il maggiore più il medio e poi il medio più il minore, il tutto applicato a questa ricerca......

Non ne sono sicuro ma credo che ci sia una funzione che trova il maggiore, un'altra che trova il minore e quello che resta è il medio, per le altre cose che mi chiedi, non sono in grado di aiutarti, quello che ho fatto è il massimo di quello che riesco a fare, ma basta chiedere aiuto agli scripters bravi tipo LuigiB, Joe, Magia, I Leggend, Mike58, ecc

rudivall · 14 Giugno 2018

Grazie caro Salvo, sempre gentilissimo.

i legend · 14 Giugno 2018

Ciao radivall se i numeri sono solo tre
li metti in un array chiami ordinamatriceturbo poi fai le operazioni che vuoi.puoi escludere le matrici con numeri ripetuti .
Se i numeri sono di più bisognerà pensare qualcosa di diverso
ciao

rudivall · 14 Giugno 2018

Ecco perchè io amo essere in questo bellissimo forum.....perchè ci sono persone meravigliose, grazie mille amici....

salvo50 · 14 Giugno 2018

Ciao, Magia, I Leggend

Grazie!

chicco3 · 15 Giugno 2018

Grazie Magia lo script va bene. Saluto te, i legend,rudivall e anche salvo sempre disponibile grazie e buona notte a tutti
chicco3

salvo50 · 15 Giugno 2018

Ciao a Tutti.

Ho aggiunto un IF-THEN, perchè spostando il range nel passato, dove appariva la Nazionale e le altre ruote che non esistevano, nell'output venivano degli zeri l'IF-THEN è questo

If A > 0 And B > 0 And C > 0 And D > 0 Then

Ringrazio ancora Magia per avermi fatto capire dove sbagliavo

Codice:

'PROGETTO - Proposto da Chicco3 - N3
'è una ricerca su tutte le cadenzee ruote consecutive
'esempio giorno 5-6-2018 MI 18 e 8 mentre NA 8
'come vedi ruote consecutive e In isotopia.
'Altra cosa se è possibile nella ricerca sia In orizzontale
'che In verticale troviamo altri numeri della stessa Cadenza
'si prendono anche quelli.In orizzontale sulla riga del 18 e 8,
'mentre In verticale bisogna solo guardare la linea del numero 8 e,
'se non trova nulla e ne trova solo tre come In Figura va bene lo stesso.
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Esq,Col,Esqcol
   Dim Caso,Casi,R1,R2,P1,P2,A,B,C,D,E1,E2
   Dim PP1,PP2,CA,CB,CC,CD
   FIn = EstrazioneFin : Call ScegliRange(Esq,Col,9400,FIn)

   Casi = 00 : Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol : Call Messaggio(Es) : Call AvanzamentoElab(Esq,Esqcol,Es)
      Caso = 00
      For R1 = 01 To 10 : R2 = R1 + 01
         If R2 = 11 Then R2 = 12
         For P1 = 01 To 04 : P2 = P1 + 01
            A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
            C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
            If A > 0 And B > 0 And C > 0 And D > 0 Then
               CA = Cadenza(A) : CB = Cadenza(B) : CC = Cadenza(C) : CD = Cadenza(D)
               '
               Call AmboAmbataVers01(CA,CB,CC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
               Call AmboAmbataVers02(CA,CB,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
               Call AmbataAmboVers01(CA,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
               Call AmbataAmboVers02(CB,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
               '
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
Sub AmboAmbataVers01(CA,CB,CC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
   If CA = CB And CA = CC Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,B,C) : Call aMedio(ANum)
   End If
End Sub
Sub AmboAmbataVers02(CA,CB,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
   If CA = CB And CA = CD Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,B,D) : Call aMedio(ANum)
   End If
End Sub
Sub AmbataAmboVers01(CA,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
   If CA = CC And CA = CD Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,C,D) : Call aMedio(ANum)
   End If
End Sub
Sub AmbataAmboVers02(CB,CC,CD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
   If CB = CC And CB = CD Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,B,C,D) : Call aMedio(ANum)
   End If
End Sub
Function aMedio(ANum)
   Call OrdinaMatriceTurbo(ANum,01)
   Call Scrivi("Numero MINORE   : " & ANum(01),True)
   Call Scrivi("Numero MEDIO    : " & ANum(02),True)
   Call Scrivi("Numero MAGGIORE : " & ANum(03),True)
   Dim MaxMed : MaxMed = Fuori90(ANum(03) + ANum(02))
   Dim MinMed : MinMed = Fuori90(ANum(02) + ANum(01))
   Call Scrivi("MAGGIORE + MEDIO  : " & MaxMed,True)
   Call Scrivi("MEDIO + MINORE    : " & MinMed,True)
End Function

chicco3 · 15 Giugno 2018

Buongiorno Salvo grazie della tua disponibilità tutto ok. Inerente alla piramide dei ritardi e frequenza non ho capito non hai nulla? grazie

salvo50 · 15 Giugno 2018

No, in passato credo che qualcuno (Mike58) abbia fatto qualcosa del genere, però vatti a ricordare quando.

salvo50 · 15 Giugno 2018

Ho trovato questo script di Joe sulla piramide dei ritardi

Codice:

 Option Explicit
Sub Main
   'Piramide dei Ritardi per Vincenzo Script By Joe v.1.0 del 5/11/2015
   Dim Es,N,R
   Dim C,T,X,A,B
   Dim Tit(14)
   Dim Bi(10,2)
   Es = EstrazioneFin : N = 35
   Es = 7735 'ATTENZIONE: CANCELLARE TUTTA QUESTA LINEA DI CODICE
   Es = Int(InputBox("Inserisci il numero 'Id' ","ESTRAZIONE",Es))
   N = Int(InputBox("Quale Numero  ? ","RITARDI DEL LOTTRONE",N))
   For R = 1 To 10 : Tit(R) = FormatSpace(R,2,True) & "° Rit" : Next
   Tit(11) = "Minimo" : Tit(12) = "Somma"
   Tit(13) = "Rit Nat" : Tit(14) = "Min/RN"
   InitTabella(Tit)
   For R = 1 To 10
      Bi(R,1) = R : Bi(R,2) = EstrattoRitardo(R,N,,Es)
   Next
   OrdinaMatrice Bi,True,2
   For C = 1 To 10
      T = 0 : ReDim V(14)
      For X = C To 1 Step - 1
         V(X) = SiglaRuota(Bi(X,1)) & FormatSpace(Bi(X,2),4,True)
         T = T + Bi(X,2)
      Next
      A = Bi(C,2) : B = Round(1 / Prob(1,1,Int(C)),2)
      V(11) = A : V(12) = FormatSpace(T,4) : V(13) = B : V(14) = Round(A/B,2)
      AddRigaTabella(V)
   Next
   Scrivi "Numero " & N,True
   Scrivi
   Scrivi "Aggiornato al " & DataEstrazione(Es),True
   Scrivi
   CreaTabella
   ColoreTesto 2 : Scrivi "Script By Joe",True : ColoreTesto 0
End Sub

chicco3 · 15 Giugno 2018

Grazie adesso ci guardo.

chicco3 · 15 Giugno 2018

E' questo ma ci vuole quello delle frequenze, oppure mettendo il numero fisso vedere quali numeri si sono abbinati di più in una determinata ruota. Va bene comunque grazie se trovi qualcosa fammi sapere ciao Buonagiornata
Chicco

chicco3 · 15 Giugno 2018

Io lo avevo il programma buono ed era Vincer solo che ho cambiato il pc e, il programmatore ha chiuso battenti e non riensco piu a usarlo.

chicco3 · 16 Giugno 2018

Ciao Salvo trovato sulle frequenze ho spulciato io ringrazio Mike58 e naturalmente a te ciao buonagiornata

rudivall · 18 Giugno 2018

Ciao amici, Salvo, Magia, Ilegend, potreste inserire la giocata per estratto.....ci ho provato in vari modi ma non sono all'altezza, grazie già da adesso a chi ci proverà...
Dim MaxMed : MaxMed = Fuori90(ANum(03) + ANum(02))
Dim MinMed : MinMed = Fuori90(ANum(02) + ANum(01))
Queste sono le due ambate da mettere in gioco per 9 estrazioni......

chicco3 · 18 Giugno 2018

Ciao Rudival sulla mia ricerca le tue ambate sono ottime, sarebbe bello avere gli accoppiamenti per ambo.Io ci stò provando con i frequenti e non è un gran che, tu hai qualche idea grazie e a presto
chicco

rudivall · 18 Giugno 2018

Ciao Chicco fai una semplice variante al listato invece di ricercare la cadenza fai ricercare la figura, i risultati positivi compreso l'ambetto sono molto superiori, per questo ho richiesto la giocata. Spaziometria come programma possiede la funzione convergenze si possono far girare i due listati insieme e dalle convergenze si possono estrapolare numeri veramente ottimi.

chicco3 · 18 Giugno 2018

Grazie Rudivall io di modifica script non capisco un cavolo se puoi te, se no devo chiedere a salvo se lo fa. Comunque grazie della dritta.

rudivall · 18 Giugno 2018

Chicco su questa riga scrivi così.....
CA = Figura(A) : CB = Figura(B) : CC = Figura(C) : CD = Figura(D)
in questo modo ricerca la figura.....

chicco3 · 18 Giugno 2018

Ok ci provo rudivall poi ti faccio sapere grazie.Vedi che nell'altro post se ti puo interessare salvo mi sta facendo un listato ed è un metodo ottimo,appena lo fa dimmi poi come va.ciao

x Salvo

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member

Advanced Member

Advanced Member

Advanced Member >PLATINUM<

Advanced Member

Advanced Member >PLATINUM<

Advanced Member

Advanced Member >PLATINUM<

Advanced Member