Novità

Per Gli Amanti della Tavola Settenaria (In Tabella)

  • Creatore Discussione Creatore Discussione Blackmore
  • Data di inizio Data di inizio
B

Blackmore

Guest
Hola... premetto che lo script è stato solo un passatempo
anche perchè non sono un grande amante delle Tavole in generale
ma in questo periodo le Tabelle sono la mia passione :D
Il listato, oltre a mostrare la tabella, mette in gioco una previsione
per ambata e cinquina (giusto per giocare qualcosa) su indice mensile a scelta
divertitevi tramite le inputbox a cercare le ruote migliori
o l'estratto spia in posizione migliore
Vedete Il tutto come un bel giochino e nulla piu'
PS: GIRA SOLO SU SPAZIOMETRIA (1.4.50)

Ciao :)


Codice: 
Sub Main()
	Dim ruota(10),ambata(1),lg(5),posta(1),poste(3)
	posta(1) = 1 : poste(2) = 1 : poste(3) = 1
	S = " TABELLA  TAVOLA  SETTENARIA CON ANNESSA GIOCATA BY  BLACKMORE "
	T = " IN FONDO AL LISTATO (SOTTO LA TAVOLA) TROVATE IL RESOCONTO    "
	Scrivi S,1,,vbBlue,5,3 :Scrivi T,1,,vbRed,5,3:Scrivi
	im = CInt(InputBox("INDICE  MENSILE ? (INSERISCI 0 PER L' ULTIMA)","BLACKMORE",0))
	r = CInt(InputBox("SCEGLI  LA  RUOTA  DI  RICERCA " & Chr(13) & "QUESTA E' ANCHE  LA  1° RUOTA  GIOCO","BLACKMORE",1))
	rr = CInt(InputBox("SCEGLI  LA  2° RUOTA  DI  GIOCO","BLACKMORE",6))
	pos = CInt(InputBox("SCEGLI  LA  POSIZIONE  DELL' ESTRATTO","BLACKMORE",4))
	k = InputBox("COLPI  DI  GIOCO ?","BLACKMORE",10)
	Ini = InputBox("INIZIO  RICERCA  ESTRAZIONE N° ?","BLACKMORE",8400)
	ReDim at(37)
	at(01) = ""
	at(02) = ""
	at(03) = ""
	at(04) = ""
	at(05) = ""
	at(06) = ""
	at(07) = ""
	at(08) = ""
	at(09) = ""
	at(10) = ""
	at(12) = ""
	at(13) = ""
	at(14) = ""
	at(15) = ""
	at(16) = ""
	at(17) = ""
	at(18) = ""
	at(19) = ""
	at(20) = ""
	at(21) = ""
	at(22) = ""
	at(23) = ""
	at(24) = ""
	at(25) = ""
	at(26) = ""
	at(27) = ""
	at(28) = ""
	at(29) = ""
	at(30) = ""
	at(31) = ""
	at(32) = ""
	at(33) = ""
	at(34) = ""
	at(35) = ""
	at(37) = ""
	Call InitTabella(at,1,,1,5,"Arial black")
	For x = 1 To 10
		a = Fuori90(x*13)
		b = 91 - a
		c = Fuori90(x*7)
		d = 91 - x
		x1 = x + 10
		a1 = Fuori90(x1*13)
		b1 = 91 - a1
		c1 = Fuori90(x1*7)
		d1 = 91 - x1
		x2 = x + 20
		a2 = Fuori90(x2*13)
		b2 = 91 - a2
		c2 = Fuori90(x2*7)
		d2 = 91 - x2
		x3 = x + 30
		a3 = Fuori90(x3*13)
		b3 = 91 - a3
		c3 = Fuori90(x3*7)
		d3 = 91 - x3
		x4 = x + 40
		a4 = Fuori90(x4*13)
		b4 = 91 - a4
		c4 = Fuori90(x4*7)
		d4 = 91 - x4
		x5 = x + 50
		a5 = Fuori90(x5*13)
		b5 = 91 - a5
		c5 = Fuori90(x5*7)
		d5 = 91 - x5
		x6 = x + 60
		a6 = Fuori90(x6*13)
		b6 = 91 - a6
		c6 = Fuori90(x6*7)
		d6 = 91 - x6
		x7 = x + 70
		a7 = Fuori90(x7*13)
		b7 = 91 - a7
		c7 = Fuori90(x7*7)
		d7 = 91 - x7
		x8 = x + 80
		a8 = Fuori90(x8*13)
		b8 = 91 - a8
		c8 = Fuori90(x8*7)
		d8 = 91 - x8
		fin = EstrazioneFin
		For es = Ini To fin
			Call AvanzamentoElab(Ini,fin,es)
			Messaggio "TABELLA  SETTENARIA  CON  ANNESSA  GIOCATA  -  BY BLACKMORE  -"
			ultest = EstrazioneFin
			If(((eval(im) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(im) = 0)))) Then
				If aa = x Or a = x1 Or a = x2 Or a = x3 Or a = x4 Or a = x5 Or a = x6 Or a = x7 Or a = x8 Then
					ruota(1) = r : ruota(2) = rr
					aa = Estratto(es,r,pos)
					co = co + 1
					Scrivi String(86,"*") & " Caso n°" & Format2(co),1,,,,3
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  -->  " & Format2(aa) & " In " & pos & "° Posizione",1,,1,5,3
					ambata(1) = aa
					ImpostaGiocata 1,ambata,ruota,posta,k,1
					lg(1) = aa
					lg(2) = Fuori90(aa*13)
					lg(3) = 91 - lg(2)
					lg(4) = Fuori90(aa*7)
					lg(5) = 91 - aa
					ImpostaGiocata 2,lg,ruota,poste,k,2
					Gioca es,1
				End If
			End If
		Next
		ReDim av(37)
		av(01) = ""
		av(02) = " " & Format2(a) & "       " & Format2(b)
		av(03) = "    " & FormatSpace(x,5)
		av(04) = " " & Format2(c) & "       " & Format2(d)
		av(05) = ""
		av(06) = " " & Format2(a1) & "      " & Format2(b1)
		av(07) = "    " & FormatSpace(x1,5)
		av(08) = " " & Format2(c1) & "       " & Format2(d1)
		av(09) = ""
		av(10) = " " & Format2(a2) & "      " & Format2(b2)
		av(11) = "    " & FormatSpace(x2,5)
		av(12) = " " & Format2(c2) & "      " & Format2(d2)
		av(13) = ""
		av(14) = " " & Format2(a3) & "       " & Format2(b3)
		av(15) = "    " & FormatSpace(x3,5)
		av(16) = " " & Format2(c3) & "       " & Format2(d3)
		av(17) = ""
		av(18) = " " & Format2(a4) & "       " & Format2(b4)
		av(19) = "    " & FormatSpace(x4,5)
		av(20) = " " & Format2(c4) & "       " & Format2(d4)
		av(21) = ""
		av(22) = " " & Format2(a5) & "       " & Format2(b5)
		av(23) = "    " & FormatSpace(x5,5)
		av(24) = " " & Format2(c5) & "       " & Format2(d5)
		av(25) = ""
		av(26) = " " & Format2(a6) & "       " & Format2(b6)
		av(27) = "    " & FormatSpace(x6,5)
		av(28) = " " & Format2(c6) & "       " & Format2(d6)
		av(29) = ""
		av(30) = " " & Format2(a7) & "       " & Format2(b7)
		av(31) = "    " & FormatSpace(x7,5)
		av(32) = " " & Format2(c7) & "       " & Format2(d7)
		av(33) = ""
		av(34) = " " & Format2(a8) & "       " & Format2(b8)
		av(35) = "    " & FormatSpace(x8,5)
		av(36) = " " & Format2(c8) & "       " & Format2(d8)
		av(37) = ""
		Call AddRigaTabella(av,,,2,,"arial black")
		Call SetColoreCella(1,1)
		Call SetColoreCella(5,1)
		Call SetColoreCella(9,1)
		Call SetColoreCella(13,1)
		Call SetColoreCella(17,1)
		Call SetColoreCella(21,1)
		Call SetColoreCella(25,1)
		Call SetColoreCella(29,1)
		Call SetColoreCella(33,1)
		Call SetColoreCella(37,1)
		Call SetColoreCella(2,0,5)
		Call SetColoreCella(3,0,2)
		Call SetColoreCella(4,0,5)
		Call SetColoreCella(6,0,5)
		Call SetColoreCella(7,0,2)
		Call SetColoreCella(8,0,5)
		Call SetColoreCella(10,0,5)
		Call SetColoreCella(11,0,2)
		Call SetColoreCella(12,0,5)
		Call SetColoreCella(14,0,5)
		Call SetColoreCella(15,0,2)
		Call SetColoreCella(16,0,5)
		Call SetColoreCella(18,0,5)
		Call SetColoreCella(19,0,2)
		Call SetColoreCella(20,0,5)
		Call SetColoreCella(22,0,5)
		Call SetColoreCella(23,0,2)
		Call SetColoreCella(24,0,5)
		Call SetColoreCella(26,0,5)
		Call SetColoreCella(27,0,2)
		Call SetColoreCella(28,0,5)
		Call SetColoreCella(30,0,5)
		Call SetColoreCella(31,0,2)
		Call SetColoreCella(32,0,5)
		Call SetColoreCella(34,0,5)
		Call SetColoreCella(35,0,2)
		Call SetColoreCella(36,0,5)
		If x < 11 Then Call SetColoreCella(3,,2)
		If x1 < 21 Then Call SetColoreCella(7,,2)
		If x2 < 31 Then Call SetColoreCella(11,,2)
		If x3 < 41 Then Call SetColoreCella(15,,2)
		If x4 < 51 Then Call SetColoreCella(19,,2)
		If x5 < 61 Then Call SetColoreCella(23,,2)
		If x6 < 71 Then Call SetColoreCella(27,,2)
		If x7 < 81 Then Call SetColoreCella(31,,2)
		If x8 < 91 Then Call SetColoreCella(35,,2)
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi
	ReDim att(37)
	att(37) = ""
	Call AddRigaTabella(att,vbBlue,,0)
	SetTableWidth("960px")
	Call CreaTabella(0,,,,1)
	Call ScriviResoconto(,False)
End Sub
 
Ultima modifica:
Ciao Schirò, hai ragione, adesso dovrebbe essere a posto
Specifico una cosa che ho dimenticato di dire
Lo script prende un estratto in una posizione a scelta e rimette in gioco
lo stesso estratto con i restanti numeri appartenenti al quadratino
consultare la tabella in basso allo script
Ciao

Per l'ultima estrazione del mese mettete 0
 
Ultima modifica:
grazie x l'intervento ..........ti volevo chiederti se era possibbile inserire la cella a piacere
cioeee invece degli 4 numeri di appartenenza all'estratto sortito magari una cella diversa?
oppure 4 numeri diversi
 
Ho inserito un inputbox dove tu scegli il numero della cella
e lo script ti da i 4 abbinamenti della cella inserita
per sicurezza controlla :)

Codice: 
Sub Main()
	Dim ruota(10),ambata(1),lg(5),posta(1),poste(3)
	posta(1) = 1 : poste(2) = 1 : poste(3) = 1
	S = " TABELLA  TAVOLA  SETTENARIA CON ANNESSA GIOCATA BY  BLACKMORE "
	T = " IN FONDO AL LISTATO (SOTTO LA TAVOLA) TROVATE IL RESOCONTO    "
	Scrivi S,1,,vbBlue,5,3 :Scrivi T,1,,vbRed,5,3:Scrivi
	im = CInt(InputBox("INDICE  MENSILE ? (INSERISCI 0 PER L'ULTIMA)","BLACKMORE",0))
	r = CInt(InputBox("SCEGLI  LA  RUOTA  DI  RICERCA " & Chr(13) & "QUESTA E' ANCHE  LA  1° RUOTA  GIOCO","BLACKMORE",1))
	rr = CInt(InputBox("SCEGLI  LA  2° RUOTA  DI  GIOCO","BLACKMORE",6))
	pos = CInt(InputBox("SCEGLI  LA  POSIZIONE  DELL' ESTRATTO","BLACKMORE",4))
	esa = InputBox("INSERISCI IL NUMERO DI CELLA (DA 1 A 90.. PER I 4 ABBINAMENTI)","BLACKMORE",10)
	k = InputBox("COLPI  DI  GIOCO ?","BLACKMORE",10)
	Ini = InputBox("INIZIO  RICERCA  ESTRAZIONE N° ?","BLACKMORE",8400)
	ReDim at(37)
	at(01) = ""
	at(02) = ""
	at(03) = ""
	at(04) = ""
	at(05) = ""
	at(06) = ""
	at(07) = ""
	at(08) = ""
	at(09) = ""
	at(10) = ""
	at(12) = ""
	at(13) = ""
	at(14) = ""
	at(15) = ""
	at(16) = ""
	at(17) = ""
	at(18) = ""
	at(19) = ""
	at(20) = ""
	at(21) = ""
	at(22) = ""
	at(23) = ""
	at(24) = ""
	at(25) = ""
	at(26) = ""
	at(27) = ""
	at(28) = ""
	at(29) = ""
	at(30) = ""
	at(31) = ""
	at(32) = ""
	at(33) = ""
	at(34) = ""
	at(35) = ""
	at(37) = ""
	Call InitTabella(at,1,,1,5,"Arial black")
	For x = 1 To 10
		a = Fuori90(x*13)
		b = 91 - a
		c = Fuori90(x*7)
		d = 91 - x
		x1 = x + 10
		a1 = Fuori90(x1*13)
		b1 = 91 - a1
		c1 = Fuori90(x1*7)
		d1 = 91 - x1
		x2 = x + 20
		a2 = Fuori90(x2*13)
		b2 = 91 - a2
		c2 = Fuori90(x2*7)
		d2 = 91 - x2
		x3 = x + 30
		a3 = Fuori90(x3*13)
		b3 = 91 - a3
		c3 = Fuori90(x3*7)
		d3 = 91 - x3
		x4 = x + 40
		a4 = Fuori90(x4*13)
		b4 = 91 - a4
		c4 = Fuori90(x4*7)
		d4 = 91 - x4
		x5 = x + 50
		a5 = Fuori90(x5*13)
		b5 = 91 - a5
		c5 = Fuori90(x5*7)
		d5 = 91 - x5
		x6 = x + 60
		a6 = Fuori90(x6*13)
		b6 = 91 - a6
		c6 = Fuori90(x6*7)
		d6 = 91 - x6
		x7 = x + 70
		a7 = Fuori90(x7*13)
		b7 = 91 - a7
		c7 = Fuori90(x7*7)
		d7 = 91 - x7
		x8 = x + 80
		a8 = Fuori90(x8*13)
		b8 = 91 - a8
		c8 = Fuori90(x8*7)
		d8 = 91 - x8
		fin = EstrazioneFin
		For es = Ini To fin
			Call AvanzamentoElab(Ini,fin,es)
			Messaggio "TABELLA  SETTENARIA  CON  ANNESSA  GIOCATA  -  BY BLACKMORE  -"
			ultest = EstrazioneFin
			If(((eval(im) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(im) = 0)))) Then
				If aa = x Or a = x1 Or a = x2 Or a = x3 Or a = x4 Or a = x5 Or a = x6 Or a = x7 Or a = x8 Then
					ruota(1) = r : ruota(2) = rr
					aa = Estratto(es,r,pos)
					
					co = co + 1
					Scrivi String(86,"*") & " Caso n°" & Format2(co),1,,,,3
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  -->  " & Format2(aa) & " In " & pos & "° Posizione",1,,1,5,3
					ambata(1) = aa
					ImpostaGiocata 1,ambata,ruota,posta,k,1
					lg(1) = aa
					lg(2) = Fuori90(esa*13)
					lg(3) = 91 - lg(2)
					lg(4) = Fuori90(esa*7)
					lg(5) = 91 - esa
					ImpostaGiocata 2,lg,ruota,poste,k,2
					Gioca es,1
				End If
			End If
		Next
		ReDim av(37)
		av(01) = ""
		av(02) = " " & Format2(a) & "       " & Format2(b)
		av(03) = "    " & FormatSpace(x,5)
		av(04) = " " & Format2(c) & "       " & Format2(d)
		av(05) = ""
		av(06) = " " & Format2(a1) & "      " & Format2(b1)
		av(07) = "    " & FormatSpace(x1,5)
		av(08) = " " & Format2(c1) & "       " & Format2(d1)
		av(09) = ""
		av(10) = " " & Format2(a2) & "      " & Format2(b2)
		av(11) = "    " & FormatSpace(x2,5)
		av(12) = " " & Format2(c2) & "      " & Format2(d2)
		av(13) = ""
		av(14) = " " & Format2(a3) & "       " & Format2(b3)
		av(15) = "    " & FormatSpace(x3,5)
		av(16) = " " & Format2(c3) & "       " & Format2(d3)
		av(17) = ""
		av(18) = " " & Format2(a4) & "       " & Format2(b4)
		av(19) = "    " & FormatSpace(x4,5)
		av(20) = " " & Format2(c4) & "       " & Format2(d4)
		av(21) = ""
		av(22) = " " & Format2(a5) & "       " & Format2(b5)
		av(23) = "    " & FormatSpace(x5,5)
		av(24) = " " & Format2(c5) & "       " & Format2(d5)
		av(25) = ""
		av(26) = " " & Format2(a6) & "       " & Format2(b6)
		av(27) = "    " & FormatSpace(x6,5)
		av(28) = " " & Format2(c6) & "       " & Format2(d6)
		av(29) = ""
		av(30) = " " & Format2(a7) & "       " & Format2(b7)
		av(31) = "    " & FormatSpace(x7,5)
		av(32) = " " & Format2(c7) & "       " & Format2(d7)
		av(33) = ""
		av(34) = " " & Format2(a8) & "       " & Format2(b8)
		av(35) = "    " & FormatSpace(x8,5)
		av(36) = " " & Format2(c8) & "       " & Format2(d8)
		av(37) = ""
		Call AddRigaTabella(av,,,2,,"arial black")
		Call SetColoreCella(1,1)
		Call SetColoreCella(5,1)
		Call SetColoreCella(9,1)
		Call SetColoreCella(13,1)
		Call SetColoreCella(17,1)
		Call SetColoreCella(21,1)
		Call SetColoreCella(25,1)
		Call SetColoreCella(29,1)
		Call SetColoreCella(33,1)
		Call SetColoreCella(37,1)
		Call SetColoreCella(2,0,5)
		Call SetColoreCella(3,0,2)
		Call SetColoreCella(4,0,5)
		Call SetColoreCella(6,0,5)
		Call SetColoreCella(7,0,2)
		Call SetColoreCella(8,0,5)
		Call SetColoreCella(10,0,5)
		Call SetColoreCella(11,0,2)
		Call SetColoreCella(12,0,5)
		Call SetColoreCella(14,0,5)
		Call SetColoreCella(15,0,2)
		Call SetColoreCella(16,0,5)
		Call SetColoreCella(18,0,5)
		Call SetColoreCella(19,0,2)
		Call SetColoreCella(20,0,5)
		Call SetColoreCella(22,0,5)
		Call SetColoreCella(23,0,2)
		Call SetColoreCella(24,0,5)
		Call SetColoreCella(26,0,5)
		Call SetColoreCella(27,0,2)
		Call SetColoreCella(28,0,5)
		Call SetColoreCella(30,0,5)
		Call SetColoreCella(31,0,2)
		Call SetColoreCella(32,0,5)
		Call SetColoreCella(34,0,5)
		Call SetColoreCella(35,0,2)
		Call SetColoreCella(36,0,5)
		If x < 11 Then Call SetColoreCella(3,,2)
		If x1 < 21 Then Call SetColoreCella(7,,2)
		If x2 < 31 Then Call SetColoreCella(11,,2)
		If x3 < 41 Then Call SetColoreCella(15,,2)
		If x4 < 51 Then Call SetColoreCella(19,,2)
		If x5 < 61 Then Call SetColoreCella(23,,2)
		If x6 < 71 Then Call SetColoreCella(27,,2)
		If x7 < 81 Then Call SetColoreCella(31,,2)
		If x8 < 91 Then Call SetColoreCella(35,,2)
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi
	ReDim att(37)
	att(37) = ""
	Call AddRigaTabella(att,vbBlue,,0)
	SetTableWidth("960px")
	Call CreaTabella(0,,,,1)
	Call ScriviResoconto(,False)
End Sub
 
grazie blak per la tempistica ,
si era proprio cosi
ma forse era meglio modificare la tavola inserendo i quatro numeri da mettere in gioco
senza fare i calcoli *7o *13
direttamente va a prendere i 4 numeri nella cella sul numero estratto
i numeri gia li ho fatti calcolare con la penna e carta se vuoi ti inserisco le 90 celle
 
Se ho capito bene, bisognerebbe inserire direttamente i numeri nella tabella
ma questo diventerebbe un problema visto che il listato sarebbe almeno il triplo di adesso
e piu' complesso
invece inserendo un semplice ciclo for per un quadrato, me ne escono 10 in sequenza
e con 4 calcoli gestisco il tutto
Ho inserito un altra variante, la solita ambata + 4 numeri da inserire a piacimento
PS: tranquillo, nessun disturbo
Ciao :)


Codice: 
Sub Main()
	Dim ruota(10),ambata(1),lg(5),posta(1),poste(3)
	posta(1) = 1 : poste(2) = 1 : poste(3) = 1
	S = " TABELLA  TAVOLA  SETTENARIA CON ANNESSA GIOCATA BY  BLACKMORE "
	T = " IN FONDO AL LISTATO (SOTTO LA TAVOLA) TROVATE IL RESOCONTO    "
	Scrivi S,1,,vbBlue,5,3 :Scrivi T,1,,vbRed,5,3:Scrivi
	im = CInt(InputBox("INDICE  MENSILE ? (INSERISCI 0 PER L'ULTIMA)","BLACKMORE",0))
	r = CInt(InputBox("SCEGLI  LA  RUOTA  DI  RICERCA " & Chr(13) & "QUESTA E' ANCHE  LA  1° RUOTA  GIOCO","BLACKMORE",1))
	rr = CInt(InputBox("SCEGLI  LA  2° RUOTA  DI  GIOCO","BLACKMORE",6))
	pos = CInt(InputBox("SCEGLI  LA  POSIZIONE  DELL' ESTRATTO","BLACKMORE",4))
	n1 = InputBox("INSERISCI IL 1° ABBINAMENTO)","BLACKMORE",10)
	n2 = InputBox("INSERISCI IL 2° ABBINAMENTO)","BLACKMORE",20)
	n3 = InputBox("INSERISCI IL 3° ABBINAMENTO)","BLACKMORE",30)
	n4 = InputBox("INSERISCI IL 4° ABBINAMENTO)","BLACKMORE",40)
	k = InputBox("COLPI  DI  GIOCO ?","BLACKMORE",10)
	Ini = InputBox("INIZIO  RICERCA  ESTRAZIONE N° ?","BLACKMORE",8400)
	ReDim at(37)
	at(01) = ""
	at(02) = ""
	at(03) = ""
	at(04) = ""
	at(05) = ""
	at(06) = ""
	at(07) = ""
	at(08) = ""
	at(09) = ""
	at(10) = ""
	at(12) = ""
	at(13) = ""
	at(14) = ""
	at(15) = ""
	at(16) = ""
	at(17) = ""
	at(18) = ""
	at(19) = ""
	at(20) = ""
	at(21) = ""
	at(22) = ""
	at(23) = ""
	at(24) = ""
	at(25) = ""
	at(26) = ""
	at(27) = ""
	at(28) = ""
	at(29) = ""
	at(30) = ""
	at(31) = ""
	at(32) = ""
	at(33) = ""
	at(34) = ""
	at(35) = ""
	at(37) = ""
	Call InitTabella(at,1,,1,5,"Arial black")
	For x = 1 To 10
		a = Fuori90(x*13)
		b = 91 - a
		c = Fuori90(x*7)
		d = 91 - x
		x1 = x + 10
		a1 = Fuori90(x1*13)
		b1 = 91 - a1
		c1 = Fuori90(x1*7)
		d1 = 91 - x1
		x2 = x + 20
		a2 = Fuori90(x2*13)
		b2 = 91 - a2
		c2 = Fuori90(x2*7)
		d2 = 91 - x2
		x3 = x + 30
		a3 = Fuori90(x3*13)
		b3 = 91 - a3
		c3 = Fuori90(x3*7)
		d3 = 91 - x3
		x4 = x + 40
		a4 = Fuori90(x4*13)
		b4 = 91 - a4
		c4 = Fuori90(x4*7)
		d4 = 91 - x4
		x5 = x + 50
		a5 = Fuori90(x5*13)
		b5 = 91 - a5
		c5 = Fuori90(x5*7)
		d5 = 91 - x5
		x6 = x + 60
		a6 = Fuori90(x6*13)
		b6 = 91 - a6
		c6 = Fuori90(x6*7)
		d6 = 91 - x6
		x7 = x + 70
		a7 = Fuori90(x7*13)
		b7 = 91 - a7
		c7 = Fuori90(x7*7)
		d7 = 91 - x7
		x8 = x + 80
		a8 = Fuori90(x8*13)
		b8 = 91 - a8
		c8 = Fuori90(x8*7)
		d8 = 91 - x8
		fin = EstrazioneFin
		For es = Ini To fin
			Call AvanzamentoElab(Ini,fin,es)
			Messaggio "TABELLA  SETTENARIA  CON  ANNESSA  GIOCATA  -  BY BLACKMORE  -"
			ultest = EstrazioneFin
			If(((eval(im) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(im) = 0)))) Then
				If aa = x Or a = x1 Or a = x2 Or a = x3 Or a = x4 Or a = x5 Or a = x6 Or a = x7 Or a = x8 Then
					ruota(1) = r : ruota(2) = rr
					aa = Estratto(es,r,pos)
					
					co = co + 1
					Scrivi String(86,"*") & " Caso n°" & Format2(co),1,,,,3
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  -->  " & Format2(aa) & " In " & pos & "° Posizione",1,,1,5,3
					ambata(1) = aa
					ImpostaGiocata 1,ambata,ruota,posta,k,1
					lg(1) = aa
					lg(2) = n1
					lg(3) = n2
					lg(4) = n3
					lg(5) = n4
					ImpostaGiocata 2,lg,ruota,poste,k,2
					Gioca es,1
				End If
			End If
		Next
		ReDim av(37)
		av(01) = ""
		av(02) = " " & Format2(a) & "       " & Format2(b)
		av(03) = "    " & FormatSpace(x,5)
		av(04) = " " & Format2(c) & "       " & Format2(d)
		av(05) = ""
		av(06) = " " & Format2(a1) & "      " & Format2(b1)
		av(07) = "    " & FormatSpace(x1,5)
		av(08) = " " & Format2(c1) & "       " & Format2(d1)
		av(09) = ""
		av(10) = " " & Format2(a2) & "      " & Format2(b2)
		av(11) = "    " & FormatSpace(x2,5)
		av(12) = " " & Format2(c2) & "      " & Format2(d2)
		av(13) = ""
		av(14) = " " & Format2(a3) & "       " & Format2(b3)
		av(15) = "    " & FormatSpace(x3,5)
		av(16) = " " & Format2(c3) & "       " & Format2(d3)
		av(17) = ""
		av(18) = " " & Format2(a4) & "       " & Format2(b4)
		av(19) = "    " & FormatSpace(x4,5)
		av(20) = " " & Format2(c4) & "       " & Format2(d4)
		av(21) = ""
		av(22) = " " & Format2(a5) & "       " & Format2(b5)
		av(23) = "    " & FormatSpace(x5,5)
		av(24) = " " & Format2(c5) & "       " & Format2(d5)
		av(25) = ""
		av(26) = " " & Format2(a6) & "       " & Format2(b6)
		av(27) = "    " & FormatSpace(x6,5)
		av(28) = " " & Format2(c6) & "       " & Format2(d6)
		av(29) = ""
		av(30) = " " & Format2(a7) & "       " & Format2(b7)
		av(31) = "    " & FormatSpace(x7,5)
		av(32) = " " & Format2(c7) & "       " & Format2(d7)
		av(33) = ""
		av(34) = " " & Format2(a8) & "       " & Format2(b8)
		av(35) = "    " & FormatSpace(x8,5)
		av(36) = " " & Format2(c8) & "       " & Format2(d8)
		av(37) = ""
		Call AddRigaTabella(av,,,2,,"arial black")
		Call SetColoreCella(1,1)
		Call SetColoreCella(5,1)
		Call SetColoreCella(9,1)
		Call SetColoreCella(13,1)
		Call SetColoreCella(17,1)
		Call SetColoreCella(21,1)
		Call SetColoreCella(25,1)
		Call SetColoreCella(29,1)
		Call SetColoreCella(33,1)
		Call SetColoreCella(37,1)
		Call SetColoreCella(2,0,5)
		Call SetColoreCella(3,0,2)
		Call SetColoreCella(4,0,5)
		Call SetColoreCella(6,0,5)
		Call SetColoreCella(7,0,2)
		Call SetColoreCella(8,0,5)
		Call SetColoreCella(10,0,5)
		Call SetColoreCella(11,0,2)
		Call SetColoreCella(12,0,5)
		Call SetColoreCella(14,0,5)
		Call SetColoreCella(15,0,2)
		Call SetColoreCella(16,0,5)
		Call SetColoreCella(18,0,5)
		Call SetColoreCella(19,0,2)
		Call SetColoreCella(20,0,5)
		Call SetColoreCella(22,0,5)
		Call SetColoreCella(23,0,2)
		Call SetColoreCella(24,0,5)
		Call SetColoreCella(26,0,5)
		Call SetColoreCella(27,0,2)
		Call SetColoreCella(28,0,5)
		Call SetColoreCella(30,0,5)
		Call SetColoreCella(31,0,2)
		Call SetColoreCella(32,0,5)
		Call SetColoreCella(34,0,5)
		Call SetColoreCella(35,0,2)
		Call SetColoreCella(36,0,5)
		If x < 11 Then Call SetColoreCella(3,,2)
		If x1 < 21 Then Call SetColoreCella(7,,2)
		If x2 < 31 Then Call SetColoreCella(11,,2)
		If x3 < 41 Then Call SetColoreCella(15,,2)
		If x4 < 51 Then Call SetColoreCella(19,,2)
		If x5 < 61 Then Call SetColoreCella(23,,2)
		If x6 < 71 Then Call SetColoreCella(27,,2)
		If x7 < 81 Then Call SetColoreCella(31,,2)
		If x8 < 91 Then Call SetColoreCella(35,,2)
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi
	ReDim att(37)
	att(37) = ""
	Call AddRigaTabella(att,vbBlue,,0)
	SetTableWidth("960px")
	Call CreaTabella(0,,,,1)
	Call ScriviResoconto(,False)
End Sub
 
lo sapevo che sei un signore ecco il responso dell'ultima modifica

io adesso devo andare al lavoro ma ci terrei a completarlo inserendo le quartine o trovando un'altro modo
magari facendogli allo script i calcoli che ho fatto io
ciaoooa e grazie
stasera verso le 24 sono online o domanni mattina

************************************************************************************** Caso n°1787
30.04.2013 BA 06.69.64.25.34 --> 69 In 2° Posizione
Estrazione generatrice del pronostico 13884 [ 52 - 30/04/2013]
G 0001
Numeri in gioco : 69 su BA MI per Estratto
V N. [69 ] [BA] [.. 69 .. .. ..] C. 1 Estratto 13885 [ 53 - 02/05/2013]
Interrotta per esito verificato

G 0002
Numeri in gioco : 69.36.06.44.29 su BA MI per Ambo,Terno
V N. [69.36.06.44.29 ] [MI] [36 .. 29 69 44] C. 8 Quaterna 13892 [ 60 - 18/05/2013]
Interrotta per esito verificato



| Prima Giocata : 8751 |
| Ultima Giocata : 13949 |
| Range : 5199 |
| Casi giocab perc. : 17,234% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 896 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 681 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 76 % | | BA | 616| 394| 24| | | | BA |23,16|50,64|52,17| | | | BA | 3582| |
| Pronostici totali : 1.792 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 1.362 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 76 % | | GE | | | | | | | GE | | | | | | | GE | | |
| Giocate in corso : 4 | | MI | 618| 384| 22| 2| | | MI |23,23|49,36|47,83| 100| | | MI | 3582| |
| Giocate terminate : 3.578 | | NA | | | | | | | NA | | | | | | | NA | | |
| Bollette giocate : 51.448 | | PA | | | | | | | PA | | | | | | | PA | | |
| Bollette vincenti : 1.926 | | RO | | | | | | | RO | | | | | | | RO | | |
| Attesa media : 13 | | TO | | | | | | | TO | | | | | | | TO | | |
| Spesa : 80.612,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 50.800,90 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : -29.811,10 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : -36,981 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 348,00 € |
| Estratto su ruota : 2.660 |
| Ambo su ruota : 778 |
| Terno su ruota : 46 |
| Quaterna su ruota : 2
 
Ok, quando vuoi metti i calcoli e vediamo se riesco
ad inserirli nel listato...
spero non siano troppo complessi :D
Ciao !!!
 
ciao Black e schirò

passavo per caso , mi ritrovo a studiare una tabella simile e questa la molto interessante.

vi seguirò con piacere

buon pomeriggio
 
ciao bkak e franca46
scusa x ieri sera ma ho fatto tardi e sinceramente ero un pochino stanco

ti inserisco direttamente la tabella in modo " a mio avviso" dileggerirti il lavoro
si deve solamnte inserire al posto dei calcoli che fa la tavola cioee senza x7 o x13
solamente prende la quartina e la mettte in gioco , anch econ la ricerca del numero estratto ...o
anche con il6° numero cioee lasomma dei 5 estratti usando il fuori90

es: estrazione del 28/09bari sooma dei 5 numeri =18
18 36 6 44 29

irei a colpo usando solo la somma dei 5 estratti

Estrazione generatrice del pronostico 13949 [117 - 28/09/2013]
G 0001
Numeri in gioco : 06.29.36.44 su BA TT per Ambo
V N. [06.29.36.44 ] [TT] [TO][29 44 .. .. ..] C. 1 Ambo 13950 [118 - 01/10/2013]
Interrotta per raggiunta durata


1 53 41 38 5 31 83 11 38 65 61 23 19 38 55
2 32 6 56 37 32 62 6 56 23 62 2 20 56 83
3 41 35 74 19 33 71 5 74 41 63 11 7 74 79
4 50 46 2 1 34 80 14 2 59 64 20 16 2 61
5 59 35 20 17 35 89 5 20 77 65 29 7 20 43
6 68 12 38 35 36 8 4 38 85 66 38 12 83 25
7 77 17 56 53 37 17 13 56 67 67 65 11 2 29
8 86 8 74 71 38 26 22 74 49 68 56 52 74 11
9 5 87 2 89 39 35 31 2 31 69 65 20 2 29
10 14 10 20 73 40 44 50 20 13 70 74 20 2 47
11 3 1 8 85 41 33 3 8 35 71 33 3 8 38
12 72 16 26 43 42 9 5 80 83 72 12 8 26 77
13 81 13 44 61 43 81 13 44 61 73 21 17 44 59
14 90 4 62 79 44 90 4 62 72 74 30 4 62 41
15 9 5 80 83 45 9 5 80 83 75 39 13 80 23
16 18 42 8 65 46 18 42 8 65 76 48 46 8 5
17 27 23 26 47 47 27 23 26 47 77 57 37 26 13
18 36 6 44 29 48 36 6 44 29 78 66 6 44 31
19 45 41 62 11 49 45 41 62 11 79 75 19 62 49
20 64 16 40 7 50 64 16 40 7 80 84 10 80 67
21 73 21 68 45 51 19 9 68 75 81 43 39 68 15
22 52 48 86 3 52 82 36 86 63 82 22 18 86 57
23 61 15 14 21 53 1 3 14 81 83 31 9 14 39
24 70 6 32 39 54 10 6 32 81 84 40 24 32 21
25 79 15 50 57 55 19 15 50 63 85 49 45 50 3
26 88 6 68 75 56 28 18 68 45 86 58 6 8 15
27 7 3 86 87 57 37 9 86 27 87 67 9 86 33
28 16 36 14 69 58 46 48 14 9 88 76 18 14 51
29 25 21 32 51 59 55 39 32 9 89 85 9 32 69
30 34 90 50 33 60 64 90 50 27 90 4 90 50 87
 
Ultima modifica:
ciao a tutti e scusatemi l'intromissione ma io adoro questa tavola, complimenti gio' per l'esito a colpo fantastico...vi seguo anch'io cuona giornata
 
Ciao Gioacchino, in poche parole tu consideri
il 6°numero del quadratino la somme dei 5 numeri all'interno di esso ?

esempio: 1° quadratino

13 -- 78
--- 1 ---
07 -- 90

il 6° numero è il 9 perchè la somma di 13.78.1.7.90 con il fuori 90 fa 9 giusto ????

Adesso inserisco le quartine...
 
ciao schirò

ottima idea!!!!

mi copio le quartine .

grazie

18 36 6 44 29 - 48 36 6 44 29 - 78 66 6 44 31

questa è giusta?
 
Ultima modifica:
ciao franca ciao blak e molto piu semplice ...........

è la somma dei 5 estratti realmente ti riprto l'esempio

es: estrazione del 28/09bari 86+19+14+80+89= sooma dei 5 numeri fuorii 90 =18
18 36 6 44 29

irei a colpo usando solo la somma dei 5 estratti

Estrazione generatrice del pronostico 13949 [117 - 28/09/2013]
G 0001
Numeri in gioco : 06.29.36.44 su BA TT per Ambo
V N. [06.29.36.44 ] [TT] [TO][29 44 .. .. ..] C. 1 Ambo 13950 [118 - 01/10/2013]
Interrotta per raggiunta durata

ciaoo ci leggiamo stasera corro al lavoro
 
Blackmore ha scritto:
Forse qui c'è un errore ? 39 --> 35 31 2 31 ?
Clicca per espandere...

caio
si sicuramnete capita cheil numerio si rippeta in questo caso il doppio io lo inverto

ti ho scritto in seguito .....
da come lo hai cpito tu .......ho provato a fare gli esiti è ho trovato che a solo l'ambata
se provi con la somma dei 5 estratti reali hai molto di piu
ciaooo
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 31 gennaio 2025
    Bari
    49
    28
    64
    42
    46
    Cagliari
    53
    76
    89
    26
    13
    Firenze
    38
    51
    15
    50
    56
    Genova
    87
    09
    35
    30
    04
    Milano
    53
    25
    23
    09
    37
    Napoli
    01
    65
    38
    06
    15
    Palermo
    05
    07
    10
    26
    58
    Roma
    32
    31
    09
    46
    80
    Torino
    68
    20
    44
    51
    11
    Venezia
    90
    24
    62
    54
    61
    Nazionale
    20
    79
    07
    45
    60
    Estrazione Simbolotto
    Bari
    45
    37
    01
    41
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto