Scribd
Upload
109 views

Programiranje 1

1) O programa permite adicionar itens de inventário usando um InputBox e armazená-los em uma matriz. 2) Os itens do inventário podem ser impressos usando um MsgBox e ordenados usando o algoritmo de ordenação bubble sort. 3) O usuário pode pesquisar um item específico e o programa dirá se ele está ou não na lista.

Uploaded by

Matija Horvat
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
109 views

Programiranje 1

1) O programa permite adicionar itens de inventário usando um InputBox e armazená-los em uma matriz. 2) Os itens do inventário podem ser impressos usando um MsgBox e ordenados usando o algoritmo de ordenação bubble sort. 3) O usuário pode pesquisar um item específico e o programa dirá se ele está ou não na lista.

Uploaded by

Matija Horvat
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 2

Pismeni ispit iz kolegija PROGRAMIRANJE 31. svibanj 2 12. P!ezime i ime"_________________ Mati#ni b!

oj"___________________ U programskom jeziku Visual Basic .NET izradite program "Inventar" sa sljedeim mogunostima $nos po%ataka o Inveta!$ !rogram upita za "roj komada inventara #kontrola InputBo$%. &atim je potre"no unijeti inventar u odgovarajue polje #pomou kontrole InputBo$%. 'imenzija polja()* elemenata tipa +tring. ispis po%ataka o Inventa!$ Ispisati inventar pomou kontrole ,ic-Te$tBo$.

p!et!a&ivanje .orisnik unese naziv inventara #InputBo$%/ a program ispisuje podatak o tome je li zadani inventar unesen u polje ili nije #pomou kontrole 0essageBo$%. so!ti!anje +ortiranje polja inventara uzlazno pomou postupka Bu""le sort.

Public Class Form1 'Globalna varijabla Public polje(85) As String Public N As nteger Private Sub !utton1"Clic#(!$%al sen&er As S$stem'(bject) !$%al e As S$stem'*ventArgs) +an&les !utton1'Clic# ,im i As nteger N - nput!o.(/N -/) For i - 1 0o N polje(i) - nput!o.(/Na1iv inventara2/) Ne.t i *n& Sub Private Sub !utton3"Clic#(!$%al sen&er As S$stem'(bject) !$%al e As S$stem'*ventArgs) +an&les !utton3'Clic# ,im i As nteger 4ic50e.t!o.1'0e.t - /Popis inventara2/ 6 C5r(17) For i - 1 0o N 4ic50e.t!o.1'0e.t - 4ic50e.t!o.1'0e.t 6 polje(i) 6 C5r(17) Ne.t i *n& Sub Private Sub !utton7"Clic#(!$%al sen&er As S$stem'(bject) !$%al e As S$stem'*ventArgs) +an&les !utton7'Clic# ,im inventar As String ,im i As nteger ,im prona8eno As !oolean - False inventar - nput!o.(/Na1iv tra9enog inventara2/) For i - 1 0o N : polje(i) - inventar 05en prona8eno - 0rue *n& : Ne.t i : prona8eno - 0rue 05en ;sg!o.(/ nventar / < inventar < / je prona8en u polju /) *lse ;sg!o.(/ nventar / < inventar < / nije prona8en u polju /) *n& : *n& Sub Private Sub !utton="Clic#(!$%al sen&er As S$stem'(bject) !$%al e As S$stem'*ventArgs) +an&les !utton='Clic# ,im b As nteger ,im i As nteger ,im pom As String For b - 1 0o N > 1 For i - 1 0o N > 1 : polje(i) ? polje(i 6 1) 05en pom - polje(i) polje(i) - polje(i 6 1) polje(i 6 1) - pom *n& : Ne.t i Ne.t b ;sg!o.(/Polje je sortirano@/) *n& Sub *n& Class

You might also like