x Djnomade

[ciaosalvo]

Ciao Djnomade, posso chiederti se gentilmente potresti fare uno Script per spaziometria del sotto elencato metodo?
Grazie.
download/file.php?id=1269

[DjNomade]

Controlla questo

Ciauz

Codice: Seleziona tutto

'http://www.lottopassion.it/forum/viewtopic.php?f=3&t=3630


ColoreTesto 2
Scrivi String(17,32) & "AMBATA 100x100 a BARI di ENZOB   ",1
Scrivi String(17,32) & " ",1
Scrivi String(45,32) & "List. by DjNomade",1
ColoreTesto 0
Sub Main()
   Dim nu1(10),nu2(10),nu3(10),nu4(10)
   Dim ruote(10),ruota(10)
   Dim poste(10),poste1(5),poste2(5),poste3(5)
   
       k =13
   
     poste(1) = 1   
   
   poste1(2) = 1


   fin = EstrazioneFin
   ini = 3862

   For es = ini To fin
      Messaggio "Numero Estrazione esaminata " & es
      For r1 = 1 To 1


                           n1 = Fuori90(SommaEstratti(es,1))
                        
                           If  n1=40 Then

                  

                           n9 = Estratto(es-4,r2,5) '



                                    casi = casi + 1
                                    Scrivi
                                    Scrivi String(75,"=") & " caso n° " &(casi),1
                                    Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(1) & " " & StringaEstratti(es,1) & _
                                    " > Somma Estratti < " & Format2(n1)  ,1 
         
                                                                         Scrivi



                                    ruote(1) = 1
                                    


                                    
                                    co = 0
                                    
                                    nu1(1) = 69
                                    nu1(2) = 74

                                    ImpostaGiocata 1,nu1,ruote,poste,k
                                    nu3(1) = 69
                                    nu3(2) = 22
                                                                        nu3(3) = 57
                                    ImpostaGiocata 2,nu3,ruote,poste1,k
                                    nu3(1) = 69
                                    nu3(2) = 73
                                                                        nu3(3) = 85
                                    ImpostaGiocata 3,nu3,ruote,poste1,k
                                    nu3(1) = 39
                                    nu3(2) = 03
                                                                        nu3(3) = 19
                                                                       
                                    ImpostaGiocata 4,nu3,ruote,poste1,k
                                          nu3(1) = 74
                                    nu3(2) = 43
                                                                        nu3(3) = 18
                                    ImpostaGiocata 5,nu3,ruote,poste1,k
                                    nu3(1) = 74
                                    nu3(2) = 58
                                                                        nu3(3) = 01
                                    ImpostaGiocata 6,nu3,ruote,poste1,k
                                    nu3(1) = 74
                                    nu3(2) = 41
                                                                        nu3(3) = 13
                                                                       
                                    ImpostaGiocata 7,nu3,ruote,poste1,k
                                    Gioca es
                                 End If

                                          Next
                                          Next
               

   ScriviResoconto
ColoreTesto 2
Scrivi String(17,32) & "AMBATA 100x100 a BARI di ENZOB   ",1
Scrivi String(17,32) & " ",1
Scrivi String(45,32) & "List. by DjNomade",1
ColoreTesto 0
End Sub

[ciaosalvo]

Grazie infinite per lo script, funziona benissimo ti auguro una Buona Domenica delle Palme. Grazie