Richiesta script x Mike58

[desperaux]

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

 

[Mike58]

Ciao desperaux, salvo errori dovrebbe essere questo.

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

 

[desperaux]

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

 

[Mike58]

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

 

[desperaux]

Ciao Mike58
non c'e' nessun problema aspetto quanto vuoi
grazie mille e buona serata

 

[Mike58]

Eccolo prova a vedere.

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

 

[desperaux]

Ciao Mike58

ok caricato,funzionante e va bene cosi'

Grazie mille x la tua disponibilita'

ciao