xCinzia27...adattatori sui numeri estratti..

[Zetrix]

Ciao Cinzia.
volevo chiederti se tra i tuoi script ai uno script che calcola l'adattatore su ogni numero estratto,
scrivo un esempio sul 1 estratto di BA si sommano gli adattatori da 1 a 90
in seguito lo script deve scrivere l'adattatore che a dato esito dell'estratto su BA la estr successiva quindi non dopo 8 o 9 estr..
in questo modo lo script farà il calcolo su 30 estr solo sul 1 estratto di BA
in modo che lo script ci dirà quale e l'adattatore che non si e mai sommato sul 1 estratto di BA..
e non a dato mai la vincita dell'estratto nella estr successiva..
ho diversi script che usano gli adattatori ma sono impostati tutte con gli indici mensili
ma con l'aggiunta della quarta estr i sommativi e gli indici mensili saranno tutti sballati..
quindi meglio sommare gli adattatori su un numero estratto e su una ruota ad ogni estr..
una volta mi ricordo che uno l'aveva scritto uno script fatto in questo modo ma non lo trovo tra i miei script

 

[Zetrix]

Sub Main
   Dim ambata1(2),ambata2(2),ruota(5),ruote(5),posta(1),poste(2)
   Dim rs,rv,rx,rk,sr
   Dim adattatori(1)
   Dim a,b,c,d,e,f,g,h,i,l,x,y,k
   Dim r1,r2,r3,r4
   posta(1) = 1
   poste(2) = 1
   sr = ScegliRuota
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = sr To sr
         For y = 1 To 90
            '
            '
            a = Estratto(es - 1,r1,1)
            b = Estratto(es - 1,r1,2)
            c = Estratto(es - 1,r1,3)
            d = Estratto(es - 1,r1,4)
            e = Estratto(es - 1,r1,5)
            '
            x = Fuori90(y + a)
            '
            f = Estratto(es,r1,1)
            g = Estratto(es,r1,2)
            h = Estratto(es,r1,3)
            i = Estratto(es,r1,4)
            l = Estratto(es,r1,5)
            '
            If x = f Or x = g Or x = h Or x = i Or x = l Then
               '
               ambata1(1) = x
               '------------------------------
               adattatori(1) = y
               '
               ruota(1) = r1
               '-----------------------------
               '----------------------------
               ReDim MatriceCaselleDaEvid(5,1)
               '
               MatriceCaselleDaEvid(1,0) = r1
               MatriceCaselleDaEvid(1,1) = 1
               '
               MatriceCaselleDaEvid(2,0) = r1
               MatriceCaselleDaEvid(2,1) = 2
               '
               MatriceCaselleDaEvid(3,0) = r1
               MatriceCaselleDaEvid(3,1) = 3
               '
               MatriceCaselleDaEvid(4,0) = r1
               MatriceCaselleDaEvid(4,1) = 4
               '
               MatriceCaselleDaEvid(5,0) = r1
               MatriceCaselleDaEvid(5,1) = 5
               '
               Call DisegnaEstrazione(es-1,MatriceCaselleDaEvid)
               '
               Scrivi("1°estratto " & a & " su " & SiglaRuota(r1) & " adattatore + " & y & "") & "",0,1,1,5,4
               Scrivi
               ImpostaGiocata 1,ambata1,ruota,posta,k,1
               Gioca es - 1,1,,1
               Scrivi
            End If
         Next
         Scrivi StringaNumeri(adattatori) & ".",0,1
      Next
   Next
End Sub

ho scritto questo script ma si deve scrivere quale e l'adattatore
che non si e mai sommato al 1 estratto di BA e non a mai dato la vincita nella estr successiva