Per tutti gli scriptisti

[salvo50]

Ciao a Tutti!

Ho postato 3 scripts a riguardo del Quadrato Maltese il terzo si differenzia dal secondo di 3 righe in meno, che sarebbero le righe che non accettano numeri uguali, mi chiedevo se esiste una qualche funzione che mi permette volendo di saltare delle righe di programma a piacere.

Grazie!

 

[AlphaBeta]

Quindi non si sa esattamente quale criterio usare per definire i numeri di figura 9 da usare?
Peccato...perchè non era male come metodo...

 

[i legend]

Ciao per non leggere le righe di programma basta mettere un apice o scrivere rem prima della riga , ma sicuramente questo lo sai, se spieghi meglio forse ti possiamo aiutare
ciao a tutti

 

[salvo50]

Ciao I Leggend!

Io intendevo in automatico, lo deve fare lo script con un comando che gli dò ad esempio tramite inputbox, tipo fà una domanda se rispondo "A"
gli faccio fare tutto lo script, se rispondo "B", in automatico gli faccio saltare delle righe di programma.

 

[Joe91]

Ciao I Leggend!

Io intendevo in automatico, lo deve fare lo script con un comando che gli dò ad esempio tramite inputbox, tipo fà una domanda se rispondo "A"
gli faccio fare tutto lo script, se rispondo "B", in automatico gli faccio saltare delle righe di programma.

Scrivendo così ... hai gia risposto a te stesso.

....

IF Risposta = "A" Then

'Esegue la parte di codice in presenza di risposta = "A"

.
.
.
.
.

End IF

' .... viene eseguita ... la rimanente parte del codice fino a ...


End Sub

 

[salvo50]

Come l'uovo di Colombo, grazie!


Perfetto l'ho anche provato.

 

[AlphaBeta]

Come l'uovo di Colombo, grazie!


Perfetto l'ho anche provato.

come procede con gli script?

 

[salvo50]

Ciao Alphabeta

Attualmente sono impegnato con 3 script, uno questo dove ho chiesto aiuto per saltare un pezzo di programma, che sarebbe l'unione degli script del Quadrato Maltese 2 e 3 che praticamente faccio decidere quale dei due eseguire, non l'ho postato perchè penso che non possa interessare, il secondo riguarda le somme del Trino Settenario, quelle che Avio aveva trovato uguali, avevo detto che avrei fatto delle ricerche, ma prima di fare le ricerche ho pensato che tutte le somme gliele faccio fare allo script, avendo tutte le somme e più facile fare le ricerche, questo lo sto ancora facendo perchè è un lavorone, il terzo sarebbe quello che Giorgioantonio mi ha chiesto di cercare in una tabella i numeri di figura 9 non necessariamente diversi del Quadrato Maltese, e per quello chiedo aiuto adesso perchè ho delle idee ma non riesco a concretizzarle.

Allora attualmente appare una tabella così

09
18
27
36
45
54
63
72
81
90

secondo me per poter scegliere numeri uguali dovrebbe apparire una tabella così

09.09.09.09.09
18.18.18.18.18
27.27.27.27.27
36.36.36.36.36
45.45.45.45.45
54.54.54.54.54
63.63.63.63.63
72.72.72.72.72
81.81.81.81.81
90.90.90.90.90

in modo da poter scegliere 2,3,4 o anche 5 numeri uguali, attualmente lo script per fare questa scelta inserendo i numeri ad uno ad uno da tastiera c'è ma Giorgioantonio mi aveva chiesto se poteva farlo da una tabella, accetto qualunque suggerimento, grazie.

 

[salvo50]

Ciao a Tutti!

Sto facendo degli abbozzi per futuri script e mi sono arenato in una stupidata (secondo me), però non trovo soluzione, nello script metto in 5 righe la seguenza passo 1 dei 90 numeri partendo da numeri diversi, tutto bene, ma i numeri di 1 cifra i cosidetti numeretti non vengono incolonnati bene, cioè non rispettano la colonna di appartenenza, ho messo il - Format2 - ma sembra non vederlo, allora ho pensato di mettere il - FormattaStringa - ma non me la accetta, allego lo script.

Grazie

Option Explicit
Sub Main
Dim a(5),riga(5),n,p
a(1) = 25
a(2) = 47
a(3) = 19
a(4) = 32
a(5) = 78
Scrivi Format2(a(1)) & " " & Format2(a(2)) & " " & Format2(a(3)) & " " & Format2(a(4)) & " " & Format2(a(5))
Scrivi " "

For p = 1 To 5
For n = 1 To 90
a(p) = a(p) + 1
riga(p) = riga(p) & Fuori90(Format2(a(p))) & " " ' in questa riga lo script sembra non vedere il format2
Next
Scrivi riga(p)
Next
End Sub

 

[Mike58]

Salvo, prova a metterlo prima del fuori90 e vedrai che è funzionante.
riga(p) = riga(p) & Format2(Fuori90(a(p))) & " " ' in questa riga lo script sembra non vedere il format2

Ciao

 

[salvo50]

Fatto, adesso funziona bene, grazie.

Ciao!

 

[salvo50]

Ciao a Tutti!
Un gruppo di 5 numeri qualsiasi voglio visualizzare le 120 combinazioni possibili, faccio un esempio con 2 numeri - 1 e 2
in uscita devo avere

12
21

esempio con 3 numeri - 1 - 2 - 3
in uscita devo avere

1-2-3
1-3-2
2-1-3
2-3-1
3-1-2
3-2-1 anche disposti diversamente

con 4 numeri le combinazioni possibili sono 24 e con 5 numeri sono 120, ma questo penso che gli esperti lo sanno meglio di me, è solo per essere più chiaro possibile di quello che mi serve.

Grazie!

 

[Joe91]

Ciao a Tutti!
Un gruppo di 5 numeri qualsiasi voglio visualizzare le 120 combinazioni possibili, faccio un esempio con 2 numeri - 1 e 2
in uscita devo avere

12
21

esempio con 3 numeri - 1 - 2 - 3
in uscita devo avere

1-2-3
1-3-2
2-1-3
2-3-1
3-1-2
3-2-1 anche disposti diversamente

con 4 numeri le combinazioni possibili sono 24 e con 5 numeri sono 120, ma questo penso che gli esperti lo sanno meglio di me, è solo per essere più chiaro possibile di quello che mi serve.

Grazie!

Ciao Salvo ...

... è questione di semantica.

Forse, quasi, la differenza tra combinazioni e permutazioni.

Quindi no. Non mi è chiaro.

I numeri sono sempre e solo 5 ?

Le combinazioni tipo 1-1-1 / 1-2-2 / 3-1-1 Sono valide ?

Solo per essere vagamente veggente ... un terno di posizioni determinate ...

forse potrebbe farsi attendere per qualche millennio ... a naso.

 

[salvo50]

I numeri sono sempre e solo 5 ?

Si

Le combinazioni tipo 1-1-1 / 1-2-2 / 3-1-1 Sono valide ?

No, ma l'impostazione dei 3 numeri l'avevo fatta solo come esempio


scusa il post continua, ho sbagliato a premere ed è partito, continuo il post spiegandoti a cosa mi servono le 5 combinazioni

 

[Mike58]

Salvo, forse non si era capito, ma per lo sviluppo in pemutazione esistono i vari codici per sviluppare le combinazioni nelle varie posizioni.
Si trova nella cartella Test_Permutazioni.

eccoti lo script con il quale puoi fare le dovute modifiche.

Option Explicit
Sub Main
	Dim COLONNE,Classe,T,SCOLONNA,K,J,X,NP
	Dim NUMERI(90)
	Classe = 3
	For X = 1 To 9
		NUMERI(X) = X
	Next
	Scrivi " CLASSE " & Classe
	Scrivi " ToT.gruppi o numeri..." & X - 1
	If MsgBox("Sviluppo in memoria (non adatto a sviluppi di combinazioni elevate) ?",vbQuestion + vbYesNo) = vbYes Then
		COLONNE = SviluppoPermutazioni(NUMERI,Classe)
		T = UBound(COLONNE)
		Scrivi " TOTALE PERMUTAZIONI CALCOLATE " & T,1
		For K = 1 To UBound(COLONNE)
			SCOLONNA = ""
			For J = 1 To Classe
				SCOLONNA = SCOLONNA & Format2(COLONNE(K,J)) & " "
			Next
			Scrivi Format2(K) & "....." & SCOLONNA
		Next
	Else
		T = InitSviluppoPermutazioni(NUMERI,Classe)
		Scrivi " TOTALE PERMUTAZIONI CALCOLATE " & T,1
		
		ReDim aColonna(0)
		Do While GetCombPermutazioni(aColonna)
			K = K + 1
			SCOLONNA = ""
			For J = 1 To Classe
				SCOLONNA = SCOLONNA & Format2(aColonna(J)) & " "
			Next
			Scrivi Format2(K) & "....." & SCOLONNA
			Call AvanzamentoElab(1,T,K)
			If ScriptInterrotto Then Exit Do
			DoEventsEx
			
		Loop
	End If
End Sub

vedi se fa al caso tuo

 

[salvo50]

Tavola Settenaria è composta da 90 quadretti di 5 numeri non sempre diversi, ma come esempio prendiamo il primo quadretto

13.78
..01
07.90

di questi 5 numeri io qual'è il primo e l'ultimo non l'ho sò, a casaccio li stabilisco così

13
78
01
07
90

li voglio moltiplicare per una delle tante scomposizioni delle chiavi 645-554-463-372-281

15-14-13-12-11

13*15= 15
78*14= 12
01*13= 13
07*12= 48
90*11= 90

Ho ottenuto 5 numeri 15-12-13-48-90

però se cambio la posizione dei numeri e sempre a casaccio li metto così

90*15= 90
01*14= 14
13*13= 11
78*12= 36
07*11= 77

ottengo altri 5 numeri 90-14-11-36-77 non importa che c'è ne uno uguale, anche cambiando un solo numero la cinquina è diversa

quindi provare con tutte le 120 combinazioni e si ottengono 120 cinquine diverse che moltiplicate per 5 diventano 600 e controllare con una ricerca se ci sono dei riscontri, se va bene ok 600 euro si possono giocare in società, se non ci saranno riscontri va bene lo stesso ci abbiamo provato.

Ciao

scusa Mike non avevo visto il tuo post, adesso provo quello che hai postato

 

[salvo50]

Perfetto Mike era proprio quello che mi serviva, io avevo già guardato in quella cartella ma non avevo capito lo script, del tuo post ho cambiato solo tre righe queste

da così

Dim NUMERI(90)
Classe = 3
For X = 1 To 9


a così

Dim NUMERI(5)
Classe = 5
For X = 1 To 5

ed in uscita ho le 120 permutazioni

 

[Mike58]

Bene salvo, allora buon studio.

alla prossima.

 

[AlphaBeta]

Ciao Salvo50....come procede? hai trovato riscontri? Perchè se trovi la quaterna o la cinquina...anche se 600 euro son tanti....si chiede un prestito!!

 

[salvo50]

No, ancora non ho fatto lo script, è più complicato di quello che pensavo.

Ciao!