SUPER LOTTO

la tavola istantanea di bartalini,

« Older   Newer »
  Share  
occhidigiada58.
CAT_IMG Posted on 21/12/2010, 23:46




image

image

io la uso per i numeri uguali isotopi e le somme uguali isotope
personalmente preferisco le previsioni su ruote consecutive ,diametrali o gemellari!!
esempio isotopia numero uguale estrazione scorsa fi ro 87 in seconda posizione
cercate il num mettete in gioco la previsione!!!
ambate 45.72 abbinamenti 24.50.9.39
sempre estrazione del 18 dicembre
abbiamo una somma 54 isotopa firenze genova
12.39 abbinamenti 81.17.6.66
mentre a ro to abbiamo somma 72 isotopa
30.57 abbinamenti 9.35.24.84

 
Top
occhidigiada58.
CAT_IMG Posted on 22/12/2010, 00:11




somma uguale isotopa

CODICE
Sub main()
Dim nu1(5),nu2(5),nu3(5),nu4(6),amb(6),ruota(2),ruote(1),ruot(1)
Dim posta(1),poste(2),post(5)
Dim pstd(10)

posta(1)=5:poste(2)=3
post(2)=1.5:post(3)=1.5:post(4)=1.5
post(2)=1.5:post(3)=1.5:post(4)=1.5:post(5)=1.5

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8231)'7850 inizio 2008
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "TAVOLA ISTANTANEA (2 ambi uniti somma uguale)",1
Scrivi "script by joe91 & ramco & maxma62 & occhidigiada",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)

For r1=1 To 10
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 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
If p3=p1 And p4=p2 Then 'iso
n1=Fuori90(a+b)
n2=Fuori90(c+d)
If n1=n2 And d1=d2 Then

casi=casi+1:Scrivi String(19,"=")&"  metoto < tavola istantanea >  "&String(19,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&Format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(70,"-")
Scrivi "somma "&format2(a)&"."&format2(b)&" = "&format2(n1)&" / somma "&_
Format2(c)&"."&format2(d)&" = "&format2(n2)
Scrivi String(58,"-")&" caso n° "&(casi)

If (n1)=(n2) Then

' Tavola Istantanea riassunta da Joe91

amb(1)=Fuori90(n1+48) : amb(2)=Fuori90(n1+27) : amb(3)=Fuori90(n1+53)
amb(4)=Fuori90(n1+75) : amb(5)=Fuori90(n1+12) : amb(6)=Fuori90(n1+42)

' --------- Alba, 06/08/2010 ---------

ruota(1)=r1:ruota(2)=r2:ruote(1)=12:ruot(1)=11:co=0


nu1(1)=amb(1):nu1(2)=amb(4)
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k,1,0
pstd(p1+5)=1
co=co+1
ImpostaGiocata co,nu1,ruote,pstd,k,0
Erase pstd
pstd(p2+5)=1
co=co+1
ImpostaGiocata co,nu1,ruote,pstd,k,0
Erase pstd

nu2(1)=amb(1):nu2(2)=amb(2):nu2(3)=amb(3)
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruot,poste,k

nu3(1)=amb(4):nu3(2)=amb(5):nu3(3)=amb(6)
co=co+1
ImpostaGiocata co,nu3,ruota,poste,k
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
co=co+1
ImpostaGiocata co,nu3,ruot,poste,k

nu4(1)=amb(1):nu4(2)=amb(4):nu4(3)=amb(2)
nu4(4)=amb(3):nu4(5)=amb(5):nu4(6)=amb(6)
co=co+1
ImpostaGiocata co,nu4,ruote,post,k

Gioca es
End If
End If
End If 'iso
Next:next:Next:Next:Next:Next:Next
ScriviResoconto
Scrivi "TAVOLA ISTANTANEA (2 ambi somma uguale)",1
Scrivi "script by joe91 & ramco & maxma62 & occhidigiada",1
End Sub



numeri isotopi


CODICE
'tavola istantanea numeri isotopi
Sub main()
Dim k(10),ab(2),ab1(6)
Dim rt(4),rtt(4),ruote(2)
Dim pt(5),ptt(5)
pt(1)=1 : ptt(2)=1: ptt(3)=1 : clp=15
ini=EstrazioneFin -20
co=0
For es=ini To EstrazioneFin
Messaggio (es)
For r=1 To 10
rt(1)=r : rtt(1)=r
For p1=1 To 5
n1=Estratto(es,r,p1)
For r1=r+1 To 12
If r1=11 Then r1=12
rt(2)=r1 : rtt(2)=r1
ruote(1)=11:ruote(2)=12
n2=Estratto(es,r1,p1)
If (n1)=(n2)Then
co=co+1
Scrivi String (70,"=")
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r1)&"  "& StringaEstratti (es,r1)&""
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&" "
Scrivi DataEstrazione (es)&" "& SiglaRuota(r)&"-"& SiglaRuota (r1)&_
" Numero isotopo "& n1 &"-"& n2 &" estratto al "&p1&"° posto",1
Scrivi
ab(1)=Fuori90(n1+48)
ab(2)=Fuori90 (ab(1)+27)
ImpostaGiocata 1,ab,rtt,pt,clp

ab1(1)=Fuori90(n1+48)
ab1(2)=Fuori90 (ab1(1)+27)
ab1(3)=Fuori90 (n1+27)
ab1(4)=Fuori90(ab1(3)+26)
ab1(5)=Fuori90 (n1+12)
ab1(6)=Fuori90 (ab1(5)+30)

ImpostaGiocata 2,ab1, rtt, ptt,clp  
ImpostaGiocata 3,ab1, ruote, ptt,clp

Gioca es  

End If
Next
Next
Next
Next

ScriviResoconto
End Sub
 
Top
CAT_IMG Posted on 3/1/2011, 11:10
Avatar

Group:
Member
Posts:
378

Status:


NON FINIRAI MAI DI SBALORDIRMI, TI AEVEO DETTO CHE ERI UN CERVELLO MOLTO PIU' AVANTI DI NOI QUANDO ANCORA NON TI CONOSCEVO MA ORA MI HAI DATO CONFERMA CON QUESTE SEZIONI IN UN FORUM CHE SEMBRA TI APPARTENHA.

COMPLIMEBNTI ANCORA
 
Top
occhidigiada58.
CAT_IMG Posted on 14/1/2011, 13:40




ma no giacomone, sono solo una appassionata... ne piu' ne meno di tutti!!
 
Top
CAT_IMG Posted on 14/1/2011, 13:43
Avatar

Group:
Member
Posts:
378

Status:


Ciao occhi .... niente di nuovo ancora ieri sera ....
Che significa la Frase qui sopra ??
 
Top
occhidigiada58.
CAT_IMG Posted on 14/1/2011, 13:47




hai detto che ho un cervello piu' avanti,rispondevo che son normale,altrimenti avrei la fronte pronunciata ahahahahahaa
giacomo a bari ha dato il meno 1 quindi io spero cadranno adesso su ruota!!
 
Top
CAT_IMG Posted on 14/1/2011, 15:12
Avatar

Group:
Member
Posts:
378

Status:


Ma ti stai riferendo alle alle 4 terzine ???

(72.75.80-18.75.80 a GEMI)
(5.42.80-42.50.80 a FIRO)



Ti volevo inoltre dire, hai visto 50-80 tra fi MI e BA CA ?, non vogliono dir nulla oppure anche per questi hai qualche metodo ???? ;)


E cmq il 6.90 lo ha dato ma su To, io lo avevo continuato a giocare su VE.... PECCATO
 
Top
occhidigiada58.
CAT_IMG Posted on 14/1/2011, 23:28




si si mi riferisco al pappagallando!!! sono a ba ca e ge mi
50.80 isotopi portano le ambate 58.85
infatti a bari(torino) ho il 58.69.31 sperem escano!!

purtroppo capita che vadano a finire su altre ruote!!!
 
Top
CAT_IMG Posted on 15/1/2011, 09:23
Avatar

Group:
Member
Posts:
378

Status:


CITAZIONE (occhidigiada58. @ 14/1/2011, 23:28) 
si si mi riferisco al pappagallando!!! sono a ba ca e ge mi
50.80 isotopi portano le ambate 58.85
infatti a bari(torino) ho il 58.69.31 sperem escano!!

purtroppo capita che vadano a finire su altre ruote!!!

PAPPAGALLANDO ????

:woot: :woot: :woot: :woot: :woot:

CHE VUOL DI' ????

MAMMA MIA SEI UNA RAGAZZA PIENA DI RISORSE, DIMMI SOLO SE


(72.75.80-18.75.80 a GEMI)
(5.42.80-42.50.80 a FIRO)

SI GIOCANO ANCORA (dovrebbe essere si fino al 12° colpo ) ????
 
Top
occhidigiada58.
CAT_IMG Posted on 15/1/2011, 09:46




ahahahaahah ciao giacomo nn hai visto che ci sono due pappagalli in quella previsione,proprio perche' sono ambate ripetute da molteplici metodi che io unisco per sorte di ambo o terno, ecco perche' cadono una ad una!!! :cry: si gioca ancora sperando che si invertiscano le ruote!!!!
:angry27.gif:
 
Top
CAT_IMG Posted on 15/1/2011, 09:50
Avatar

Group:
Member
Posts:
378

Status:


Gia' ecco ora ricordo, i PAPPAGALLI !!!
 
Top
occhidigiada58.
CAT_IMG Posted on 15/1/2011, 09:58




guarda e' qui la previsione!!!https://superlotto.blogfree.net/?t=3138222
 
Top
11 replies since 21/12/2010, 23:46   5920 views
  Share