Creiamo un programma che ci permetta di memorizzare i dati dei nostri  allenamenti di joggin (sempre che qualcuno di noi ne faccia)

Creiamo un progetto e lo chiamiamo corsa

Innanzitutto inserisco nella dichiarazione generale l’istruzione Imports  System.IO.File

Quindi nel button_click  inserirò le seguenti istruzioni

dim disco as  System.io.file

Che crea una nuova istruzione che si chiama disco che si occuperà del flusso di dati dalll’hardisk

E poi l’istruzione scrivi che si occuperà del flusso in scrittura

Dim scrivi as system.io.streamwriter

Attenzione dobbiamo gestire  il messaggio di errore nel caso che non si inserisca testo nelle textbox

If textbox1.text = “” then msgbox (“hai dimenticato la data”, Msgboxstyle.Exlamation, “ATTENZIONE”)

Poi aggiungo : exit sub (i : per aggiungere sulla stessa riga un’altra istruzione)  l’istruzione significa esci dalla subroutine e non verranno eseguite le istruzioni successive

Nella riga sotto controlliamo l’inserimento nelle altre textbox.

If textbox2.text = “” then msgbox (“hai dimenticato il nome del  percorso”, Msgboxstyle.Exlamation, “ATTENZIONE”) e anche in questo caso :exit sub

E poi

If textbox3.text = “” then msgbox (“hai dimenticato la distanza”, Msgboxstyle.Exlamation, “ATTENZIONE”)  : exit sub

If textbox1.text= “” then msgbox (“attenzione

If textbox3.text = “” then msgbox (“hai dimenticato il tempo”, Msgboxstyle.Exlamation, “ATTENZIONE”)  : exit sub

Quindi

Scrivi=disco.appendtext(“c:\nomefile.txt”)

Createtext lo crea, appendtext  invece ci permette di aggiungere testo, se il file non esiste lo crea.

Ora aggiungo nel file la riga di testo inserita nella textbox1

Scrivi.writeline (Textbox1.text)

Scrivi.writeline (Textbox2.text)

Scrivi.writeline (Textbox3.text)

Scrivi.writeline (Textbox4.text)

Scrivi.close

Infine facciamo visualizzare al prg un messaggio

Msgbox (“dati memorizzati con successo”, msgboxstyle.Information, “Comunicazione”

Ora vado a vedere se esiste nella dir un file con quel nome (non c’è)

quindi lancio il programma.

Occupa 1kb

Miglioriamo il prg facendo scrivere la data al computer

Creiamo una list box con tutte le date  (Ma di che anno?) usiamo invece un controllo messo a disposizione da VB MonthCalendar

Inserisco  MonthCalendar sul form1 che amplierò opportunamente

Per programmarlo, faccio doppio clic su monthcalendar1 ed entro sull’evento di quando l’utente sceglierà il giorno

Con doppio click andiamo sull’evento datachanged

Private Sub MonthCalendar1_DateChanged ()

Io aggiungo

Textbox1.text = monthcalendar1.selectionstart (che è la data selezionata)

Vediamo se funziona.

Memorizziamo 2 corse.

Sfruttiamo questa funzione per cercare i dati della corsa di un certo giorno

Aggiungiamo un pulsante LEGGI

Quando premerò ci dovra essere una data nel textbox

Doppio clic sul button2 leggi

Dim disco as system.io.file

Dim leggi as system.io.streamreader

Dim riga as string

per il msg di errore se non si sceglie una data

If textbox1.text= “” then msgbox (“hai dimenticato la data dell’evento da cercare ”), msgboxstyle.exclamation, “ATTENZIONE” : exit sub

Leggi=disco.opentext (“c:\ nomefile”)

While leggi.peek <> -1 

Creiamo una variabile riga che dobbiamo dichiarare come stringa

Riga = leggi.readline ()

If riga =textbox1.text then exit while

End while

Textbox2.text = leggi.readline ()

Textbox3.text = leggi.readline ()

Textbox4.text = leggi.readline ()

C’è però un problema  vediamo qual è

Miglioriamo il programma mettendo un altro controllo infatti se alla data introdotta per la ricerca   non esiste nelle corse memorizzate è necessario avvertire l’utente

allora creo una variabile controllore di tipo integer  che inizializzo a 0

Lanciamo il prg e memorizziamo 2 corse.

Sfruttiamo questa funzione per cercare i dati della corsa di un certo giorno

Aggiungiamo un pulsante LEGGI

Quando premerò ci dovra essere una data nel textbox

Doppio clic sul button2 leggi

Dim disco as system.io.file

Dim leggi as system.io.streamreader

Dim riga as string

per il msg di errore se non si sceglie una data

If textbox1.text= “” then msgbox (“hai dimenticato la data dell’evento da cercare ”), msgboxstyle.exclamation, “ATTENZIONE” : exit sub

Leggi=disco.opentext (“c:\ nomefile”)

While leggi.peek <> -1 

Creiamo una variabile riga che dobbiamo dichiarare come stringa

Riga = leggi.readline ()

If riga =textbox1.text then exit while

End while

Textbox2.text = leggi.readline ()

Textbox3.text = leggi.readline ()

Textbox4.text = leggi.readline ()

End sub

End class

Miglioriamo il programma mettendo un altro controllo infatti se alla data introdotta per la ricerca   non esiste nelle corse memorizzate è necessario avvertire l’utente

Perciò creiamo utilizziamo la variabile integer controllore che inizializziamo a 0 e che diventerà 1 se la data inserita nella textbox coincide con una data delle corse memorizzate. Una volta usciti dal ciclo While con un if verificheremo il valore di controllore e il prg darà il messaggio adeguato.

Vediamo l’intero codice:

Imports System.IO.File

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim scrivi As System.IO.StreamWriter

        If TextBox1.Text = “” Then MsgBox(“hai dimenticato la data”, MsgBoxStyle.Information, “ATTENZIONE”) : Exit Sub

        If TextBox2.Text = “” Then MsgBox(“hai dimenticato il nome del  percorso”, MsgBoxStyle.Information, “ATTENZIONE”) : Exit Sub

        If TextBox3.Text = “” Then MsgBox(“hai dimenticato la distanza”, MsgBoxStyle.Information, “ATTENZIONE”) : Exit Sub

        If TextBox4.Text = “” Then MsgBox(“hai dimenticato il tempo”, MsgBoxStyle.Information, “ATTENZIONE”) : Exit Sub

        scrivi = IO.File.AppendText(“C:\Users\mavi\pippo.txt”)

        scrivi.WriteLine(TextBox1.Text)

        scrivi.WriteLine(TextBox2.Text)

        scrivi.WriteLine(TextBox3.Text)

        scrivi.WriteLine(TextBox4.Text)

        scrivi.Close()

        MsgBox(“dati memorizzati con successo!”, MsgBoxStyle.Information, “Comunicazione”)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim leggi As System.IO.StreamReader

        Dim riga As String

        Dim controllore As Integer

        controllore = 0

        If TextBox1.Text = “” Then MsgBox(“hai dimenticato la data per la ricerca”)

        leggi = IO.File.OpenText(“C:\Users\mavi\pippo.txt”)

        While leggi.Peek <> -1

            riga = leggi.ReadLine()

            If riga = TextBox1.Text Then controllore = 1 : Exit While

        End While

        If controllore = 1 Then

            TextBox2.Text = leggi.ReadLine()

            TextBox3.Text = leggi.ReadLine()

            TextBox4.Text = leggi.ReadLine()

        Else

            MsgBox(” non ci sono corse in quella data”, MsgBoxStyle.Information, “ATTENZIONE”)

        End If

    End Sub

    Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged

        Textbox1.text = monthcalendar1.selectionstart

    End Sub

End Class

In questa lezione vediamo come leggere un file di testo su disco

Creiamo un nuovo progetto

Inseriamo nel form  una listbox e un pulsante

Faremo doppio clic sul pulsante

Nel la nella sua generale dichiarazione scriveremo

Imports System.io.file

per importare il modulo che si occupa di importare le istruzioni di sistema di input output

Quindi nel private sub button1_click

Dim disco as system.IO.File

Poi creiamo un altro oggetto

Dim leggi as system.IO.StreamReader

Che significa leggi questi dati dal disco (vi ricordate che per scrivere abbiamo usato streamwriter)

Quindi scriviamo

Leggi=disco.opentext (“c:\test.text”) (io l’ho chiamato “C:\Users\mavi\pippo.txt”)

Aggiungiamo un ciclo

While leggi.Peek<> -1

Riga = leggi.readline ()

Che significa leggi riga, ma Riga è una variabile va dichiarata con

Dim riga as string

Peek invece è un metodo che controlla che il flusso dei dati non sia finito

Se abbiamo 2 righe scritte e nella terza non c’è scritto niente il rischio è che con il ciclo vengano lette le righe oltre quelle scritte allora si usa read.peek che controlla che le righe scritte non siano finite

Aggiungo perciò

Listbox1.items.add (riga)

Dopo l’end while devo chiudere il file con leggi.close

Imports System.io.file

Pubblic Class Form1

private sub button1_click

Dim disco as system.IO.File

Dim leggi as system.IO.StreamReader

Dim riga as string

While leggi.Peek<> -1

Riga = leggi.readline ()

Listbox1.items.add (riga)

End While

Leggi.Close()

End sub

End class

Il ciclo While

Creiamo un nuovo progetto nel form inseriamo una listbox e un pulsante

Se vogliamo inserire elementi nella listbox dobbiamo andare nel codice del clic del button 1 e scrivere

Listbox1.items.add(“1”)

Listbox1.items.add(“2”)

E così via

Per evitare di scrivere 10 volte l’istruzione, posso usare il ciclo for to next

In questo modo

Creo una variabile contatore

Dim a as integer

E quindi

For a=1 to 10

Listbox1.items.add(a)

Next

Esiste un’altra istruzione che serve per creare un ciclo

While a <10

Quando premo automaticamente VB scrive end While

È necessario prima di iniziare il ciclo inizializzarlo a 0

A=0

Per farlo incrementare dovremo scrivere nel ciclo

L’istruzione

Listbox1. items.add (a)

E quindi

a=a+1

eseguiamo il programma e verifichiamo

vengono scritti i numeri da 0 a 9

se vogliamo partire da 1 inizializzeremo la variabile a = 1 e  il controllo sarà a<11

Pubblic Class Form1

Private sub button1_click

Dim a as integer

A=1

While a<11

Listbox1.items.add (a)

A=a+1

End While

End sub

End Class

Come leggere e registrare testo su un file importando un modulo System.io

 Creiamo un progetto

Inseriamo un  button

Sappiamo che VB ha già a disposizione  moltissime istruzioni,  queste  vengono caricate automaticamente, alcune però devono essere richiamate, se vogliamo utilizzarle dobbiamo importare nuove specifiche,  in particolare le istruzioni  che ci permettono di gestire file.

Per far questo io devo usare il comando Imports che dovrà essere inserito nella sezione generale dichiarazioni, cioè all’inizio di tutto

Imports System.io.file che significa importa le istruzioni di sistema relative all’input e l’output di file (dati)

Così posso utilizzare le nuove istruzioni

Vado a dichiarare quindi una variabile disco che dichiarerò di tipo System.io.file,

dim disco as  System.io.file

in realtà questa non è una variabile, ma un oggetto, cioè  un’istruzione acronimo che potrò utilizzare per fare altre cose

dichiarandola in quel modo comunico a VB che disco è un’ istruzione che utilizza un sistem.io.file. (I/O significa input output)

Una volta dichiarata potrò utilizzare disco.

A questo punto  dichiaro un’istruzione scrivi

Dim scrivi as system.io.streamwriter

Streamwriter significa flusso di scrittura infatti quando inviamo un testo in scrittura questo è considerato tale

Disco è invece una istruzione di I/O.

  Disco e scrivi sono 2 Variabili oggetto

 Aggiungiamo ora l’istruzione che usa le due variabili oggetto in questo modo

Scrivi= disco.createtext (“c:test.txt”)

Che significa crea un file di testo su disco

c:\test.text è il nome del file creato, che ha un’estensione text perchè è un file di testo, userò altre estensioni per file diversi (esempio jpg per le immagini etc)

ricordo che il nome del file comprende il percorso (path) quindi voi dovrete memorizzare il percorso della directory a cui avete accesso per memorizzare i vs file.

Ora possiamo scrivere

Scrivi.writeline (“Ciao a tutti”)

attraverso l’oggetto scrivi scriviamo la linea di testo “ciao a tutti” nel file creato su disco

Quindi  aggiungo Scrivi.close

Perché è necessario chiudere il file, altrimenti alla prossima apertura potrebbe verificarsi  un errore (un file aperto in scrittura e/o lettura va sempre chiuso)

Proviamo ora il prg

 Verifichiamo che su C  (o sulla dir che avete scelto) è stato creato test.txt

Se voglio aggiungere altre linee aggiungo

Scrivi.writeline (“eccomi qua”)

verificare

Proviamo altre volte e vediamo che le linee non vengono aggiunte al precedente ma sovrascritte.

Se nel form mettiamo una casella di testo in cui si inserisce una frase posso far scrivere il testo inserito nella  textbox1 con l’istruzione

Scrivi.writeline (textbox1.text)

Provare.

Suggerimento: Aggiungere un msgbox con la scritta file creato con successo per dare informazioni all’utente di ciò che sta succedendo.

 codice completo

Imports System.IO.File

Public Class Form1

     Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim disco As System.IO.File

        Dim scrivi As System.IO.StreamWriter

        scrivi = disco.CreateText(“C:\Users\mavi\pippo.txt”)

        scrivi.WriteLine(“Ciao a tutti”)

        scrivi.WriteLine(textbox1.text)

        scrivi.Close()

        MsgBox(“file memorizzato con successo”)

    End Sub

End Class

Radiobutton

Sono i pallini selezionabili per dare una risposta unica

Facciamo ad esempio la domanda

“Qual è la capitale dell’Ungheria”

Inseriamo nei text dei radiobutton

Varsavia

Sofia

Praga

Budapest

Bucarest

Proviamo

Public Class Form1

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

        If RadioButton4.Checked = True Then

            MsgBox(“risposta esatta”)

        End If

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

        If RadioButton3.Checked = True Then

            MsgBox(“risposta errata”, MsgBoxStyle.Critical)

        End If

    End Sub

End Class

Ora inseriamo un’altra domanda in una nuova label

Esempio “Qual è la capitale della Bulgaria”

E altri 5 radiobutton

Con text

Varsavia

Sofia

Praga

Budapest

 Bucarest

 Lanciamo il programma

Come vedete è impossibile selezionare un radiobutton per la prima domanda e uno per la seconda

Risolviamo il problema raggruppando i radiobutton della prima domanda in un contenitore selezionando il controllo Groupbox, e quelli della seconda domanda in un altro groupbox

Ora aggiungiamo un’altra domanda in una label e un textbox per recepire la risposta

Esempio

“In quale continente si trovano la Bulgaria e l’Ungheria?”

Ed infine inseriamo un button con scritto: “premi quando hai dato le tue risposte”

Per scrivere il codice guardo dove si trovano le risposte corrette

Per la prima domanda la risposta giusta è nel radiobox4

Per la domanda 2 nella textbox andrà inserita la stringa “europa”

Per la domanda 3 la risposta giusta è nel radiobox7

Voglio usare la variabile punti che dichiarerò a livello globale

Pubblic class  form1

Dim punti as integer

Poi scriviamo il codice del il button

Dim punti as integer

 Nel private form1_load

Punti=0

Nel button1_click

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RadioButton4.Checked = True Then punti = punti + 1

        If TextBox1.Text = “europa” Then punti = punti + 1

        If RadioButton7.Checked = True Then punti = punti + 1

        MsgBox(“hai totalizzato ” & punti & ” punti”, MsgBoxStyle.Information, “PUNTEGGIO”)

        TextBox1.Text = “”

        punti = 0

    End Sub

Apriamo un nuovo progetto

Con una label Inserisci user name e password

E sotto 2 textbox

Un’altra label con scritto REGISTRATI e

Altre label e textbox

Avviando il programma si apre la finestra e il cursore lampeggia dove devo inserire usernamea sx, ma io voglio che quanmdo si apre il prg il cursore vada sul textbox a destra.

Per far questo vado a modificare le proprietà tabindex che in quella tabella è 4 io la imposto 1, password il 2, email il 3 e conferma il 4 poi quelli a sx 5 e 6.

Questo funziona anche per i pulsanti

Creiamo ora un form con una textbox e un pulsante

Su una label inseriamo una domanda ad esempio qual è la capitale della Francia la risposta dovrà essere inserita dall’utentente nella textbox1

Il programma deve se è giusta msgbox (“risposta esatta”)

If textbox1.text.ToLower=”tevere” then

Msgbox(“Risposta corretta”)

Else

Msgbox(“Risposta sbagliata”)

verificate

  Tolower trasforma tutto in minuscolo,

ToUpper tutto in maiuscolo

Per capire meglio creiamo 2 textbox in una inseriamo una parola e facciamo scrivere nella seconda tutto in minuscolo, poi modifichiamo il codice per scrivere in maiuscolo nella textbox2  la parola inserita nella texbox1 .

Creiamo un traduttore

Casella di testo per la parola italiana

E un’altra per la traduzione

Con sopra le etichette ad esempio italiano inglese

Mettiamo anche un pulsante con traduci

Codice di button1

Se textbox1.text =””ragazzo” then

Textbox2.text= boy

Miglioriamo il prg

L’elenco da cui scegliere lo mettiamo in una combo box e li ordiniamo

Questo quando carico il form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add(“ragazzo”)

        ComboBox1.Items.Add(“penna”)

        ComboBox1.Items.Add(“casa”)

        ComboBox1.Items.Add(“tavolo”)

        ComboBox1.Items.Add(“gatto”)

        ComboBox1.Sorted = True

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedItem = “ragazzo” Then

            TextBox1.Text = “boy”

        ElseIf ComboBox1.SelectedItem = “casa” Then

            TextBox1.Text = “House”

        ElseIf ComboBox1.SelectedItem = “tavolo” Then

            TextBox1.Text = “table”

        ElseIf ComboBox1.SelectedItem = “gatto” Then

            TextBox1.Text = “cat”

        ElseIf ComboBox1.SelectedItem = “penna” Then

            TextBox1.Text = “pen”

        End If

    End Sub

End Class

Vediamo una nuova istruzione di VB

Creiamo un programma che contenga un ciclo (per ripetere un certo numero di volte una serie di istruzioni

 For …. To….. next

(Il next viene automaticamente scritto da VB dopo che ho scritto l’istruzione alfa=3)

 L’istruzione  usa un contatore o indice che varia da (for) 1 a (to) il numero di cicli desiderato che scriveremo dopo il to. Tutte le istruzioni inserite prima del next verranno  ripetute

 L’istruzione che voglio scrivere  è

Msgbox (“tabellina del 3” & alfa)

Il programma non è molto significativo allora scrivo questo codice

Public Class Form1

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim alfa As Integer

        Dim beta As Integer

        alfa = 3

        For beta = 1 To 10

            MsgBox(alfa & ” per ” & beta & ” fa ” & (alfa * beta))

        Next

    End Sub

End Class

Provate il programma ed analizzate le istruzioni

Vi ricordo che

MSgbox apre una finestra di avviso dove vengono scritte le stringhe e i contenuti delle variabili concatenate con la &.

Il ciclo si ripeterà 10 volte

Da soli inserite una combobox per scegliere il numero di cui calcolare la tabellina.

 Basta inserire

alfa = ComboBox1.SelectedItem

e il prg funziona.

Costruiamo ora un nuovo progetto per lo studio della listbox

 Nel form1 mettiamo una listbox e un pulsante

La listbox è simile alla combo box , ma visualizza una finestra più ampia

 Vediamo le tabelline usando una listbox faremo apparire tutta la tabellina

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim alfa As Integer

        Dim beta As Integer

        Dim gamma As String

        alfa = 3

        For beta = 1 To 10

            gamma = alfa & ” per ” & beta & ” fa ” & (alfa * beta)

            ListBox1.Items.Add(gamma)

        Next

    End Sub

End Class

Se vogliamo scrivere tutte le tabelline facciamo scegliere il numero da una combobox e dobbiamo avere l’accortezza all’inizio del nuovo ciclo di cancellare il contenuto della listbox1 con listbox1.items.clear().

Dim alfa As Integer

        Dim beta As Integer

        Dim gamma As String

        ListBox1.Items.Clear()

        alfa = ComboBox1.SelectedItem

        For beta = 1 To 10

            gamma = alfa & ” per ” & beta & ” fa ” & (alfa * beta)

            ListBox1.Items.Add(gamma)

        Next

 Con questo prgramma nella listbox verranno scritte per 10 volte gamma

gamma = alfa & ” per ” & beta & ” fa ” & (alfa * beta)

provate il programma e verificate

 Adesso faremo un programma che utilizza combo e list box

  Ipotizziamo un programma commerciale con i fornitori dei prodotti della nostra azienda , elenco che  voglio visualizzare  scegliendo la città

Perciò nell’item della combo inserirò le città

Genova, Milano e Napoli

Nella list vogliamo vengano inserire i fornitori che operano nella città selezionata nella combo box.

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedItem = “Milano” Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add(“Rossi Mario”)

            ListBox1.Items.Add(“Verdi Giorgio”)

        ElseIf ComboBox1.SelectedItem = “Genova” Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add(“Gialli Aurora”)

            ListBox1.Items.Add(“Grigi Fulvio”)

            ListBox1.Items.Add(“Azzurri Gino”)

        ElseIf ComboBox1.SelectedItem = “Napoli” Then

            ListBox1.Items.Clear()

            ListBox1.Items.Add(“Neri Davide”)

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Create voi  un programma che usi il ciclo For ….. to….. next

….. Buon Lavoro!

Ora voglio vedere un altro controllo la combo box (caselle a tendina o a discesa)

Creo un progetto e nel Form1 inserisco una label1  (text nome) e a fianco una  textbox per l’inserimento del Nome da parte dell’utente, quindi una  label2 (text città) ed infine  una combo box per recepire ed ffrire un elenco di possibilità di scelta, nel caso specifico di città.

Seleziono la combo box, nella sua proprietà items inserirò  le parole che devono essere elencati nella combo box

Esempio

Milano

Genova

Torino

Venezia

Roma

Napoli

Palermo

Provate il programma e selezionate un nome dall’elenco inserito in combobax

Vediamo ora come creare un programma in cui  l’utente può scegliere un valore tra quelli elencati

Inseriamo nel form una textbox, un pulsante e una combo box

Proviamo ad aggiungere elementi nella combo box

Scritto il nome nella textbox clicca sul button e il contenuto della textbox deve essere inserita negli items del combo box

Private sub button1_click

Combobox1.Items.Add (“ciao” )

End Sub

Ma noi vogliamo aggiungere ciò che inserirà l’utente allora invece di ciao metteremo Textbox1.text

Private sub button1_click

Combobox1.Items.Add (Textbox1.text)

End Sub

Provo aggiungendo più città

Andiamo avanti…..

Aggiungiamo una textbox2

Se scelgo un elemento nella combobox1 voglio che venga inserito nella textbox2

L’evento “scegli elemento” nella combo box si chiama SelectindexChanged

Private sub combobox1_ SelectindexChanged

Textbox2.text = combobox1.selectitems

End sub

(L’istruzione preleva l’elemento selezionato nella combobox ed lo inserisce nella textbox2)

(Prg come funziona una combo)

Provate!

Ora creo un nuovo programma con una combo

In items scrivo 5 citta

Ora programmiamo il button1 per eliminare elementi

Al premere del button1 rimuovi ciò che hai selezionato nella combobox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ComboBox1.Items.Remove(ComboBox1.SelectedItem)

End Sub

Creiamo ora un nuovo programma per le tabelline

10 label una textbox e una combobox in cui metteremo i numeri 1,2,3, ….9

Come items

Public Class Form1

Dim alfa As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

alfa = ComboBox1.SelectedItem

Label1.Text = “tabellina del” & alfa

Label2.Text = alfa * 2

Label3.Text = alfa * 3

Label4.Text = alfa * 4

Label5.Text = alfa * 5

Label6.Text = alfa * 6

Label7.Text = alfa * 7

Label8.Text = alfa * 8

Label9.Text = alfa * 9

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Nella lezione 3 abbiamo creato l’interfaccia della calcolatrice che somma 2 numeri, e i tasti numerici

programmiamo ora la routine del tasto + e del tasto =

una volta scritto il nostro numero nella textbox, per non perdere il suo valore al premere del +

vogliamo memorizzarlo in una variabile per poterlo sommare al successivo valore inserito nella textbox. Lo facciamo con la seguente istruzione

numero= val(textbox1.text) cioè abbiamo messo nella variabile numero il valore di ciò che è inserito nella textbox (il contenuto era una stringa). Tuttavia la variabile numero non è conosciuta da Vb (sottolineato l’errore) il debug ci dice numero non dichiarato, perciò devo dichiararla.

Lo farò con

Dim numero as integer

Ma se la scrivo nella private button1_click verrà conosciuta solo se schiaccio il button1, per averla in tutto il Form, la dovrò dichiarare nella parte pubblica

La scriverò perciò sotto pubblic class Form1

A questo punto, memorizzato il valore nella variabile numero, devo azzerare il display (la textbox) lo farò con la seguente istruzione textbox1.text = “ ”

Provate ad eseguire e controllate l’effetto.

Ora devo programmare il tasto =

Textbox1.text = numero + val(textbox1.text)

Abbiamo Così creato una calcolatrice che somma due numeri.

Questo è l’intero codice:

Public Class Form1

Dim numero As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = TextBox1.Text + “1″

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = TextBox1.Text + “2″

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

TextBox1.Text = TextBox1.Text + “3″

End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox1.Text = TextBox1.Text + “4″

End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click

TextBox1.Text = TextBox1.Text + “5″

End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click

TextBox1.Text = TextBox1.Text + “6″

End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click

TextBox1.Text = TextBox1.Text + “7″

End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click

TextBox1.Text = TextBox1.Text + “8″

End Sub

Private Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click

TextBox1.Text = TextBox1.Text + “9″

End Sub

Private Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.Click

TextBox1.Text = TextBox1.Text + “0″

End Sub

Private Sub Button11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.Click

numero = Val(TextBox1.Text)

TextBox1.Text = “”

End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

TextBox1.Text = TextBox1.Text + numero

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Creiamo ora un nuovo programma

Rinominiamo il Form1 in MIO PROGRAMMA

Inseriamo un pulsante grande con su scritto PREMI QUI

Ora inseriamo una label con scritto …. Aspetto

Doppio clic sul button1 ed inserisco nella label1 la scritta ciao

Label1.text = “CIAO”

Il programma non è molto interessante, ma mi serve per  farvi vedere come memorizzare.

FILE – SALVA TUTTO  scelgo come nome  PROVA e salvo. Ora chiudo VB e  vado nella cartella dove ho salvato il mio  progetto. Nella cartella Prova trovo un’altra cartella di nome Prova   in questa c’è una cartella bin e dentro ancora debug e dentro c’è un file di tipo applicazione lo trascino  sul desktop. Questo   è un file eseguibile, provo a lanciarlo fuori dall’ambiente VB per esserne convinta.

In questo nuovo programma utilizzeremo i concetti affrontati finora e nelle precedenti lezioni.

Creiamo un nuovo programma in cui inseriamo un textbox e un  button che chiameremo ACCEDI per accedere ad una pw e creiamo sopra i tasti della calcolatrice con i numeri dall’1 allo 0 che con la proprietà VISIBLE rendiamo invisibili.

Per fare in modo che l’utente possa adoperare la calcolatrice solo se si inserisce la pw giusta , in questo momento è visibile solo il tasto ACCEDI al quale applicheremo la routine

If textbox1.text = “mandrake” then

Button2.visible= true

…………

………….

Button13.visible= true

Button1,visible= false

End if

(Con il tasto TAB mi completa la parola)

E alla fine button1.visible= false mi fa sparire il tasto accedi.

Creiamo un nuovo progetto  che chieda  che se corretta ci farà entrare in una pagina che vogliamo tenere segreta (ad esempio numeri telefonici o pw di conto corrente, ecc)

Creiamo un textbox, una label e un button

Andiamo su Progetto aggiungi windows form (Form2)

Inseriamo un richtextbox grande sul form2

Con il tasto dx e scegliamo modifica righe di testo

Scriviamo i numeri dei nostri cell

Vogliamo che se inserito la pw giusta si acceda al form2

Programmiamo il button1 del form1

Verifica se quello che scritto nel textbox1 è la pw giusta

If textbox1.text= “mandrake”  then

Form2.show

seguono () le parentesi che ora non ci interessano

voglio anche che form1 sparisca

Form1.Hide ma qui non funzionerebbe perchè

form1 conosce se stesso come Me e non come Form1 devo scrivere

Me.Hide

Quindi scrivo la mia routine sul button1 in questo modo

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = “mandrake” Then

Form2.Show()

Me.Hide()

End If

End Sub

End Class

Ora voglio rendere ancora più difficile l’accesso utilizzando la label  dimensionata con 3 spazi

Imposto la proprietà  visible del pulsante ACCEDI su false

Così come la proprietà visible  della textbox1

programmo   label1 (doppio clic per aprire l’editor del codice) in questo modo

Private sub Label1_click

Button1.Visible = True

Textbox1.visible = true

End sub

Cioè si visualizzano bottone textbox se si preme sulla label che solo io so dov’è

Ora vediamo una nuova istruzione VB

In vari programmi che voi usate esistono delle finestre di errore

Creiamo un nuovo programma

Mettiamo un pulsante

Lo programmiamo

Entriamo nell’area del codice e programmiamo l’evento click del button

L’istruzione per far apparire quelle finestre d’errore

Masgbox  (scatola con messaggio)

Scriviamo una parentesi (

VB ci aiuta proponendoci  le opzioni , ma noi scriviamo solo

“Si è verificato un errore”  e chiudo la )

Provo il prg

Vedete al clic sul pulsante si apre una finestra con la mia scritta e il bottone OK per uscire

Voglio ora aggiungere opzioni

Metto una virgola dopo la chiusura delle ”

Viene evidenziato varie opzioni per esempio scelgo Msgboxstyle.critical

Provate Aspetto critico! (carino vero!)

Ora proviamo a scegliere un altro stile

Information

Provate l’effetto.

Allenatevi ed imparate un po’ di stili

Metto un’altra virgola e scelgo il titolo  “Avviso” che sarà il titolo della finestra

Nella calcolatrice se viene inserita la pw sbagliata si può far aprire una finestra di errore.

Ci occuperemo ora delle VARIABILI in VB

Creiamo un nuovo progetto inseriamo nel form un button

Doppio clic per entrare nell’editor del codice oppure visualizza codice oppure F7

Scegliamo button1 scegliamo clic

In default avremo una parte di codice

Dobbiamo dichiarare le variabili (variabile in informatica è una scatola che può contenere numeri, stringhe etc

Dim nome variabile che io voglio chiamare cup  e aggiungo As integer che significa la dichiaro numero integer. Nella variabile cup voglio che ci sia 10 e scrivo cup= 10 e poi scrivo button1.text = cup

Alcune scritte sono in blue perché sono parole Basic altre sono nere perché inserite dal programmatore

 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cup As Integer

        cup= 10

        Label1.Text = cup

    End Sub

End Class

Proviamo il nostro programma.

 

Lasciamo per un attimo il nostro programma, perchè voglio parlarvi delle variabili:
In Visual Basic esistono diversi tipi di variabili che si differenziano tra loro a seconda dei dati contenuti, andiamo a vedere le più utilizzate:

BYTE: Utilizzato per numeri interi compresi tra 0 e 255, in memoria occupa un byte.

BOOLEAN: Può contenere solo due valori: “true” e “false”, e in memoria occupa 2 byte.

INTEGER: Può contenere numeri interi compresi tra -32768 e 32768 ed occupa 2 byte.

LONG: Contiene numeri interi compresi tra -2147483648 e 2147483648 ed occupa 4 byte.

SINGLE: Può contenere valori a virgola mobile ed occupa 4 byte

DOUBLE: Contiene ugualmente numeri a virgola mobile, solo che è il doppio del single ed occupa 8 byte

STRING: Contiene caratteri alfanumerici ed occupa 63 KB, anche se si può limitarne la grandezza

VARIANT: E’ il tipo in cui vengono trasformate le variabili non dichiarate e può contenere sia numeri che stringhe.

Vogliamo ora vedere come in VB si dichiarano le variabili

Inserisco un button sul form1

Clicco 2 volte sul button per aprire il codice (oppre visualizza codice oppur F7)

Inserisco le seguenti

Dim cup as integer       <                       per dichiarare che useremo una variabile di nome cup di tipo integer

cup  =10   <                   assegno il valore 10 alla variabile cup

Button1.text = cup   <                    scrivo il valore della variabile cup sul text del pulsante

Proviamo un secondo programma

Dim cup as integer

Dim glass as integer

cup =10

glass =5

 Button1.text = cup + glass

Proviamo il programma per il * per il / e per il –

Se volessimo scrivere un testo sul pulsante dovremo dichiarare la nostra variabile cup come string cioè alfanumerica, quando vorremo assegnare il contenuto in ok la frase dovrà essere scritta tra virgolette

Dim cup as string

cup = “mio pulsante”

Button1.text = cup

Le variabili string possono anche essere concatenate (con l’operatore +)

Dim cup as string

Dim glass as string

cup = “mio pulsante ”

glass= “nuovo”

Button1.text = cup + glass

Ora dichiariamo due variabili  a e b di tipo string e una variabile x di tipo integer

Dim a as string

Dim b as string

Dim x as integer

a= “10”

b= “5”

x= a+ b

Button1.text = x

Provate il risultato è curioso!!!!

 Provate ora così

Dim a as string

Dim p as string

Dim x as integer

a= “10”

b= “5”

x= val(a)+ val(b)

Button1.text = x

Come avrete capito l’istruzione val trasforma la stringa nel suo valore

Creiamo ora 2 label e 2 textbox e 2 pulsanti

Nella label 1 scriviamo RISULTATO

Sul button1 scriviamo SOMMA

Sul button2 scriviamo AZZERA

Scriviamo quindi il seguente codice

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = “”

        TextBox2.Text = “”

        Label2.Text = “”

    End Sub

End Class

Vogliamo ora creare un progetto per il controllo di una password

Form1 lo chiameremo area riservata

Una etichetta con scritto Password

Allineamo sulla dx un textbox

Un’altra label con text vuoto  con font 14 e sfondo rosso

E un button con scritta ENTRA

Vogliamo, scelta una password ad esempio mandrake che al premere del pulsante entra visualizzi nella label2 la scritta ACCESSO CONSENTITO se la pw coincide, altrimenti ACCESSO NEGATO.

Useremo l’istruzione if …… then……. else

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = “mandrake” Then Label2.Text = “ACCESSO CONSENTITO” Else Label2.Text = “ACCESSO NEGATO”

    End Sub

End Class

Compito:

Creare una calcolatrice per fare le somme

Selezioniamo il pulsante 1 e nel text mettiamo 1

Facciamo analogamente su tutti gli altri numeri

Quindi + e = sugli altri bottoni.

      Per scrivere più cifre bisogna

Al clic del pulsante 1 attiva il seguente comando (concatena numeri)

Textbox1.text= textbox1.text + “1”

E analogamente gli altri numeri

Ora a voi le routine sui tasti + e =   …..   buon lavoro!

Vi ricordo gli operatori aritmetici del vb:

+ Per l’addizione
- Per la sottrazione
* Per la moltiplicazione
/ Per la devisione con quoziente decimale
\ Per la divisione dove si vuole ottenere il quoziente intero
mod Per ottenere il resto di una divisione
^ per l’elevamento a potenza

Qui sotto vi elenco alcune delle principali proprietà degli oggetti di uso più frequente:

Name: è il nome utilizzato nel codice per distinguere una form o un oggetto

Backcolor: Determina il colore di sfondo di una form o di un controllo
Forecolor: Impsta il colore del carattere di un controllo
Text: determina il testo di un controllo
Enabled: Determina se un controllo è attivo, cioè se può essere usato o meno da un utente
Font: Specifica la formattazione del testo di un controllo
Height: Imposta l’altezza di un oggetto in pixel
Widht: imposta la larghezza di un oggetto in pixel.
Visible: Indica se l’oggetto è visibile o meno

le altre non le spiego ora, perchè il bello della programmazione è anche scoprire cose nuove da soli, magari inventandovi un nuovo programma, se non ci riuscite  ……  sapete dove trovarmi !

La casella degli strumenti o toolbox contiene tutti gli strumenti utilizzati in fase di progettazione per inserire gli oggetti all’interno dei form in modo da permettere l’interazione con l’utente.

Questi oggetti vengono chiamati controlli

La finestra esplora soluzioni elenca i file usati nella fase di programmazione del progetto e dà la possibilità di accedere ad essi

La finestra proprietà contiene le impostazioni delle proprietà del controllo selezionato, cioè delle sue caratteristiche

Che contiene

La casella degli oggetti

Le Schede di ordinamento

L’elenco proprietà

Le fasi di realizzazione di un progetto VB

Il processo di realizzazione di una applicazione in VB è costituito da 3 fasi principali

1. 1.       Creazione dell’interfaccia utente

La prima fase per la creazione di un’applicazione VB consiste nel creare i form che costituiscono la base per l’interfaccia dell’applicazione, e nel disegnare i controlli che assemblano l’interfaccia nei form creati. Rappresenta la fase di definizione di tutti gli oggetti che saranno utilizzati nel progetto.

1. 2.       Impostazione delle proprietà

In questa fase si impostano le proprietà degli oggetti creati attraverso la finestra Proprietà. E’ questo il momento della descrizione degli oggetti componenti il progetto

1. 3.       Scrittura del codice VB

In quest’ultima fase si scrive il codice Basic relativo ai vari controlli presenti nei form. In altri termini, aggiungere il codice significa “istruire” ogni controllo in modo da poter stabilire cosa deve “succedere” quando scatta un determinato evento, e così via. Per scrivere il codice VB viene utilizzata la finestra dell’editor del codice (alla quale si accede con un doppio click sul controllo). Il codice consiste in una serie di istruzioni e dichiarazioni in linguaggio VB scritti secondo i classici canoni della programmazione imperativa. Al termine di queste fasi si potrà procedere alla creazione dell’eseguibile.

 

Durante la realizzazione di u progetto VB si trova in distinte modalità

1. Modalità di progettazione (design) mentre si progetta l’interfaccia e si scrive il codice
2. Modalità di esecuzione (run) quando si esegue il progetto
3. Modalità di interruzione (break) quando si è in presenza di un blocco del progetto

 

 

Con VB potete creare ogni tipo di programma

Prendiamo ad esempio un programma di videoscrittura:  Word

Per poterlo realizzare nella sua interezza dobbiamo saper programmare, tuttavia per realizzarlo da un punto di vista grafico metteremo 3 button un combo box e un richtextbox

Sulla barra del titolo vogliamo scrivere documento 1 – Microsoft Word con text del form scriviamo documento 1 – Microsoft Word

Proviamo con run

3 button

Cambiamo immagine con image

E poi un combo box per una casella a discesa

E in items

Scriviamo in colonna 8 9 10 11 12 14 16

Quindi richtextbox una pagina dove scrivere

E proviamo con run

Abbiamo così costruito un programma di videoscrittura nella sua parte grafica, per il suo funzionamento ovviamente bisogna avere una buona capacità di programmazione cosa che potrete sviluppare dopo uno studio approfondito.

Ora prenderemo in considerazione alcuni controlli di base:

Il controllo Label cioè la classe delle etichette

Selezioniamo il controllo       Il controllo Label viene utilizzato per inserire un testo non modificabile dall’utente, pertanto utile per inserire titoli, commenti e descrizioni varie.

Trascinandolo sul form  (oppure doppio clic sul controllo)

Selezioniamo il controllo label e sulla finestra proprietà vedremo le sue caratteristiche size

Oppure autosize true significa che io non posso dimensionare, e la dimensione si adatterà a ciò che è scritto, se dico false, posso impostare per esempio a 200.

Cambiamo la sua proprietà “text”, (che di default è “label1) in “ciao”.  E proviamo con autosize true.

Selezioniamo font ed impostiamo su garamond e possiamo scegliere la dimensione del carattere

Se vogliamo la scritta Sottolineata selezioniamo underline true

Per modificare il colore del testo Forecolor azzurro

Per rendere la label invisibile visible false

…………. Divertitevi a provare e modificare le varie proprietà

Abbiamo così capito come funziona il controllo Label

Selezioniamo ora il controllo button

Pulsante

Se lo seleziono la finestra delle proprietà evidenzierà le sue caratteristiche

Scriviamo utilizzando sempre la proprietà text   PREMI sul button

anche qui con font scegliamo carattere e dimensioni .

E ora ritorniamo  in VB e Creiamo il nostro Programma

Abbiamo inserito  nel nostro Form1 una label con  la scritta “ciao” e un pulsante OK

vogliamo creare un programma che al premere sul pulsante ok faccia cambiare la scritta della label da “ciao” ad “addio”.

Clicchiamo 2 volte sul pulsante ok si aprirà una pagina chiamata pagina di editor sulla sinistra esiste una casella a discesa che contiene i controlli presenti sul form. Sulla dx sono indicati gli eventi (Clic,enter, Double clic ecc) che posso attivare sul controllo selezionato (in questo caso il button)

Ci sono poi delle strane scritte, si tratta di parole scritte in basic

Il nostro programmino  (routine)andrà inserito tra  Private sub e End sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

………………………

    End Sub

Dopo aver fatto doppio clic sul pulsante button1

Selezioniamo l’evento clic sulla destra, si evidenzierà automaticamente la seguente scrittura

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

Tra private sub ed end sub dovremo scrivere le nostre istruzioni e cioè: label1.text=”Addio”, il nostro programma avrà così il seguente effetto:al clic sul button al  text del button verrà assegnato il valore “Addio”

Come avete notato le proprietà di un oggetto vengono scritte con nome oggetto punto nome proprietà, così come per i metodi, mentre l’evento è denominato nome oggetto underscore (trattino basso) evento come vedremo nelle prossime lezioni.

Crea il tuo primo programma

Il tuo  primo progetto sarà un semplice programma che prevede la visualizzazione della scritta “complimenti hai realizzato il tuo primo programma VB” quando si fa clic sul pulsante di comando e che si chiude facendo clic su un pulsante Esci. (comando END)

Soluzione