Buongiorno a Tutti,
Volevo esporre tramite una Tabella sfruttando il verifica esito una mia ricerca che ho proposto in un Post, ma ho qualche problema ha stampare l'esito dell'ambetto, non capisco perchè non lo scrive, forse sbaglio qualcosa nel codice o in una parte di esso o devo aggiungere altro.
Spiego oltre a proporre lo script:
Facendo una ricerca nei mesi precedenti ho riscontrato che su Palermo i numeri 32 e 48 hanno dato o L'ambo o l'ambetto e volevo postare il tutto creando la tabella, ma come detto ho qualche problema nell' esporre i dati, per l'ambo non ho problemi e viene scritto ed evidenziato, ma per l'ambetto.... ho qualche problema,
Nello script per comodità ho disattivato la scelta con Imput ed ho usato la sorte 1
Call VerificaEsitoTurbo(aNum,Aruo,IdEstr,1,Clp,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
per vedere che a settembre ed ad Ottobre ha dato l'ambetto ma non so perchè non viene scritto, forse e complicato farlo, ma volevo provare a fare qualcosa prendendo spunto da qualche script che ho trovato e riscritto per cercare di imparare a realizzare anche questo tipo di analisi.
Di seguito lo script
Sperando che sia fattibile e che qualcuno possa darmi la possibilità di Terminarlo e pubblicarlo.
Grazie come sempre.
Volevo esporre tramite una Tabella sfruttando il verifica esito una mia ricerca che ho proposto in un Post, ma ho qualche problema ha stampare l'esito dell'ambetto, non capisco perchè non lo scrive, forse sbaglio qualcosa nel codice o in una parte di esso o devo aggiungere altro.
Spiego oltre a proporre lo script:
Facendo una ricerca nei mesi precedenti ho riscontrato che su Palermo i numeri 32 e 48 hanno dato o L'ambo o l'ambetto e volevo postare il tutto creando la tabella, ma come detto ho qualche problema nell' esporre i dati, per l'ambo non ho problemi e viene scritto ed evidenziato, ma per l'ambetto.... ho qualche problema,
Nello script per comodità ho disattivato la scelta con Imput ed ho usato la sorte 1
Call VerificaEsitoTurbo(aNum,Aruo,IdEstr,1,Clp,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
per vedere che a settembre ed ad Ottobre ha dato l'ambetto ma non so perchè non viene scritto, forse e complicato farlo, ma volevo provare a fare qualcosa prendendo spunto da qualche script che ho trovato e riscritto per cercare di imparare a realizzare anche questo tipo di analisi.
Di seguito lo script
Codice:
'Ambo ed Ambetto Verifica Esiti
Option Explicit
Sub Main
Dim Ini,Fin,IdEstr,QE,Clp
Dim Casi,C,Casi1
Dim aNum(10),r,Aruo(1)
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Dim sRetNumeri,nRetVincita,nAmbetti
Clp = 13
'-------------------------------------- Quì Scegli Numeri ---> In Questo Caso Devi Disattivare " ScegliNumeri"
aNum(1) = 32
aNum(2) = 48
'aNum(3) = 79
'aNum(4) = 58
'aNum(5) = 23
'---------------------------------------
'ScegliNumeri(aNum) ' ---------> Se Togli Apice Scegli Quali Numeri per Ambetto ---> Vedi Sopra
'--------------------------------------- Ruote di Analisi o Gioco
'r = ScegliRuota
r = 7 ' Quì Cambi la Ruota
Aruo(1) = r
'ScegliNumeri(anum) ' -----> Se Togli Apice scegli quali numeri per gioco Ambetto
''------------------------------------------------------------------------------------------------------------------------- Range Estrazioni
'QE = InputBox("Quante Estrazioni Vuoi Controllare?",,144)
'QE = 150
'Ini = EstrazioneFin - QE
Ini = 9868 ' ------------------> 02 Gennaio 2021
Fin = EstrazioneFin
'--------------------------------------------------------------------------------------------------------------------------
' Tabella ----> Intestazioni o Titoli
ReDim AT(10)
AT(1) = " Data "
AT(2) = " Num Scelti "
AT(3) = "Esito"
AT(4) = " Colpo "
AT(5) = " Estratti "
AT(6) = "Data Esito"
AT(7) = "Num. Ambetti"
AT(8) = " Ambetti "
AT(9) = " Vincita "
AT(10) = "Estratti"
'Call InitTabella(AT,2,,3,5)
Call InitTabella(AT,RGB(0,117,234),,4,5)
For IdEstr = Ini To Fin
If IsUltimaDelMese(IdEstr) Then
Call VerificaEsitoTurbo(aNum,Aruo,IdEstr,1,Clp,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
'Call VerificaEsitoTurbo(aNum,Aruo,IdEstr,2,Clp,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
nAmbetti = VerificaAmbetto(aNum,r,IdEstr,sRetNumeri,nRetVincita)
C = C + 1
If RetEsito <> "" Then Casi = Casi + 1
If sRetNumeri <> "" Then Casi1 = Casi1 + 1
' Tabella ----> Valori da Riportare nella Tabella
ReDim AV(10)
AV(1) = DataEstrazione(IdEstr)
AV(2) = StringaNumeri(aNum)
AV(3) = RetEsito
AV(4) = RetColpi
AV(5) = RetEstratti
If RetEsito <> "" Then AV(6) = DataEstrazione(RetIdEstr)
AV(7) = nAmbetti
'If nAmbetti < 1 Then AV(7) = " "
AV(8) = sRetNumeri
AV(9) = nRetVincita
If nRetVincita < 1 Then AV(9) = " "
If nAmbetti = 1 Then AV(9) = "59,80"
If nAmbetti = 2 Then AV(9) = "119,60"
If RetEsito = "Ambo" Then AV(9) = "230"
If RetEsito = "Ambo" And nAmbetti = 1 Then AV(9) = "230 + 59,80"
AV(10) = StringaEstratti(RetIdEstr,r)
Call AddRigaTabella(AV,,,3)
Call SetColoreCella(1,RGB(192,192,192),0)
Call SetColoreCella(2,RGB(255,139,83))
Call SetColoreCella(3,RGB(196,255,255))
Call SetColoreCella(4,RGB(196,255,255))
Call SetColoreCella(5,RGB(196,255,255))
Call SetColoreCella(6,RGB(196,255,255))
Call SetColoreCella(7,RGB(196,255,255))
Call SetColoreCella(8,RGB(196,255,255))
Call SetColoreCella(9,RGB(196,255,255))
Call SetColoreCella(10,RGB(196,255,255))
If RetEsito = "Ambo" Then Call SetColoreCella(1,3,1)
If RetEsito = "Ambo" Then Call SetColoreCella(2,3,1)
If RetEsito = "Ambo" Then Call SetColoreCella(3,3,1)
If RetEsito = "Ambo" Then Call SetColoreCella(4,3,1)
If RetEsito = "Ambo" Then Call SetColoreCella(5,3,1)
If RetEsito = "Ambo" Then Call SetColoreCella(6,3,1)
If RetEsito = "Ambo" Then Call SetColoreCella(7,3,1)
If RetEsito = "Ambo" Then Call SetColoreCella(8,3,1)
If RetEsito = "Ambo" Then Call SetColoreCella(9,3,1)
If RetEsito = "Ambo" Then Call SetColoreCella(10,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(1,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(2,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(3,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(4,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(5,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(6,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(7,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(8,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(9,3,1)
If nAmbetti = 1 Or nAmbetti = 2 Then Call SetColoreCella(10,3,1)
End If
Next
Call CreaTabella()
Scrivi "Estrazioni Totali Esaminate " & Fin - Ini,1,,,1,3
Scrivi DataEstrazione(Ini) & " - " & DataEstrazione(Fin),True,True,5,1,3
Scrivi "Ambi Realizzati ----> " & Casi,True,True,1,5,3
If nAmbetti > 1 Then Casi1 = Casi1 + 1
'Scrivi "Totali Ambetti ---> " & Casi1,1
Scrivi "Esiti Per Ambetti ---> " & Casi1,True,True,1,5,3
End SubSperando che sia fattibile e che qualcuno possa darmi la possibilità di Terminarlo e pubblicarlo.
Grazie come sempre.
