Novità

Richiesta script x Mike58

desperaux

Super Member >PLATINUM<
Ciao Mike58

scusami se ti disturbo,quando possibile potresti cercare di creare questo script?

Se si allora vorrei che:

lo script cercasse un numero isotopo su due ruote consecutive . Esempio 79 BA-CA

lo script controllasse l'esito ( quindi a quale colpo e' sortita e se e' sortita) della decina naturale di appartenenza Esempio la 71----80 ( nell'esempio citato).

Possibilita' di inserire " Quante estrazione a ritroso"

Grazie anticipatamente:)
 
Ciao desperaux, salvo errori dovrebbe essere questo.

Codice:
Sub Main()
 'cerca numero isotopo su 2 ruote consecutive
 Scrivi"Listato per ricerca Numero iso ",True,False,2,4,3
 Scrivi" **** Richiesta by Desperaux ***** ",True,False,4,2,3
 Scrivi" **** Listed by Mike58 ***** ",True,True,3,1,3
 Dim k(10)
 Dim ruote(2)
 Dim posta(5)
 Dim poste(5)
 posta(1) = 3
 poste(2) = 1.5
 poste(3) = .5
 tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
 clp1 = CInt(InputBox("Per quanti colpi di gioco 'AMBATA' ?","COLPI",4))
 clp2 = CInt(InputBox("Per quanti colpi di gioco 'AMBO'?","COLPI",12))
 co = 0
 ini = EstrazioneFin - tmp
 fin = EstrazioneFin
 For es = ini To fin
  Call Messaggio("Elaboro Estrazioni . . . . . . " & es & "     *  * * * Script by Mike58 * * * * ")
  Call AvanzamentoElab(Ini,fin,es)
  For r1 = 1 To 10
   r2 = r1 + 1
   If r2 = 11 Then r2 = 12
   For p1 = 1 To 5
    n1 = Estratto(es,r1,p1)
    n2 = Estratto(es,r2,p1)
    If n1 = n2 Then ' numero = numero
     co = co + 1
     ColoreTesto 0
     ruote(1) = r1
     ruote(2) = r2
     '--------- Calcolo Numeri ma mettere in gioco-------------
     x1 = Decina(n1)
     For y = 1 To 10
      x = x1*10
      x2 = y +(x)
      k(y) = y +(x)
      'If EstrattoRitardo(r1,k(y),es,es) = 0 Then k(y) = 0' esclude i numeri cercati'
      'If EstrattoRitardo(r2,k(y),es,es) = 0 Then k(y) = 0
      Call StatisticaFormazione(k,ruote,2,ritardo,ritardomax,Incrritmax,frequenza,Ini,fin)
     Next
     '---------------------------------------------------------
     Scrivi String(135,"=")
     ColoreTesto 1
     Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> isotopo " & n1 & " - " & " Posiz. " & p1,1
     Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & " ---> isotopo " & n2 & " - " & " Posiz. " & p1,1
     Scrivi String(125,"-") & " Caso n° " & co,1
     ColoreTesto 0
     ImpostaGiocata 1,k,ruote,posta,clp1,1
     ImpostaGiocata 2,k,ruote,poste,clp2,2
     Gioca es,1,,1
     Scrivi "Statistica per Ambo : Ritardo da..." & ritardo & " - Frequenza " & frequenza,True,True,3,0,3
    End If
   Next
  Next
 Next
 Scrivi
 Scrivi "Casi Riscontrati n° " & CInt(co)
 ScriviResoconto
End Sub
 
Ciao Mike58
beh che dirti sei davvero gentilissimo
Come statistica direi ottima per ambo,sicche' il mio intuito credo non abbia sbagliato.

Potresti dirmi gentilmente cosa significa la dicitura verde STATISTICA..........?

Se possibile e x questo ti chiedo scusa si potrebbe aggiungere la statistica tipo:

Al 1colpo 3 risultati in ambo
Al 2 colpo xx risultati in ambo ecc

Solo per ambo?
altrimenti non importa
davvero grazie di cuore
 
Ciao Desperaux, la stringa in reverse verde elenca la decina in esame e il dato statitico attuale per ambo, così da capire la decina in gioco quale ritardo e quale frequenza ha allo stato attuale.
Un informazione in + che non guasta, per la richiesta dei colpi con questa tipologia di script è poco possibile invece con la messa i tabella dello stesso potrebbe essere possibile.

Se trovo lo spazio ed il tempo lo faccio.

Ciao
 
Eccolo prova a vedere.

Codice:
Sub Main()
 'cerca numero isotopo su 2 ruote consecutive
 Scrivi"Listato per ricerca Numero iso Ruote consecutive ",True,False,2,4,3
 Scrivi" **** Richiesta by Desperaux ***** ",True,False,4,2,3
 Scrivi" **** Listed in Tabella by Mike58 ***** ",True,True,3,1,3
 Scrivi
 Dim k(10)
 Dim ruote(2)
 Dim posta(5)
 Dim poste(5)
 posta(1) = 3
 poste(2) = 1.5
 poste(3) = .5
 tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
 co = 0
 ini = EstrazioneFin - tmp
 fin = EstrazioneFin
 ReDim at(11)
 at(1) = " Data Estrazione "
 at(2) = " Ruota "
 at(3) = " estratti "
 at(4) = " Numero iso "
 at(5) = " Posiz. "
 at(6) = " Stringa Numeri "
 at(7) = " Esito "
 at(8) = " colpo "
 at(9) = " R_estratti "
 at(10) = " Data Esito "
 at(11) = " casi "
 Call InitTabella(at,1,,3,5)
 For es = fin To Ini Step - 1
  Call Messaggio("Elaboro Estrazioni . . . . . . " & es & "     *  * * * Script by Mike58 * * * * ")
  Call AvanzamentoElab(Ini,fin,es)
  For r1 = 1 To 12
   r2 = r1 + 1
   If r2 = 11 Then r2 = 12
   For p1 = 1 To 5
    n1 = Estratto(es,r1,p1)
    n2 = Estratto(es,r2,p1)
    If n1 = n2 Then ' numero = numero
     co = co + 1
     ColoreTesto 0
     ruote(1) = r1
     ruote(2) = r2
     '--------- Calcolo Numeri ma mettere in gioco-------------
     x1 = Decina(n1)
     For y = 1 To 10
      x = x1*10
      x2 = y +(x)
      k(y) = y +(x)
     Next
     Call VerificaEsito(k,ruote,es + 1,2,11,Nothing,esito,colpi,estratti,id)
     ReDim av(11)
     av(1) = DataEstrazione(es)
     av(2) = SiglaRuota(r1) & " - " & SiglaRuota(r2)
     av(3) = StringaEstratti(es,r1) & " - " & StringaEstratti(es,r2)
     av(4) = n1
     av(5) = p1 & "°"
     av(6) = StringaNumeri(k,,True)
     av(7) = esito
     av(8) = colpi & "°"
     av(9) = estratti
     If esito <> "" Then av(10) = DataEstrazione(id)
     If esito = "" And colpi > 10 Then av(10) = " Negativo "
     If esito = "" And colpi <= 10 Then av(10) = " In corso "
     av(11) = co
     Call AddRigaTabella(av,,,3)
     ' ---------------- calcolo colpi -------------------------
     If esito <> "" And colpi = 1 Then clp1 = clp1 + 1
     If esito <> "" And colpi = 2 Then clp2 = clp2 + 1
     If esito <> "" And colpi = 3 Then clp3 = clp3 + 1
     If esito <> "" And colpi = 4 Then clp4 = clp4 + 1
     If esito <> "" And colpi = 5 Then clp5 = clp5 + 1
     If esito <> "" And colpi = 6 Then clp6 = clp6 + 1
     If esito <> "" And colpi = 7 Then clp7 = clp7 + 1
     If esito <> "" And colpi = 8 Then clp8 = clp8 + 1
     If esito <> "" And colpi = 9 Then clp9 = clp9 + 1
     If esito <> "" And colpi = 10 Then clp10 = clp10 + 1
     If esito <> "" And colpi > 0 And colpi < 11 Then clptot = clptot + 1
     If esito = "" And colpi < 11 Then clpcorso = clpcorso + 1
     If colpi >= 11 Then clp11 = clp11 + 1
     '---------------------------------------------------------
    End If
   Next
  Next
 Next
 CreaTabella()
 ReDim att(14)
 att(1) = " Colpo 1 "
 att(2) = " Colpo 2 "
 att(3) = " Colpo 3 "
 att(4) = " Colpo 4 "
 att(5) = " Colpo 5 "
 att(6) = " Colpo 6 "
 att(7) = " Colpo 7 "
 att(8) = " Colpo 8 "
 att(9) = " Colpo 9 "
 att(10) = " Colpo 10 "
 att(11) = " Totali casi "
 att(12) = " Casi positivi "
 att(13) = " Casi Negativi "
 att(14) = " Casi in corso "
 Call InitTabella(att,2,,3,4)
 ReDim avv(14)
 avv(1) = clp1
 avv(2) = clp2
 avv(3) = clp3
 avv(4) = clp4
 avv(5) = clp5
 avv(6) = clp6
 avv(7) = clp7
 avv(8) = clp8
 avv(9) = clp9
 avv(10) = clp10
 avv(11) = co
 avv(12) = clptot'(clp1+clp2+clp3+clp4+clp5+clp6+clp7+clp8+clp9+clp10)
 avv(13) = clp11
 avv(14) = clpcorso
 Call AddRigaTabella(avv,4,,3,2)
 Call CreaTabella()
 'Scrivi
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 01 agosto 2025
    Bari
    38
    02
    68
    33
    79
    Cagliari
    21
    78
    83
    22
    55
    Firenze
    63
    14
    72
    28
    16
    Genova
    21
    46
    17
    40
    39
    Milano
    49
    60
    17
    77
    63
    Napoli
    90
    05
    77
    74
    53
    Palermo
    16
    61
    43
    37
    90
    Roma
    40
    45
    27
    57
    32
    Torino
    62
    57
    26
    82
    61
    Venezia
    06
    46
    68
    32
    29
    Nazionale
    71
    36
    06
    32
    15
    Estrazione Simbolotto
    Nazionale
    30
    37
    17
    41
    08

Ultimi Messaggi

Indietro
Alto