listato frequenze 180 estrazioni. chi mi puo aiutare

[herat]

Buongiorno carissimi, ero interessata ala ricerca dei numeri (coppie) che su una o due ruote avevano una frequenza bassa (da 1 a 5 sortite in 180 colpi)
la ricerca va effettuata per lo stesso numero su due ruote oppure per 1 numero su una ruota e l'altro numero sull'altra ruota.

Esempi non reali
MI 85 - 60 NZ sortite in 180 colpi 2
MI 85 - MI 25 sortite in 180 colpi 2
MI 85 NA 85 sortite in 180 colpi 2


Lo script con funzione impostagiocata deve mettere i numeri in gioco sulle relative ruote solo se la frequenza totale è inferiore a 5

GRAZIE MILLE

 

[Membro cancellato 16574]

Buonanotte
Salutando gli intervenuri ,
Aspettando " er Mejo " , LuigiB , Joe91 , Mike58 , Ilegend ,
Rubino , salvo50 , Beppignello e gli altri , da dui dobbiamo imparare sempre .
come incipit postiamo questo listato

Option Explicit
'listato frequenze 180 estrazioni. chi mi puo aiutare di herat
'https://forum.lottoced.com/forum/lottoced/area-download/2186089-listato-frequenze-180-estrazioni-chi-mi-puo-aiutare
Sub Main
   Dim Ini,fin,X : Ini = EstrazioneFin - 180 : fin = EstrazioneFin
   Call aGetTitoli()
   For X = 01 To 90 : Call Messaggio(Format2(X)) : Call AvanzamentoElab(01,90,X)
      ReDim nt(90) : nt(01) = X
      ReDim aValori(13) : aValori(01) = Format2(X) : aValori(13) = Format2(X)
      '------------------------------------------------------------
      Dim freq01
      ReDim ruota01(01) : ruota01(01) = BA_
      Call StatFrzTurbo(nt,ruota01,AMBATA_,,,,freq01,,Ini,fin)
      aValori(02) = freq01
      '------------------------------------------------------------
      Dim freq02
      ReDim ruota02(01)
      ruota02(01) = CA_
      Call StatFrzTurbo(nt,ruota02,AMBATA_,,,,freq02,,Ini,fin)
      aValori(03) = freq02
      '------------------------------------------------------------
      Dim freq03
      ReDim ruota03(01)
      ruota03(01) = FI_
      Call StatFrzTurbo(nt,ruota03,AMBATA_,,,,freq03,,Ini,fin)
      aValori(04) = freq03
      '------------------------------------------------------------
      Dim rit04,freq04
      ReDim ruota04(01)
      ruota04(01) = GE_
      Call StatFrzTurbo(nt,ruota04,AMBATA_,,,,freq04,,Ini,fin)
      aValori(05) = freq04
      '------------------------------------------------------------
      Dim freq05
      ReDim ruota05(01)
      ruota05(01) = MI_
      Call StatFrzTurbo(nt,ruota05,AMBATA_,,,,freq05,,Ini,fin)
      aValori(06) = freq05
      '------------------------------------------------------------
      Dim freq06
      ReDim ruota06(01)
      ruota06(01) = NA_
      Call StatFrzTurbo(nt,ruota06,AMBATA_,,,,freq06,,Ini,fin)
      aValori(07) = freq06
      '------------------------------------------------------------
      Dim freq07
      ReDim ruota07(01)
      ruota07(01) = PA_
      Call StatFrzTurbo(nt,ruota07,AMBATA_,,,,freq07,,Ini,fin)
      aValori(08) = freq07
      '------------------------------------------------------------
      Dim freq08
      ReDim ruota08(01)
      ruota08(01) = RO_
      Call StatFrzTurbo(nt,ruota08,AMBATA_,,,,freq08,,Ini,fin)
      aValori(09) = freq08
      '------------------------------------------------------------
      Dim rit09,freq09
      ReDim ruota09(01)
      ruota09(01) = TO_
      Call StatFrzTurbo(nt,ruota09,AMBATA_,,,,freq09,,Ini,fin)
      aValori(10) = freq09
      '------------------------------------------------------------
      Dim freq10
      ReDim ruota10(01)
      ruota10(01) = VE_
      Call StatFrzTurbo(nt,ruota10,AMBATA_,,,,freq10,,Ini,fin)
      aValori(11) = freq10
      '------------------------------------------------------------
      Dim freq12
      ReDim ruota12(01)
      ruota12(01) = NZ_
      Call StatFrzTurbo(nt,ruota12,AMBATA_,,,,freq12,,Ini,fin)
      aValori(12) = freq12
      Call AddRigaTabella(aValori,,,03,,01)
      '-------------------------------------------------------------------------------------
      Dim Xx,yy
      For Xx = 02 To 11
         For yy = Xx + 1 To 12
            If aValori(Xx) <= 05 Then
               Call SetColoreCella(01,RGB(255,128,255)) : Call SetColoreCella(13,RGB(255,128,255))
               Call SetColoreCella(Int(Xx),vbGreen)
            ElseIf aValori(yy) <= 05 Then
               Call SetColoreCella(01,RGB(255,128,255)) : Call SetColoreCella(13,RGB(255,128,255))
               Call SetColoreCella(Int(yy),vbGreen)
            End If
         Next
      Next
   Next
   '-------------------------------------------------------------------------------------
   Call Messaggio(" Attendere Creazione Tabella ")
   Call Scrivi(" Elaborazione dall'estrazione n. " & Ini & " del " & DataEstrazione(Ini) & _
   " fino all'estrazione n. " & fin & " del " & DataEstrazione(fin) & " " & _
   " Estrazioni Esaminate : " & fin - Ini,True,False,,,03)
   Call Scrivi()
   Call CreaTabella()
End Sub
Function aGetTitoli
   Dim atitoli : atitoli = Array(atitoli,"Numeri","BA - Fr","CA - Fr",_
   "FI - Fr","GE - Fr","MI - Fr","NA - Fr","PA - Fr",_
   "RO - Fr","To - Fr","VE - Fr","NZ - Fr","Numeri")
   Call InitTabella(atitoli,vbGreen,,03,00)
End Function

Controllare Sempre .
Salvo Errori ed Omissis .

 

[herat]

Grazie di cuore magia!