Visual Basic 6 - Maiuscolo

Forum - Visual Basic 6 - Maiuscolo

Pagine: [ 1 2 3 ]

karl93 (Normal User)
Rookie

Messaggi: 47
Iscritto: 17/09/2011

Postato alle 16:45
Martedì, 04/10/2011

Ecco il codice:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
Dim A As Integer
 
A = Val(Text2.Text)
 
If A >= 2000 And A <= 2006 And Text1.Text = "Giurisprudenza" Then
Label1.Caption = "Studenti Laureati"
ElseIf A >= 2007 And A <= 2009 And Text1.Text = "Medicina" Then
Label1.Caption = "Studenti non Laureati"
ElseIf A >= 2010 And A <= 2012 And Text1.Text = "Ingegneria" Then
Label1.Caption = "Studenti in piena attività"
Else
Label1.Caption = "Errore Dati"
End If
End Sub

Codice sorgente - presumibilmente Visual Basic 6

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = ""
Text1.SetFocus
 
End Sub

Codice sorgente - presumibilmente VB.NET

Private Sub Command3_Click()
End
 
End Sub

Questo è tutto il codice. Qual è l'errore?

HeDo (Founder Member)
Guru^2

Messaggi: 2765
Iscritto: 21/09/2007

Postato alle 17:22
Martedì, 04/10/2011

cos'è? un indovinello?

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 17:33
Martedì, 04/10/2011

E' la continuazione di un thread precedente.

Ma non tutti lo sanno e quindi devi spiegare tutto da zero a chi ti segue per la prima volta.

A parte il fatto che il thread non si può chiamare più Maiuscolo dato che non è questo il problema.

Infine, il problema di cui parli, con il codice mostrato, non lo evidenzio. Non si sa cosa tu faccia per avere quel problema ...

Guarda ... prova a zippare il progetto intero e metterlo a disposizione per scaricarlo e provarlo ...

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

karl93 (Normal User)
Rookie

Messaggi: 47
Iscritto: 17/09/2011

Postato alle 17:48
Martedì, 04/10/2011

Il problema è scritto su un libro, molto banale. Il problema è risolto come ho scritto, ora volevo aggiungere una mia curiosità, cioè capire come inserire solo la prima lettera in maiuscolo, mi sta aiutando nessuno con molta pazienza e devo solo ringraziarlo.

Comunque ora vi allego il progetto. :asd:

karl93 ha allegato un file: Archivio.zip (2258 bytes)
Clicca qui per scaricare il file

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 19:15
Martedì, 04/10/2011

Guarda ... tagliamo la testa al toro ... tra la riga

    Dim A As Integer

e la

    A = Val(Text1.Text)

inserisci semplicemente la

    Text2.Text = StrConv(Text2.Text, vbProperCase)

e vedi se va bene.

karl93 (Normal User)
Rookie

Messaggi: 47
Iscritto: 17/09/2011

Postato alle 22:40
Martedì, 04/10/2011

No, non fa proprio niente. Scusa ma non puoi provare pure tu? Se vedi non funziona. Come mai?

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 22:49
Martedì, 04/10/2011

Ho provato e funziona perfettamente.

Magari dicci esattamente cosa fai ... azione dopo azione ...

karl93 (Normal User)
Rookie

Messaggi: 47
Iscritto: 17/09/2011

Postato alle 23:10
Martedì, 04/10/2011

Io inserisco il primo dato nella Text1 poi dopo passo alla Text2...e lì inserisco la prima lettera...e il caret si sposta nuovamente indietro e non dopo. A te funziona?

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 23:14
Martedì, 04/10/2011

Il codice è solo quello che hai mostrato?

Non c'e' altro codice?

Quello dell'evento change lo hai eliminato?

Pagine: [ 1 2 3 ]