SE Standard Image Banner 728 x 90

FORUM LOTTODESK.IT

MOLTO INTERESSANTE

MOLTO INTERESSANTE
« il: 07 Agosto 2012 ore 16:25:03 »
Ciao Forum.
Vi posto un bellissimo script che mi avevano fatto per il lotto Irlandese.
Sarebbe molto interessante se si potesse "TRADURLO" sul lotto ITALIANO.
Ciao

 :-cu] :-cu] :-B] :-cu] :-B] :-cu]

Sub main()
Dim numeri(12)
Dim numeri1(6)
Dim res(10)
a=EstrazioniArchivio(LOTTOIRLANDESE_ )
co=0 : cop=0 : con=0 : cot=0
For i = 1 To a
   Messaggio CStr(i) : mm=Cadenza(i)
   If mm=0 Or mm=5 Then
      cot=cot+1 
   co=0           
     ' numeri(1)=Fuori45 (Estratto(i,,1,LOTTOIRLANDESE_ ))
      ' numeri(1)=Fuori45 (Estratto(i,,1,LOTTOIRLANDESE_ ))
        numeri(1)=Estratto(i,,1,LOTTOIRLANDESE_ )
     numeri(2)=Estratto(i,,2,LOTTOIRLANDESE_ )


      'numeri(3)=Fuori45 (Estratto(i,,1,LOTTOIRLANDESE_ )+ 9 )
      'numeri(4)=Fuori45 (Estratto(i,,1,LOTTOIRLANDESE_ )+ 10 )     
     
   'numeri(1)=Fuori45 (Figura (Estratto(i,,1,LOTTOIRLANDESE_ ))+9)
      'numeri(2)=Fuori45 (Figura (Estratto(i,,1,LOTTOIRLANDESE_ ))+10)
      'numeri(3)=Fuori45 (Figura (Estratto(i,,1,LOTTOIRLANDESE_ ))+19)
      'numeri(4)=Fuori45 (Figura (Estratto(i,,1,LOTTOIRLANDESE_ ))+20)

If Distanza(numeri(1),numeri(2)) = 18 Then

EliminaRipetuti numeri

      ColoreTesto 1 : Scrivi  "Data elaborazione pronostico: " & DataEstrazione (i,  True,LOTTOIRLANDESE_ ) &_
      " Numeri in gioco: " & StringaNumeri (numeri),1 : ColoreTesto 0
       'conta gli esiti
         For k=i+1 To i+9
            If i=a Then Exit For End If                     
            t=0
            For j=1 To 6
               numeri1(j)=Estratto(k,,j,LOTTOIRLANDESE_ )
               For h= 1 To 4
                  If numeri(h)=Estratto(k,,j,LOTTOIRLANDESE_ ) Then
                     t=t+1
                     res(t)=res(t)+1
                     co=1
                  End If
               Next
            Next
            If t>0 Then
               Scrivi DataEstrazione(k,True,LOTTOIRLANDESE_  ) & Space (5) & "Esito:" & CStr(t)&"        - "& StringaNumeri(numeri1),1
            Else
               Scrivi DataEstrazione(k,True,LOTTOIRLANDESE_  )& Space (5)&"ESITO NEGATIVO"&" - "& StringaNumeri(numeri1)
            End If   
            Erase numeri1         
            If k = a Then Exit For End If                       
         Next
         If co=1 Then cop=cop+1 End If
         If co=0 Then con=con+1 End If           
      Scrivi : Scrivi "-------------------------------------------"
   End If
End If
Next
ColoreTesto 1 :
Scrivi "************************************************",1
Scrivi "************  RESOCONTO  TOTALE  ***************",1 : ColoreTesto 0
Scrivi "CASI TOTALI   : " & cot,1
Scrivi "CASI POSITIVI : " & cop
ColoreTesto 2 : Scrivi "CASI NEGATIVI : " & con : ColoreTesto 0
Scrivi "    AMBATE    = " & res(1),1
Scrivi "    AMBI      = " & res(2),1
Scrivi "    TERNI     = " & res(3),1
Scrivi "    QUATERNE  = " & res(4),1
spm=(cot*4)*5
spa=cot*5
spt=(cot\2)*5
spq=(cot\2)*5
sptot=(cot*6)*5
incm=res(1)*6
inca=res(2)*42
inct=res(3)*422
incq=res(4)*4096
inctot=incm+inca+inct+incq
Scrivi : Scrivi "-----------------------------------------------"
Scrivi "             POSTE       SPESE          VINCITE",1
Scrivi " Ambata        4€         " & FormatSpace(spm,4)&"            " & FormatSpace(incm,4)
Scrivi " Ambo          1€         " & FormatSpace(spa,4)&"            " & FormatSpace(inca,4)
Scrivi " Terno       0.5€         " & FormatSpace(spt,4)&"            " & FormatSpace(inct,4)
Scrivi " Quaterna    0.5€         " & FormatSpace(spq,4)&"            " & FormatSpace(incq,4)
Scrivi "-----------------------------------------------" : ColoreTesto 1
Scrivi " TOTALE        6€         " & FormatSpace(sptot,4)&"           " & FormatSpace(inctot,5),1                           
ColoreTesto 0
End Sub










 


lottomatica