Per cortesia qualcuno può farmi questo script?

[siriano]

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.

 

[LuigiB]

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

 

[barattolo]

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

 

[siriano]

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.

 

[LuigiB]

ciao , ho accontentato tutti e due ma non chiedetemi altro ...

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

 

[siriano]

Luigi grazie, a me va benissimo.
Solo una delucidazione: se la somma minima e massima coincidono è ininfluente per lo script?
Buona serata.

 

[LuigiB]

ovvio , è il modo che accontenta te infatti ... ciao

 

[siriano]

Grazie Luigi, buone cose.