annuncio

Comprimi
Ancora nessun annuncio.

come faccio all attenzione di mike58 o luigib chi puo

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

  • come faccio all attenzione di mike58 o luigib chi puo

    Sub Main()
    Dim dati(10,5)
    Dim dati2(10,5,10) '''estrattiinposizioneqta
    Dim dati3(10,5,10) '''ambiinposizioneqta
    es = InputBox("Quante estrazioni vuoi controllare ?",,100)
    v = CInt(InputBox("Ambi Verifica in n.colpi",,1))
    det = InputBox("Vuoi Lista ambi Usciti? S/N ",,"N")
    es = CInt(es)
    inizio = EstrazioneFin - es
    For ru = 1 To 10
    For p = 1 To 5
    For ru2 = 1 To 10
    dati2(ru,p,ru2) = 0
    Next
    Next
    Next
    ColoreTesto 2
    Scrivi Date & _
    Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(106) & Chr(101) & Chr(115) & Chr(121)
    Scrivi String(90,Chr(11)):ColoreTesto(0) :Scrivi " Mod. GHIO-10 ",1
    Scrivi "Condizione : Verifica Ambi n.colpi di gioco " & v,1
    Scrivi "Condizione : Vuoi Lista degli Ambi Usciti? " & det,1
    Scrivi: ColoreTesto(1)
    Scrivi "Tabella 1"
    Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
    Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
    Scrivi "estrazioni successive."
    ColoreTesto 2
    Scrivi String(90,Chr(11)): ColoreTesto 1
    For i = inizio To EstrazioneFin
    AvanzamentoElab inizio,EstrazioneFin,i
    Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
    If i = EstrazioneFin Then Exit For
    For ru = 1 To 10
    For p = 1 To 5
    es1 = Estratto(i,ru,p)
    For ru2 = 1 To 10
    For p2 = 1 To 5
    es2 = Estratto(i + 1,ru2,p2)
    If es1 = es2 Then
    '''calcola uscite
    dati(ru,p) = dati(ru,p) + 1
    dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
    '''controlla se ambo uscito a colpo
    ReDim an(2),ar(2),matrice(10,5)
    Call GetEstrazioneCompleta(i,MatriceEstrRitorno)
    For a = 1 To 5
    For b = 1 To 5
    an(1) = Estratto(i,ru,a)
    an(2) = Estratto(i + 1,ru2,b)
    ar(1) = ru
    ar(2) = ru2
    '''verifica esito
    Call VerificaEsitoTurbo(an,ar,i + 2,2,v,,,,retestratti,retidestr)
    If retestratti <> "" Then
    ColoreTesto(0)
    dati3(ru,p,ru2) = dati3(ru,p,ru2) + 1
    cg = cg + 1
    If det = "S" Then Scrivi "------> " & i & " e " & i + 1 & " pos." & SiglaRuota(ru) & "-" & a & " / " & SiglaRuota(ru2) & "-" & b & " nr. " & Format2(an(1)) & "." & Format2(an(2)) & " " & retidestr & " " & retestratti,1
    ColoreTesto(0)
    End If
    Next
    Next
    End If
    Next
    Next
    Next
    Next
    Next
    ColoreTesto 1
    Scrivi
    Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
    Scrivi
    Scrivi " E1 E2 E3 E4 E5 "
    ColoreTesto 2
    ScriviMatrice dati,,4
    Scrivi String(90,Chr(11)): ColoreTesto 1
    Scrivi "Tabella 2"
    Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
    Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
    Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
    Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
    ColoreTesto 2
    Scrivi String(90,Chr(11)): ColoreTesto 1
    Scrivi
    Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
    Scrivi
    ColoreTesto(0)
    Scrivi Space(20) & "E S T R A T T I " & Space(20) & " A M B I ",1
    For ru = 1 To 10
    ColoreTesto(0)
    Scrivi Space(13) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
    Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
    Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
    Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
    Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "NR-2E NR-1E NR-UE",1
    ColoreTesto(1)
    For p = 1 To 5
    Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,4) + _
    FormatSpace(dati2(ru,p,1),5) + _
    FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
    FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
    FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
    FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
    FormatSpace(dati2(ru,p,10),4) + "|" + FormatSpace(p,1) + FormatSpace("|",3) + _
    FormatSpace(dati3(ru,p,1),5) + _
    FormatSpace(dati3(ru,p,2),5) + FormatSpace(dati3(ru,p,3),5) + _
    FormatSpace(dati3(ru,p,4),5) + FormatSpace(dati3(ru,p,5),5) + _
    FormatSpace(dati3(ru,p,6),5) + FormatSpace(dati3(ru,p,7),5) + _
    FormatSpace(dati3(ru,p,8),5) + FormatSpace(dati3(ru,p,9),5) + _
    FormatSpace(dati3(ru,p,10),4) + "|" + FormatSpace(p,1) + + FormatSpace("|",3) + _
    Format2(Estratto(EstrazioneFin - 2,ru,p)) + " " + Format2(Estratto(EstrazioneFin - 1,ru,p)) + " " + Format2(Estratto(EstrazioneFin,ru,p))
    Next
    Scrivi String(161,"-")
    Next
    ColoreTesto(0)
    Scrivi " Totale Ambi usciti in " & V & " colpi di gioco sulle 2 ruote di elaborazione..." & cg,1
    End Sub

    come posso modificarlo per farlo girare in l8
    Ultima modifica di ghio; 10-07-2019, 22:59.

  • #2
    ho modificato togliendo le istruzione specifiche di spaziometria,
    devi provarlo su L8, perchè io non ho questo programma


    codice:
    Sub Main()
       Dim dati(10,5)
       Dim dati2(10,5,10) '''estrattiinposizioneqta
       Dim dati3(10,5,10) '''ambiinposizioneqta
       es = InputBox("Quante estrazioni vuoi controllare ?",,100)
       v = CInt(InputBox("Ambi Verifica in n.colpi",,2))
       det = InputBox("Vuoi Lista ambi Usciti?  S/N ",,"N")
       es = CInt(es)
       inizio = EstrazioneFin - es
       For ru = 1 To 10
          For p = 1 To 5
             For ru2 = 1 To 10
                dati2(ru,p,ru2) = 0
             Next
          Next
       Next
       ColoreTesto 2
       Scrivi Date & _
       Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(106) & Chr(101) & Chr(115) & Chr(121)
       Scrivi String(90,Chr(11)):ColoreTesto(0) :Scrivi " Mod. GHIO-15-Rubino  (L8)  ",1
       Scrivi "Condizione :   Verifica Ambi n.colpi di gioco  " & v,1
       Scrivi "Condizione :   Vuoi Lista degli Ambi Usciti?  " & det,1
       Scrivi: ColoreTesto(1)
       Scrivi "Tabella 1"
       Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
       Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
       Scrivi "estrazioni successive."
       ColoreTesto 2
       Scrivi String(90,Chr(11)): ColoreTesto 1
       For i = inizio To EstrazioneFin
          AvanzamentoElab inizio,EstrazioneFin,i
          Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
          If i = EstrazioneFin Then Exit For
          For ru = 1 To 10
             For p = 1 To 5
                es1 = Estratto(i,ru,p)
                For ru2 = 1 To 10
                   For p2 = 1 To 5
                      es2 = Estratto(i + 1,ru2,p2)
                      If es1 = es2 Then
                         '''calcola uscite
                         dati(ru,p) = dati(ru,p) + 1
                         dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
                         '''controlla se ambo uscito a colpo
                         ReDim an(2),ar(2),matriceestrritorno(10,5)
                         For rr = 1 To 10
                            For w = 1 To 5
                               matriceestrritorno(rr,w) = Estratto(i,rr,w)
                            Next
                         Next
                         ''''
                         For b = 1 To 5
                            an(1) = es1
                            an(2) = Estratto(i + 1,ru2,b)
                            '''verifica esito
                            '''''
                            For z1 = 1 To v ''' ncolpi
                               '
                               For z2 = 1 To 10 '''' nruote
                                  If z2 = ru Or z2 = ru2 Then
                                     '
                                     ca = 0
                                     For z3 = 1 To 5 ''' estratti
                                        If Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(1)) Or Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(2)) Then
                                           ca = ca + 1
                                        End If
                                     Next
                                     If ca = 2 Then
                                        ColoreTesto(0)
                                        dati3(ru,p,ru2) = dati3(ru,p,ru2) + 1
                                        cg = cg + 1
    If det = "S" Then Scrivi "-ESITO---> " & i & " e " & i + 1 & "   pos." & SiglaRuota(ru) & "-" & a & " / " & SiglaRuota(ru2) & "-" & b & " nr.  " & Format2(an(1)) & "." & Format2(an(2)) & "    " & i + 1 + z1  & "  Colpo n." & z1 & "   " & SiglaRuota(Z2) & "...." & an(1) & "." & an(2),1
                                        ColoreTesto(0)
                                     End If
                                  End If
                               Next
                            Next
                         Next
                         '''''
                      End If
                   Next
                Next
             Next
          Next
       Next
       ColoreTesto 1
       Scrivi
       Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
       Scrivi
       Scrivi "       E1   E2   E3   E4   E5   "
       ColoreTesto 2
       ScriviMatrice dati,,4
       Scrivi String(90,Chr(11)): ColoreTesto 1
       Scrivi "Tabella 2"
       Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
       Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
       Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
       Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
       ColoreTesto 2
       Scrivi String(90,Chr(11)): ColoreTesto 1
       Scrivi
       Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato  estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
       Scrivi
       ColoreTesto(0)
       Scrivi Space(20) & "E   S   T   R   A   T   T   I " & Space(20) & "       A      M      B      I   ",1
       For ru = 1 To 10
          ColoreTesto(0)
          Scrivi Space(13) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
          Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
          Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
          Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
          Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "NR-2E   NR-1E  NR-UE",1
          ColoreTesto(1)
          For p = 1 To 5
             Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,4) + _
             FormatSpace(dati2(ru,p,1),5) + _
             FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
             FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
             FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
             FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
             FormatSpace(dati2(ru,p,10),4) + "|" + FormatSpace(p,1) + FormatSpace("|",3) + _
             FormatSpace(dati3(ru,p,1),5) + _
             FormatSpace(dati3(ru,p,2),5) + FormatSpace(dati3(ru,p,3),5) + _
             FormatSpace(dati3(ru,p,4),5) + FormatSpace(dati3(ru,p,5),5) + _
             FormatSpace(dati3(ru,p,6),5) + FormatSpace(dati3(ru,p,7),5) + _
             FormatSpace(dati3(ru,p,8),5) + FormatSpace(dati3(ru,p,9),5) + _
             FormatSpace(dati3(ru,p,10),4) + "|" + FormatSpace(p,1) + + FormatSpace("|",3) + _
             Format2(Estratto(EstrazioneFin - 2,ru,p)) + "      " + Format2(Estratto(EstrazioneFin - 1,ru,p)) + "     " + Format2(Estratto(EstrazioneFin,ru,p))
          Next
          Scrivi String(161,"-")
       Next
       ColoreTesto(0)
       Scrivi " Totale Ambi usciti in " & V & "  colpi di gioco sulle 2 ruote di elaborazione..." & cg,1
    End Sub
    Ultima modifica di Rubino; 11-07-2019, 08:21.
    ...ciao

    Commenta


    • #3
      ok va bene

      Commenta

      Unconfigured Ad Widget

      Comprimi

      Ultima estrazione del lotto

      Comprimi

      Estrazione del lotto
      martedì 16 luglio 2019
      Bari
      04
      82
      36
      66
      02
      Cagliari
      11
      38
      16
      86
      41
      Firenze
      77
      90
      85
      37
      82
      Genova
      01
      37
      03
      69
      47
      Milano
      29
      50
      18
      77
      62
      Napoli
      56
      43
      32
      90
      70
      Palermo
      70
      27
      43
      49
      10
      Roma
      65
      90
      47
      34
      29
      Torino
      28
      04
      58
      64
      69
      Venezia
      14
      04
      48
      59
      11
      Nazionale
      43
      66
      56
      47
      61
      Sto operando...
      X