Per Cipisto piccolo aiutino

[Roby]

Ciao Cipisto, il listato che vado a postarti ricerca un ambo unito su ruota secca...quello che serve a ne e' che il listato mi permetta di cercarlo un posizione deteminata ..tipo primo e quinto posto, secondo e quarto etc.
ti ringrazio anticipatamente e quando vuoi io sono in Messenger

Sub main()
Dim ruote(10)
Dim ruotetu(10)
Dim numeri1(10)
Dim numeri2(10)
Dim posta(5)
Dim poste(5)
posta(1)=1
posta(2)=1
poste(2)=2
k=15
For n=3575 To EstrazioneFin
Messaggio
For r=1 To 10
For p=1 To 4
For q=2 To 5
a=Estratto (n,r,p)
b=Estratto (n,r,q)

If a=8 And b=68 Or a=68 And b=8 Then
If q=p+1 Then

ruote(1)=r
ruotetu(1)=11
numeri1(1)=51
numeri1(2)=15
ImpostaGiocata 1,numeri1,ruote,posta,k,1
numeri2(1)=15
numeri2(2)=64
numeri2(3)=79
numeri2(4)=34
ImpostaGiocata 2,numeri2,ruotetu,poste,k,2





For x=2 To 7
ImpostaInterruzioni x,1,1
Next
For x1=1 To 7
For xx1=2 To 7
ImpostaInterruzioni x1,xx1,2
Next
Next
Scrivi "****************************************"
ColoreTesto 1
Scrivi ""& DataEstrazione & " "&NomeRuota (r)&" "&stringaestratti(n,r)&"",1
ColoreTesto 0
Scrivi "****************************************"

Gioca n
End If
End If
Next
Next
Next
Next
ScriviResoconto 1
ScriviResoconto
End Sub

 

[cipisto]

vediamo se ho capito:

Sub main()
   Dim es
   Dim Ruote(10)
   Dim iRuota
   Dim Ambo(2)
   Dim Quartina(4)
   Dim PostaA(5)
   Dim PostaQ(5)
   Dim iColpi
   Dim A
   Dim B
   Dim iPosX
   Dim iPosY
   Dim X
   Dim X1
   Dim XX1

   PostaA(1) = 1
   PostaA(2) = 2
   PostaQ(2) = 1
   iColpi = 15

   iPosX = CInt(Trim(InputBox("Inserisci La Prima Posizione Cercata", "Scegli Posizione")))
   iPosY = CInt(Trim(InputBox("Inserisci La Seconda Posizione Cercata", "Scegli Posizione")))

   For es = 3590 To EstrazioniArchivio
      AvanzamentoElab 3950, EstrazioniArchivio, es
      For iRuota = 1 To 10
         A = Estratto(es, iRuota, iPosX)
         B = Estratto(es, iRuota, iPosY)
         If A = 8 And B = 68 Or A = 68 And B = 8 Then
            Scrivi "****************************************"
            ColoreTesto 1
            Scrivi "" & DataEstrazione(es) & " " & NomeRuota(iRuota) & " " & StringaEstratti(es, iRuota) & "", 1
            ColoreTesto 0
            Scrivi "****************************************"
            Ruote(1) = iRuota
            Ambo(1) = 51
            Ambo(2) = 15
            ImpostaGiocata 1, Ambo, Ruote, PostaA, iColpi, 1
            Erase Ruote
            Ruote(1) = 11
            Quartina(1) = 15
            Quartina(2) = 64
            Quartina(3) = 79
            Quartina(4) = 34
            ImpostaGiocata 2, Quartina, Ruote, PostaQ, iColpi, 2
            For X = 2 To 7
               ImpostaInterruzioni X, 1, 1
            Next
            For X1 = 1 To 7
               For XX1 = 2 To 7
                  ImpostaInterruzioni X1, XX1, 2
               Next
            Next
            Gioca es
         End If
      Next
   Next
   ScriviResoconto 1
   ScriviResoconto
End Sub

c'è qualcosa che non mi convince... mi sa che serve un contatore per le giocate, perchè nell'ipotesi rara che l'ambo ricercato si presenti su più ruote che fai, giochi sempre sull'ultima ruota dove viene trovato? Fammi sapere che eventualmente modifico.

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[imported_n/a]

ma e' perfetto..grazie mille e come sempre a buon rendere