CHI MI CORREGGE QUESTO SCRIPT MI DA ERRORE

[Alien.]

Sub Main()

Dim ini, fin, est
Dim r1, p1, p2
Dim a, b, d
Dim prog1
Dim n(7)


ini = Estrazione.Inizio("2012")
fin = Estrazione.Fine

Metodo.Init "Ambi Dei Diametrale In Decina ruota", csCasisticaON
Metodo.Ripetuti = csElimina

prog1 = Metodo.Progressione(1, 50)

For est = ini To fin
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratti.Numero(est, r1, p1)
b = Estratti.Numero(est, r1, p2)
d = Decina (a) And Decina (b)
If Diametrale (a) = b Then
n(1)=a
n(2)=b
n(3)=FuoriNovanta(a+b)
n(4)=FuoriNovanta(n(3)+45)
n(5)=(90-n(3))
n(6)=FuoriNovanta(a+45)
n(7)=FuoriNovanta(b+45)
Metodo.GiocaPronostico 1, est+1, 9, prog1, n, csAmbo, r1, csNZ

End If
Next
Next
Next
Next
Metodo.Report

End Sub




GRAZIE.



Questo metodo mette in gioco 7 numeri per la sorte dell'ambo . condizione:
'rintracciare un ambo (diametrale in decina) .in una ruota e in qualsiasi estrazione.
' volendo se può mettere in gioco solamente ambi secchi , usando i numeri fissi (n(4)&n(5)) come ambate e come esposti nel script , abbinandoli
' ai restanti n(1),n(2)n(3),n(6),n(7) . Altrimenti se può mettere in gioco tutti i numeri in una schedina unica.

 

[joe]

Alien ... in cerca di guai.

Quello script molto probabilmente non è da correggere.

Ma è stato scritto per un altro tipo di programma.

Devi avere il programma giusto per poterlo eseguire.

Oppure trovare qualcuno che lo abbia e sia

capace di leggerlo-tradurlo-riscriverlo.

E ... controllare che nei 2 ambienti di sviluppo diversi,

gli script funzionino allo stesso identico modo.

Se funzionasse ... dal 2012... sarebbe già stato fatto.

 

[Alien.]

OK JOE ,ma hai capito come si volge il metodo me lo puoi esporre,grazie.

 

[joe]

OK JOE ,ma hai capito come si volge il metodo me lo puoi esporre,grazie.

Questo metodo mette in gioco 7 numeri per la sorte dell'ambo . condizione:
'rintracciare un ambo (diametrale in decina) .in una ruota e in qualsiasi estrazione.
' volendo se può mettere in gioco solamente ambi secchi , usando i numeri fissi (n(4)&n(5)) come ambate e come esposti nel script , abbinandoli
' ai restanti n(1),n(2)n(3),n(6),n(7) . Altrimenti se può mettere in gioco tutti i numeri in una schedina unica.

Alien ... in cerca di guai.

"Non fa scienza, sanza lo ritenere, avere inteso."
(Dante A.)

 

[joe]

Comunque sia ... secondo me, 7 Numeri per Ambo ...

... sono una disgrazia.

Sub Main()
   Dim ini,fin,est
   Dim r1,p1,p2
   Dim a,b,d
   Dim n(7)
   Dim Ru(12)
   Dim Po(2)
   Po(2) = 1 
   
   For r = 1 To 12 
   If R <> 11 Then Ru(R) = R 
   Next
   ini = EstrazioneFin - 155
   fin = EstrazioneFin
   Scrivi "Ambi Dei Diametrale In Decina ruota",True', csCasisticaON
   Scrivi
   For est = ini To fin
      AvanzamentoElab ini,fin,est
      For r1 = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(est,r1,p1)
               b = Estratto(est,r1,p2)
               If DiametraleD(a) = b Then
                  n(1) = a
                  n(2) = b
                  n(3) = Fuori90(a + b)
                  n(4) = Fuori90(n(3) + 45)
                  n(5) = Fuori90(180 - n(3))
                  n(6) = Fuori90(a + 45)
                  n(7) = Fuori90(b + 45)
                  ImpostaGiocata 1,n,Ru,Po,9,2
                  Gioca est,True
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[Alien.]

è credo che hai ragione devo comprare un



Senti ti è possibile inserire l'ID estrazione mese ? Comunque ,grazie hai un gran Cuore.