quartina a bari 8°mensile

[aldini]

salve ragazzi ripoviamo con una quartina a bari
su 11 casi 10 positivi ed uno incorso
estrazione di calcolo all'ottava del mese
stavolta ci giocheremo l'ambata che se uscira senza aver dato l'amdo il gioco si conclude
BARI AMBATA 79
QUARTINA 79-36-26-84




X I CALCOLI
AMBATA =2° CA
ABBINAM.=1°GE+5
ABBINAM= 1°RO X IL DIAMETRALE 2° CA
ABBINAM=1° TO X IL COMPLEMENTO 90 DEL 2° PA
RAGAZZI MODERAZIONE NEL GIOCO NULLA E SICURO OK

 

[gianna16]

ok

 

[near]

Ciao Aldin.

Interessante e complimenti x l'altra previsione a Bari che hai cntrato l'ambo.

Questa previsione,qpe quanti colpi va' giocata ?

Grazie.

Saluti.Near

 

[Roby]

Buon divertimento

Sub Main()
	Scrivi
	ColoreTesto 1
	Scrivi String(35," ") & " *** METODO DI ALDINI : LISTATO BY BLACKMORE ***",1
	Scrivi
	ColoreTesto 0
	Dim ruota(1)
	Dim ambata(1)
	Dim quartina(4)
	Dim posta(1)
	Dim poste(4)
	posta(1) = 1
	poste(2) = 1
	poste(3) = 1
	poste(4) = 0.50
	r = CInt(InputBox("SCEGLI LA RUOTA DI GIOCO","Blackmore",1))
	analizzaes = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","Blackmore",140)
	k = CInt(InputBox("PER QUANTI COLPI VUOI GIOCARE?","Blackmore",9))
	ini = EstrazioneFin - analizzaes
	fin = EstrazioneFin
	co = 0
	ruota(1) = r
	For es = ini To fin
		Messaggio(es)
		If IndiceMensile(es) = 8 Then
			casi = casi + 1
			Scrivi String(70,"§") & " Caso n° " & casi,1
			ColoreTesto 1
			Scrivi DataEstrazione(es) & " - 1 Ambata e 1 Quartina su " & NomeRuota(r) & " Alla " & IndiceMensile(es) & "° Estrazione Del Mese",1
			ColoreTesto 0
			Scrivi String(70,"§"),1
			co = co + 1
			ambata(1) = Estratto(es,CA_,2)
			ImpostaGiocata 1,ambata,ruota,posta,k,1
			quartina(1) = Estratto(es,CA_,2)
			quartina(2) = Fuori90(Estratto(es,GE_,1) + 05)
			quartina(3) = Fuori90(Estratto(es,RO_,1) * Diametrale(Estratto(es,CA_,2)))
			quartina(4) = Fuori90(Estratto(es,TO_,1) *(90 -(Estratto(es,PA_,2))))
			ImpostaGiocata 2,quartina,ruota,poste,k,2
			Gioca es
		End If
	Next
	Scrivi
	Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub

 

[curioso]

Grazie aldini, spero sia vincente come l'altra, grazie ancora.

 

[aldini]

Impeccabile BLACKMORE E A PENSARE CHE IO SON UNA SETTIMANA CHE STO TENTANDO DI FARE QUALCHE SCRIPT SOMMATIVO E LA TESTA MI SCOPPIA NON SO SE SIA POSSIBILE FARLO DALTRONTE TI SPIEGO IN PAROLE POVERE
ALLA 5° DEL MESE
1° DI BA+1
X GLI ABBINAMENTI DOVREBBE ANDARE DUE ESTRAZIONI INDIETRO
E VORREI SAPERE AL 2° DI CAGLIARI LABBINAMENTO DA 1 A 90 X AMBO SENZA INCLUDERE QUEI ABINAMENTI COMPLESSI
DEL TIPO 1°CA X VERTIB.DEL 2° DI VENEZ.
TUTTO QUA NON SO COME SIA POSSIBILE DARE UNA PAUSA DI DUE O TRE ESTRAZIONI.

 

[Roby]

Non ho mica capito sai....
l'abbinamento devi inserirlo tu, questo è un esempio del 2°di Cagliari....

Sub Main()
   Scrivi
   ColoreTesto 1
   Scrivi  String(35," ")&" *** ESEMPIO : LISTATO BY BLACKMORE ***",1
   Scrivi
   ColoreTesto 0
   Dim ruota(1)
   Dim ambata(1)
   Dim ambo(2)
   Dim posta(1)
   Dim poste(2)
   posta(1) = 1
   poste(2) = 1

   r = CInt(InputBox("SCEGLI LA RUOTA DI GIOCO","Blackmore",1))
   analizzaes = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","Blackmore",140)
   k = CInt(InputBox("PER QUANTI COLPI VUOI GIOCARE?","Blackmore",9))
   ini = EstrazioneFin - analizzaes
   fin = EstrazioneFin
   co = 0
   ruota(1) = r
   For es = ini To fin
      Messaggio(es)
      If Indicemensile(es) = 5 Then
         casi = casi + 1
         Scrivi String(70,"§") & " Caso n° " & casi,1
         ColoreTesto 1
         Scrivi DataEstrazione(es) & " - Ambata e Ambo su " & NomeRuota(r)&" Alla "& Indicemensile(es)&"° Estrazione Del Mese",1
         ColoreTesto 0
         Scrivi String(70,"§"),1
         co = co + 1
	   ambata(1) = Estratto(es,BA_,1)
	   ImpostaGiocata 1,ambata,ruota,posta,k,1
         ambo(1)= Estratto(es,BA_,1)
         ambo(2)= Estratto(es-2,CA_,2) ' ----> QUESTO E' IL 2° DI CAGLIARI 2 ESTRAZIONI INDIETRO (3°ESTRAZIONE)
    	   ImpostaGiocata 2,ambo,ruota,poste,k,2
           
         Gioca es
      End If
   Next
   Scrivi
   Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

 

[aldini]

NON SO SE SI PUO POSTARE LEMAIL COMUNQUE BLECK IL 2° DI CAGLIRI QUELLO CHE IO CHIEDEVO DOVREBBE DARMI LUI IL SOMMATIVO DI ABBINAMENTO IN PRATICA LO SCRIPT DOVREBBE ANALIZARE IL 2° di cagliari sommandolo da 1 a 90 e mi dovrebbe dare il valore piu alto esempio
2ca+3 =4 casi x ambo
2ca+18=2 casi x ambo spero che sono stato chiaro poi mi dirari se posso darti la mia email io non so le regole

 

[Roby]

ho capito...ma ci vuole un programma per farlo, lo script serve solo ad inserire il metodo..

 

[aldini]

xxxxx

 

[aldini]

si black scusami ma attualmente la batteria al mio ifone e andata giu comunque si poi ti dico di come si chiama

 

[Roby]

ok, però da adesso in poi parliamo di sta cosa "solo in privato"..ciao
PS: non c'è fretta tranquillo