Applicazione del 13-10-2010

Esercizio: Creare la “lista studente” con la proprietà “media dei voti”. Creare un form con una lista di 5 studenti e dichiarare per ogni studente la classe “media dei voti”. Aggiungere ogni studente alla classe. Calcolare la media dei voti dei 5 studenti.

1.   Si crea un form al quale vengono applicati: 

• Bottone: utilizzando l’applicazione “Button” dalla casella degli strumenti;
• Casella di testo: utilizzando l’applicazione “TextBox” dalla casella degli strumenti; 

2.   Si crea la classe studente con la proprietà media

 Public Class studente   

  Public media As Integer

End Class   

3.  Si scrive il programma nell’evento click 

Programma: 

Public Class Form1  

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

 ‘istanziare la lista:’

        Dim lista_studenti As New List(Of studente)  

    

    ‘dichiara lo studente1 e il suo voto medio:’      

   Dim studente1 As New studente   

      studente1.media = 29       

 

    ‘aggiunge lo studente1 alla lista:’     

    lista_studenti.Add(studente1)        

    Dim studente2 As New studente      

    studente2.media = 28   

    lista_studenti.Add(studente2)

 

    Dim studente3 As New studente  

    studente3.media = 24        

    lista_studenti.Add(studente3)  

 

    Dim studente4 As New studente  

    studente4.media = 21

    lista_studenti.Add(studente4)  

    

    Dim studente5 As New studente

    studente5.media = 26  

    lista_studenti.Add(studente5)  

 

  ‘Calcolare la media dei voti’  

   ‘Dichiarare la variabile somma_media e la variabile contatore’  

       Dim somma_media As Double   

      Dim contatore As Integer         

 

‘struttura iterativa: calcola la somma dei voti medi

di ogni studente (For i= 0:num degli studenti’      

‘presenti nella lista_studenti)‘     

    For Each stud As studente In lista_studenti      

       somma_media = somma_media + stud.media        

 

‘implementa il contatore per contare quanti sono gli studenti’      

       contatore = contatore + 1      

   Next      

 

   ‘dichiara la variabile media_tot e calcola la media totale dei voti dividendo’    

    ‘ la somma_media con il contatore che coincide

 con il numero degli studenti’     

    Dim media_tot As Double = somma_media / contatore       

 

 ‘visualizza il risultato nella casella di testo che è stata

inserita nel form’     

    Me.RichTextBox1.Text = media_tot   

  End Sub

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

 

 

Download Applicazione:

http://www.megaupload.com/?d=25M8P5IN

Lezione del 13-10-2011

Le liste

Nei linguaggi tradizionali erano presenti solo degli Array. Gli array sono un insieme ordinato di oggetti indicizzati. La struttura array è costituita da:

•  un insieme finito di nodi, ciascuno costituito da un’unica componente scalare ( tutte le componenti di un array sono dello stesso tipo e sono memorizzate in voci consecutive);
•   un metodo di strutturazione, che è la relazione di ordine stretto definita sull’insieme degli indici (ogni indice identifica la posizione occupata dalla componente corrispondente).

Ancora oggi esistono gli array però non sono più usati in quanto sono molto statici. Nei linguaggi moderni sono previsti dei contenitori di oggetti più semplici e dinamici: le liste.

Le liste sono degli insiemi che contengono istanze di una o più classi, in genere della stessa classe che a differenza degli array consentono di aggiungere e togliere oggetti.

• Per istanziare una nuova lista:

Dim Mylist As New List (of tipo)

–         Mylist  è il nome che viene dato alla lista creata;

–         List è la classe lista;

–         Il tipo può essere di vario genere ( integer, form, String, ecc)

 

• Per aggiungere elementi ad una lista:

Mylist. Add 

–          Mylist  è il nome dato alla lista;

–         Add è il metodo che aggiunge elementi ad una lista

 

Strutture di controllo

Le strutture di controllo determinano l’ordine con cui devono essere eseguite le istruzioni, sono indipendenti dalla natura delle istruzioni e sono degli strumenti logici universali utilizzabili in qualsiasi problema.

Le strutture di controllo posso essere classificate in:

–         Sequenza;

–         Selezione;

–         Iterazione o ripetizione.

1)   Struttura di selezione

 If  (condizione) Then

Istruzione1

Else

Istruzione2

Endif

Può essere anche del tipo:

If(condizione) Then

Istruzioni

Endif

2)    Struttura di iterazione :

• Tipo For

For  i=1,N Do

Istruzioni

Endfor

•  Tipo While

While (condizione) Do

Istruzioni

EndWhile

•  Tipo Repeat-Until              

Repeat

Istruzioni

Until (condizione)

Strutture iterative a confronto:

–         Il For richiede che sia noto a priori il numero di iterazioni da svolgere da effettuare;

–         Il While e il Repeat non richiedono tale informazione;

–         Nel While se la condizione è falsa non si esegue alcuna istruzione del ciclo;

–         Nel repeat le istruzioni del ciclo sono eseguite almeno una volta;

–         Nel While la condizione determina l’entrata nel ciclo;

–         Nel Repeat-untile  la condizione determina l’uscita dal ciclo.

Le strutture iterative possono essere innestate l’una nell’altra.

Applicazione dell’ 11-10-2011

Esercizio: mostrare un form cariando delle immagini che cambino ogni tot secondi. Creare un secondo form nel quale ci sia un servizio sveglia

1. Si crea un form al quale vengono applicati:

• Bottone: utilizzando l’applicazione “Button” dalla casella degli strumenti;
• Timer: utilizzando l’applicazione “Timer” dalla casella degli strumenti;
• Immagine: utilizzando l’applicazione “PictureBox” dalla casella degli strumenti;
• Ora: utilizzando l’applicazione “DateTimePicture” dalla casella degli strumenti (modificando nelle proprietà il formato e impostarlo come “Time”);

 2. Si caricano nel programma le immagini che si vogliono far alternare nel form:  

My progetc – Risorse – Aggiungi Risorsa- Aggiungi File esistente

Programma: 

Public Class Form1 

   ‘quando  si carica  il form 1 si mette subito il timer: ‘

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

  ‘comando che fa partire il timer all’avvio del form1:’

 Me.Timer1.Start()

MessageBox.Show(“svegliaaaaaa”, “sveglia”, MessageBoxButtons.OK) 

End Sub 

 ‘dichiarazione del contatore:’

Public contatore As Integer 

‘dichiarazione dell’ evento tick:’

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

‘inizializzazione del contatore:’

       Me.contatore += 1     

   Select Case Me.contatore   

     Case Is = 1

 ‘carica l’immagine che è stata memorizzata nelle risorse:’

        Me.PictureBox1.Image = My.Resources.castel_dellovo_napoli       

 Case Is = 2     

            Me.PictureBox1.Image = My.Resources.napoli_b100824b_big         

    Case Is = 3        

         Me.PictureBox1.Image = My.Resources.Napoli_maschio_angioino        

     Case Is = 4             

    Me.PictureBox1.Image = My.Resources.napoli2

 ‘ per far ricominciare lo scorrimento delle immagini si impone il contatore uguale a zero:’

                Me.contatore = 0  

        End Select    

  End Sub    

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

    End Sub    

  Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

     End Sub     

Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs).Handles PictureBox1.Click  

    End Sub End Class    

Download Applicazione:

http://www.megaupload.com/?d=T7DH6HKN