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
    venerdì 24 ottobre 2025
    Bari
    33
    75
    32
    35
    10
    Cagliari
    73
    68
    58
    49
    59
    Firenze
    31
    11
    21
    13
    69
    Genova
    27
    35
    21
    42
    59
    Milano
    22
    11
    64
    62
    19
    Napoli
    77
    88
    51
    30
    75
    Palermo
    04
    43
    72
    59
    45
    Roma
    84
    58
    60
    46
    23
    Torino
    13
    27
    31
    86
    49
    Venezia
    45
    03
    70
    14
    56
    Nazionale
    68
    47
    02
    01
    18
    Estrazione Simbolotto
    11
    37
    05
    27
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto