Metodo Show [vb6]

In alcuni programmi, quando si clicca sui bottoni, si apre un nuovo form.

Si tratta del metodo Show, vediamo come funziona.

Apriamo Visual Basic e creiamo il nostro solito exe standard, creiamo tre bottoni e chiamiamoli:

• triangolo
• isoscele
• scaleno

Ora dobbiamo inserire un nuovo form al progetto, dalla barra di menù andiamo su Progetto > inserisci form, dopo aver inserito il form diamogli il nome che vogliamo (potete anche tenerlo com’ è), dopo aver creato il nuovo form facciamo lo stesso procedimento per ogni form che vogliamo costruire (nell’ esempio un form di base + 3 creati).

Torniamo al nostro form di base (quello della prima immagine) e facciamo doppio click sul primo button, per far visualizzare il form che abbiamo appena creato dobbiamo inserire questo codice:

————————————————————————————————

Private Sub Command1_Click()
triangolo.Show
End Sub

————————————————————————————————

triangolo.Show : triangolo è il nome del primo form che abbiamo creato, Show, invece, serve appunto per far visualizzare il form.

Il metodo Show è in pratica un “collegamento” che c’ è tra un form e un altro.

————————————————————————————————

Private Sub Command1_Click()
triangolo.Show
End Sub

Private Sub Command2_Click()
isoscele.Show
End Sub

Private Sub Command3_Click()
scaleno.Show
End Sub

————————————————————————————————

————————————————————————————————

Prima di chiudere questo post volevo insegnarvi a inserire un immagine.

Dalla casella degli strumenti clicchiamo sull’ immagine in basso a sinistra raffigurante un quadro con una montagna e un sole (si chiama “Image”, è a fianco a “Data” e sopra “OLE”: non potete sbagliarvi).

Dopo aver cliccato su questa immagine creiamo una sottospecie di quadrato, questo quadrato avrà i bordi tratteggiati, copiamo l’ immagine che vogliamo inserire e la incolliamo dentro questo quadrato: gioco fatto!!

Questo è tutto…alla prossima!! ^^

Download

Metodo Forecolor [vb6]

In questa lezione vi spiegherò in due parole come far cambiare colore a una label.

Inanzitutto apriamo visual basic 6.0 e creiamo un exe standard.

Andiamo nell’ oggetto e creiamo 3 option button (che io ho racchiuso in un frame) e una label (che ho posto fuori dal frame).

I nomi degli option button e della label non li ho cambiati.

Facciamo doppio click sul primo option button e scriviamo all’ interno di esso:

————————————————————————————————-

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub

————————————————————————————————-

Il codice è molto semplice da interpretare, indica che se questo option button viene cliccato la Label1 viene colorata di rosso (vbRed).

Facciamo lo stesso procedimento per il secondo e per il terzo option button (i colori che ho messo sono stati rispettivamente blue e verde).

Infine avremo il codice completo che sarà:

————————————————————————————————-

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label1.ForeColor = vbBlue
End Sub

Private Sub Option3_Click()
Label1.ForeColor = vbGreen
End Sub

————————————————————————————————-

Mandiamo in esecuzione e clicchiamo sugli option button, se non avete sbagliato niente il label cambierà colore

Per mettere diversi colori basterà cambiare con Green, Red o Blue il nome di un altro colore (in inglese), non dimeticatevi di mettere davanti vb (es. vbWhite).

Download

Il ciclo For…Next [vb6]

I cicli in informatica si usano per comporre un certo numero di operazioni uguali.
Uno dei modi per comporre un numero un certo numero volte è quello di usare il ciclo For…Next, vediamo come funziona.

Creiamo nell’ oggetto 4 label e 1 bottone, 2 label serviranno per far comparire il risultato, le altre 2, come vedremo in seguito, non saranno utilizzate, il bottone serve per far partire il programma.

Nomi delle label:

• 1^ label inutilizzata: “sommap”
• 2^ label inutilizzata: “sommad”
• 1^ label utilizzata: “Label1″
• 2^ label utilizzata: “Label2″
• bottone: “Command1″

Sommap e sommad non sono utilizzate e servono per “tenere il testo scritto”.
Label1 e Label2, invece, sono utilizzate per far comparire il risultato della nostra operazione: Label1 per i pari e Label2 per i dispari.

Andiamo a vedere ora il codice e come funziona il ciclo For.

Sotto Option Explicit inseriamo i valori “sommapari”, “sommadispari” (servono per il calcolo finale), “i”, “N” (utilizzati nel ciclo).

Ho fatto assumere a sommapari e sommadispari valore doppio (As Double), in questo modo il calcolo può essere più alto, se avessi messo As Integer il programma sarebbe andato in overflow (in poche parole quando mostra il messaggio d’ errore) con numeri molto piccoli; “i” e “N” invece assumono valori interi in modo da far risultare i 2 valori finali numeri interi.

Il ciclo For…Next è abbastanza complicato da imparare da solo, cercherò di spiegarvelo nel miglior modo possibile in modo da farvi capire subito.

——————————————–

For (indice) = (val. min.) To (val. max.)
(istruzioni)
Next (indice)

——————————————–

For i = 1 To N
   If i Mod 2 = 0 Then
   sommapari = sommapari + i
   Else
   sommadispari = sommadispari + i
   End If
Next i

——————————————–

L’ indice (“i” nel secondo es.) assume un valore che va da 1 a N.
(Istruzioni): ho inserito un If: Se il numero inserito diviso per 2 da resto 0 (Mod da il resto di una divisione) allora è pari, altrimenti è dispari.

Se non avete ancora capito provate a scrivere un nuovo programma vostro simile a questo.

Ecco come funziona il ciclo For, ma il codice non è solo questo:

——————————————–

Option Explicit

Dim sommapari As Double
Dim sommadispari As Double
Dim i As Integer
Dim N As Integer

Private Sub Command1_Click()
sommapari = 0
sommadispari = 0
N = Val(InputBox(“Inserisci un numero intero positivo”))

For i = 1 To N
   If i Mod 2 = 0 Then
   sommapari = sommapari + i
   Else
   sommadispari = sommadispari + i
   End If
Next i
Label1.Caption = sommapari
Label2.Caption = sommadispari
End Sub

——————————————–

Il resto del codice è molto semplice e facile da interpretare, InputBox serve a inserire il numero da calcolare, anche i numeri a doppia precisione hanno un valore massimo, quindi se si inserisce un numero troppo alto il programma andrà in overflow.

Ciclo for con step

Se inseriamo a fianco a “For i = 1 To N”: “Step 2″ il programma andrà a calcolare i numeri a 2 a 2, e così via cambiando il numero.

Il ciclo For…Next non è l’ unico ad essere in grado di eseguire una serie di comandi tutti in una volta, esiste anche il ciclo Do, che vedremo la prossima volta .

Download

Guida all’ uso dell editor di menù [vb6]

Tutte le applicazione professionali di oggi utilizzano i menù.

I menù sono di grande importanza nei programmi e possono dimostrarsi molto utili.

Per crearne uno vb6 mette a disposizione l’ “Editor di menù” che possiamo trovare da “Strumenti > Editor di menu”.

Utilizzare questo editor è molto semplice.

Nella TextBox affiancata da Caption si deve inserire un nome (sarà quello che comparirà nel menù), in quello affiancato da Caption invece bisogna mettere il nome che si utilizzerà nel codice di programmazione.

Le freccette che trovate in basso servono a spostare il nome, se spostato a destra questo diventerà un sottomenù.

Se in Caption affianchiamo al nome “&” possiamo notare che la prima lettera (se & si mette all’ inizio) è sottolineata, in questo modo si richiama una “scorciatoia” (Alt + “lettera sottolineata”), basterà premere questi 2 pulsanti dalla tastiera e si aprirà il menù.

Tutti i menù dispongono di “barre” che dividono i sottomenù: possiamo crearle anche noi inserendo un nuovo sottomenù e scrivendo “-” nel campo caption.

Ora sapete creare alla perfezione menù e sottomenù, non rimane che riempire il codice di programmazione per far funzionare i sottomenù.

Se non avete capito qualcosa chiedete pure…

Download

Orologio [vb6]

Creare un orologio in vb6 è molto semplice.

Quando inseriamo un orologio in un applicazione vb6 il programma va a “prendere” l’ ora dal timer che trovate in basso a destra sullo schermo.

Possiamo inserire l’ orologio dalla casella degli strumenti cliccando sull’ orologio.

Oltre ad aver inserito l’ orologino dobbiamo inserire una TextBox, questa ci servirà per far vederel’ ora.

Nella finestra delle proprietà su “Interval” impostiamo 1000 (espresso in millisecondi, 1000 millisecondi equivalgono a 1 secondo).

Ho rinominato la TextBox “time1″.

Il codice da scrivere è semplicissimo ed è molto corto: (cliccando 2 volte sull’ orologio)

Private Sub Timer1_Timer()
time1.Text = Time()
End Sub

In questo modo quando apriamo la nostra applicazione uscirà nella TextBox l’ orario espresso in ore, minuti e secondi; uguale identico a quello che troviamo in basso a destra nello schermo.

Questo è tutto, una guida semplice e corta che ho scritto finito di scrivere alle 00:46…non avevo proprio nulla da fare Byez!!

Download

Evento Form_Unload [vb6]

Un evento che si incontra spesso nei programmi (es. emule) è quello del Form_Unload.

Utilizzando questo evento quando si chiude un programma ti viene chiesto ad esempio se vuoi davvero chiuderlo, ecco come fare.

Entrate nel codice di programmazione da “visualizza > codice”, e scrivete:

Private Sub Form_Unload(Cancel As Integer)
Dim risposta As VbMsgBoxResult
risposta = MsgBox(“Vuoi davvero uscire?”, vbOKCancel, “CHIUSURA”)
If risposta = vbOK Then
Cancel = 0
Else
Cancel = 1
End If
End Sub

Quando cancel assume valore 0 (clicchi su OK) allora il programma si chiude (tramite la MsgBox) altrimenti no.

Puoi modificare il testo a tuo piacere tramite (nell’ esempio):

risposta = MsgBox(“Vuoi davvero uscire?”, vbOKCancel, “CHIUSURA”)

Il primo (“Vuoi davvero uscire?”) è il testo scritto dentro la casellina, il secondo (vbOKCancel) è il tipo di casella che esce fuori, il terzo invece (“CHIUSURA”) è il testo che esce scritto nella barra principale.

Questo è tutto…byez!!

Download

Eventi nelle caselle di testo [vb6]

E’ da molto che non faccio un post in questo blog…scusatemi ma sono stato “molto occupato” con i compiti per la scuola (si come no )
In questo tutorial vi spiegherò come funziona l’ evento exit in una casella di testo.

Apriamo vb6 e creiamo il solito exe standard.

Nell’ oggetto creiamo una casella di testo e ci clicchiamo 2 volte sopra in modo da entrare nel codice di programmazione.

Il codice da scrivere è molto semplice: un semplice If.

Private Sub casella_Change()
   If casella.Text = “exit” Then
      End
   End If
End Sub

Ho chiamato la casella di testo “casella”; se si scrive nella casella “exit” il programma si chiude semplicemente.

Utile no?? E’ “più o meno” come il programma di windows che trovate in “Start > Esegui”…

Download