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
    martedì 03 novembre 2026
    Bari
    60
    81
    39
    27
    89
    Cagliari
    49
    40
    60
    34
    57
    Firenze
    33
    90
    53
    40
    10
    Genova
    18
    81
    28
    44
    52
    Milano
    12
    50
    54
    43
    81
    Napoli
    74
    79
    42
    24
    17
    Palermo
    51
    31
    10
    90
    62
    Roma
    23
    27
    40
    65
    28
    Torino
    89
    44
    69
    04
    21
    Venezia
    19
    33
    78
    37
    59
    Nazionale
    01
    56
    18
    50
    68
    Estrazione Simbolotto
    Torino
    45
    09
    18
    28
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto