Novità

Verifica Esito Ambo con Ambetto

X

Xeroxs

Advanced Member >PLATINUM<
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

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 Sub

Sperando che sia fattibile e che qualcuno possa darmi la possibilità di Terminarlo e pubblicarlo.


Grazie come sempre.
 
prova a vedere.
IL codice VerificaAmbetto agisce su una sola estrazione (senza i colpi) nel tuo caso agiva solo alla estrazione ultima del mese.
Io ho aggirato il tutto mettendo il RetIdstr che è la estrazione di verificaEsito per Estratto.
Prova a vedere.
ciao

Codice: 
'Ambo ed Ambetto Verifica Esiti
Option Explicit
Sub Main
   Dim Ini,Fin,IdEstr,QE,Clp,ess,exx,ex
   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)
         If RetEsito <> "" Then
            nAmbetti = VerificaAmbetto(aNum,r,(RetIdEstr),sRetNumeri,nRetVincita)
         End If
         'If nAmbetti > 0 Then
            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
      End If
   Next
   Call SetTableWidth ("100%")
   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 Sub
 
Ciao, Mike58

Grazie, Avevo immaginato che aveva questo limite e pensavo si potesse fare in altro modo e grazie al tuo intuito riesco a completare ciò che mi interessava. Direi Perfetto.
Direi che in questo modo riesco a verificare meglio gli esiti dell'ambetto, Davvero Grazie, sempre disponibile come sempre.

Per Completezza ho preso spunto da alcuni Tuoi script.

Penso che nel nuovo progetto più di Edoardo avanti si possa proporre di creare un codice migliorativo per L'ambetto.

Grazie ancora e Buona serata
 
Bene come ogni cosa vale ingegnarsi in proprio.
Per L'ambetto in vbnet spero che gli autori abbiano la volontà di mettere più codici (a mio giudizio importanti) man mano che il programma e l'ambiente vbnet si evolve.
Vediamo...

ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 dicembre 2025
    Bari
    57
    90
    22
    43
    26
    Cagliari
    62
    22
    02
    11
    18
    Firenze
    18
    56
    01
    68
    09
    Genova
    25
    79
    48
    88
    17
    Milano
    49
    10
    56
    83
    01
    Napoli
    09
    63
    67
    07
    50
    Palermo
    10
    82
    42
    78
    09
    Roma
    29
    12
    73
    74
    62
    Torino
    32
    09
    43
    06
    38
    Venezia
    45
    63
    67
    58
    56
    Nazionale
    43
    51
    74
    32
    01
    Estrazione Simbolotto
    Venezia
    44
    20
    27
    40
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto