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 ottobre 2025
    Bari
    43
    31
    77
    89
    85
    Cagliari
    50
    30
    77
    43
    53
    Firenze
    23
    53
    28
    11
    72
    Genova
    14
    86
    37
    22
    68
    Milano
    62
    14
    19
    48
    26
    Napoli
    46
    56
    42
    13
    77
    Palermo
    44
    71
    53
    73
    74
    Roma
    24
    56
    90
    57
    29
    Torino
    72
    02
    29
    12
    21
    Venezia
    10
    64
    37
    65
    22
    Nazionale
    69
    39
    08
    04
    61
    Estrazione Simbolotto
    09
    15
    20
    32
    42
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto