Oppure

Loading
20/01/10 10:24
Postato originariamente da DavidP:

Oei grazie lo stesso per tutto pero ora sto andando un po' in crisi, ora quale sarebbe il codice esatto?


Il primo che ti ho inviato ...

Basta che provi il codice, no?
20/01/10 11:39
DavidP
Ti ringrazio per la risposta.
ti volevo chiedere un atra cosa facendo così perche non mi attaca il timer1: 
 Dim s As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim x As String
    timer1.enabled = True (intervallo 1000)
    s = Space$(3)
    x = "abcdefghijklmnopqrstuvwxyz0123456789"
    For k = 1 To 36
        For j = 1 To 36
            For i = 1 To 36
                Mid$(s, 1) = Mid$(x, i, 1)
                Mid$(s, 2) = Mid$(x, j, 1)
                Mid$(s, 3) = Mid$(x, k, 1)
                 label1.caption=val(label1.caption)+val(1) Non funziona
                Debug.Print s
            Next i
        Next j
    Next k 
timer1.enabled =  false ********

aaa
20/01/10 12:59
Non "ti attacca" che vuol dire?

Hai del codice nell'evento Timer1_Timer ?
20/01/10 15:31
Louis
Mi congratulo con "nessuno" per la soluzione brillante del problema; da un esame del codice di cui trattasi, che ho provato, mi sembra che sia incentrato sulle combinazioni con ripetizione (36^3 = 46.656 combinazioni); ora mi piacerebbe sapere in concreto a cosa può servire. ;)
Ultima modifica effettuata da Louis 20/01/10 15:46
aaa
20/01/10 16:24
Postato originariamente da Louis:

Mi congratulo con "nessuno" per la soluzione brillante del problema


Per così poco? Sono soluzioni "standard", diciamo di base ... semmai andrebbero "affinate" ...

ora mi piacerebbe sapere in concreto a cosa può servire. ;)


Ovviamente un brute force ...
20/01/10 17:42
DavidP
nel timer 
label1.caption=Val(label1.caption)+val(1)
aaa
20/01/10 18:47
Postato originariamente da DavidP:

nel timer 
label1.caption=Val(label1.caption)+val(1)


Ok ... capito ... nel codice, dopo la Debug.Print s devi inserire una DoEvents, così 

    Debug.Print s 
    DoEvents


Nell'evento timer non ha senso la Val(1) ... scrivi 

 
Label1.Caption = Val(Label1.Caption) + 1
Ultima modifica effettuata da 20/01/10 18:53
20/01/10 19:06
DavidP
scusami non ho capito molto.

il doevents a cosa serve?e dove si riallaccia?(non sono ancora esperto in questi tipi di instruzioni)
Se hai capito la mia intenzione, e quella cioè di creare un contatore di secondi.

aaa