1. ZADATAK SEMINARSKOG RADA
Kreirati datoteku Film.dir u vašem folderu. Napisati program koji će omogućiti unos i izmenu podataka o filmu u datoteku. Za svaki film obezbediti unos sledećih podataka: redni broj, naziv filma, režiser, žanr i godinu izdanja. Omogućiti pronalaženje podataka o određenom filmu na osnovu rednog broja.
1.1. Korisnički interfejs
Startujte Visual Basic. Izaberite novi standardni projekat. Kliknuti bilo gde na površinu prozora čija je naslov Form1, time je prozor selektovan. Njegova svojstva su prikazana u prozoru Properties. Svojstvo Caption prikazuje vrednosti Form1. Izmeniti svojstvo upisivanje teksta Film. Uneti tekst se prikazuje kao naslov prozora. Naziv prozora i dalje je Form1 i to je svojstvo Name. Svojstvo BackColour staviti da bude Active Title Bar.
Kreirajte objekat Label1 i promenite mu svojsto Caption na Redni broj:. Svojstvo BackColour mu promenite na Active Title Bar.
Kreirajte objekat Label2 i promenite mu svojstvo Caption na Naziv filma:. Svojstvo BackColour mu promenite na Active Title Bar.
Kreirajte objekat Label3 i promenite mu svojstvo Caption na Reziser:. Svojstvo BackColour mu promenite na Active Title Bar.
Kreirajte objekat Label4 i promenite mu svojstvo Caption na Zanr:. Svojstvo BackColour mu promenite na Active Title Bar.
Kreirajte objekat Label5 i promenite mu svojstvo Caption na Godina izdanja:. Svojstvo BackColour na Active Title Bar.
Kreirajte objekat Text1 i promenite mu svojstvo text na praznu vrednost. Svojstvo BackColour na blue.
Kreirajte objekat Text2 i promenite mu svojstvo text na praznu vrednost. Svojstvo BackColour na blue.
Kreirajte objekat Text3 i promenite mu svojstvo text na praznu vrednost. Svojstvo BackColour na blue.
Kreirajte objekat Text4 i promenite mu svojstvo text na praznu vrednost. Svojstvo BackColour na blue.
Kreirajte objekat Text5 i promenite mu svojstvo text na praznu vrednost. Svojstvo BackColour na blue.
Kreirajte objekat Command1 i promenite mu svojstvo Caption na vrednosti Upustvo.
Kreirajte objekat Command2 i promenite mu svojstvo Caption na vrednosti Trazi.
Kreirajte objekat Command3 i promenite mu svojstvo Caption na vrednosti Zapamti.
Slika1.1. Korisnički interfejs
1.2.Programski kod
Pre upotrebe datoteke sa direktnim prisustupom mora da se definiše struktura sloga, jedinstvena za sve slogove u datoteci. Za definisanje strukture sloga za upisivanje u datoteku sa direktnim pristupom najčešće se koristi korisnički tip podataka-slog.
U meniju Project izaberite komandu Add Module i definišite korisnički tip podataka za rad sa filmom.
Type TipFilm
RedBr As Integer
NazivFilma As String * 50
Reziser As String * 40
Zanr As String * 30
GodIzdanja As Single
End Type
Izaberite Form1 u prozoru Project. U prozoru za uređenje koda, u General sekciji definisite sledeću proceduru:
Sub Postavi()
'Postavlja praznu poziciju
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Command3.Visible = False
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
End Sub
Izaberite u prozoru za uređenje koda objekat Command1 (to je objekat sa natpisom Upustvo). Procedura ima jednu narebdu. To je naredba MsgBox.
Private Sub Command1_Click()
MsgBox ("Unesite redni broj filma i proverite da li ima podataka o njemu u datoteci"), , "Film"
End Sub
Izaberite u prozoru za uređenje koda objekat Command2 (to je objekat sa natpisom Trazi). Formirajte sledecu proceduru.
Private Sub Command2_Click()
'Trazenje sloga u datoteci
Dim Film As TipFilm
Dim BrSloga As Integer
Dim File As String
File = "D:\K.Djurdjevic\Kaca\Film.dir"
'hvatanje greske
On Error GoTo Greska
BrSloga = Val(Text1.Text)
If BrSloga > 0 Then
'otvaranje datoteke
Open File For Random As 1 Len = Len(Film)
Get #1, BrSloga, Film
Text2.Text = Film.NazivFilma
Text3.Text = Film.Reziser
Text4.Text = Film.Zanr
Text5.Text = Film.GodIzdanja
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Command3.Visible = True
Close 1 'zatvaranje datoteke
End If
Exit Sub 'Zavrsetak procedure ako ne bude greska
Greska: 'Rutina za obradu greske
MsgBox (" Greska broj: " & Err.Number), , "Film"
MsgBox ("Opis greske: " & Err.Description), , "Film"
End Sub
Izaberite u prozoru za uređenje koda objekat Command3 (to je objekat sa natpisom zapamti). Formirajte sledeću proceduru:
Private Sub Command3_Click()
'upis sloga u datoteku
Dim Film As TipFilm
Dim BrSloga As Integer
Dim File As String
File = "D:\K.Djurdjevic\Kaca\Film.dir"
'hvatanje greske
On Error GoTo Greska
'otvaranje datoteke
Open File For Random As 1 Len = Len(Film)
Film.RedBr = Val(Text1.Text)
Film.NazivFilma = Text2.Text
Film.Reziser = Text3.Text
Film.Zanr = Text4.Text
Film.GodIzdanja = Val(Text5.Text)
BrSloga = Film.RedBr
'upis sloga
Put #1, BrSloga, Film
Close 1 'zatvaranje datoteke
MsgBox ("Upisani su podatci o filmu broj:" & BrSloga), , "Film"
Call Postavi
Exit Sub 'Zavrsetak procedure ako ne bude gresaka
Greska: 'Rutina za obradu greske
MsgBox ("Greska broj:" & Err.Number), , "Film"
MsgBox ("Opis greske:" & Err.Description), , "Film"
End Sub
Izaberite u prozoru za uređenje koda objekat Form i formirajte sledeću proceduru:
Private Sub Form_Load()
Call Postavi
End Sub
1.3.Korišćenje programa
Pokrenite program. Zatim aktivirajte taster Upustvo. Dobijate poruku kao na slici 1.2.
Slika 1.2. Upustvo korisniku
Unesite redni broj filma 1 i aktivirajte taster Trazi. Program traži datoteku u vašem folderu; pošto je nema vrši njeno kreiranje i vama omogućava da unesete podatke za film sa rednim brojem 1.
Aktivirajte taster sa natpisom Zapamti. Potatci o filmu sa rednim brojem 1 zapisuju se na disk u datoteku Film.dir.
1.4.Čuvanje programa
Kliknite na komandu Save Project As u meniju File. Kreiranom modulu dajte ime ModulTipFilm i zapisivanje izvršite u svom folderu. U okvir za dijalog Save File As, potrebno je da zadate ime Seminarski i zapišite u svom folderu. Potrebno je da isto ime date i projektu i da zapisivanje bude na istoj lokaciji.