banjalukaforum.com

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

To je niz, da probaš sa For Next petljom:



itd...

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)

_________________
Eins, zwei, eins, zwei build an empire, very Prussian!
Exhaust gasses go into the turbocharger and spin it, witchcraft happens, and you go faster.

Posto ti treba samo najmanji broj, dovoljna su ti samo dva poredjenja (boli te uvo da li su dva broja jednaka )

minimalan broj poredjenja:


Ili bez dodatnog zauzeca memorije:


Razmisli i skontaces da su ti ostala poredjenja visak, a i formirati niz za tri broja je overhead

_________________

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?

_________________
*FIFA Club of the 20th Century*

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.

_________________
Eins, zwei, eins, zwei build an empire, very Prussian!
Exhaust gasses go into the turbocharger and spin it, witchcraft happens, and you go faster.

Da li si ti pokusao uraditi bilo koji zadatak?

_________________

Ja?

_________________
Eins, zwei, eins, zwei build an empire, very Prussian!
Exhaust gasses go into the turbocharger and spin it, witchcraft happens, and you go faster.

_________________
Зарада на интернету (Јесте, ја сам админ) Najbolji Forex brokeri

Čiča iz Rogače je napisao:

Kad pobjedimo Doboj ćemo nazvati Obren Vakuf,usprkos tebi i Vulićki

Vladimir RUS je napisao:

Na RTRS-u kazu 8000, a na Nezavisnim hiljade.
Dok je bilo uzivo, na RTRS-u i ATV-u nista. Zato ide live kada se otvara hidroelektrana od 42 miliona KM koja uz to zaposljava tj. bice uposleno 40-ak radnika. Milion KM po radnom mjestu.

Ma jok. Pitanje upuceno srednjoskolcu koji trazi nekog da mu uradi zadacu...

_________________

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.

izgledaju kao zadaci koje prof. Avramovic postavlja
onaj prvi sam ja imao kad sam polagao VB

_________________
Batmobil ti inace ima 5.7 litarski chevroletov V8 motor, koji ti ima ubrzanje do 100 za 5 sekundi. Ako uzmes u obzir da batmobil tezi preko dvije tone,to ti je zbilja fenomenalno. Al` dobro,dosta o mom autu, pricajmo malo o meni!

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

_________________

u prvom napravis 4 paterna, za 1,2,3 ili 4 slova ogranicena vajtspejsom i sa svakim prodjes kroz string, povecavas brojace...

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 )

_________________

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
}