PROGRAMMARE CON VISUAL BASIC
Oggi realizzeremo un programmino molto semplice standalone (si avvia senza installazione) con visual basic 6 SP6
che ci consentirà di visualizzare il tasto premuto e il suo corrispettivo codice ascii che abbiamo digitato sulla tastiera del pc.
Apriamo Visual Basic 6 SP6, click su File – Nuovo progetto – EXE Standard
Componenti del programma e riferimenti
- Form (si aggiunge in automatico);
- Label1 (Premi un tasto per vedere il suo codice Ascii);
- Label2 (Il codice Ascii è 55 Per ottenerlo tenere premuto Alt e digitare 55);
- Label3 (7);
- Label4 (Hai premuto il tasto:);
- Image1 (L’immagine con la freccetta verso giù)
Per la parte grafica ho utilizzato un’icona per identificare il programma (sta nell’intestazione in alto a sinistra), una per la riduzione a icona (nell’angolo in basso a destra) e un’immagine di sfondo (il colore blu con le sfumature). Ricordo che le immagini devono avere la risoluzione web di 256 colori, altrimenti VB6 non le carica. Nella finestra delle proprietà impostare la BackStyle a 0 – Transparent, in ToolTipText ho messo la descrizione che viene visualizzata al passaggio del mouse sopra la finestra del programma. Come Font (il carattere del testo) ho scelto Times New Roman ed infine come MousePointer (icona del mouse) ho scelto 14 – Arrow and Questions.
Codice
Doppio click sulla form e inseriamo quanto segue:
'Inizio codice
Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = "Il codice Ascii è " & KeyAscii & Chr(13) & "Per ottenerlo tenere premuto Alt e digitare " &
KeyAscii & "" 'visualizza il codice ascii
Label3.Caption = Chr(KeyAscii) 'rileva il tasto premuto
End Sub
'Chiusura del programma, puoi togliere la riga MsgBox
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Software prelevato dal sito internet: https://www.giovannidimauro.it/", vbInformation,
"Informazioni"
Unload Me
End Sub
'Riduci a icona
Private Sub Image1_Click()
WindowState = 1
End Sub
'Cancella il risultato cliccando su Label2
Private Sub Label2_Click()
Label1.Caption = Int(Rnd * 1)
Select Case Label1
Case 0
Label1.Caption = ""
End Select
Label3.Caption = Int(Rnd * 1)
Select Case Label3
Case 0
Label3.Caption = ""
End Select
End Sub
'Cancella il risultato cliccando Label1
Private Sub Label1_Click()
Label1.Caption = Int(Rnd * 1)
Select Case Label1
Case 0
Label1.Caption = ""
End Select
Label3.Caption = Int(Rnd * 1)
Select Case Label3
Case 0
Label3.Caption = ""
End Select
End Sub
'Cancella il risultato cliccando Label4
Private Sub Label4_Click()
Label1.Caption = Int(Rnd * 1)
Select Case Label1
Case 0
Label1.Caption = ""
End Select
Label3.Caption = Int(Rnd * 1)
Select Case Label3
Case 0
Label3.Caption = ""
End Select
End Sub
Dopo aver incollato tutto possiamo premere F5 per mandare il programma in esecuzione. Tutti i commenti preceduti
dal segno ‘ si possono rimuovere in quanto non compromettono il codice del programma essendo solo dei riferimenti
o guide.
