| Autore |
 Discussione  |
|
lele67
Utente Fedelissimo
947 invii |
 Spedito - 05 maggio 2008 : 23:58:55
|
Scusate ma su ced lo fanno desiderare.....
Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"=")&"**Dragon 45**",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"=")&"listato by lele67. ",1
ColoreTesto 0
Sub main()
Dim amb(1),n(3),nn(3)
Dim ambo1(4),ambo2(2),ambo3(2)
Dim lg(4)
Dim ruote(2)
Dim ruota(1)
Dim ruotas (10)
Dim posta(1)
Dim poste(4)
posta(1)=1
poste(2)=3.50
poste(3)=1
poste(4)=.50
ca=0
fin=EstrazioneFin
ini=fin-150
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9 : For p=1 To 4 : For q=p+1 To 5
a=Estratto (es,r,p) : b=Estratto (es,r,q)
d1=Distanza (a,b)
If d1=45 Then
For r1=r+1 To 10 : For p1=1 To 4 : For q1=p1+1 To 5
c=Estratto (es,r1,p1) : d=Estratto (es,r1,q1)
d2=Distanza (c,d)
ax=a :if b>a Then ax=b
cx=c:if d>c Then cx=d
If d2=45 Then
'Quadratura
sv1=Fuori90 (a+c) : sv2=Fuori90 (b+d)
sd1=Fuori90 (a+d) : sd2=Fuori90 (b+c)
If sv1=sv2 And sd1=sd2 Then
If Pari (sv1)=True Then
nr1= Fuori90((sv1+sv1+(sv1\2)+Diametrale(sv1\2))) : amb(1)=nr1 : n1=Diametrale(Fuori90((sv1+sv1+(sv1\2)+Diametrale(sv1\2)))) : n2=Fuori90 (n1+30) : n3=Fuori90 (n2+30):n4=Abs(a-c)
nn1=Diametrale (n1) : nn2=Fuori90 (nn1+30) : nn3=Fuori90 (nn1+60) : ab1=n3 : ab2=nn2 : ab3=n2 : ab4=nn3
End If
If Pari (sv1)=False Then
nr1= Fuori90((sd1+sd1+(sd1\2)+Diametrale(sd1\2))) : amb(1)=nr1 : n1=Diametrale(Fuori90((sd1+sd1+(sd1\2)+Diametrale(sd1\2)))) : n2=Fuori90 (n1+30) : n3=Fuori90 (n1+60):n4=Abs(a-d)
nn1=Diametrale (n1) : nn2=Fuori90 (nn1+30) : nn3=Fuori90 (nn2+30) : ab1=n3 : ab2=nn2 : ab3=n2 : ab4=nn3
End If
n(1)=n1 : n(2)=n2 : n(3)=n3
nn(1)=nn1 : nn(2)=nn3 : nn(3)=nn2
ambo1(1)=n1
ambo1(3)=nr1
lg(1)=nr1 : lg(2)=n1 : lg(3)=ax : lg(4)=cx
ruote(1)=r
ruote(2)=r1
ruotas(10)=11
ca=ca+1
Scrivi
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2)&" "& StringaEstratti (es,r)&" [Pos. "&p&" "&q& "] " & Format2(a) &" "& Format2 (b)&_
" Dist.: "& Format2(d1)&" Somma Vert.: "& Format2(sv1)&" * "& StringaNumeri(n),1
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2)&" "& StringaEstratti (es,r1)&" [Pos. "&p1&" "&q1& "] "& Format2 (c) &" "& Format2 (d)&_
" Dist.: "& Format2(d2)&" Somma Diag.: "& Format2(sd1)&" * "& StringaNumeri(nn),1
ImpostaGiocata 1,amb,ruote,posta,9,1
ImpostaGiocata 2,ambo1,ruote,poste,9,3
ImpostaGiocata 3,ambo2,ruote,poste,9,3
ImpostaGiocata 4,ambo3,ruote,poste,9,3
ImpostaGiocata 5,lg,ruote,poste,9,3
ImpostaGiocata 6,lg,ruotas,poste,9,3
Gioca es
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ColoreTesto 2
Scrivi "================================================================================================"
Scrivi " casi giocabili: "& ca ,1
Scrivi "================================================================================================"
ColoreTesto 0
ScriviResoconto
End Sub
|
  |
Modificato da - lele67 su 07 maggio 2008 17:40:27 |
|
|
n/a
deleted
2504 invii |
Spedito - 06 maggio 2008 : 00:02:32
|
Bravo lele. . . . 
generoso....
mi spiace per Pesciolina che non ha L8 |
   
Beato chi non si aspetta gratitudine...........non resterà deluso
|
 |
|
|
beppone
Utente Sfegatato
1432 invii |
Spedito - 06 maggio 2008 : 06:21:00
|
Susate come si fa a trovarele due ambate io non ho l8 faccio tutto a mano
metto in esempio
gio 24.04.2008 [ Ge - 78.05.32.33.51 ] [ 78.33 ] (caso n° 29)
gio 24.04.2008 [ Mi - 36.15.81.60.78 ] [ 36.81 ]
----------------------------------------------------------------------
gio 24.04.2008 [7899]
G 1: M 27.72 Ge Mi 1/14
M 72 su Mi 1° colpo [7900/26.04.2008]
I1
G 2: ATQ 27.72.81.78 Ge Mi 4/14
A 72.27 su Ge 4° colpo [7903/03.05.2008]
in corso (4° su 14)
G 4: ATQ 27.72.81.78.36.33 Ge Mi 4/14
A 72.27 su Ge 4° colpo [7903/03.05.2008]
in corso (4° su 14)
=====================================
Come si trovano ledue ambate 27 72
Grazie
C i a o |
Modificato da - beppone su 06 maggio 2008 06:29:24 |
|
|
|
gibon
Utente Sfegatato
Italy
2515 invii |
Spedito - 06 maggio 2008 : 07:16:16
|
 OTTIMO LISTATO
CHE METODO E'???? |
   VENTO IN POPPA  |
Modificato da - gibon su 06 maggio 2008 07:18:52 |
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 06 maggio 2008 : 12:20:21
|
si.........spiace anche a me..........  |
 |
|
|
|
lele67
Utente Fedelissimo
947 invii |
Spedito - 06 maggio 2008 : 17:29:15
|
|
ultimi 100 ingressi poi lo leviamo ....ahahahah vero roma !!! scherzo....ma non troppo.. |
|
|
|
|
n/a
deleted
2504 invii |
Spedito - 06 maggio 2008 : 21:03:22
|
|
il drago centra ambata 33 a genova |
Beato chi non si aspetta gratitudine...........non resterà deluso
|
|
|
|
nima
Utente Nuovo
10 invii |
Spedito - 07 maggio 2008 : 17:13:07
|
ciao..!
lele67
ho mandato in esecuzione il listato ed alcune previsioni non coincidono con quelle fatte manualmente...
esempio
il 24/04/2008
Ge 78-33
Mi 15-60
la previsione fatta a mano è:
ambata......9
ambi..........9-54...9-78...9-60
con il listato invece
ambata......8 ed diametrale 53
credo che sia tutta una questione di somme io faccio sommare sempre i numeri degli ambi rintracciati così...pari con pari e dispari con dispari per poter effettuare poi la divisione 2 altrimenti non quadra.
in attesa di risposta
grazie.....
|
|
|
|
lele67
Utente Fedelissimo
947 invii |
Spedito - 07 maggio 2008 : 17:39:59
|
|
Hai ragione nima qualcuno di preparato cè anche su ced...Ahahah....riscaricalo l'ho corretto..ciao |
|
|
|
|
nima
Utente Nuovo
10 invii |
Spedito - 07 maggio 2008 : 18:30:35
|
x lele67
grazie...grazie...grazie...!!!
visto...ora lo script is wonderfullllll...!!!
bye...bye... |
Modificato da - nima su 07 maggio 2008 18:31:25 |
|
|
|
n/a
deleted
11156 invii |
Spedito - 08 maggio 2008 : 07:08:35
|
|
|
|
nima
Utente Nuovo
10 invii |
Spedito - 08 maggio 2008 : 16:36:08
|
x Graan
grazie x il benvenuto
in passato avevo navigato questo forum senza iscrivermi..!
una cosa devo dirla qui la cooperazione sta alla base di tutto..!
VIVA...Non Solo Lotto..!
ciao.. |
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 08 maggio 2008 : 18:44:05
|
|
|
|
pina
Utente Sfegatato
Italy
9014 invii |
Spedito - 08 maggio 2008 : 19:25:45
|
Ciao Nima, tutto in coro ti diciamo....
nel forum di nsl, dove esiste...l'armonia...il rispetto e,
come dici tu, la collaborazione fra tutti noi. |
|
|
|
n/a
deleted
2504 invii |
Spedito - 14 agosto 2008 : 18:29:02
|
in gioco da Dragon45
12.08.2008 Ba 69.24.72.26.55 [Pos. 1 2] 69 24 Dist.: 45 Somma Vert.: 61 * 48.78.18
12.08.2008 Mi 12.82.43.37.41 [Pos. 2 4] 82 37 Dist.: 45 Somma Diag.: 16 * 03.63.33
mar 12.08.2008 [7946]
G 1: M 03 Ba Mi 0/9
n.i. (9 colpi)
G 2: ATQ 48.03 Ba Mi 0/9
n.i. (9 colpi)
G 5: ATQ 03.48.69.82 Ba Mi 0/9
n.i. (9 colpi)
G 6: ATQ 03.48.69.82 Tu 0/9
n.i. (9 colpi)
12.08.2008 Ba 69.24.72.26.55 [Pos. 1 2] 69 24 Dist.: 45 Somma Vert.: 25 * 30.60.90
12.08.2008 To 46.20.30.55.01 [Pos. 1 5] 46 01 Dist.: 45 Somma Diag.: 70 * 75.45.15
mar 12.08.2008 [7946]
G 1: M 75 Ba To 0/9
n.i. (9 colpi)
G 2: ATQ 30.75 Ba To 0/9
n.i. (9 colpi)
G 5: ATQ 75.30.69.46 Ba To 0/9
n.i. (9 colpi)
G 6: ATQ 75.30.69.46 Tu 0/9
n.i. (9 colpi)
12.08.2008 Mi 12.82.43.37.41 [Pos. 2 4] 82 37 Dist.: 45 Somma Vert.: 38 * 24.54.84
12.08.2008 To 46.20.30.55.01 [Pos. 1 5] 46 01 Dist.: 45 Somma Diag.: 83 * 69.39.09
mar 12.08.2008 [7946]
G 1: M 69 Mi To 0/9
n.i. (9 colpi)
G 2: ATQ 24.69 Mi To 0/9
n.i. (9 colpi)
G 5: ATQ 69.24.82.46 Mi To 0/9
n.i. (9 colpi)
G 6: ATQ 69.24.82.46 Tu 0/9
n.i. (9 colpi)
|
Beato chi non si aspetta gratitudine...........non resterà deluso
|
|
|
|
n/a
deleted
2504 invii |
Spedito - 14 agosto 2008 : 21:39:37
|
|
Bari Ambata 75 |
Beato chi non si aspetta gratitudine...........non resterà deluso
|
|
|
|
n/a
deleted
150 invii |
Spedito - 26 agosto 2008 : 10:12:08
|
Ciao lele,
siccome sono un neofita e sto imparando a listare
volevo farti una domanda sul listato.. 
nell'impostagiocate, ne hai messe 6 ma il listato ne gioca
sempre 4 la 1-2-5-6
nelle giocata 3 e 4 hai impostato come numeri ambo2 ed ambo3
ma non sono dichiarati i calcoli che li compongono,
è un errore o è giusto così
non avendo il metodo cartaceo non posso fare un confronto
Ti ringrazio anticipatamente per la risposta
Ciao
bentley
|
Che la Fortuna sia con Noi!!!!
  |
|
|
|
lele67
Utente Fedelissimo
947 invii |
Spedito - 28 agosto 2008 : 18:58:42
|
|
ciao bentley ambo 2 e ambo 3 non vengono riportati nel listato perchè sono già compresi nella giocata della quartina li ho eliminati solo x questioni di spazio . |
|
|
|
|
n/a
deleted
150 invii |
Spedito - 29 agosto 2008 : 17:22:50
|
Ciao lele,
grazie 1000 x il chiarimento.
Ah, dimenticavo, ottimo listato 
Saluti
bentley
|
Che la Fortuna sia con Noi!!!!
|
|
|
|
n/a
deleted
1 invio |
Spedito - 08 settembre 2008 : 15:19:22
|
Scusate. Sono un nuovo iscritto e chiedo gentilmente dove poter trovare un programmino per creare un metodo di gioco con relativo compendio. Si fa tutto a mano ma si sbaglia e ci si mette tanto tempo...GRAZIE MILLE.......A tutti gli iscritti
BARI - NAPOLI 88.18.8.86.61.11.19 per Ambo e TERNO |
|
|
|
n/a
deleted
11156 invii |
Spedito - 09 settembre 2008 : 07:16:54
|
benvenuto fra noi GiallAnt!!
Per i programmi se ne trovano molti in giro per l'web,
i migliori sono a pagamento, tra quelli più usati c'è L8+
ma penso che gli altri iscritti ti potranno consigliare anche altri programmi!!
|
|
|
|
Discussione |
|
DRAGON 45 L'introvabile listato
