Novità

Per cortesia qualcuno può farmi questo script?

siriano

Member
Avrei bisogno di questo script:
inserendo un numero/somma lo script deve scrivere/elencare tutti i possibili ambi con quella somma.
Es.: inserisco il numero/somma 85 e lo script scrive/elenca
1-84
2-83
...
...
...
86-89
ecc.
e magari poi poterli esportare in un foglio excel.

Grazie a tutti.
 
Codice:
Option Explicit
Sub Main
	Dim n
	Dim k,e,s
	Dim nClasse
	
	Dim aColonne
	n = Int(InputBox("Inserire un numero da 1 a 90","Numero",90))
	If n > 0 And n <= 90 Then
		Call Scrivi ("Elenco ambi di somma " & n )
		nClasse = 2 ' sviluppo in ambi
		
		
		' sviluppo il sistema valorizzando le colonne sviluppate
		aColonne = SviluppoIntegrale(GetNumPerSviluppo,nClasse)
		' scrivo le colonne in output
		For k = 1 To UBound(aColonne)
			If Fuori90(aColonne(k,1) + aColonne(k,2)) = n Then
				s = ""
				' ciclo per leggere la colonna k
				For e = 1 To nClasse
					s = s & Format2(aColonne(k,e)) & "-"
				Next
				' tolgo l'ultimo trattino
				s = Left(s,Len(s) - 1)
				' scrive in output
				Call Scrivi(s)
			End If
		Next
	End If
End Sub
 
Codice:
Option Explicit
Sub Main
    Dim n
    Dim k,e,s
    Dim nClasse
    
    Dim aColonne
    n = Int(InputBox("Inserire un numero da 1 a 90","Numero",90))
    If n > 0 And n <= 90 Then
        Call Scrivi ("Elenco ambi di somma " & n )
        nClasse = 2 ' sviluppo in ambi
        
        
        ' sviluppo il sistema valorizzando le colonne sviluppate
        aColonne = SviluppoIntegrale(GetNumPerSviluppo,nClasse)
        ' scrivo le colonne in output
        For k = 1 To UBound(aColonne)
            If Fuori90(aColonne(k,1) + aColonne(k,2)) = n Then
                s = ""
                ' ciclo per leggere la colonna k
                For e = 1 To nClasse
                    s = s & Format2(aColonne(k,e)) & "-"
                Next
                ' tolgo l'ultimo trattino
                s = Left(s,Len(s) - 1)
                ' scrive in output
                Call Scrivi(s)
            End If
        Next
    End If
End Sub
Ciao LuigiB,

buon ferragosto!
Questo script si potrebbe modificare in questo modo (esempi):

minimo somma 3
massimo somma 179

lo script mi deve restituire solo le somme matematiche...
3= 1-2
10= 1-9 / 2-8 / 3-7 / 4-6
179= 89-90
 
Ciao Luigi, grazie per lo script, essere aiutato da te è un onore.
Mi permetto di chiederti qualcosa di più.
Una volta che lo script ha elencato gli ambi della somma richiesta può andare indietro di un certo numero di estrazioni (per es 18) e verificare:
1. se uno o più di quegli ambi sono già usciti su una ruota specificata prima,
2. quante volte ogni numero che compone i vari ambi è uscito sulla ruota specificata prima.
Grazie ancora, buona giornata.
 
ciao , ho accontentato tutti e due ma non chiedetemi altro ...

Codice:
Option Explicit
Sub Main
	Dim nMin , nMax
	Dim k,e,s,j
	Dim nClasse
	Dim nRuota
	Dim nEstrDaContr
	ReDim aNum(2)
	ReDim aEstratto(1)
	ReDim aRuote(1)
	Dim aColonne
	Dim idEstrIni,idEstr,nFrq
	nMin = Int(InputBox("Inserire un numero da 1 a 90 verranno usati gli ambi con la somma MINIMA specificata","Numero",90))
	nMax = Int(InputBox("Inserire un numero da 1 a 90 verranno usati gli ambi con la somma MASSIMA specificata","Numero",nMin ))
	

	nEstrDaContr = Int(InputBox("Quante estrazioni a ritroso","Controllo uscite",18))
	nRuota = ScegliRuota
	idEstr = EstrazioneFin
	idEstrIni =(idEstr + 1) - nEstrDaContr
	If nMin > 0 And nMin <= 90 And nMax >0 And nMax <=90 And nRuota > 0 And nEstrDaContr > 0 And idEstrIni > 0 Then
		aRuote(1) = nRuota
		Call Scrivi("Elenco ambi di somma compresa tra " & nMin & " e " & nMax ,True)
		Call Scrivi
		nClasse = 2 ' sviluppo in ambi
		' sviluppo il sistema valorizzando le colonne sviluppate
		aColonne = SviluppoIntegrale(GetNumPerSviluppo,nClasse)
		' scrivo le colonne in output
		For k = 1 To UBound(aColonne)
			s =  Fuori90(aColonne(k,1) + aColonne(k,2)) 
			If s >= nMin And s <= nMax  Then
				aNum(1) = aColonne(k,1)
				aNum(2) = aColonne(k,2)
				Call Scrivi("Ambo di somma " & FormatSpace(s,3,True) & " - " & StringaNumeri(aNum,,True),True)
				nFrq = SerieFreq(idEstrIni,idEstr,aNum,aRuote,2)
				If nFrq > 0 Then
					Call Scrivi("Uscito " & nFrq & " volte")
				End If
				For j = 1 To 2
					aEstratto(1) = aNum(j)
					nFrq = SerieFreq(idEstrIni,idEstr,aEstratto,aRuote,1)
					Call Scrivi("Num " & Format2(aNum(j)) & " Frq : " & FormatSpace(nFrq,5,True))
				Next
			End If
		Next
	End If
End Sub
 
Luigi grazie, a me va benissimo.
Solo una delucidazione: se la somma minima e massima coincidono è ininfluente per lo script?
Buona serata.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35

Ultimi Messaggi

Indietro
Alto