x Mike58

[Zetrix]

Sub Main

  Dim Nu(5),aN(5),Ru(1),T
  Ini = EstrazioneFin - 10
  fin = EstrazioneFin
  T = "     Data Estrazione           Ruota    EstrattiReali  EstrattiTrasformati VerificaEsito      Colpi"
 
  For es = fin To Ini Step - 1
  Scrivi T,0,0,7,1
  Scrivi
  For r = 1 To 12
  If r = 11 Then r = 12
  For p = 1 To 5
  Nu(p) = Estratto(es,r,p)
  aN(p) = FuoriX(9 - Decina(Nu(p)) & 9 - Cadenza(Nu(p)))
  Next
  Ru(1) = r
  Call VerificaEsito(aN,Ru,es + 1,1,10,,esito,clp,esa,id)
  Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(Nu,,1) & vbTab & StringaNumeri(aN,,1) & vbTab,0,0,1,4
  If esito <> "" Then Scrivi esa & vbTab & clp & vbTab & GetInfoEstrazione(id),1,2,1,4
  If esito = "" Then Scrivi "<> .. .. .. .. .. " & vbTab & clp
  Next
  Scrivi
  Next
End Sub

ciao Mike58 volevo chiederti se volessi evidenziare un numero nella tabella estratti trasformati
come si deve fare..
ho fatto delle prove ma non ci sono riuscito perche queste tabelle sono diverse dalle altre
tabelle ..

 

[Mike58]

Ciao Zetrix non ho molto tempo ultimamente e sono anche impegnato in altri progetti
ad ogni modo utilizza il mio script per la colorazione e vedi gli esempi.
Magari non riuscivi in quanto la riga dei numeri trasformati erano raccolti in stringa che con l'istruzione CInt viene trasformata in numero intero.
Poi te la colori come vuoi.

Sub Main
   Dim Nu(5),aN(5),Ru(1),T,Spia(3)
   Ini = EstrazioneFin - 10
   fin = EstrazioneFin
   '------- spie-------------------------------------
   Spia(1) = 42 : Spia(2) = 29 : Spia(3) = 32 ' spie
   '.................................................
   T = "     Data Estrazione           Ruota    EstrattiReali  EstrattiTrasformati VerificaEsito      Colpi"
   For es = fin To Ini Step - 1
      Scrivi T,1
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            Nu(p) = Estratto(es,r,p)
            aN(p) = CInt(9 - Decina(Nu(p)) & 9 - Cadenza(Nu(p)))
            If aN(p) > 90 Then aN(p) = aN(p) - 90
            '-------- evidenze in stringa -------------------------------------------------------------------- Mike
            If aN(p) = Spia(1) Or aN(p) = Spia(2) Or aN(p) = Spia(3) Then ' Mike
               coloreStringa = coloreStringa & GetTestoHtml(Format2(aN(p)),1,2,4,2) & "." ' colora rosso "Mike"
            Else
               coloreStringa = coloreStringa & GetTestoHtml(Format2(aN(p)),0,0) & "." ' non colora "Mike"
            End If
            scriveColore = RimuoviLastChr(coloreStringa,".")' cancella ultimo carattere e lo scrive " Mike"
            '-----------------------------------------------------------------------------------------------------------
         Next
         Ru(1) = r
         Call VerificaEsito(aN,Ru,es + 1,1,10,,esito,clp,esa,id)
         Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(Nu,,1) & vbTab & scriveColore & vbTab,0,0
         If esito <> "" And id <> fin Then Scrivi esa & vbTab & clp & vbTab & GetInfoEstrazione(id) & vbTab & esito,1,,,2
         If esito <> "" And id = fin Then Scrivi esa & vbTab & clp & vbTab & GetInfoEstrazione(id) & vbTab & esito & "   ###### ",1,,,1
         If esito = "" Then Scrivi "<> .. .. .. .. .. " & vbTab & clp
         coloreStringa = "" ' azzera stringa Mike
      Next
      Scrivi
      'color = ""
   Next
End Sub

 

[Zetrix]

grazie Mike58 dopo la coloro io la tabella