Basic
<<  Примеры символьной графики Графика в Бейсике  >>
PROGRAMMARE IN VISUAL BASIC
PROGRAMMARE IN VISUAL BASIC
PROGRAMMARE IN VISUAL BASIC
PROGRAMMARE IN VISUAL BASIC
Cassette
Cassette
Cassette
Cassette
Tessere
Tessere
Noleggi
Noleggi
Noleggi
Noleggi
Noleggi
Noleggi
Utente
Utente
Form Cassette
Form Cassette
Form Tessere
Form Tessere
Form Noleggi
Form Noleggi
Form Generi
Form Generi
Form Utente
Form Utente
Gruppi di lavoro
Gruppi di lavoro
The End
The End
Картинки из презентации «PROGRAMMARE IN VISUAL BASIC» к уроку информатики на тему «Basic»

Автор: Prof. Di Gerlando. Чтобы познакомиться с картинкой полного размера, нажмите на её эскиз. Чтобы можно было использовать все картинки для урока информатики, скачайте бесплатно презентацию «PROGRAMMARE IN VISUAL BASIC.PPT» со всеми картинками в zip-архиве размером 789 КБ.

PROGRAMMARE IN VISUAL BASIC

содержание презентации «PROGRAMMARE IN VISUAL BASIC.PPT»
Сл Текст Сл Текст
1PROGRAMMARE IN VISUAL BASIC. Progetto 16noleggi. CassetteRitardo. Numerico. Byte.
Docente. Gestione di una “Videoteca”. Numero cassette da restituire.
Prof. F. Di Gerlando. Classe V ImportoNoleggi. Valuta. Euro. Totale
Programmatori. Anno Scolastico 2002-2003. importo noleggiate. Note. Memo. Memo.
I.T.C. Don M. Arena. Sciacca. 1. Promemoria. 16.
2GESTIONE DI UNA VIDEOTECA. Progetto. 17Noleggi. Generi. IDNoleggio.
Interfacce. Codice. Presentazione. CodiceGenere. Contatore. Intero lungo.
Modellazione. 2. Chiave primaria. CodiceTessera. Numerico.
3Introduzione. Presentazione del Intero lungo. CodiceCassetta. Testo. 6.
Progetto “GESTIONE DI UNA VIDEOTECA” Il Codice videocassetta. DataNoleggio.
progetto software qui presentato ha come Data/ora. Data in cifre. Data noleggio.
oggetto la gestione di una videoteca. DataRestituzione. Data/ora. Data in cifre.
L’idea di realizzare questo progetto ? Data restituzione. Restituita. Si/No. Si:
nata dall’importanza che l’automazione Cassetta restituita No:Cassetta da
delle informazioni ha subito nell’ultimo restituire. Contatore. Intero lungo.
decennio. Per cui profondi mutamenti si Chiave primaria. Genere. Testo. 20.
sono avuti in buona parte grazie Identifica genere film. Nome Campo. Tipo
all’evoluzione della tecnologia dati. Dimensione. Descrizione. Codice
informatica, ma anche grazie all’esigenza tessera utente(Chiave esterna). Nome
di predisporre di flussi informativi pi? Campo. Tipo dati. Dimensione. Descrizione.
precisi, tempestivi, completi e 17.
soprattutto inseriti in un sistema 18Utente. Utente. Testo. 40. Nome
integrato. Segue. 3. utente. Indirizzo. Testo. 25. Cap. Testo.
4Nel realizzare tale gestione ? 5. Codice avv. postale. Localita. Testo.
opportuno curare un lavoro di 25. Residenza utente. Prov. Testo. 2.
progettazione iniziale, con riferimento ai Provincia utente. Telefono. Testo. 15.
dati da memorizzare e destinati alla Telefono utente. E-mail. Testo. 20. E-mail
successiva elaborazione. Innanzitutto dell’utente. PartitaIvaCF. Testo. 16. P.I.
bisogna effettuare una raccolta di o Codice Fiscale. Nome Campo. Tipo dati.
informazioni attinenti al progetto in Dimensione. Descrizione. Indirizzo utente.
questione, ricercare poi i dati aventi 18.
elementi caratterizzanti e i legami 19Interfacce. Form Men? Principale. 19.
intercorrenti tra essi. Disponendo del 20Form Cassette. 20.
livello concettuale si inizia ad acquisire 21Form Tessere. 21.
i dati. Per far ci? ? opportuno l’utilizzo 22Form Noleggi. 22.
di un sistema di gestione di basi di dati 23Form Generi. 23.
nella fattispecie l’ambiente software 24Form Utente. 24.
“Microsoft Access” attraverso quest’ultimo 25Codice (Form Utente). 25. Private Sub
? possibile creare cinque tabelle e cio? Form_Load() Const grigio = &H8000000F
degli schemi secondo cui saranno ‘collega il database all’oggetto data
organizzati i dati all’interno del control datUtente.DatabaseName = App.Path
database. Segue. 4. & "\dbVideotecaPrec.mdb"
5Per la gestione delle videocassette e datUtente.RecordSource =
dei dati dei clienti vengono individuate "tblUtente" datUtente.Refresh
le entit? seguenti: Tessere: per 'centra il form nello schermo
rappresentare i dati anagrafici, i dati frmUtenti.Top = (Screen.Height -
relativi all’eventuale abbonamento e le frmUtenti.Height) / 2 frmUtenti.Left =
statistiche di noleggio dei clienti; (Screen.Width - frmUtenti.Width) / 2 For
Genere: per gestire i generi delle Ind = 1 To 8 txtUtente(Ind).BackColor =
videocassette; Cassette: per gestire le grigio txtUtente(Ind).Enabled = False Next
varie videocassette della videoteca; Ind VisualizzaRecord End Sub. Private Sub
Noleggi: per gestire i noleggi delle txtUtente_GotFocus(Index As Integer)
videocassette; Utente: per gestire i dati 'sfondo giallo per il text in uso
dell’utente che utilizza il software. txtUtente(Index).BackColor = vbYellow End
Segue. 5. Sub Private Sub txtUtente_LostFocus(Index
6Dopo aver terminato la fase di As Integer) 'sfondo bianco per i text non
modellazione dei dati, si pu? utilizzare in uso txtUtente(Index).BackColor =
un linguaggio di programmazione orientato vbWhite End Sub Private Sub
agli oggetti e basato sugli eventi: Visual txtUtente_Validate(Index As Integer,
Basic. Tale linguaggio ormai ? utilizzato Cancel As Boolean) Select Case Index Case
in tutti gli ambienti di lavoro, anche 3 If Not IsNumeric(txtUtente(Index).Text)
scolastici in cui anche gli alunni si Then MsgBox "Attenzione: Inserire
cimentano nel corso dell’ultimo anno. Esso solo numeri" txtUtente(Index).Text =
? in grado di leggere i formati "" Cancel = True End If End
appartenenti a molti tipi di database e Select End Sub.
creare interfacce che facilitano 26Codice (Form Cassette). 26. Private
l’interattivit? tra l’utente e la Sub RegistraRecord() Dim Ind As Byte For
macchina. Segue. 6. Ind = 0 To 14 If Len(txtCampo(Ind).Text) =
7Per gestire la videoteca attraverso 0 Then MsgBox "Inserire campo",
tale linguaggio ? necessario pianificare vbOKOnly + vbExclamation, "Campo
il lavoro in tre fasi: CREAZIONE mancante" txtCampo(Ind).SetFocus Exit
DELL’INTERFACCIA UTENTE: mediante la quale Sub End If Next Ind
viene progettata la parte grafica datVideocassette.Recordset.AddNew
inserendo all’interno di finestre (form) AssegnaCampi
una serie di controlli per l’inserimento, datVideocassette.Recordset.Update
la visualizzazione, la modifica e la PulisciMaschera
cancellazione dei record. IMPOSTAZIONE datVideocassette.Recordset.MoveLast
DELLE PROPRIETA’: mediante la quale si txtCampo(0).Text =
assegnano ai controlli un nome e si datVideocassette.Recordset("CodiceCas
definisco attributi come il contenuto di etta") + 1 txtCampo(1).SetFocus End
un’etichetta, la dimensione del testo, lo Sub. Private Sub PulisciMaschera() Dim Ind
stile e le parole che appaiono su un As Byte For Ind = 0 To 16
pulsante di comando o nella barra del txtCampo(Ind).Text = "" Next Ind
titolo del form. SCRITTURA DEL CODICE: lblcampo(18).Caption = "" End
mediante la quale vengono create e scritte Sub Private Sub RicercaRecord()
le routine necessarie per potere eseguire datVideocassette.Recordset.Index =
il progetto. In questa fase ? necessario "PrimaryKey"
l’utilizzo di istruzioni di programmazione datVideocassette.Recordset.Seek
basic per eseguire le azioni richieste dal "=", CLng(txtCampo(0).Text) If
programma. Segue. 7. datVideocassette.Recordset.NoMatch Then
8Conclusione. In conclusione, il MsgBox " Codice cassetta
progetto sar? in grado di gestire le inesistente", vbOKOnly +
videocassette di una videoteca e vbExclamation txtCampo(0).SetFocus Else
realizzare: La gestione dei noleggi; La VisualizzaRecord RicercaRecordGenere End
gestione delle tessere; Ordinamento di If End Sub.
liste per codice, descrizione, nomi…. La 27Codice (Form Tessere). 27. Private Sub
gestione di stampe. 8. RegistraRecord() Dim Ind As Byte For Ind =
9Descrizione delle entit? Le entit? che 0 To 12 If Len(txtCampo(Ind).Text) = 0
possono essere individuate nel problema Then MsgBox "Inserire campo",
sono: CASSETTE: per gestire le varie vbOKOnly , "Dati mancanti"
videocassette della videoteca; TESSERE: txtCampo(Ind).SetFocus Exit Sub End If
per rappresentare i dati anagrafici, i Next Ind datTessere.Recordset.AddNew
dati relativi all’eventuale abbonamento e AssegnaCampi datTessere.Recordset.Update
le statistiche di noleggio dei clienti; PulisciMaschera
NOLEGGI: per gestire i noleggi delle datTessere.Recordset.MoveLast
videocassette; GENERE: per gestire i txtCampo(0).Text =
generi delle videocassette; UTENTE: per datTessere.Recordset("CodiceTessera&q
gestire i dati dell’utente che utilizza il ot;) + 1 txtCampo(1).SetFocus End Sub.
software. Segue. 9. Private Sub RicercaRecord()
10Gli attributi dell’entit? Cassette datTessere.Recordset.Index =
sono: codice cassetta, codice a barre, "PrimaryKey"
titolo, codice genere, durata, premi datTessere.Recordset.Seek "=",
oscar, primo attore, secondo attore, CLng(txtCampo(0).Text) If
regia, distribuzione, anno di uscita, datTessere.Recordset.NoMatch Then MsgBox
gradimento, colonna sonora, visione, "Codice Tessera inesistente!",
totale cassette a disposizione, cassette vbOKOnly + vbExclamation,
noleggiate, numero di noleggi, data "ATTENZIONE!" txtCampo(0).Text =
inserimento, posizione. Gli attributi "" txtCampo(0).SetFocus Else
dell’entit? Tessere sono: codice tessera, VisualizzaRecord End If End Sub Private
nominativo, codice fiscale, indirizzo, Sub VisualizzaRecord() txtCampo(0).Text =
citt?, provincia, cap, numero di telefono, datTessere.Recordset("CodiceTessera&q
tipo documento, abbonato (si/no), data ot;) txtCampo(1).Text =
abbonamento, data scadenza, importo datTessere.Recordset("Nominativo"
abbonamento, cassette noleggiate, numero ) txtCampo(7).Text =
noleggi, cassette in ritardo, importo datTessere.Recordset("CF")
noleggi, note. Gli attributi dell’entit? txtCampo(2).Text =
Noleggi sono: ID noleggio, codice tessera, datTessere.Recordset("Indirizzo"
codice cassetta, data noleggio, data txtCampo(3).Text =
restituzione, restituita (Si/No). Gli datTessere.Recordset("CAP")
attributi dell’entit? Genere sono: codice txtCampo(4).Text =
genere, genere. Gli attributi dell’entit? datTessere.Recordset("Citta")
Utente sono: utente, indirizzo, cap, txtCampo(5).Text =
localit?, provincia, numero di telefono, datTessere.Recordset("Prov")
e-mail, partita iva o codice fiscale. txtCampo(6).Text =
Segue. 10. datTessere.Recordset("Telefono")
11Tra le entit? Genere e Cassette si pu? txtCampo(8).Text =
stabilire un’associazione uno a molti, datTessere.Recordset("Documento"
perch? un genere pu? corrispondere a una o txtCampo(9).Text =
pi? videocassette, e molte videocassette datTessere.Recordset("ImportoAbboname
possono corrispondere a uno stesso genere. to") txtCampo(10).Text =
Tra le entit? Cassette e Noleggi si pu? datTessere.Recordset("NumeroNoleggi&q
stabilire un’associazione uno a molti, ot;) dtpDataScadenza.Value =
perch? una cassetta pu? essere soggetta a datTessere.Recordset("DataScadenza&qu
diversi noleggi, e il noleggio pu? t;) dtpDataIscrizione.Value =
riferirsi a una sola cassetta. Tra le datTessere.Recordset("DataAbbonamento
entit? Tessere e Noleggi si pu? stabilire quot;) txtCampo(11).Text =
un’associazione uno a molti, perch? una datTessere.Recordset("CassetteRitardo
tessera pu? essere utilizzata per pi? quot;) txtCampo(12).Text =
noleggi, e diversi noleggi possono essere datTessere.Recordset("ImportoNoleggi&
effettuati con una tessera. Segue. 11. uot;) txtCampo(13).Text =
12Sulla base dell’analisi effettuata si datTessere.Recordset("Note") End
pu? disegnare il modello Sub.
entit?\associazioni : Modello E\R Nel 28Codice (Form Noleggi). 28. Private Sub
modello E/R sono stati indicati i nomi dei ModificaNoleggio() Const Bianco = vbWhite
versi delle associazioni e l’opzionalit? o Dim Ind As Byte For Ind = 0 To 2
l’obbligatoriet? delle associazioni txtCampo(Ind).Enabled = True
(indicate rispettivamente dalla linea txtCampo(Ind).BackColor = Bianco Next Ind
tratteggiata o continua). Utilizziamo le For Ind = 0 To 2 cmdLista(Ind).Enabled =
regole di derivazione si ottengono le True Next Ind dtpDataNoleggio.Enabled =
seguenti tabelle: Tessere (Codice tessera, True dtpDataRestituzione.Enabled = True
Nominativo, Codice fiscale, Indirizzo, optNoleggio.Enabled = True
Citt?, Provincia, Cap, Numero di telefono, optRestituzione.Enabled = True
Tipo documento, Abbonato (si/no), Data chkRestituita.Enabled = True
abbonamento, Data scadenza, Importo txtCampo(0).SetFocus End Sub. Private Sub
abbonamento, Cassette noleggiate, Numero AssegnaCampi()
noleggi, Cassette in ritardo, Importo datNoleggi.Recordset("CodiceTessera&q
noleggi, Note). Segue. 12. ot;) = CLng(txtCampo(1).Text)
13Cassette (Codice cassetta, Codice a datNoleggi.Recordset("CodiceCassetta&
barre, Titolo, Codice genere, Durata, uot;) = CLng(txtCampo(2).Text)
Premi oscar, Primo attore, Secondo attore, datNoleggi.Recordset("DataNoleggio&qu
Regia, Distribuzione, Anno di uscita, t;) = dtpDataNoleggio.Value
Gradimento, Colonna sonora, Visione, datNoleggi.Recordset("DataRestituzion
Totale cassette a disposizione, Cassette ") = dtpDataRestituzione.Value
noleggiate, Numero di noleggi, Data datNoleggi.Recordset("Restituita"
inserimento, Posizione). Tessere (Codice ) = CBool(chkRestituita.Value) End Sub
tessera, Nominativo, CF, Indirizzo, Citt?, Private Sub AggiornaRecord()
Prov, Cap, Telefono, Documento abbonato, datNoleggi.Recordset.Edit AssegnaCampi
Data abbonamento, Data scadenza, Importo datNoleggi.Recordset.Update
abbonamento, Cassette noleggiate, Numero PulisciMaschera End Sub Private Sub
noleggi, Cassette ritardo, Importo RicercaRecord() datNoleggi.Recordset.Index
noleggi, Note). Noleggi (ID noleggio, = "Primarykey"
Codice tessera, Codice cassetta, Data datNoleggi.Recordset.Seek "=",
noleggio, Data restituzione, Restituita CLng(txtCampo(0).Text) If
(si/no)). Genere (Codice genere, Genere.) datNoleggi.Recordset.NoMatch Then MsgBox
Utente (Utente, Indirizzo, Cap, Localit?, "Codice Noleggio non trovato!",
Provincia, Numero di telefono, E-mail, vbOKOnly + vbExclamation txtCampo(0).Text
Partita Iva o Codice Fiscale). 13. = "" txtCampo(0).SetFocus Else
14Associazioni. Cassette. Genere. VisualizzaRecord RicercaRecordTessere
Noleggi. Tessere. Utente. 14. RicercaRecordCassetta End If End Sub.
15Cassette. 15. Nome Campo. Tipo dati. 29Codice (Form Genere). 29. Private Sub
Dimensione. Descrizione. CodiceCassetta. cmdNuovo_Click() Const grigio =
Contatore. Intero lungo. Chiave Primaria. &HC0C0C0 Dim Ind As Byte
CodiceBarre. Testo. 13. Codice per lettore ImpostazioniComandi For Ind = 0 To 1
(Chiave esterna). Titolo. Testo. 40. txtCampo(Ind).BackColor = vbWhite
Identifica titolo del film. CodiceGenere. txtCampo(Ind).Enabled = True Next Ind
Numerico. Intero lungo. Identifica codice txtCampo(1).SetFocus lblAzione.Caption =
genere. Durata. Numerico. Byte. Durata del "Nuovo" cmdOk.ToolTipText =
film. PremiOscar. Numerico. Byte. Oscar "Nuovo" cmdListaGeneri.Enabled =
ricevuti. PrimoAttore. Testo. 25. Nome 1° False txtCampo(0).Enabled = False
attore. SecondoAttore. Testo. 25. Nome 2° txtCampo(0).BackColor = grigio
attore. Regia. Testo. 40. Nome regista. datGeneri.Recordset.OpenRecordset If
Distribuzione. Testo. 40. Casa (datGeneri.Recordset.BOF) And
cinematografica. AnnoUscita. Numerico. (datGeneri.Recordset.EOF) Then
Intero. Anno uscita film. Gradimento. txtCampo(0).Text = 1 Else
Testo. 5. Identifica gradimento pubblico. datGeneri.Recordset.MoveLast
ColonnaSonora. Testo. 30. Autore colonna txtCampo(0).Text =
sonora. Visione. Testo. 7. Identifica la datGeneri.Recordset("CodiceGenere&quo
visione. TotaleCassette. Numerico. Byte. ;) End If End Sub. Private Sub
Numero cassette. CassetteNoleggiate. cmdListaGeneri_Click() CodiceRicerca = 0
Numerico. Byte. Numero cassette frmListaGeneri.Show 1 If (CodiceRicerca
noleggiate. NumNoleggi. Numerico. Intero. > 0) Or (CodiceRicerca <> 0) Then
Numero totale noleggi. DataInserimento. txtCampo(0).Text = CodiceRicerca
Data/ora. Data in cifre. Data RicercaRecord Else txtCampo(0).Text =
archiviazione. Posizione. Testo. 6. "" txtCampo(0).SetFocus End If
Classifica. End Sub Private Sub cmdModifica_Click()
16Tessere. Nome Campo. Tipo dati. Dim Ind As Byte ImpostazioniComandi
Dimensione. Descrizione. CodiceTessera. lblAzione.Caption = "Modifica"
Contatore. Intero lungo. Chiave Primaria. cmdOk.ToolTipText = "Conferma
Nominativo. Testo. 40. Nome e cognome. CF. modifica" cmdListaGeneri.Enabled =
Testo. 16. Codice fiscale. Indirizzo. True For Ind = 0 To 1
Testo. 25. Indirizzo cliente. Citta. txtCampo(Ind).BackColor = vbWhite
Testo. 25. Sede cliente. Prov. Testo. 2. txtCampo(Ind).Enabled = True Next Ind
Provincia cliente. CAP. Testo. 5. Codice txtCampo(0).SetFocus End Sub.
avviamento postale. Telefono. Testo. 15. 30Gruppi di lavoro. Primo gruppo. Quarto
Telefono cliente. Documento. Testo. 20. gruppo. Terzo gruppo. Secondo gruppo.
Numero identit? cliente. Abbonato. Si/No. Quinto gruppo. Rossi Francesco Verdi
Logico. DataAbbonamento. Data/ora. Data in Giulio Serri Marinella. Di Marco Daniele
cifre. Data abbonamento cliente. Fantini Laura Marino Stefano Bellini
DataScadenza. Data/ora. Data in cifre. Francesco. Mancini Alberto Reale Carla
Data scadenza abbonamento. Vinci Enzo Palermo Andrea. Impastato Gino
ImportoAbbonamento. Valuta. Euro. Prezzo Medico Giuseppe Campo Elisa Conte Paolo.
abbonamento. CassetteNoleggiate. Numerico. Serra Pierangelo Quintini Angelo Gentile
Byte. Numero cassette noleggiate. Mariella Marchese Giusy. 30.
NumeroNoleggi. Numerico. Byte. Totale 31The End. Premi ESC per uscire.
PROGRAMMARE IN VISUAL BASIC.PPT
http://900igr.net/kartinka/informatika/programmare-in-visual-basic-199797.html
cсылка на страницу

PROGRAMMARE IN VISUAL BASIC

другие презентации на тему «PROGRAMMARE IN VISUAL BASIC»

«Quick Basic» - Предыстория Quick Basic. Задание 1.5. Программа «Вычисление числовой последовательности». Составить программу для вычисления числовой последовательности: 2, 4, 8, 16, 32, 64 … Программа в блок-схеме. Программа на Quick Basic. Программа на Quick Basic Программа в блок-схеме Предыстория Quick Basic.

«Переменные Visual Basic» - Переменные: тип, имя, значение. Пример программного кода Visual Basic. Byte, short, integer, long, single, double – типы числовых значений. Имена переменных. Присваивание переменным значений. A = 216 b = -31576 c = 3.1415926 D = “visual basic” А = А - 10. Объявление переменных. Типы переменных. Переменная.

«Объекты Visual Basic» - Координаты точек. Анимация. Пользовательское меню. Private sub. Мозаика. Указатель курсора. Создание анимационных изображений в среде Visual Basic. Птичка. Использование gif-анимации. Создание кадров мини-анимации. Фрагмент программы. Разбиение файла. Описание. Метод Scale. Перемещение объекта по прямой.

«Символьная переменная» - Операции сравнения текстовых величин. Примеры истинных отношений. Операция соединения. Задача: подсчитать сколько раз среди символов заданной строки. Переменная Х. Переместительный закон. Действие функции. Солнышко. Символы. Крокодил. Функция определения длины переменной. Строка. Задание для самостоятельного решения.

«Quick Basic» - Задание 1.5. Составить программу для вычисления числовой последовательности: 2, 4, 8, 16, 32, 64 … Программа «Вычисление числовой последовательности». Программа в блок-схеме. Программа на Quick Basic. Программа на Quick Basic Программа в блок-схеме Предыстория Quick Basic. Предыстория Quick Basic.

«Язык Бейсик» - Константы. - Целая переменная. В Бейсике: IF условие THEN серия 1 ELSE серия 2. Запись алгоритма на алгоритмическом языке. Выражения. Так же, как и в алгоритмическом языке, в Бейсике есть команда ветвления. Символы в выражениях. Таблица (массив). - Литерная(например:«нет решения»). Повторение с параметром.

Basic

10 презентаций о Basic
Урок

Информатика

130 тем
Картинки