banjalukaforum.com
https://banjalukaforum.com/

Pomoc visual basic zadatak
https://banjalukaforum.com/viewtopic.php?f=18&t=64952		 Stranica 1 od 1
Autoru:  automotive [ 23 Jul 2014, 18:43 ]
Tema posta:  Pomoc visual basic zadatak
Moze li mi neko pomoci? Dakle trebam napraviti program koji ce od tri unesena broja prikazati onaj najmanji, nesto sam otkucao ali mi izbacuje gresku vezanu za if petlju 'ElseIf' must be preceded by a matching 'If' or 'ElseIf'. Kod je sleddeci:


Private Sub btnprikazi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprikazi.Click

Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(txtprvi.Text)
b = Int(txtdrugi.Text)
c = Int(txttreci.Text)

If (a < b) And (a < c) Then txtnajmanji.Text = +a.ToString

elseif (b<a) and (b<c) then txtnajmanji.text = + b.tostring
elseif (c<a) and (c<b) then txtnajmanji.text = + c.tostring
elseif (a=b)<c then txtnajmanji.text = + a.tostring
elseif (a=c)<b then txtnajmanji.text = + a.tostring
elseif (b=c)<a then txtnajmanji.text = + b.tostring
elseif (a=b=c) then txtnajmanji.text = + a.tostring
End if

End Sub
End Class
Autoru:  BMary [ 23 Jul 2014, 19:04 ]
Tema posta:  Re: Pomoc visual basic zadatak
To je niz, da probaš sa For Next petljom:

Kod:
    Private Sub MinMax(ByVal Niz)
        Min = Niz(1)
        Max = Niz(1)
        For i = 2 To Broj
            If Min > Niz(i) Then
                Min = Niz(i)
            ElseIf Max < Niz(i) Then
                Max = Niz(i)
            End If
        Next
    End Sub


itd...
Autoru:  Besparica [ 23 Jul 2014, 19:18 ]
Tema posta:  Re: Pomoc visual basic zadatak
meni bi bio najlakse da dodam jos jednu varijablu

Dim NAJMANJI As Integer

if(a<b) Then NAJMANJI = a
else NAJMANJI = b
if(NAJMANJI < c) then txtnajmanji.text = + NAJMANJI.tostring
else txtnajmanji.text = + c.tostring

(nisam nikada radio u VB ali valjda je dobro) :)
Autoru:  NiZ [ 24 Jul 2014, 20:22 ]
Tema posta:  Re: Pomoc visual basic zadatak
Posto ti treba samo najmanji broj, dovoljna su ti samo dva poredjenja (boli te uvo da li su dva broja jednaka ;) )

minimalan broj poredjenja:
Kod:
deklaracija a,b,c,min;

min = a;

if (b<min) min = b;
if (c<min) min = c;

print min;


Ili bez dodatnog zauzeca memorije:
Kod:
if (a<b) and (a<c) print a;
else if (b<c) print b;
else print c;


Razmisli i skontaces da su ti ostala poredjenja visak, a i formirati niz za tri broja je overhead
Autoru:  KCTarantula [ 16 Nov 2015, 21:28 ]
Tema posta:  Re: Pomoc visual basic zadatak
Na proizvoljnoj datoteci na računaru dat je fajl sa tekstom. Načiniti program koji računa koliko rječi se nalazi u tekstu sa: 1, 2, 3, 4... slova?

Na proizvoljnoj datoteci na računaru dat je niz cjelih brojeva. Načiniti program koji računa sumu brojeva na parnim pozicijama?

Načiniti program koji za dati cjeli broj M i dužinu D određuje podbrojeve broja M dužine D (tipa TextBox1 123456, i treba da ispiše u TextBox2, 12, 23, 34, 45, 56 (ne 12, 34, 56))?

Načiniti univerzalni konvertor za pretvaranje brojeva iz proizvoljnog pozicionog sistema u dekadni?

Da li neko zna uraditi bilo koji zadatak?
Autoru:  Besparica [ 17 Nov 2015, 09:58 ]
Tema posta:  Re: Pomoc visual basic zadatak
Prvi zad.
- Napravis reader u koji proslijedis lokaciju tekt fajla da bi dobio string koji sadrzi tekst fajla.
- Splitujes taj string po delimiteru ' ' (blank space).
- Stringove koje dobijes splitovanje smjestis u string arr.
- Zavrtis petlju kroz sve stringove u string arr, u kojoj uklanjas sve specijalne znake sa pocetka i kraja stringova.
- Onda opet zavrtis petlju kroz string arr gdje provjeravas duzine stringova.
- Kad naidjes na duzinu stringa, deklarises INT brojac za tu duzinu i setujes ga na 1. Ako opet naidjes ponovo na tu duzinu, inkrementiras brojac za tu duzinu.
- Ispises brojace.
Autoru:  NiZ [ 17 Nov 2015, 11:04 ]
Tema posta:  Re: Pomoc visual basic zadatak
Da li si ti pokusao uraditi bilo koji zadatak?
Autoru:  Besparica [ 17 Nov 2015, 11:30 ]
Tema posta:  Re: Pomoc visual basic zadatak
Ja?
Autoru:  sinip [ 17 Nov 2015, 12:08 ]
Tema posta:  Re: Pomoc visual basic zadatak
viewtopic.php?f=18&t=63708&start=80#p2399872
Autoru:  NiZ [ 17 Nov 2015, 12:11 ]
Tema posta:  Re: Pomoc visual basic zadatak
Besparica je napisao:
Ja?

Ma jok. Pitanje upuceno srednjoskolcu koji trazi nekog da mu uradi zadacu...
Autoru:  giometar [ 17 Nov 2015, 12:34 ]
Tema posta:  Re: Pomoc visual basic zadatak
jebote, sto nas u gimnaziji prije 10 godina nisu ucili na ovom nivou, sad bih bio zahvalniji. ovo su vec osnove regexa, a to nema pojma ni blizu da smo mi ucili, vrhunac je bio visedimenzionalni niz i cao.
Autoru:  BSE [ 17 Nov 2015, 13:10 ]
Tema posta:  Re: Pomoc visual basic zadatak
izgledaju kao zadaci koje prof. Avramovic postavlja
onaj prvi sam ja imao kad sam polagao VB
Autoru:  NiZ [ 17 Nov 2015, 14:41 ]
Tema posta:  Re: Pomoc visual basic zadatak
giometar je napisao:
jebote, sto nas u gimnaziji prije 10 godina nisu ucili na ovom nivou, sad bih bio zahvalniji. ovo su vec osnove regexa, a to nema pojma ni blizu da smo mi ucili, vrhunac je bio visedimenzionalni niz i cao.

Ne vidim ja ovdje regex...?
1. nadji white space i broj karaktere do sledeceg. ponovi brojanje od sledeceg do narednog. ne zaboravi obraditi \t, \r, \n
2. ako je broj kongruentan sa nulom po modulu 2 (djeljiv sa dva, paran) onda ga saberi, inace preskoci na sledeci
3. ne kontam... prvi put cujem za rijec "podbroj"...
4. http://www.slideshare.net/Haripoter/dek ... vni-sistem
Autoru:  giometar [ 17 Nov 2015, 14:54 ]
Tema posta:  Re: Pomoc visual basic zadatak
u prvom napravis 4 paterna, za 1,2,3 ili 4 slova ogranicena vajtspejsom i sa svakim prodjes kroz string, povecavas brojace...
Autoru:  NiZ [ 17 Nov 2015, 14:58 ]
Tema posta:  Re: Pomoc visual basic zadatak
Vidim ja kako se to moze rijesiti regex-om ali ne vidim potrebu za istim. U ovakvim slucajevima ga skoro uvijek izbjegavam zato sto je regex uvijek "skuplji" od direktnog pristupa (navika iz JSa). A pretpostavljam da je u pitanju srednjoskolac pa sumnjam da mu je neko spomenuo regularne izraze...

(postao sam k'o TNS, svakom loncu poklopac :lol: )
Autoru:  giometar [ 17 Nov 2015, 15:45 ]
Tema posta:  Re: Pomoc visual basic zadatak
giometar je napisao:
u prvom napravis 4 paterna, za 1,2,3 ili 4 slova ogranicena vajtspejsom i sa svakim prodjes kroz string, povecavas brojace...

ili jeftinije, sa jednim paternom u jednom prolazu

Pattern pattern = Pattern.compile("[a-zA-Z]+");
Matcher matcher = pattern.matcher(text);

while(matcher.find()) {
if(matcher.group().length()==1)jednoSlovo++;
//i tako dalje do 4
}
Stranica 1 od 1 Sva vremena su u UTC [ DST ]
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/