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!
 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 PER FRANCA

Nota: Devi essere registrato per rispondere al messaggio.
Per registrarti, premi qui. La registrazione è GRATUITA!

Risoluzione schermo:
Nome utente:
Password:
Modo formattazione:
Formato: GrassettoCorsivoSottolineatoAttraversato Allinea sinistraCentratoAllinea destra Riga orizzontale Inserisci un indirizzo web (HYPERLINK)Inserisci indirizzo email (EMAIL)Inserisci un'immagine (IMAGE) Inserisci del codice (CODE)Inserisci una citazione (QUOTE)Inserisci elenco
   
Messaggio:

* HTML è attivo
* Il codice su forum è attivo
Smiles
Smile [:)] Grande Smile [:D] Importante [8D] Arrosisco[:I]
Lingua [:P] Diavolo [}:)] Ammicco[;)] Pagliaccio [:o)]
Occhio nero [B)] Palla N.8 [8] Accigliato[:(] Timido [8)]
Shoccato [:0] Arrabbiato [:(!] Morto [xx(] Assonnato [|)]
Baci [:X] Approvo [^] Disapprovo [V] Domanda [?]

 
 
   

R E V I S I O N E      D E L L A      D I S C U S S I O N E
alphabeta Posted - 19 dicembre 2014 : 15:17:03
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
2     U L T I M E      R E P L I C H E    (Newest First)
franca46 Posted - 14 gennaio 2015 : 08:17:21
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 Posted - 19 dicembre 2014 : 17:20:53
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]



Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000