SUPER LOTTO

AMBO RIPETUTO PER LOTTO IRLANDESE AIUTOOOOOOOOOOOOOOOOOOOOOOOOO

« Older   Newer »
  Share  
GEPPOFIX
CAT_IMG Posted on 18/11/2011, 09:50




Questo è un listato per ambo ripetuto di lotto irlandese.
CHI NON HA MAI GIOCATO AL LOTTO IRLANDESE E' MEGLIO NN CI PROVI..... PERCHE' SUBITO SCORDERA' QUELLO ITALIANO
Qualcuno mi aiuta perchè nn riesco a farlo girare.


Sub main()
Dim num1(2),num2(6),num3(6)
Dim numeri(3)
Dim ruota(2)
Dim posta(1)
Dim poste(3),post(5)
poste(2)=2
posta(1)=1
post(2)=3
post(3)=1.3
post(4)=0.5
post(5)=0.2
Dim a,b,c,d


ini=1780 '<---- estrazione di inizio ricerca
fin=EstrazioneFin (LOTTOIRLANDESE_ )
For es=ini To fin '<------------------------------- ciclo estrazioni da controllare
For i=ini To fin


For j=1 To 7
a=Estratto(es,,j,2)
For k=1 To 7
b=Estratto(es,,k,2)



For y=1 To 7
c=Estratto((es-1),,j,2)
For x=1 To 7
d=Estratto((es-1),,x,2)

If a=c And b=d Then


casi=casi+1:Scrivi String(70,"="),1

Scrivi DataEstrazione((i-1),True,LOTTOIRLANDESE_ )&" [ "&stringaestratti((i-1),,,LOTTOIRLANDESE_ )&_
" ] [ "&Format2(b)&"."& Format2 (d)&" ]"&space(14)&"(caso n° "&casi&")",2

Scrivi DataEstrazione(i,True,LOTTOIRLANDESE_ )&" [ "&stringaestratti(i,,,LOTTOIRLANDESE_ )&_
" ] [ "&Format2(a)&"."& Format2 (c)&" ]",2

Scrivi String(70,"-"),1

k=18

numeri(1)=Fuori45(a+b)
numeri(2)=Distanza(a,b)

ImpostaGiocataInt 1,numeri,LOTTOIRLANDESE_ ,1,,posta,k,5
ImpostaGiocataint 2,numeri,LOTTOIRLANDESE_ ,1,,posta,k,5


Gioca i
End If

'End If
Next
Next
Next
Next
Next
Next
'Next
'Next
'Next
ScriviResoconto
End Sub


DI SEGUITO INVECE HO POSTATO DUE INTERESSANTI AMBATE PER IL LOTTO ITALIANO RICAVATE SEMPRE DA AMBI RIPETUTI



Sub main()
Dim num1(2),num2(6),num3(6)
Dim ruota(2)
Dim posta(1)
Dim poste(3),post(5)
poste(2)=2
posta(1)=1
post(2)=3:post(3)=1.3:post(4)=0.5:post(5)=0.2


rs=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",165)
ini=EstrazioneFin -rs
fin=EstrazioneFin
For es=ini To fin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)

For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto (es,r1,p1)
b=Estratto (es,r1,p2)

For r2=r1+1 To 10
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)

If a=c And b=d Then
'If p1=p3 And p2=p4 Then

casi=casi+1:Scrivi String(70,"="),1
Scrivi DataEstrazione(es)&" [ "&siglaRuota(r1)&" "&stringaestratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" ]"&space(14)&"(caso n° "&casi&")"
Scrivi DataEstrazione(es)&" [ "&siglaRuota(r2)&" "&stringaestratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" ]"
Scrivi String(70,"-"),1

ruota(1)=r1
ruota(2)=r2
k=18

n11=Fuori90(a+b)
n12=Distanza(a,b)

num1(1)=n11

num2(2)=n12

ImpostaGiocata 1,num1,ruota,posta,k,1
ImpostaGiocata 2,num2,ruota,posta,k,1


Gioca es
End If
'End If
Next
Next:Next:Next:Next:Next:Next
ScriviResoconto
End Sub



Ciao Geppofix
 
Top
lones
CAT_IMG Posted on 19/11/2011, 09:33




geppo è un listato del mitico "maestro" Ramco,al quale mando
un cordialissssssimo saluto()
SPOILER (clicca per visualizzare)
'Ramco Est101(tris) x GEPPOFIX (Ricerca Ambate = Distanza()e somme di ambi ripetuti)
'Forum Ramcolotto.it 16/03/2009
Sub main()
Dim nu(2),nn(4),pt(1),ptt(1),pta(2)
pt(1)=1
ptt(1)=1 : pta(2)=1
clp=7
txx="Lotteria ESTERA : LottoSpagnolo= 5 , LottoTedesco= 6 , LottoUK49s= 12 , LottoHong kong= 8 ,"&_
" LottoGreco= 9 , LottoCanadese= 11 , LottoUKNational= 17"
tgi=CInt (InputBox(txx,"LOTTO ESTERO",12))
tmp=InputBox("Numero estrazioni:","ESTRAZIONI",50)
ini=EstrazioneFin (tgi)-tmp
fin=EstrazioneFin (tgi)
co=0
For es=ini To fin
Messaggio es
For p=1 To 6
For pp=p+1 To 7
a=Estratto (es-1,,p,tgi)
b=Estratto (es-1,,pp,tgi)
For p1=1 To 6
For pp1=p1+1 To 7
a1=Estratto (es,,p1,tgi)
b1=Estratto (es,,pp1,tgi)

If a=a1 And b=b1 Or a=b1 And b=a1 Then
co=co+1
s1=Fuori45 (a+b) '<<<se utilizzi altro lotto cambia Fuori45 (?? Fuori49)e metti quello che ritieni piu opport


nu(1)=s1
nu(2)=Distanza (a,b)

Scrivi String (60,"=")&" Caso n° "& co
Scrivi DataEstrazione (es-1,True ,tgi)&" "& StringaEstratti (es-1,,,tgi)&" Ambo "& a&"-"&b
Scrivi DataEstrazione (es,True ,tgi)&" "& StringaEstratti (es,,,tgi)&" Ambo "& a1&"-"&b1

ImpostaGiocataInt 1,nu,tgi,1,True ,pt,clp,1
GiocaInt es
End If
Next
Next
Next
Next
Next

ScriviResocontoInt
End Sub
 
Top
GEPPOFIX
CAT_IMG Posted on 19/11/2011, 22:59




Intanto ti ringrazio di cuore perchè non ne vengo fuori lo sperimento poi ti dico .
Hai per caso altri listati per il lotto irlandese ??

Ciao Geppofix
 
Top
GEPPOFIX
CAT_IMG Posted on 20/11/2011, 10:41




SEI UN GRANDE
GRAZIE 1000
 
Top
lones
CAT_IMG Posted on 29/11/2011, 15:38




CITAZIONE (GEPPOFIX @ 20/11/2011, 10:41) 
SEI UN GRANDE
GRAZIE 1000

il grande è l'amico Ramco
ho trovato un suo vecchio listato,e per non disperdere il suo prezioso
"lavoro "ti posto questo che è una vera chicca
SPOILER (clicca per visualizzare)
'Estratto + num-fisso LOTTO ESTERO (+Totali pos)x Lones
'Ramco 09/11/2008 modifica x Lotto Estero 29/11/2009
'rev. 30/01/2009 (Aggiunta tabella convergenza ultimi numeri(attuali) per posizione)
'aggiunto inputbox per gestire la quantità di righe visualizzabili per ogni posizione.
'Aggiunta 3^colonna ,raccoglie dati esiti condizione in posizione
'adattato per qualsiasi lotto estero
Sub main()
Dim nam(49,6),nn(1),ruota(1),nt(49,6),n3(49,6),n4(49,6),n5(49,6) ,n6(49,6),tn(49,3)
txx="Lotteria ESTERA : LottoSpagnolo= 5 , LottoTedesco= 6 , LottoUK49s= 12 , LottoHong kong= 8 ,"&_
" LottoGreco= 9 , LottoCanadese= 11 , LottoUKNational= 17"
nru1=CInt (InputBox(txx,"LOTTO ESTERO",12)) ' 12= uk49s
ne=InputBox("Numero estrazioni:","ESTRAZIONI",100)
ncg=CInt (InputBox("Numero colpi di gioco","COLPI di GIOCO",5))
vis=CInt (InputBox ("Classifica delle posizioni ","QUANTITA' per POSIZIONE",10))
For x=1 To 49
For y=1 To 6
nam(x,y)=0 : nt(x,y)=0 : n3(x,y)=0 : n4(x,y)=0 : n5(x,y)=0 : n6(x,y)=0 : tn(x,1)=0 : tn(x,2)=0 : tn(x,3)=0
Next
Next
p=1 : p2=2 : p3=3 : p4=4 : p5=5 : p6=6
casi=0
ini=EstrazioneFin(nru1)-ne
fin=EstrazioneFin(nru1)
For ii=ini To fin step 5 'ATTENZIONE è in attivo uno step !!
Messaggio (ii)
casi=casi+1
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
Scrivi casi &") "& DataEstrazione (ii,,nru1)&" ["&ii&"] lotto uk49s " & StringaEstratti (ii,,,nru1)
co=0
For nu=1 To 49
co=co+1
a=Estratto(ii,,1,nru1) : aa=Estratto (ii,,2,nru1): a3=Estratto (ii,,3,nru1)
b=Fuori49(a+nu) : bb=Fuori49 (aa+nu) : b3=Fuori49 (a3+nu)
a4=Estratto (ii,,4,nru1) : a5=Estratto (ii,,5,nru1) : a6=Estratto (ii,,6,nru1)
b4=Fuori49(a4+nu): b5=Fuori49 (a5+nu) : b6=Fuori49 (a6+nu)
nam(co,1)=co : nt(co,1)=co : n3(co,1)=co : n4(co,1)=co : n5(co,1)=co : n6(co,1)=co
nam(co,2)=p : nt(co,2)=p2 : n3(co,2)=p3 : n4(co,2)=p4 : n5(co,2)=p5 : n6(co,2)=p6
nam(co,3)=nu : nt(co,3)=nu : n3(co,3)=nu : n4(co,3)=nu : n5(co,3)=nu : n6(co,3)=nu
nam(co,4)=b : nt(co,4)=bb : n3(co,4)=b3 : n4(co,4)=b4 : n5(co,4)=b5 : n6(co,4)=b6
nam(co,6)=0 : nt(co,6)=0 : n3(co,6)=0 : n4(co,6)=0 : n5(co,6)=0 : n6(co,6)=0
tn(co,1)=co
iincg=ii+ncg
If iincg>EstrazioneFin(nru1) Then iincg=EstrazioneFin(nru1) End If
For iii=ii+1 To iincg
For pp=1 To 6
e=Estratto (iii,,pp,nru1)
If e=b Then
nam(co,5)=nam(co,5)+1
nam(co,6)=1
Exit For
End If
If e=bb Then
nt(co,5)=nt(co,5)+1
nt(co,6)=1
Exit For
End If
If e=b3 Then
n3(co,5)=n3(co,5)+1
n3(co,6)=1
Exit For
End If
If e=b4 Then
n4(co,5)=n4(co,5)+1
n4(co,6)=1
Exit For
End If
If e=b5 Then
n5(co,5)=n5(co,5)+1
n5(co,6)=1
Exit For
End If
If e=b6 Then
n6(co,5)=n6(co,5)+1
n6(co,6)=1
Exit For
End If
Next
Next
Next
Next
Scrivi : Scrivi
ColoreTesto 1
Scrivi "ANALISI Dal "& ini&" al "& fin,1
Scrivi
Scrivi " LOTTO : ESTERO ("&nru1&")",1
Scrivi "COLPI DI GIOCO : "& ncg,1
Scrivi "CASI ANALIZZATI : "& casi,1 : Scrivi
Scrivi "ATTENZIONE ANALISI DELLA POS. "& p
Scrivi : ColoreTesto 0
OrdinaMatrice nam,-1,5
For ca=1 To vis
Scrivi eval(nam(ca,2))& "°ESTR + "&_
Format2(nam(ca,3))&" su "&_
" è uscito "& FormatSpace(nam(ca,5),3)&" su "& FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(nam(ca,5),3) &" Num. ["& Format2 (eval(nam(ca,4)))&"] Ultimo Calcolato"
tn(nam(ca,4),2)=tn(nam(ca,4),2)+1
tn(nam(ca,4),3)=tn(nam(ca,4),3)+nam(ca,5)
Next
Scrivi String (95,"-")

Scrivi : ColoreTesto 1
Scrivi "ATTENZIONE ANALISI DELLA POS. "& p2 : Scrivi : ColoreTesto 0
OrdinaMatrice nt,-1,5
For ca=1 To vis
Scrivi eval(nt(ca,2))& "°ESTR + "&_
Format2(nt(ca,3))&" su "&_
" è uscito "& FormatSpace(nt(ca,5),3)&" su "& FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(nt(ca,5),3) &" Num. ["& Format2 (eval(nt(ca,4)))&"] Ultimo Calcolato"
tn(nt(ca,4),2)=tn(nt(ca,4),2)+1
tn(nt(ca,4),3)=tn(nt(ca,4),3)+nt(ca,5)
Next
Scrivi String (95,"-")

Scrivi : ColoreTesto 1
Scrivi "ATTENZIONE ANALISI DELLA POS. "& p3 : Scrivi : ColoreTesto 0
OrdinaMatrice n3,-1,5
For ca=1 To vis
Scrivi eval(n3(ca,2))& "° ESTR+ "&_
Format2(n3(ca,3))&" su "&_
" è uscito "& FormatSpace(n3(ca,5),3)&" su "& FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(n3(ca,5),3) &" Num. ["& Format2 (eval(n3(ca,4)))&"] Ultimo Calcolato"
tn(n3(ca,4),2)=tn(n3(ca,4),2)+1
tn(n3(ca,4),3)=tn(n3(ca,4),3)+n3(ca,5)
Next
Scrivi String (95,"-")
Scrivi : ColoreTesto 1
Scrivi "ATTENZIONE ANALISI DELLA POS. "& p4 : Scrivi : ColoreTesto 0
OrdinaMatrice n4,-1,5
For ca=1 To vis
Scrivi eval(n4(ca,2))& "°ESTR + "&_
Format2(n4(ca,3))&" su "&_
" è uscito "& FormatSpace(n4(ca,5),3)&" su "& FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(n4(ca,5),3) &" Num. ["& Format2 (eval(n4(ca,4)))&"] Ultimo Calcolato"
tn(n4(ca,4),2)=tn(n4(ca,4),2)+1
tn(n4(ca,4),3)=tn(n4(ca,4),3)+n4(ca,5)
Next
Scrivi String (95,"-")
Scrivi : ColoreTesto 1
Scrivi "ATTENZIONE ANALISI DELLA POS. "& p5 : Scrivi : ColoreTesto 0
OrdinaMatrice n5,-1,5
For ca=1 To vis
Scrivi eval(n5(ca,2))& "°ESTR + "&_
Format2(n5(ca,3))&" su "&_
" è uscito "& FormatSpace(n5(ca,5),3)&" su "& FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(n5(ca,5),3) &" Num. ["& Format2 (eval(n5(ca,4)))&"] Ultimo Calcolato"
tn(n5(ca,4),2)=tn(n5(ca,4),2)+1
tn(n5(ca,4),3)=tn(n5(ca,4),3)+n5(ca,5)
Next
Scrivi String (95,"-")
Scrivi : ColoreTesto 1
Scrivi "ATTENZIONE ANALISI DELLA POS. "& p6 : Scrivi : ColoreTesto 0
OrdinaMatrice n6,-1,5
For ca=1 To vis
Scrivi eval(n6(ca,2))& "°ESTR + "&_
Format2(n6(ca,3))&" su "&_
" è uscito "& FormatSpace(n6(ca,5),3)&" su "& FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(n6(ca,5),3) &" Num. ["& Format2 (eval(n6(ca,4)))&"] Ultimo Calcolato"
tn(n6(ca,4),2)=tn(n6(ca,4),2)+1
tn(n6(ca,4),3)=tn(n6(ca,4),3)+n6(ca,5)
Next
Scrivi String (95,"-")
Scrivi : Scrivi " RESOCONTO CONVERGENZE ",1
OrdinaMatrice tn,-1,2
ColoreTesto 1
Scrivi : Scrivi " Numero Posizioni Convergenti"
ColoreTesto 0
ScriviMatrice tn
Scrivi "Nota Bene : La 3^ colonna esprime il totale degli esiti ottenuti, sommando la quantità "
Scrivi "delle uscite per ogni posizione. Perciò non è riferita al numero EVIDENZIATO ma alla "
Scrivi "condizione che lo ha generato."
Scrivi "ESEMPIO :"
Scrivi "Prima Riga = Numero(19)(Elemento da giocarsi) / Pos.Conv.(4)(è presente in 4 posizioni)"
Scrivi "Somma Esiti condizione(54)(la condizione che ha generato il 19 si è verificata 15 volte "
Scrivi "in 1^pos.+ 14 volte in 2^pos. + 13 volte in 3^pos. + 12 volte in 4^pos. + in 5^pos. non"
Scrivi "è presente + in 6^pos. non è presente ; per un totale di 54 Esiti!!)"
End Sub


:nopity.gif:
 
Top
Pia
CAT_IMG Posted on 29/11/2011, 16:36

Group:
Fan
Posts:
1,120

Status:


RAGAZZI DI COSA PARLATE DI QUESTO LOTTO IRLANDESE NON CAPISCO COME SI GIOCA IO NON RIESCO A LEGGERE NIENTE, DOVE SI GIOCA ?
 
Top
GEPPOFIX
CAT_IMG Posted on 4/12/2011, 10:02




Il lotto irlandese si gioca sul sito, nn so se si può dare, o altrimenti vai su google che ti dicono come e quando giocare.
Io ero un patito del lotto italiano da anni da quando ho saputo del lotto irlandese mi son detto " che coglione non averlo saputo prima".
Intanto nel lotto irlandese hai 45 numeri e non 90 e poi ci sono 3 estrazioni da 7 numeri e nn 5 come da noi.
E' ovvio che nn vinci quote esorbitanti ma costanti si.
Puoi giocare una quota minima di euro 0.2 una quaterna e vinci euro 975.00 su 7 numeri su 45 totali.
Quando mai ti capita nel lotto italiano ??
Per me morto e sepolto.
Col terno euro 0.20 ti pagano euro 97.50 .
Capisci che puoi fare numerosi "SISTEMI" per far terno, con euro 1 fai 5 combinazioni di terno su 7 numeri perchè puoi escludere il 7 numero, che è il jolly, e vincere molto di più, adesso non ricordo.
Vai su questo sito, come me si gioca 2 volte la settimana, OTTIMO, invece che 3 come il nostro lotto, così ti da modo di concentrarti di più, fai l'iscrizione, usi per i pagamenti una POSTE PAY normale, senza intaccare il tuo CC e poi da lì se vinci butti dentro i soldi nella POSTA PAY, come faccio io.
SE CI SONO CHIARMENTI DA CHIEDERE SONO A DISPOSIZIONE.
DIMENTICAVO
La ciclometria del nostro lotto applicata a lotto irlandese sfiora il 100% della vincita.
2 ambate invece fanno dal 19 .. cioè da quando è iniziato il lotto iralndese il 100% - vedi tu.

Ciao Geppofix
 
Top
6 replies since 18/11/2011, 09:50   259 views
  Share  
 

LISTATI e SCRIPT
 

Create your blog! · Create your forum! · Top Blog · Categories · Help · Status · Contacts · Powered by BlogFree