| io inserisco questa su lottodesk ma quando la eseguo mi da' zero previsioni cosa c'è di sbagliato ?qualcuno sa' darmi una mano ? Sub Main() Dim ruote(11) Dim n1(4) Dim ambata(1) Dim posta(1) Dim poste(10) posta(1) = 1 poste(2) = 1 'poste(3) = 1 ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",50) k = InputBox("per quanti colpi?","colpi di gioco",12) ini = EstrazioneFin - ce fin = EstrazioneFin casi = 0 ok = 0 For es = ini To fin Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1) Call AvanzamentoElab(Ini,fin,es) For r1 = 1 To 9 For r2 = r1 + 1 To 11 If r2 = 11 Then r2 = 12 End If For p1 = 1 To 4 For p2 = p1 + 1 To 5 For p3 = 1 To 4 For p4 = p3 + 1 To 5 a = Estratto(es,r1,p1) b = Estratto(es,r1,p2) c = Estratto(es,r2,p3) d = Estratto(es,r2,p4) '--------------------------------------------- If r1 = 3 And r2 = 8 Then If Decina(a) = Decina(b) And Decina(c) = Decina(d) Then ok = 1 '----------------------------------------------- If ok = 1 Then nu1 = Fuori90(a + b) nu2 = Fuori90(c + d) nu3 = Abs(nu1 - nu2) nu4 = 90-(nu3) ambata(1) = nu4 n1(1) = nu4 n1(2) = nu1 n1(3) = nu2 ruote(1) = r1 ruote(2) = r2 ColoreTesto 0 ImpostaGiocata 1,ambata,ruote,posta,k,1 ImpostaGiocata 2,n1,ruote,poste,k,2 Gioca es,1 End If End If End If Next Next Next Next Next Next Next Scrivi Scrivi String(100,"*") ColoreTesto 2 Scrivi" casi trovati : " & casi,1 ColoreTesto 0 Scrivi String(100," * ") ColoreTesto 0 ScriviResoconto End Sub
|