[VB6] Valori in textbox da 0 a 256

[deluxpc]

Ciao.
Devo limitare l'inserimento di valori in una textbok.
Valori che devono essere solo compresi tra 0 (zero) e 2556 (duecentocinquantacinque) attraverso l'eveto Change della stessa TextBox.

Io ho fatto così:

Private Sub Text1_Change()
    If Text1.Text < "0" Then Text1.Text = ""
    If Text1.Text > "255" Then Text1.Text = ""
End Sub

Questo codice però mi blocca anche altri numeri tra lo 0 e il 255, ad esempio il 5, l'8...

A me servono abilitati tutti i valori tra 0 e 255 e quando viene inserito un valore negativo oppure maggiore a 255 la Textbox dovebbe diventare bianca.

Come mai non mi va?
Come posso riparare?
Grazie in anticipo...

[oregon]

Semmai solamente

If Val(Text1.Text) < 0 Or Val(Text1.Text) > 255 Then Text1.Text = ""

P.S. Questo NON e' il forum giusto per il VB6 ...

[deluxpc]

Grazie mille.
Comunque ho scritto quì perchè nella descrizione ho visto VB... Sorry!

[oregon]

Originariamente inviato da deluxpc
Comunque ho scritto quì perchè nella descrizione ho visto VB...

Veramente non c'è ... ecco perchè ti ho detto che è il posto sbagliato ...

[deluxpc]

Programmazione
Discussioni legate a C++, VB, Java e ad altri linguaggi

Ma ho visto ora che c'è il SubForm dedicato a VB. Scusate..

[oregon]

Originariamente inviato da deluxpc
Ma ho visto ora che c'è il SubForm dedicato a VB. Scusate..

Nulla ... te l'ho ricordato anche perchè nel SubForum ci avevi già scritto ...
Alla prossima.

[deluxpc]

Ho un altro problemino da risolvere e onde evitar di disturbo nell'aprire un altro thread chiedo gentilmente quì.

Dietro all'aiuto che gentilmente mi è stato dato (ringrazio ancora) c'è tutto un programma che deve comunicare con un PIC (16F877), dove sarà presente un altro programma fatto con MikroC.

In poche parole con un click sul btn "Upload" il valore (entro il range che va da 0 a 255) contenuto in una textbox andrà "inviato" al PIC che poi me lo farà visualizzare in un dispaly ma quello sarà un altro paio di maniche.

Allo stesso modo con il pulsante "Delete" dovrà cancellarmi il il dato (con consecutiva pulizia del dispaly).

Attraverso un altro pulsante (?) il programma in VB dovrà provare a vedere se nel PIC avevo già precedentemente "registrato" un valore oppure no, quindi visualizzarmelo nella textbox.

Il mio problema è questo:
la comunicazione deve avvenire tramite l'oggetto MSComm di VB6 ma non saprei come poterlo impostare.

Come potrei provare?

Il programma in C per il PIC sembra semplice e lo farò finito quello in VB, l'impostazione dei pulsanti e tella textbox è già a posto e riesco a gestirla bene, ma proprio non saprei come far comunicare PC e PIC (e viceversa) attraverso l'MSComm.

Grazie in anticipo.

[oregon]

Non capisco perche' non apri un altro thread nel forum giusto.

L'argomento e' diverso, gia' stai nel forum sbagliato ...

[deluxpc]

Grazie.
penso d'aver già fatto correttamente, evito.

Per MSCOMM1:

MSComm1.CommPort = 1 ' Selezioniamo la COM1
MSComm1.Settings = "9600,n,8,1" ' Le impostazioni della seriale
On Error Resume Next ' Abilito l'intercettazione degli errori
MSComm1.PortOpen = True ' Apro la porta per trasmettere il dato
If Err Then ' se è accaduto un errore lo notifico all'utente
    MsgBox "Impossibile aprire la COM" & MSComm1.CommPort & vbCrLf & Error$
End If
On Error GoTo 0

E richiamo l'Input e l'Outpou sui pulsante dei rispettivi eventi.