Novità

aiuto x

F

fata65

Super Member >GOLD<
chiedo gentilmente ad esperti se si possono mettere tutte le ruote in ordine in unica tabella esempio
ba-ve
ve -ca
ca-to
to-fi
fi-ro
ro-ge
ge-pa
pa-mi
mi-na
na-ba come si scrive oppure riportare la modifica
 
Fata quando scrivi un messaggio, usa modalità avanzata
e lo script racchiudilo tra i tag code, è il tasto # (cancelletto)
Lo script è mozzato, ne manca una buona parte
comunque tramite inputbox puoi sceglierti le 2 ruote che vuoi
a piacimento
Ciao
 
NlJ1EyI.png


piMc9YT.png


Ciao
 
aiuto

aiuto

Codice: 
                            Sub Main()
	Dim ruo(2),n1(5),n2(1),n3(1),n4(1),n5(1),nu(5),nn1(1),nn2(1),nn3(1),nn4(4),nn5(1),nnu(5)
	Inizio = EstrazioneFin - 10
	fine = EstrazioneFin
	ex = fine - Inizio
	r = InputBox("Quale ruota visualizzare ",,5)
	r1 = InputBox("Quale ruota visualizzare ",,6)
	Scrivi " Quadro estrazionale statistica numeri estratti ",1,0,3
	Scrivi " su n° " & ex & " estrazioni ",1,0,7
	Scrivi " Sulla Ruota di..." & NomeRuota(r) & " - " & NomeRuota(r1),1,- 1,4
	Scrivi
	Scrivi "Estrazione del......." & DataEstrazione(fine,1),1
	ReDim atitoli(65)
	atitoli(1) = " "
	atitoli(2) = " DATA "
	atitoli(3) = " "
	atitoli(4) = " 1°E "
	atitoli(5) = " 2°E "
	atitoli(6) = " 3°E "
	atitoli(7) = " 4°E "
	atitoli(8) = " 5°E "
	atitoli(9) = " "
	atitoli(10) = " SM 1° "
	atitoli(11) = " SM 2° "
	atitoli(12) = " SM 3° "
	atitoli(13) = " SM 4° "
	atitoli(14) = " SM 5° "
	atitoli(15) = " "
	atitoli(16) = " DF 1° "
	atitoli(17) = " DF 2° "
	atitoli(18) = " DF 3° "
	atitoli(19) = " DF 4° "
	atitoli(20) = " DF 5° "
	atitoli(21) = " "
	atitoli(22) = " SM 1-2 R1-R2"
	atitoli(23) = " SM 1-3 R1-R2"
	atitoli(24) = " SM 1-4 R1-R2"
	atitoli(25) = " SM 1-5 R1-R2"
	atitoli(26) = " SM 2-3 R1-R2"
	atitoli(27) = " SM 2-4 R1-R2"
	atitoli(28) = " SM 2-5 R1-R2"
	atitoli(29) = " SM 3-4 R1-R2"
	atitoli(30) = " SM 3-5 R1-R2"
	atitoli(31) = " SM 4-5 R1-R2"
	atitoli(32) = " "
	atitoli(33) = " DF 1-2 R1-R2"
	atitoli(34) = " DF 1-3 R1-R2"
	atitoli(35) = " DF 1-4 R1-R2"
	atitoli(36) = " DF 1-5 R1-R2"
	atitoli(37) = " DF 2-3 R1-R2"
	atitoli(38) = " DF 2-4 R1-R2"
	atitoli(39) = " DF 2-5 R1-R2"
	atitoli(40) = " DF 3-4 R1-R2"
	atitoli(41) = " DF 3-5 R1-R2"
	atitoli(42) = " DF 4-5 R1-R2"
	atitoli(43) = " "
	atitoli(44) = " SM 1-2 R2-R1"
	atitoli(45) = " SM 1-3 R2-R1"
	atitoli(46) = " SM 1-4 R2-R1"
	atitoli(47) = " SM 1-5 R2-R1"
	atitoli(48) = " SM 2-3 R2-R1"
	atitoli(49) = " SM 2-4 R2-R1"
	atitoli(50) = " SM 2-5 R2-R1"
	atitoli(51) = " SM 3-4 R2-R1"
	atitoli(52) = " SM 3-5 R2-R1"
	atitoli(53) = " SM 4-5 R2-R1"
	atitoli(54) = " "
	atitoli(55) = " DF 1-2 R2-R1"
	atitoli(56) = " DF 1-3 R2-R1"
	atitoli(57) = " DF 1-4 R2-R1"
	atitoli(58) = " DF 1-5 R2-R1"
	atitoli(59) = " DF 2-3 R2-R1"
	atitoli(60) = " DF 2-4 R2-R1"
	atitoli(61) = " DF 2-5 R2-R1"
	atitoli(62) = " DF 3-4 R2-R1"
	atitoli(63) = " DF 3-5 R2-R1"
	atitoli(64) = " DF 4-5 R2-R1"
	atitoli(65) = " "
	Call InitTabella(atitoli,1,,3,5)
	For ess = Inizio To fine
		ruo(1) = r
		ruo(2) = r1
		a = Estratto(ess,r,1)
		aa = Estratto(ess,r1,1)
		b = Estratto(ess,r,2)
		bb = Estratto(ess,r1,2)
		c = Estratto(ess,r,3)
		cc = Estratto(ess,r1,3)
		d = Estratto(ess,r,4)
		dd = Estratto(ess,r1,4)
		e = Estratto(ess,r,5)
		ee = Estratto(ess,r1,5)
		n1(1) = a
		n2(1) = b
		n3(1) = c
		n4(1) = d
		n5(1) = e
		nn1(1) = aa
		nn2(1) = bb
		nn3(1) = cc
		nn4(1) = dd
		nn5(1) = ee
		rp1 = Fuori90(a + aa)
		rp2 = Fuori90(b + bb)
		rp3 = Fuori90(c + cc)
		rp4 = Fuori90(d + dd)
		rp5 = Fuori90(e + ee)
		sf1 = Differenza(a,aa)
		sf2 = Differenza(b,bb)
		sf3 = Differenza(c,cc)
		sf4 = Differenza(d,dd)
		sf5 = Differenza(e,ee)
		ReDim avalori(65)
		avalori(1) = " "
		avalori(2) = DataEstrazione(ess) & " - " & SiglaRuota(r) & " - " & SiglaRuota(r1)
		avalori(3) = " "
		avalori(4) = a & "." & aa
		avalori(5) = b & "." & bb
		avalori(6) = c & "." & cc
		avalori(7) = d & "." & dd
		avalori(8) = e & "." & ee
		avalori(9) = " "
		avalori(10) = rp1
		avalori(11) = rp2
		avalori(12) = rp3
		avalori(13) = rp4
		avalori(14) = rp5
		avalori(15) = " "
		avalori(16) = sf1
		avalori(17) = sf2
		avalori(18) = sf3
		avalori(19) = sf4
		avalori(20) = sf5
		avalori(21) = " "
		avalori(22) = Fuori90(a + bb)
		avalori(23) = Fuori90(a + cc)
		avalori(24) = Fuori90(a + dd)
		avalori(25) = Fuori90(a + ee)
		avalori(26) = Fuori90(b + cc)
		avalori(27) = Fuori90(b + dd)
		avalori(28) = Fuori90(b + cc)
		avalori(29) = Fuori90(c + dd)
		avalori(30) = Fuori90(c + ee)
		avalori(31) = Fuori90(d + ee)
		avalori(32) = " "
		avalori(33) = Differenza(a,bb)
		avalori(34) = Differenza(a,cc)
		avalori(35) = Differenza(a,dd)
		avalori(36) = Differenza(a,ee)
		avalori(37) = Differenza(b,cc)
		avalori(38) = Differenza(b,dd)
		avalori(39) = Differenza(b,cc)
		avalori(40) = Differenza(c,dd)
		avalori(41) = Differenza(c,ee)
		avalori(42) = Differenza(d,ee)
		avalori(43) = " "
		avalori(44) = Fuori90(aa + b)
		avalori(45) = Fuori90(aa + c)
		avalori(46) = Fuori90(aa + d)
		avalori(47) = Fuori90(aa + e)
		avalori(48) = Fuori90(bb + c)
		avalori(49) = Fuori90(bb + d)
		avalori(50) = Fuori90(bb + c)
		avalori(51) = Fuori90(cc + d)
		avalori(52) = Fuori90(cc + e)
		avalori(53) = Fuori90(dd + e)
		avalori(54) = " "
		avalori(55) = Differenza(aa,b)
		avalori(56) = Differenza(aa,c)
		avalori(57) = Differenza(aa,d)
		avalori(58) = Differenza(aa,e)
		avalori(59) = Differenza(bb,c)
		avalori(60) = Differenza(bb,d)
		avalori(61) = Differenza(bb,c)
		avalori(62) = Differenza(cc,d)
		avalori(63) = Differenza(cc,e)
		avalori(64) = Differenza(dd,e)
		avalori(65) = " "
		nu(1) = a
		nu(2) = b
		nu(3) = c
		nu(4) = d
		nu(5) = e
		Call AddRigaTabella(avalori,,,3)
		Call SetColoreCella(1,vbBlue)
		Call SetColoreCella(3,vbBlue)
		Call SetColoreCella(9,vbBlue)
		Call SetColoreCella(15,vbBlue)
		Call SetColoreCella(21,vbBlue)
		Call SetColoreCella(32,vbBlue)
		Call SetColoreCella(43,vbBlue)
		Call SetColoreCella(54,vbBlue)
		Call SetColoreCella(65,vbBlue)
		Call SetColoreCella(4,vbYellow)
		Call SetColoreCella(5,vbYellow)
		Call SetColoreCella(6,vbYellow)
		Call SetColoreCella(7,vbYellow)
		Call SetColoreCella(8,vbYellow)
	Next
	CreaTabella()
	Call PicStampaTesto(40,20,"Tabella By Mike58 ",,True,True,,11,vbBlue)
	Call PicEsegui
End Sub
 
Hai visto che ci sei riuscita ?!!!
Allora adesso ti mostra TUTTE le coppie di ruote (piu' di così non si puo' fare)
l' unica cosa, nell'inputbox ti chiede l'estrazione da inserire, lo script analizza SOLO
quell' estrazione, anche se metti un estrazione di 1 mese fa
questo perchè l'elaborazione durerebbe mooooolto
quindi devi controllare estrazione per estrazione
Ciao

Codice: 
Sub Main()
	Dim ruo(2),n1(5),n2(1),n3(1),n4(1),n5(1),nu(5),nn1(1),nn2(1),nn3(1),nn4(4),nn5(1),nnu(5)
	Inizio = CInt(InputBox(" Estrazione da analizzare ?",,8746))
	fine = Inizio
	'ex = fine - Inizio
	'r = InputBox("Quale ruota visualizzare ",,5)
	'r1 = InputBox("Quale ruota visualizzare ",,6)
	Scrivi " Quadro estrazionale statistica numeri estratti ",1,0,3
	Scrivi " su n° " & ex & " estrazioni ",1,0,7
	Scrivi " Sulla Ruota di..." & NomeRuota(r) & " - " & NomeRuota(r1),1,- 1,4
	Scrivi
	Scrivi "Estrazione del......." & DataEstrazione(fine,1),1
	ReDim atitoli(65)
	atitoli(1) = " "
	atitoli(2) = " DATA "
	atitoli(3) = " "
	atitoli(4) = " 1°E "
	atitoli(5) = " 2°E "
	atitoli(6) = " 3°E "
	atitoli(7) = " 4°E "
	atitoli(8) = " 5°E "
	atitoli(9) = " "
	atitoli(10) = " SM 1° "
	atitoli(11) = " SM 2° "
	atitoli(12) = " SM 3° "
	atitoli(13) = " SM 4° "
	atitoli(14) = " SM 5° "
	atitoli(15) = " "
	atitoli(16) = " DF 1° "
	atitoli(17) = " DF 2° "
	atitoli(18) = " DF 3° "
	atitoli(19) = " DF 4° "
	atitoli(20) = " DF 5° "
	atitoli(21) = " "
	atitoli(22) = " SM 1-2 R1-R2"
	atitoli(23) = " SM 1-3 R1-R2"
	atitoli(24) = " SM 1-4 R1-R2"
	atitoli(25) = " SM 1-5 R1-R2"
	atitoli(26) = " SM 2-3 R1-R2"
	atitoli(27) = " SM 2-4 R1-R2"
	atitoli(28) = " SM 2-5 R1-R2"
	atitoli(29) = " SM 3-4 R1-R2"
	atitoli(30) = " SM 3-5 R1-R2"
	atitoli(31) = " SM 4-5 R1-R2"
	atitoli(32) = " "
	atitoli(33) = " DF 1-2 R1-R2"
	atitoli(34) = " DF 1-3 R1-R2"
	atitoli(35) = " DF 1-4 R1-R2"
	atitoli(36) = " DF 1-5 R1-R2"
	atitoli(37) = " DF 2-3 R1-R2"
	atitoli(38) = " DF 2-4 R1-R2"
	atitoli(39) = " DF 2-5 R1-R2"
	atitoli(40) = " DF 3-4 R1-R2"
	atitoli(41) = " DF 3-5 R1-R2"
	atitoli(42) = " DF 4-5 R1-R2"
	atitoli(43) = " "
	atitoli(44) = " SM 1-2 R2-R1"
	atitoli(45) = " SM 1-3 R2-R1"
	atitoli(46) = " SM 1-4 R2-R1"
	atitoli(47) = " SM 1-5 R2-R1"
	atitoli(48) = " SM 2-3 R2-R1"
	atitoli(49) = " SM 2-4 R2-R1"
	atitoli(50) = " SM 2-5 R2-R1"
	atitoli(51) = " SM 3-4 R2-R1"
	atitoli(52) = " SM 3-5 R2-R1"
	atitoli(53) = " SM 4-5 R2-R1"
	atitoli(54) = " "
	atitoli(55) = " DF 1-2 R2-R1"
	atitoli(56) = " DF 1-3 R2-R1"
	atitoli(57) = " DF 1-4 R2-R1"
	atitoli(58) = " DF 1-5 R2-R1"
	atitoli(59) = " DF 2-3 R2-R1"
	atitoli(60) = " DF 2-4 R2-R1"
	atitoli(61) = " DF 2-5 R2-R1"
	atitoli(62) = " DF 3-4 R2-R1"
	atitoli(63) = " DF 3-5 R2-R1"
	atitoli(64) = " DF 4-5 R2-R1"
	atitoli(65) = " "
	Call InitTabella(atitoli,1,,3,5)
	For ess = Inizio To fine
		For r = 1 To 10
			For r1 = r + 1 To 12
				If r1 = 11 Then r1 = 12
				ruo(1) = r
				ruo(2) = r1
				a = Estratto(ess,r,1)
				aa = Estratto(ess,r1,1)
				b = Estratto(ess,r,2)
				bb = Estratto(ess,r1,2)
				c = Estratto(ess,r,3)
				cc = Estratto(ess,r1,3)
				d = Estratto(ess,r,4)
				dd = Estratto(ess,r1,4)
				e = Estratto(ess,r,5)
				ee = Estratto(ess,r1,5)
				n1(1) = a
				n2(1) = b
				n3(1) = c
				n4(1) = d
				n5(1) = e
				nn1(1) = aa
				nn2(1) = bb
				nn3(1) = cc
				nn4(1) = dd
				nn5(1) = ee
				rp1 = Fuori90(a + aa)
				rp2 = Fuori90(b + bb)
				rp3 = Fuori90(c + cc)
				rp4 = Fuori90(d + dd)
				rp5 = Fuori90(e + ee)
				sf1 = Differenza(a,aa)
				sf2 = Differenza(b,bb)
				sf3 = Differenza(c,cc)
				sf4 = Differenza(d,dd)
				sf5 = Differenza(e,ee)
				ReDim avalori(65)
				avalori(1) = " "
				avalori(2) = DataEstrazione(ess) & " - " & SiglaRuota(r) & " - " & SiglaRuota(r1)
				avalori(3) = " "
				avalori(4) = a & "." & aa
				avalori(5) = b & "." & bb
				avalori(6) = c & "." & cc
				avalori(7) = d & "." & dd
				avalori(8) = e & "." & ee
				avalori(9) = " "
				avalori(10) = rp1
				avalori(11) = rp2
				avalori(12) = rp3
				avalori(13) = rp4
				avalori(14) = rp5
				avalori(15) = " "
				avalori(16) = sf1
				avalori(17) = sf2
				avalori(18) = sf3
				avalori(19) = sf4
				avalori(20) = sf5
				avalori(21) = " "
				avalori(22) = Fuori90(a + bb)
				avalori(23) = Fuori90(a + cc)
				avalori(24) = Fuori90(a + dd)
				avalori(25) = Fuori90(a + ee)
				avalori(26) = Fuori90(b + cc)
				avalori(27) = Fuori90(b + dd)
				avalori(28) = Fuori90(b + cc)
				avalori(29) = Fuori90(c + dd)
				avalori(30) = Fuori90(c + ee)
				avalori(31) = Fuori90(d + ee)
				avalori(32) = " "
				avalori(33) = Differenza(a,bb)
				avalori(34) = Differenza(a,cc)
				avalori(35) = Differenza(a,dd)
				avalori(36) = Differenza(a,ee)
				avalori(37) = Differenza(b,cc)
				avalori(38) = Differenza(b,dd)
				avalori(39) = Differenza(b,cc)
				avalori(40) = Differenza(c,dd)
				avalori(41) = Differenza(c,ee)
				avalori(42) = Differenza(d,ee)
				avalori(43) = " "
				avalori(44) = Fuori90(aa + b)
				avalori(45) = Fuori90(aa + c)
				avalori(46) = Fuori90(aa + d)
				avalori(47) = Fuori90(aa + e)
				avalori(48) = Fuori90(bb + c)
				avalori(49) = Fuori90(bb + d)
				avalori(50) = Fuori90(bb + c)
				avalori(51) = Fuori90(cc + d)
				avalori(52) = Fuori90(cc + e)
				avalori(53) = Fuori90(dd + e)
				avalori(54) = " "
				avalori(55) = Differenza(aa,b)
				avalori(56) = Differenza(aa,c)
				avalori(57) = Differenza(aa,d)
				avalori(58) = Differenza(aa,e)
				avalori(59) = Differenza(bb,c)
				avalori(60) = Differenza(bb,d)
				avalori(61) = Differenza(bb,c)
				avalori(62) = Differenza(cc,d)
				avalori(63) = Differenza(cc,e)
				avalori(64) = Differenza(dd,e)
				avalori(65) = " "
				nu(1) = a
				nu(2) = b
				nu(3) = c
				nu(4) = d
				nu(5) = e
				Call AddRigaTabella(avalori,,,3)
				Call SetColoreCella(1,vbBlue)
				Call SetColoreCella(3,vbBlue)
				Call SetColoreCella(9,vbBlue)
				Call SetColoreCella(15,vbBlue)
				Call SetColoreCella(21,vbBlue)
				Call SetColoreCella(32,vbBlue)
				Call SetColoreCella(43,vbBlue)
				Call SetColoreCella(54,vbBlue)
				Call SetColoreCella(65,vbBlue)
				Call SetColoreCella(4,vbYellow)
				Call SetColoreCella(5,vbYellow)
				Call SetColoreCella(6,vbYellow)
				Call SetColoreCella(7,vbYellow)
				Call SetColoreCella(8,vbYellow)
				'End If
			Next
		Next
	Next
	CreaTabella()
	Call PicStampaTesto(40,20,"Tabella By Mike58 ",,True,True,,11,vbBlue)
	Call PicEsegui
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 01 agosto 2026
    Bari
    46
    54
    36
    47
    01
    Cagliari
    77
    30
    04
    79
    18
    Firenze
    84
    76
    10
    27
    44
    Genova
    32
    13
    71
    38
    46
    Milano
    10
    23
    18
    20
    03
    Napoli
    73
    36
    10
    90
    07
    Palermo
    61
    46
    24
    57
    32
    Roma
    89
    78
    23
    07
    35
    Torino
    21
    59
    34
    73
    86
    Venezia
    74
    01
    30
    46
    54
    Nazionale
    71
    65
    17
    09
    20
    Estrazione Simbolotto
    Nazionale
    03
    09
    37
    30
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto