annuncio

Comprimi
Ancora nessun annuncio.

Come fare? Richiesta per scripter

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • Come fare? Richiesta per scripter

    Buonasera
    Vorrei eliminare i pronostici doppi e non so come fare
    per farmi capire meglio
    nello script di esempio il caso 4 non dovrebbe esserci perché già in corso il caso 3 con i 9 colpi
    come faccio a non far pervenire il caso 4?
    ringrazio in anticipo chi mi vuole aiutare

    codice:
     Sub Main()
    Dim nu(2),m(1),am(2),posta(1),poste(2),ruo(1)
    posta(1) = 1
    poste(2) = 1
       Ini = EstrazioneFin - 55
       fin = EstrazioneFin
    For es = Ini To fin
    Messaggio "Estrazioni esaminate " & es
    Call AvanzamentoElab(Ini,fin,es)
    For p = 1 To 4
    For pp = p + 1 To 5
    nu(1) = Estratto(es,1,p)
    nu(2) = Estratto(es,1,pp)
    If Fuori90(nu(1) + nu(2)) = 90 Then
                   co = co + 1
    Scrivi String(65,"=") & " Caso n° " & co
    Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " ( ambo " & StringaNumeri(nu) & " )",1
    Scrivi String(65,"-")
    ruo(1) = 1
    m(1) = 54
    ImpostaGiocata 1,m,ruo,posta,9
    am(1) = 54
    am(2) = 7
    ImpostaGiocata 2,am,ruo,poste,9
    am(2) = 8
    ImpostaGiocata 3,am,ruo,poste,9
    am(2) = 9
    ImpostaGiocata 5,am,ruo,poste,9
    am(2) = 16
    ImpostaGiocata 6,am,ruo,poste,9
    am(2) = 63
    ImpostaGiocata 7,am,ruo,poste,9
    Gioca es,1
    End If
    Next
    Next
    Next
    ScriviResoconto,0
    End Sub


  • #2
    Master devi ingegnarti in qualche modo e trovare escamotage alternativi.

    Intanto valutare quante estrazioni trascorrono tra un caso e l'altro
    nel casi < ai colpi stabiliti puoi o attendere la gioca e giocare dopo o per i colpi restanti o interrompi la giocata nel codice apposito Impostagiocata

    Devi trovare tu la soluzione più adatta al tuo scopo.

    Leggi le mie righe da esempio è ottimizzale al meglio, visto che mi pare di ricordare che mastichi di script.

    codice:
    Sub Main()
       Dim nu(2),m(1),am(2),posta(1),poste(2),ruo(1)
       posta(1) = 1
       poste(2) = 1
       Ini = EstrazioneFin - 55
       fin = EstrazioneFin
       For es = Ini To fin
          Messaggio "Estrazioni esaminate " & es
          Call AvanzamentoElab(Ini,fin,es)
          For p = 1 To 4
             For pp = p + 1 To 5
                nu(1) = Estratto(es,1,p)
                nu(2) = Estratto(es,1,pp)
                If Fuori90(nu(1) + nu(2)) = 90 Then
                   co = co + 1
                   '-----------------------------------------
                   ReDim Preserve Ess(co)
                   Ess(co) = es
                   ReDim Preserve CasoValido(co)
                   CasoValido(co) = Ess(co) - Ess(co - 1)
                   '-----------------------------------------
                   Scrivi String(65,"=") & " Caso n° " & co
                   Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " ( ambo " & StringaNumeri(nu) & " )",1
                   Scrivi "Distanza Caso : " & CasoValido(co)
                   Scrivi String(65,"-")
                   ruo(1) = 1
                   m(1) = 54
                   '------------------------------------
                   If CasoValido(co) < 9 Then
                      attesa = CasoValido(co)
                      ImpostaGiocata 1,m,ruo,posta,9,,1 ' interrompi la giocata
                      'ImpostaGiocata 1,m,ruo,posta,9,,attesa ' gioca dopo
                   Else
                      ImpostaGiocata 1,m,ruo,posta,9
                   End If
                   '------------------------------------
                   am(1) = 54
                   am(2) = 7
                   ImpostaGiocata 2,am,ruo,poste,9
                   am(2) = 8
                   ImpostaGiocata 3,am,ruo,poste,9
                   am(2) = 9
                   ImpostaGiocata 5,am,ruo,poste,9
                   am(2) = 16
                   ImpostaGiocata 6,am,ruo,poste,9
                   am(2) = 63
                   ImpostaGiocata 7,am,ruo,poste,9
                   Gioca es,1
                End If
             Next
          Next
       Next
       ScriviResoconto,0
    End Sub
    Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

    Commenta


    • #3
      Ottimo Mike !!
      Grazie al tuo aiuto ho trovato la soluzione adatta al mio scopo,
      avevo provato in diversi modi senza riuscirci, in effetti come dici mastico script...... (ma con la dentiera!! )
      Grazie e buona serata

      Commenta

      Unconfigured Ad Widget

      Comprimi

      Ultima estrazione del lotto

      Comprimi

      Estrazione del lotto
      martedì 19 marzo 2019
      Bari
      66
      72
      64
      36
      38
      Cagliari
      42
      03
      21
      47
      87
      Firenze
      38
      57
      43
      89
      66
      Genova
      08
      26
      11
      01
      44
      Milano
      39
      78
      09
      56
      10
      Napoli
      02
      45
      66
      59
      89
      Palermo
      08
      60
      26
      16
      15
      Roma
      29
      75
      11
      05
      65
      Torino
      56
      70
      13
      66
      11
      Venezia
      04
      63
      27
      42
      24
      Nazionale
      12
      11
      42
      25
      78
      Sto operando...
      X