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.