Esercizio 49 pag.301 Visual Basic

50 %
50 %
Information about Esercizio 49 pag.301 Visual Basic

Published on January 6, 2008

Author: vane1989

Source: slideshare.net

Description

Questa presentazione e su un esercizio in visual basic

Presentazione esercizio 49 pag. 301 Paternicò Vanessa 3c Mercurio

Testo del problema Dati N studenti partecipanti a una gara sportiva di velocità (nome studente, categoria,tempo), visualizzare il tempo dello studente vincitore (tempo minimo) tra gli studenti della categoria “ allievi”.

Dati N studenti partecipanti a una gara sportiva di

velocità (nome studente, categoria,tempo),

visualizzare il tempo dello studente vincitore

(tempo minimo) tra gli studenti della categoria

“ allievi”.

Dati in input N = Numero studenti Nome = Nome studente Cat = Categoria Temp = Tempo

N = Numero studenti

Nome = Nome studente

Cat = Categoria

Temp = Tempo

Dati in output Tm = Tempo minimo nella categoria “Allievi” Nv = Nome studente vincitore.

Tm = Tempo minimo nella categoria “Allievi”

Nv = Nome studente vincitore.

Dati di elaborazione Cont = Contatore ContA = Contatore allievi

Cont = Contatore

ContA = Contatore allievi

Pseudocodice Inizio Leggi (N) Cont = 0 ContA = 0 Ripeti Cont = Cont +1 Leggi (Nome, Cat, Temp) Se Cat = “Allievi” allora ContA = ContA +1 Se ContA = 1 allora Tm = Temp Nv = Nome altrimenti Se Temp < Tm allora Tm = Temp Nv = Nome Fine se Fine se Fine se Fino a che Cont = N Scrivi ( Nv, Tm) Fine

Inizio

Leggi (N)

Cont = 0

ContA = 0

Ripeti

Cont = Cont +1

Leggi (Nome, Cat, Temp)

Se Cat = “Allievi” allora

ContA = ContA +1

Se ContA = 1 allora

Tm = Temp

Nv = Nome

altrimenti

Se Temp < Tm allora

Tm = Temp

Nv = Nome

Fine se

Fine se

Fine se

Fino a che Cont = N

Scrivi ( Nv, Tm)

Fine

Inizio N i Cont = 0 ContA = 0 Cat, Temp, None i Cat = “Allievi” Cont = Cont + 1 V F ContA = ContA +1 B A ContA = 1 V F Tm = Temp Nv = Nome Temp <Tm Tm = Temp Nv = Nome B A C Fine o Tm, Nv Cont = N F V C

Costruzione form TxtBox Nome: TxtNumero Label Nome: LblNumero Command Nome: CmdPremi Command Nome: CmdEsci

Option Explicit 'Dati di input Dim N As Integer Dim Nome As String Dim Cat As String Dim Temp As Double 'Dati di output Dim TM As Double Dim NV As String 'Dati di elaborazione Dim Cont As Integer Dim ContA As Integer

Seleziona CmdPremi

Option Explicit 'Dati di input Dim N As Integer Dim Nome As String Dim Cat As String Dim Temp As Double 'Dati di output Dim TM As Double Dim NV As String 'Dati di elaborazione Dim Cont As Integer Dim ContA As Integer Private Sub CmdPremi_Click() End Sub Qui scriviamo il codice!!

i N Option Explicit 'Dati di input Dim N As Integer Dim Nome As String Dim Cat As String Dim Temp As Double 'Dati di output Dim TM As Double Dim NV As String 'Dati di elaborazione Dim Cont As Integer Dim ContA As Integer Private Sub CmdPremi_Click() N = Val(TxtNumero.Text) End Sub

Azzeramento variabili Private Sub CmdPremi_Click() N = Val(TxtNumero.Text) Cont = 0 ContA = 0 End Sub Cont = 0 ContA = 0

Istruzioni che rappresentano l’inizio e la fine del ciclo Private Sub CmdPremi_Click() N = Val(TxtNumero.Text) Cont = 0 ContA = 0 Do Loop Until Cont = N End Sub Istruzioni di inizio e di fine

Otteniamo questo risultato Do Cont = Cont + 1 Nome = InputBox(&quot;Inserisci il nome&quot;) Cat = InputBox(&quot;Inserisci la categoria&quot;) Temp = InputBox(&quot;Inserisci il tempo&quot;) If Cat = &quot;Allievi&quot; Then ContA = ContA + 1 If ContA = 1 Then TM = Temp NV = Nome Else If Temp < TM Then TM = Temp NV = Nome End If End If End If Loop Until Cont = N Istruzioni di input Funzione se

Ecco i risultati Loop Until Cont = N MsgBox &quot;Il nome del vincitore è &quot; & CStr(Nome) MsgBox &quot;Il tempo minimo è &quot; & CStr(Temp) End Sub Istruzioni di Output

Ecco la fine Seleziona e clicca su CmdEsci

Otteniamo questo risultato Private Sub CmdEsci_Click() End End Sub

Add a comment

Related presentations

Related pages

esercizio 49 pagina 301 Visual basic Marco Fabbrini | 5C ...

Questo articolo spiega come si fa a tradurre l’esercizio 49 a pagina 301 in visual basic.
Read more

Presentazione Es 49 Pag 301 Visual Basic - Technology

1. Presentazione esercizio 49 pag. 301 di Marco Fabbrini 3c Mercurio Spiegazione del programma in Visual Basic 2. Testo del problema Dati N studenti ...
Read more

Esercizio Visual Basic - Technology - Discover, share ...

Visual Basic 1. Es. 49 pag. 301 Lorenzo Tofanari Dati N studenti partecipanti a una gara sportiva di velocità (nome studente, categoria, tempo ...
Read more

visual basic 8- area quadrato - YouTube

visual basic 8- area quadrato ... 49 L'INPUTBOX in Visual ... visual basic 8 esercizio-promosso o bocciato - Duration: 6:33.
Read more

Forum Esercizi scolastici VB | Archivio del forum HTML.it

Forum HTML.it > Lato server > Programmazione > Visual Basic e .Net Framework > Esercizi scolastici VB. PDA. ... 49. ah ok grazie per il consiglio del code
Read more

Esercizio 48 Pag. 301 di Francesca Gherardotti | 5C ...

Di seguito riporto la spiegazione dell’esercizio 48 pag.301 con: Descrizioni Dati Input e Ouput. Diagramma a Blocchi. ... ← Esercizio visual basic.
Read more

A scuola con Visual Basic

Esercizio 49: Dizionario dei sinonimi ... Così possiamo terminare l’esercizio e uscire da Visual Basic. 48 Qui girare è sinonimo di funzionare.
Read more

Errore esercizio Visual Studio 2010

Microsoft Visual Basic Forum http://social.msdn.microsoft.com/Forums/it-IT/55fecba8-a107-46ee-b776-82cdac671a62/errore-esercizio-visual-studio-2010 ... 49 ...
Read more