Il gioco del lotto su NonSoloLotto.com
Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
 Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 PER FRANCA		  Nuova discussione  Partecipa alla discussione
 Versione stampabile
Autore Discussione precedente Discussione Discussione successiva

alphabeta
Utente Nuovo

5 invii

 Spedito - 19 dicembre 2014 :  15:17:03  Mostra profilo  Rispondi con citazione
Sub main()
Dim n1(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
ruote(1)=InputBox("Quale ruota vuoi giocare?",,5)
ruota(1)=11
posta(2)=1
posta(3)=1
posta(4)=1
posta(5)=1
fin=EstrazioneFin
k=InputBox("Quante estrazioni vuoi controllare?",,1200)
cont=0
For es = EstrazioneFin - k To fin
r=ruote(1)
For p2=2 To 2
For p3=3 To 3
For p4=4 To 4
d=Estratto(es-3,r,p3)
a=Estratto(es-2,r,p2)
b=Estratto(es-2,r,p3)
c=Estratto(es-2,r,p4)
e=Estratto(es-1,r,p3)
If Fuori90(D+E)=Fuori90(a+b+c) Then
cont=cont+1
Scrivi : Scrivi
ColoreTesto 2 : Scrivi "Caso n° " &cont&"",1
Scrivi
Scrivi "==============================================================="
ColoreTesto 0 : Scrivi DataEstrazione(es-3)&" "&SiglaRuota (r)&" "&stringaestratti(es-3,r)&" [ 3° ] "&format2(d)
ColoreTesto 0 : Scrivi DataEstrazione(es-2)&" "&SiglaRuota (r)&" "&stringaestratti(es-2,r)&" E "&format2(a)&" e "&format2(b)&" e "&format2(C)
ColoreTesto 0 : Scrivi DataEstrazione(es-1)&" "&SiglaRuota (r)&" "&stringaestratti(es-1,r)&" [ 3° ] "&format2(e)
AA=Fuori90(A+B+C)
AA1=Fuori90(B+A)
AA2=Fuori90(B+C)
AA3=Fuori90(B+D)
AA4=Fuori90(B+E)
n1(1)=AA
n1(2)=AA1
n1(3)=AA2
n1(4)=AA3
n1(5)=AA4
ImpostaGiocata 1,n1,ruote,posta,18
ImpostaGiocata 2,n1,ruota,posta,18
Gioca es
End If
Next : Next : Next : Next

ScriviResoconto
End Sub

franca46
Amministratore

Italy
24161 invii

 Spedito - 19 dicembre 2014 :  17:20:53  Mostra profilo  Rispondi con citazione
ciao Paola

mi funziona perfettamente anche su spaziometria

prova a ricopiarlo

questa è la cinquina che mi dicevi


28.02.2008 Mi 06.88.53.38.76 [ 3° ] 53
01.03.2008 Mi 30.24.12.27.86 E 24 e 12 e 27
04.03.2008 Mi 12.82.10.27.20 [ 3° ] 10
gio 06.03.2008  [7878]
  G  1:  ATQC          63.36.39.65.22   Mi    18/18    
     A  39.65            su Mi    5° colpo   [7883/18.03.2008]
     A  36.39            su Mi    9° colpo   [7887/27.03.2008]

  G  2:  ATQC          63.36.39.65.22   Tu    18/18    
     A  39.22.65.36.63   su Tu (Ba)    1° colpo   [7879/08.03.2008]
     T  39.22.65.36.63   su Tu (Ba)    1° colpo   [7879/08.03.2008]
     Q  39.22.65.36.63   su Tu (Ba)    1° colpo   [7879/08.03.2008]
     C  39.22.65.36.63   su Tu (Ba)    1° colpo   [7879/08.03.2008]
     A  39.65            su Tu (Mi)    5° colpo   [7883/18.03.2008]
     A  63.65            su Tu (Ge)    6° colpo   [7884/20.03.2008]
     A  22.36            su Tu (Na)    6° colpo   [7884/20.03.2008]
     A  22.36            su Tu (Ge)    7° colpo   [7885/22.03.2008]
     A  36.65            su Tu (Ve)    8° colpo   [7886/25.03.2008]
     A  36.39            su Tu (Mi)    9° colpo   [7887/27.03.2008]
     A  22.39            su Tu (Ca)   14° colpo   [7892/08.04.2008]
     A  22.65            su Tu (Ve)   17° colpo   [7895/15.04.2008]


Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

franca46
Amministratore

Italy
24161 invii

 Spedito - 14 gennaio 2015 :  08:17:21  Mostra profilo  Rispondi con citazione
nuovo script


Sub Main()
Scrivi "Metodo di alphabeta forum nsl",1
Dim ruota(10),n(5),posta(3)
posta(2) = 1 : posta(3)=1
ini = InputBox("Inizio ricerca ",,8790)
r1 = InputBox("Ruota di ricerca ",,1)'scegli ruota
r2 = InputBox("Ruota di gioco ",,11)
k = InputBox("Colpi di gioco ",,10)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
a = Estratto(es - 1,r1,1) : a1 = Estratto(es,r1,1)
b = Estratto(es - 1,r1,2) : b1 = Estratto(es,r1,2)
c = Estratto(es - 1,r1,3) : c1 = Estratto(es,r1,3)
d = Estratto(es - 1,r1,4) : d1 = Estratto(es,r1,4)
e = Estratto(es - 1,r1,5) : e1 = Estratto(es,r1,5)
ruota(1) = r2
co = co + 1
Scrivi String(90,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es - 1,r1) & " " 
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " 
n(1)=Fuori90(a+a1) 
n(2)=Fuori90(b+b1)
n(3)=Fuori90(c+c1)
n(4)=Fuori90(d+d1)
n(5)=Fuori90(e+e1)

ImpostaGiocata 1,n,ruota,posta,k
Gioca es 
If ScriptInterrotto Then Exit For
Next
Scrivi
'Scrivi:Scrivi:ScriviResoconto
End Sub


l'esito da te segnalato

07.01.2015 Na 90.82.88.15.72 90
08.01.2015 Na 63.18.88.81.05 82
gio 08.01.2015  [8948]
  G  1:  AT      63.10.86.06.77   Tu    2/10    
     A  06.77.86.63.10   su Tu (Ba)    1° colpo   [8949/10.01.2015]
     T  06.77.86.63.10   su Tu (Ba)    1° colpo   [8949/10.01.2015]
     A  63.06            su Tu (Ro)    2° colpo   [8950/13.01.2015]
     in corso (2° su 10)


buona giornata
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000