x cipisto

[franca46]

ciao cipisto ho fatto le prove
forse sono che sbaglio a inserire le sostituzioni ,potresti provare tu a rimetterlo qui già corretto??

io riprovo ancora

grazie


Franca46

 

[cipisto]

Ciao Franca, ho fatto un pò di pulizia al post. Per il listato non preoccuparti ora non posso, ma in giornata te lo riposto con la modifica
Ciao

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

 

[franca46]

ciao cipisto

grazie sempre per il tuo tempo

salutoni

Franca46

 

[lola]

Ciao Cipisto,

perchè non posti il listato ? salutoni cordiali

lola

livia

 

[cipisto]

Franca scusa, che versione hai la 5 o la 6?

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

 

[cipisto]

Speriamo sia la volta buona

Sub main()

Dim Ruote(10)
Dim PosteM(5)
Dim PosteA(5)
Dim es
Dim iRuotaX
Dim iRuotaY
Dim iDecinaX
Dim iDecinaY
Dim iDecinaXX
Dim iDecinaYY
Dim k
Dim w
Dim t
Dim iGiocata
Dim iDecina
Dim iTempA
Dim iTempB
Dim Ambata(1)
Dim Ambo(2)
Dim iColpi
Dim iEstratti(4)
Dim iAmbo
Dim iCaso
Dim sTmp

   PosteM(1) = 1
   PosteA(2) = 1
   iColpi = CInt(InputBox("I casi rilevati, per quanti colpi dovranno essere giocati?", "Numero Colpi", "9"))
   iAmbo = MsgBox("vuoi giocare anche gli ambi?", 32 + 4, "Decine Isotope")

   For es = 7600 To EstrazioniArchivio
      AvanzamentoElab 6877, EstrazioniArchivio, es
      iGiocata = 1
      Erase iEstratti
      iCaso = 1
      For iRuotaX = 1 To 9
         For k = 1 To 5
            For w = (k + 1) To 5
               iDecinaX = DecinaCabalistica(Estratto(es, iRuotaX, k))
               iDecinaY = DecinaCabalistica(Estratto(es, iRuotaX, w))
               If iDecinaX = iDecinaY Then
                  For iRuotaY = (iRuotaX + 1) To 10
                     iDecinaXX = DecinaCabalistica(Estratto(es, iRuotaY, k))
                     iDecinaYY = DecinaCabalistica(Estratto(es, iRuotaY, w))
                     If iDecinaXX = iDecinaYY Then
                        If iDecinaX = iDecinaXX And iDecinaY = iDecinaYY Then
                           iEstratti(1) = Estratto(es, iRuotaX, k)
                           iEstratti(2) = Estratto(es, iRuotaX, w)
                           iEstratti(3) = Estratto(es, iRuotaY, k)
                           iEstratti(4) = Estratto(es, iRuotaY, w)
                           If iCaso = 1 Then Scrivi "$$====================================$$"
                           iCaso = iCaso + 1
                           Scrivi "     _________________"
                           Scrivi "    |" & "Decina: " & (iDecinaX - 1) & "        |"
                           Scrivi "    |" & SiglaRuota(iRuotaX) & k & ": " & iEstratti(1) & " - " & SiglaRuota(iRuotaX) & w & ": " & iEstratti(2) & "|"
                           Scrivi "    |" & SiglaRuota(iRuotaY) & k & ": " & iEstratti(3) & " - " & SiglaRuota(iRuotaY) & w & ": " & iEstratti(4) & "|"
                           sTmp = ""
                           For t = 1 To 22
                              If t <= 5 Then sTmp = sTmp & Chr(32)
                              If t > 5 And t <= 21 Then sTmp = sTmp & Chr(175)
                              If t = 22 Then sTmp = sTmp & Chr(175)
                           Next
                           Scrivi sTmp
                           iTempA = Fuori90((iEstratti(1) + iEstratti(3)))
                           iTempB = Fuori90((iEstratti(2) + iEstratti(4)))
                           Ruote(1) = iRuotaX
                           Ruote(2) = iRuotaY
                           Ambata(1) = Fuori90(((iTempA + iTempB) + (Abs(iTempA - iTempB))))
                           ImpostaGiocata iGiocata, Ambata, Ruote, PosteM, iColpi
                           iGiocata = iGiocata + 1
                           If iAmbo = 6 Then
                              EliminaRipetuti (iEstratti)
                              For i = Lbound(iEstratti) To UBound(iEstratti)
                                 If iEstratti(i) <> 0 Then
                                    Ambo(1) = Ambata(1)
                                    Ambo(2) = iEstratti(i)
                                    ImpostaGiocata iGiocata, Ambo, Ruote, PosteA, iColpi
                                    iGiocata = iGiocata + 1
                                 End If
                              Next
                           End If
                        End If
                     End If
                  Next
               End If
            Next
         Next
      Next
      Gioca es, False, False
   Next
   ScriviResoconto
End Sub

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)</font id="s

 

[franca46]

ciao cipisto

finalmente niente errori

le versioni le ho tutte e due. infatti quando qualke listato non va con la 5 lo provo con la 6 o viceversa e tutto è ok.

un salutone grande.







Franca46