Takmicenje iz visual basic-a :: Pc Klinika ~ Doktori za vas kompjuter

Kod:

Private Sub Command1_Click()
Dim dbVozaci as Database
Dim rsUcen,rsInstruk as Recordset
Dim Instr as Long
Dim Zarad, CenRad as Currency
Dime Ime, crta ad String
Set dbVozaci=OpenDatabase("lokacija baze")
Set rs Ucen=dbVozaci.OpenRecordSet("Kandidati", dbOpenDynaset)
Set rsInstruk=dbVozaci.OpenRecordSet("Instruktori", dbOpenDynaset)

CenRad=Val(Inputbox("Unesite Cenu rada", "Cene Rada")

With Printer
.FontName=Arial
.FontSize=11
End With

Crta =String(120, "-")

Printer.Print tab(4) crta
Printer.Print tab(4); "Redni br. tab(10); "Prezime i Ime instruktora" tab(20); "Broj Kandidata" tab(30); "Broj Radnih Sati" tab(40); "Zarada"
Printer.Print tab(4) crta

With rsInstruk
.movefirst
Do while not .EOF
k=k+1
Ime=!IimeI
Instr=!IsifIn

End With

With rsUcen
Do While Not.EOF
If !Ksifin=Instr Then
MbrojK=MbrojK+1
MbrOS=MbrOS+1
End if

.movenext

Loop
End With

Zarad=MbrOS*CenRad

Printer.Print tab(4); "Redni br. tab(10); "!IImeI" tab(20); "Broj Kandidata" tab(30); "Broj Radnih Sati" tab(40); "!Zarad"
Printer.Print tab(4); "Najuspesniji instruktor je :" &NajInstruk

Private Sub Command2_Click()
Set rsUcen=Nothing
Set rsInstruk=Nothing
Close
End
End Sub

Bem ti simbolicke nazive, sav se pogubih Smile

Elem.. ako ti nesto nije jasno pitaj..
Ovde jos fali najuspesniji instruktor(&NajInstruk). Da bi njega deklarisao treba da odredis i prosecan broj polaganja po ispita po kandidatu (a u zadatku ti je opisano kako se to radi.)

ovo je samo "sirov" prikaz sustine zadatka..Zaista ne mogu sad da ga pickam Smile