Novità

Un Aiuto da Mike (Tabelle)

fillotto

Advanced Member >PLATINUM<
Buona sera , ho fatto una tabella dove rilevo la somma estratti Under/Over 227,5 per ciascuna ruota per tot estrazioni ,fin qui ci sono riuscito ma non riesco a gestire l'output della tabella nel senso che la tabella mi appare nell'output dopo una serie di spazi pari all'estrazioni richieste , come ovviare a questo?
Ho fatto in modo che se a BA la somma estratti sia sotto 227,5 mi metta 1 se superiore mi metta 2 ,se a CA la somma estratti sia sotto 227,5 mi metta 3 se superiore mi metta 4 e così via fino a VE (under 19 over 20) quindi ogni estrazione ottengo 10
numeri è escluso che escano 1 e 2 oppure 3 e 4 del resto facendo girare il sottonotato abbozzo di script ci si rende conto di come ho impostato il preoblema.
Cosa voglio ottenere ? vorrei una tabella che mi gestisca tutte le 960 terzine possibili (ogni estrazione escono 120 terzine sulle 960 possibili un rapporto di uno a otto) in questo modo:
Combinazione---- Ritardo----Freq----R S
2--3--5 ---- 36 ---- 6 ---- 36
3--7--17 ---- 34 ---- 3 ---- 39
ecc ecc
ecco lo script:
Codice:
Sub Main()	
er = CInt(InputBox("Quante estrazioni a ritroso",,10))
fin = EstrazioneFin
	Ini = fin - er
	Scrivi : ColoreTesto 2: Scrivi String(54," ") & "TABELLA UNDER/OVER 227,5 della Somma Estratti ",0
		ReDim atitoli(11)
	atitoli(1) = " DATA ESTRAZIONE "
	atitoli(2) = " BA (1-2) "
	atitoli(3) = " CA (3-4)"
	atitoli(4) = " FI (5-6)"
	atitoli(5) = " GE (7-8)"
	atitoli(6) = " MI (9-10)"
	atitoli(7) = " NA (11-12) "
	atitoli(8) = " PA (13-14) "
	atitoli(9) = " RO (15-16) "
	atitoli(10) = " TO (17-18)"
	atitoli(11) = " VE (19-20) "
	
	Call InitTabella(atitoli,1,,3,5)
	For es = Ini + 1 To Fin
		Call AvanzamentoElab(Ini,fin,es)
			
			eb = SommaEstratti(es,1)
			ec = SommaEstratti(es,2)
			ef = SommaEstratti(es,3)
			eg = SommaEstratti(es,4)
			em = SommaEstratti(es,5)
			en = SommaEstratti(es,6)
			ep = SommaEstratti(es,7)
			er = SommaEstratti(es,8)
			et = SommaEstratti(es,9)
			ev = SommaEstratti(es,10)			

	Scrivi : ColoreTesto 0: Scrivi,1
							
			ReDim avalori(11)
			avalori(1) = DataEstrazione(es)
			avalori(2) = eb
			If eb < 228 Then
				avalori(2) = 1
			Else
			 avalori(2) = 2				
			End If
			avalori(3) = ec
			If ec < 228 Then
				avalori(3) = 3
			Else
			 avalori(3) = 4				
			End If
			avalori(4) = ef
			If ef < 228 Then
				avalori(4) = 5
			Else
			 avalori(4) = 6				
			End If
			avalori(5) = eg
			If eg < 228 Then
				avalori(5) = 7
			Else
			 avalori(5) = 8				
			End If
			avalori(6) = em
			If em < 228 Then
				avalori(6) = 9
			Else
			 avalori(6) = 10				
			End If
			avalori(7) = en
			If en < 228 Then
				avalori(7) = 11
			Else
			 avalori(7) = 12
				
			End If
				avalori(8) = ep
			If ep < 228 Then
				avalori(8) = 13
			Else
			 avalori(8) = 14				
			End If
				avalori(9) = er
				If er < 228 Then
				avalori(9) = 15
			Else
			 avalori(9) = 16				
			End If				
				avalori(10) = et
				If et < 228 Then
				avalori(10) = 17
			Else
			 avalori(10) = 18				
			End If	
		
				avalori(11) = ev
			If ev < 228 Then
				avalori(11) = 19
			Else
			 avalori(11) = 20				
			End If

			Call AddRigaTabella(avalori,,,3)
			Next
	
	Call SetTableWidth("80%")
	Call CreaTabella()

End Sub
 
Ultima modifica:
Ciao Fill, per gli spazi c'era una scritta con scrivi inutile e per questo scriveva tanti spazi quante ne faceva il ciclo for-next.

Per il resto buon lavoro vediamo dove vai a parare.

Codice:
Sub Main()
	er = CInt(InputBox("Quante estrazioni a ritroso",,10))
	fin = EstrazioneFin
	Ini = fin - er
	Scrivi : ColoreTesto 2: Scrivi String(54," ") & "TABELLA UNDER/OVER 227,5 della Somma Estratti ",0
	Scrivi ' messo io per staccare il titolo
	ReDim atitoli(11)
	atitoli(1) = " DATA ESTRAZIONE "
	atitoli(2) = " BA (1-2) "
	atitoli(3) = " CA (3-4)"
	atitoli(4) = " FI (5-6)"
	atitoli(5) = " GE (7-8)"
	atitoli(6) = " MI (9-10)"
	atitoli(7) = " NA (11-12) "
	atitoli(8) = " PA (13-14) "
	atitoli(9) = " RO (15-16) "
	atitoli(10) = " TO (17-18)"
	atitoli(11) = " VE (19-20) "
	Call InitTabella(atitoli,1,,3,5)
	For es = Ini + 1 To Fin
		Call AvanzamentoElab(Ini,fin,es)
		eb = SommaEstratti(es,1)
		ec = SommaEstratti(es,2)
		ef = SommaEstratti(es,3)
		eg = SommaEstratti(es,4)
		em = SommaEstratti(es,5)
		en = SommaEstratti(es,6)
		ep = SommaEstratti(es,7)
		er = SommaEstratti(es,8)
		et = SommaEstratti(es,9)
		ev = SommaEstratti(es,10)
		'Scrivi : ColoreTesto 0: Scrivi,1
		ReDim avalori(11)
		avalori(1) = DataEstrazione(es)
		avalori(2) = eb
		If eb < 228 Then
			avalori(2) = 1
		Else
			avalori(2) = 2
		End If
		avalori(3) = ec
		If ec < 228 Then
			avalori(3) = 3
		Else
			avalori(3) = 4
		End If
		avalori(4) = ef
		If ef < 228 Then
			avalori(4) = 5
		Else
			avalori(4) = 6
		End If
		avalori(5) = eg
		If eg < 228 Then
			avalori(5) = 7
		Else
			avalori(5) = 8
		End If
		avalori(6) = em
		If em < 228 Then
			avalori(6) = 9
		Else
			avalori(6) = 10
		End If
		avalori(7) = en
		If en < 228 Then
			avalori(7) = 11
		Else
			avalori(7) = 12
		End If
		avalori(8) = ep
		If ep < 228 Then
			avalori(8) = 13
		Else
			avalori(8) = 14
		End If
		avalori(9) = er
		If er < 228 Then
			avalori(9) = 15
		Else
			avalori(9) = 16
		End If
		avalori(10) = et
		If et < 228 Then
			avalori(10) = 17
		Else
			avalori(10) = 18
		End If
		avalori(11) = ev
		If eb < 228 Then
			avalori(11) = 19
		Else
			avalori(11) = 20
		End If
		Call AddRigaTabella(avalori,,,3)
	Next
	Call SetTableWidth("80%")
	Call CreaTabella()
End Sub
 
Ciao Fill, per gli spazi c'era una scritta con scrivi inutile e per questo scriveva tanti spazi quante ne faceva il ciclo for-next.

Per il resto buon lavoro vediamo dove vai a parare.

Grazie Mike , ho imparato qualche cosa, del resto mi davano un fastidio quelle righe bianche:mad: ma la questione rimane trattare i numeri del lotto come un pronostico di una partita solo che non c'è l'x in excel lo gestisco ma è molto ferraginoso con uno script sarebbe l'ideale
 
Ultima modifica:
Ciao Fill, guarda che puoi esportare tutto il lavoro fatto con lo script in tabella anche in Excel. semplicemente anziché con il codice
CreaTabella
con CreaTabellaOrdinabile
e questo ti consente di trattarlo come uno schema Excel e addirittura esportarlo.

Prova che il tutto è abbastanza gestibile.

Ciao
 
Ultima modifica:
Ciao Fill, guarda che puoi esportare tutto il lavoro fatto con lo script in tabella anche in Excel. semplicemente anziché con il codice
CreaTabella
con CreaTabellaOrdinabile
e questo ti consente di trattarlo come uno schema Excel e addirittura esportarlo.

Prova che il tutto è abbastanza gestibile.

Ciao
Si, infatti così ho fatto, ma per adesso mi viene un "mostruoso" foglione per controllare tutte le 960 colonne ovvero la situazione delle 960 combinazioni che invece con una tabella in script sarebbe di immediata comprensione adesso ho escogitato questo foglio ,forse potrei mettere le combinazioni (960) in verticale ma in allora dovrei trovare una formula (in una Colonna)per il ritardo , un'altra formula per trovare le frequenze un altra per il ritardo storico.... ecco perchè avevo chiesto aiuto, per adesso buona giornata.
http://forum.lottoced.com/attachment.php?attachmentid=14591&stc=1&d=1422687829
 

Allegati

  • UndOv.jpg
    UndOv.jpg
    8,1 KB · Visite: 1

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 27 maggio 2025
    Bari
    15
    61
    19
    34
    80
    Cagliari
    69
    10
    33
    22
    25
    Firenze
    18
    55
    30
    29
    78
    Genova
    64
    18
    35
    56
    57
    Milano
    41
    86
    61
    17
    89
    Napoli
    87
    31
    27
    57
    16
    Palermo
    31
    69
    53
    64
    14
    Roma
    14
    24
    02
    08
    29
    Torino
    83
    04
    79
    49
    27
    Venezia
    19
    57
    53
    10
    33
    Nazionale
    14
    68
    86
    56
    58
    Estrazione Simbolotto
    Milano
    42
    04
    44
    34
    07
Indietro
Alto