X mike58

[Mike58]

va bene mike ma questo codice getTestoHtml con il parametro size per scrivere in grandezza caratteri (da default = 2)
dove si puo modificare nel configura script ce size e a 5 in output..
ma forse questa riguarda un'altra cosa..

Devi vedere e seguire la guida, quel parametro = 5 si riferisce a qualche colore in scrittura.

Circa il 2° quesito non saprei devi conteggiare gli ambi trovati in qualche modo adesso non saprei ma utilizzando il codice ambofrequenza x,y potresti ottenere il conteggio (potresti va visto come).

LuigiB ha smesso di fare modifiche al programma ed ha smesso anche di dare suggerimenti.
Io ho sempre interagito con lui sul forum, non ho altri poteri e contatti privati.
Poi è stato chiaro spaziometria resta gratis ma resta così pregi e difetti.

Ciao io sono impegnato in altre cose e sono in quarantena scriptica.

 

[genios]

ciao Mike58

Sub Main
   Dim Nu(2),Mat(400005,6)
   Dim T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin

No sono 40005 = 4005 x 10 ruote

4005 * 10 = 40050 e no 400005 come la variabile Dim Nu(2),Mat(400005,6)

ciao Eugenio

 

[Mike58]

ciao Mike58

Sub Main
   Dim Nu(2),Mat(400005,6)
   Dim T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin

4005 * 10 = 40050 e no 400005 come la variabile Dim Nu(2),Mat(400005,6)

ciao Eugenio

in Realtà per farlo funzionare in modo preciso 4005 (ambi) x 10 (ruote) = 40050,
sia io 40005 che tu 400005 abbiamo errato

 

[genios]

Scusa Mike58 ma penso di non aver errato .

Mat(400005,6)

questo è lo stralcio del tuo script al post #34

Sub Main
   Dim Nu(2),Mat(400005,6)
   Dim T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin
   qt = cint(InputBox("Quanti ambi Visualizzo",,20))
   Ord = CInt(InputBox("Ordina Per " & Chr(13) & "2 - Freq Max" & Chr(13) & "4 - Rit  Max","ORDINAMENTO MAX",2))
   T = Array(T,"K","Ambo","Ruota","Freq","Rit","R_Max","VerificaEsito")
   Call InitTabella(T)
   ResetTimer

n Realtà per farlo funzionare in modo preciso 4005 (ambi) x 10 (ruote) = 40050,
sia io 40005 che tu 400005 abbiamo errato

Con 90 numeri si formano 90*89/2=4005 ambi per 10 ruote 4005*10 = 40050

non penso di aver errato .

è solo per la correttezza dello script .
Ciao Eugenio

 

[Zetrix]

va bene mike non ti chiederò altro volevo solo sapere
come scrivere il codice esatto per rilevare gli ambi uguali
che si sono ripetuti in una data tecnica di gioco
grazie di tutto
ciao

 

[Mike58]

va bene mike non ti chiederò altro volevo solo sapere
come scrivere il codice esatto per rilevare gli ambi uguali
che si sono ripetuti in una data tecnica di gioco
grazie di tutto
ciao

Zetrix per rilevare ambi uguali ci può essere sia il codice apposito getAmbiUguali oppure Numeriripetuti rilevati.
Lo sò che non ti aiuta ma per ogni operazione c'è bisogno di un iter corretto per arrivare alla risultanza.

P.s. ho troppe cose da fare in questo periodo e posso risultare sgarbato, mi spiace perchè non è nel mio stile.

Ciao

 

[joe]

va bene mike non ti chiederò altro volevo solo sapere
come scrivere il codice esatto per rilevare gli ambi uguali
che si sono ripetuti in una data tecnica di gioco
grazie di tutto
ciao

Ciao,

Devi registrarli ordinatamente.

Se l' Ambo ha prima il "numero grande" e poi il "numero piccolo"

prima di registrarlo devi scambiare le posizioni degli estratti.

 

[Zetrix]

Scrivi(""&GetAmbiUguali&ambo1(1)&"."&ambo1(2)&""),1

mike ho scritto questa stringa ma mi da errore

joe ma come si fa a ordinarli il numero piu grande e il numero piu piccolo
ma a me non interessa quale e il numero piu grande e il numero piu piccolo
mi interessa che lo script in output mi scrivesse il resoconto
di tutti gli ambi generati dalla tecnica e dire guarda tra tutti
questi ambi generati ci sono 4 ambi uguali ripetuti 19.59
ci sono 3 ambi uguali ripetuti 19.45 e 2 ambi ripetuti 19.30
ma come si fa a scrivere il codice esatto..

ambo1(1) = x
ambo1(2) = z

la x e la z sono elaborati da una tecnica di gioco
che elabora tutti i prospetti
e ogni prospetto come e ovvio genera un ambo diverso
e tra questi ambi ci sono degli ambi uguali che si ripetono
ed e questo che vorrei sapere come evidenziarli e scriverli
in output..
se scrivo if x = z then
mi da lo stesso numero
eppure mi meraviglio che in spaziometria ce un tool
che a messo Luigi.b per rilevare gli ambi uguali convergenti
ho provato ma scrive soltanto i numeri singoli che si ripetono
e poi scrive tutti gli ambi ma non scrive quale e l'ambo uguale
piu convergente di tutti gli altri..
se no avrei risolto con convergenza script ma va bene
solo per l'ambata..

Scrivi(""&GetAmbiUguali&ambo1(1)&"."&ambo1(2)&""),1

dovrebbe essere questo il codice script ma bisogna
scriverlo in modo esatto

 

[i legend]

Devono essere ordinati per essere inseriti in una collection.
A-b è uguale a b-A , ma il pc li vede diversi e non incrementa il valore.
Ci sono le funzioni sui test di spaziometria se non erro. Le funzioni sono state scritte da luigi.
Ciao

 

[Zetrix]

grazie ilegend vedrò di fare altre prove deve esserci un modo per
scriverli con il codice script esatto..
se no li devo trovare io gli ambi convergenti
ma dato che ci sono gli script si puo fare..
abbiamo fatto le tabelle e faremo anche gli ambi convergenti..

 

[joe]

Option Explicit
Sub Main
 Dim x,z,k,A(2)
 For x = 1 To 90
  For z = 1 To 90
   If x <> z Then
    k = k + 1
    If x < z Then
     A(1) = x : A(2) = z
    Else
     A(1) = z : A(2) = x
    End If
    Scrivi FormatSpace(k,5) & StringaNumeri (A,,True)
   End If
  Next
 Next
End Sub

 

[Zetrix]

If GetAmbiUguali(es,CollAmbiTrovati) Then

'sAmbo = ""
sAmbo = sAmbo & x & "-" & z & vbCrLf

Call Scrivi(sAmbo)


6-27
50-85
62-19
1-73
45-41
57-65
86-34
40-2
52-26
49-5
85-15
41-55
6-66
42-76
88-26
18-25
54-35
10-75
76-27
56-63
72-53
13-71
83-17
9-7
45-83
25-29
41-19
49-22
4-87
24-45
72-58
27-33
47-81
62-14
17-79
37-37
71-58
72-79
4-74
45-38
46-59
68-54
9-54
10-75
32-70
38-74
4-38
24-14
23-29
79-83
9-59
48-49
14-13
34-79
16-67
58-65
8-3
73-68
25-66
65-4
52-90
4-88
44-26
58-16
6-45
73-33
70-72
18-11
85-89
16-2
54-31
31-19

ho provato in questo modo in output mi scrive tutti gli ambi generati
dalla tecnica ma non mi dice se ci sono ambi uguali ripetuti

grazie joe proverò il tuo script
buonanotte

 

[druid]

Buongiorno a tutti gli intervenuti.
X Zetrix: posta lo script con gli appropriati "settaggi" dal quale si possano ottenere "x" ambi ripetuti che vuoi evidenziare, che "provo" a darci un' occhiata.
Ciao

 

[Zetrix]

buona domenica

ciao druid ti scrivo l'algoritmo che calcola la x e la z

x = Fuori90((a - b) + c)
z = Fuori90((d - c) + b)

ambo1(1) = x
ambo1(2) = z

ImpostaGiocata 1,ambo1,ruote,poste,co,2

volevo allegare il disegno ma il forum non carica il file bmp
di spaziometria
devo convertire il file da bmp a png..
aspetta ho i programmi che fanno pure questo lavoro..
il disegno che ho allegato e un nuovo gioco che ho ideato
e il gioco dei puzzle adesso vorrei che lo script che genera
diversi ambi in tutti i prospetti mi scrivesse un resoconto
di tutti gli ambi generati se ci sono ambi uguali che si ripetono
ci sono casi che si trovano ambi in questo modo
19.59 e 59.19 in teoria questi ambi sono uguali
anche se cambiati di posizione..
e ovvio che questi sono prospetti senza nessuna condizione
di gioco per questo la tecnica calcola per ogni prospetto
un ambo e si formano diversi ambi..

6-27
50-85
62-19
1-73
45-41
57-65
86-34
40-2
52-26
49-5
85-15
41-55
6-66
42-76
88-26
18-25
54-35
10-75
76-27
56-63
72-53
13-71
83-17
9-7
45-83
25-29
41-19
49-22
4-87
24-45
72-58
27-33
47-81
62-14
17-79
37-37
71-58
72-79
4-74
45-38
46-59
68-54
9-54
10-75
32-70
38-74
4-38
24-14
23-29
79-83
9-59
48-49
14-13
34-79
16-67
58-65
8-3
73-68
25-66
65-4
52-90
4-88
44-26
58-16
6-45
73-33
70-72
18-11
85-89
16-2
54-31
31-19

 

[druid]

buona domenica

ciao druid ti scrivo l'algoritmo che calcola la x e la z

x = Fuori90((a - b) + c)
z = Fuori90((d - c) + b)

ambo1(1) = x
ambo1(2) = z

ImpostaGiocata 1,ambo1,ruote,poste,co,2

volevo allegare il disegno ma il forum non carica il file bmp
di spaziometria
devo convertire il file da bmp a png..

Ciao Zetrix,
quello che chiedevo era lo script intero, per intenderci quello che dava l'elenco di ambi al post #52, opportunamente settato in modo che ci siano "x" ambi uguali su cui lavorare.
Sulla porzione di script che hai postato potrebbe bastare un ciclo di verifica che nello script reale potrebbe non risolvere......
Ciao

 

[Zetrix]

druid non vorrei mettere lo script intero perche qui ce una mia tecnica personale
qui non si puo scrivere in privato..

ciao

 

[i legend]

druid non vorrei mettere lo script intero perche qui ce una mia tecnica personale
qui non si puo scrivere in privato..

Ciao a tutti
Zetrix quello che scrivi lo condivido
Ma druid ha ragione
Non si possono costruire pezzi di codice su qualcosa che non esiste .
Hai controllato la funzione che ti ho suggerito ieri.
?
Ho fatto le verifi he e funzia . Appena possibile posto lo script per xerox
Li vedi come è stata utilizzata.
Ciao
Druid complimenti per i tuoi script?
Sei un programmatore?

 

[Zetrix]

ilegend lo so la migliore cosa sarebbe mettere lo script per intero
ma qui ce una mia tecnica personale anche se ho messo gia
l'algoritmo per calcolare la x e la z e ognuno se lo puo creare lo script
non ho fatto ancora le tue verifiche..
sto sistemando diverse tabelle e grazie a mike58 sto imparando
a come scrivere i numeri e anche a come colorare i numeri...

ciao

 

[druid]

Ciao a tutti
Zetrix quello che scrivi lo condivido
Ma druid ha ragione
Non si possono costruire pezzi di codice su qualcosa che non esiste .
Hai controllato la funzione che ti ho suggerito ieri.
?
Ho fatto le verifi he e funzia . Appena possibile posto lo script per xerox
Li vedi come è stata utilizzata.
Ciao
Druid complimenti per i tuoi script?
Sei un programmatore?

Ciao,
diciamo che ho lavorato in ambiente informatico, su altre piattaforme, cmq gira che ti rigira il senso e le istruzioni dei vari linguaggi si assomigliano, basta adattare le istruzioni........

 

[druid]

druid non vorrei mettere lo script intero perche qui ce una mia tecnica personale
qui non si puo scrivere in privato..

ciao

Ciao Zetrix,
capisco le tue remore, ma come ha detto giustamente ILegend non si possono costruire pezzi di codice su qualcosa che non esiste.
Se vuoi cercami da Arcor.
Ciao