totalni pocetnik jedan zadatak

[ ubuntuandxp @ 30.05.2009. 11:27 ] @

pozzz dobri ljudi
imam jedan zadatk i muci me evo vec par dana nešto čačkam al nikako da ga završim izbaci mi najčešće neki eror "run time error 424" i object reqiured !!!!!!!
zadatak glasi ovako:

Napravite program koji se pokreće na klikom na dugme.
Učitajte preko inputboxa ili preko textboxa proizvoljan realan broj X.
Izračunati vrijednost funkcije Y = (zbi - x) *x (sve pod korijenom)
Gdje je zbi zadnji broj indeksa (ukoliko je nula onda s euzima 10)
rezultat prikazati u jednom textboxu.

evo kako sam ja pokušavao al mi izbacuje gore navaednei error

Code:
dim x as integer
dim zbi as integer
dim y as double
x = val(inputbox("Unesite realan broj","unos podataka"))
zbi = val(inputbox("Unesite zadnji broj indeksa","unos podataka"))
If (zbi-x) > 0 Then
Y = sqr (zbi - x)*x
else if (zbi-x)<0
x1 = sqr (x-zbi)
else
msgbox "funkcija nema resenja "
end if
text1.text = x1
text1.visibile = true

unapred hvala na pomoći !!!!!!!

_{[Ovu poruku je menjao Aleksandar Vasic dana 30.05.2009. u 13:00 GMT+1]}

[ dava @ 30.05.2009. 14:38 ] @

Ne udubljivajuci se u zadatak, pomocu ti problem oko sintakse vb jezika, odnosno greske koja ti se javlja.
ElseIf napisi zajedno, a ne else if i dimenzionisi varijablu x1 kao double.

Ako glasi:

Citat:

Izračunati vrijednost funkcije Y = (zbi - x) *x (sve pod korijenom)

trebalo bi Sqr((zbi - x) * x)

[ ubuntuandxp @ 30.05.2009. 15:24 ] @

druže hvala na pomoći al ipak imam isti problem nažalost

[ Aleksandar Vasic @ 30.05.2009. 15:30 ] @

Uploaduj nam sta si do sada uradio :)

ili nam makar reci na koju liniju kôd-a ti izbacuje error

Edit:

Probao sam ovaj kôd i radi:

Code:
Private Sub Form_Load()
Dim x As Integer
Dim zbi As Integer
Dim y As Double
x = Val(InputBox("Unesite realan broj", "unos podataka"))
zbi = Val(InputBox("Unesite zadnji broj indeksa", "unos podataka"))
If (zbi - x) > 0 Then
y = Sqr((zbi - x) * x)
ElseIf (zbi - x) < 0 Then
X1 = Sqr(x - zbi)
Else
MsgBox "funkcija nema resenja "
End If
Text1.Text = X1
Text1.Visible = True
End Sub

Samo treba da postavis TextBox sa imenom Text1 na formu

[ ubuntuandxp @ 30.05.2009. 18:55 ] @

probao sam taj tvoj kod i ne izbacuje mi sad nikakv error, znaci napredak u svakom slucaju, al nema rezultata
znaci izbaci mi inputbox za relalan broj i unese broj npr 5
inputbox za zbi i unesem npr 7
al ne izbaci nikakv rezultat

???

[ Aleksandar Vasic @ 30.05.2009. 19:22 ] @

Da li si napravio Textbox na formi?

[ ubuntuandxp @ 31.05.2009. 14:31 ] @

napravio sam textbox
al nisam nikakvu komandu ukucao vjerovatno je to problem sto nista ne izbaci nakon starta program

druze pomagaj

[ Aleksandar Vasic @ 31.05.2009. 17:31 ] @

Ovako ti ne mogu pomoci nikako, daj nam vise informacija
na koju liniju kôd-a ti izbacuje gresku i koju gresku, ili jednostavno uploaduj projekat uz poruku, u suprotnom ne znam kako da ti pomognem.
Ako ne znas kako da uploadujes fajl uz poruku, izvoli
http://www.elitesecurity.org/faq/#26

[ ubuntuandxp @ 31.05.2009. 18:53 ] @

druze ne iybacuje mi u kodu nikakvu gresku
jednostavno kad startam program kliko m an dugme play
izbaci mi prvi inputbox za relaln broj i tu unesem broj npr 5
pa onda izbaci inputbox za broj indeksa i tu ukucam neki broj
i nakon toga nista se ne desava nema nikakvog ni rezultata a ni errora

prije mi je izbacivalo gore navedeni error sad nista

[ Aleksandar Vasic @ 31.05.2009. 23:45 ] @

Citat:

Aleksandar Vasic: Ovako ti ne mogu pomoci nikako, daj nam vise informacija
... ili jednostavno uploaduj projekat uz poruku, u suprotnom ne znam kako da ti pomognem.
Ako ne znas kako da uploadujes fajl uz poruku, izvoli
http://www.elitesecurity.org/faq/#26

[ dava @ 01.06.2009. 15:25 ] @

Ili bar uradi copy paste cijelog koda koji imas u glavnoj formi.

[ ubuntuandxp @ 02.06.2009. 21:52 ] @

Code:

to je drug ovaj kod sto mi j prepravio gore moderator

_{[Ovu poruku je menjao Aleksandar Vasic dana 03.06.2009. u 09:36 GMT+1]}

[ dava @ 03.06.2009. 07:05 ] @

Ovaj kod radi i izvrsava se pri ucitavanju forme. Ne znam kakvo dugme play koristis, ali trebalo bi da da ti ponudi input box pri startovanju forme.
Hajde sad okaci ceo projekat.

[ Marko_L @ 04.06.2009. 04:16 ] @

Koliko vidim, problem je u tome što u različitim slučajevima koristite 2 različite varijable (y i x1), a ispisujete samo jednu (x1), što znači da u slučajevima kada y dobije neku vrednost (u konkretnom slučaju svakiu put kada je zbi - x > 0) izlazna vrednost, tj. ona koja će se pojaviti u texboxu biće 0, bez obzira koji se brojevi upišu kao početna vrednost. Dakle, bez ulaženja u detalje o zadatku, ono što na brzinu mogu da primetim jeste da se y nigde ne koristi, niti ispisuje, tako da to treba prvo proveriti. Možda ovako nešto

Code:
Private Sub Form_Load()
Dim x As Integer
Dim zbi As Integer
Dim y As Double
x = Val(InputBox("Unesite realan broj", "unos podataka"))
zbi = Val(InputBox("Unesite zadnji broj indeksa", "unos podataka"))
If (zbi - x) > 0 Then
y = Sqr((zbi - x) * x)
ElseIf (zbi - x) < 0 Then
y = Sqr(x - zbi)
Else
MsgBox "funkcija nema resenja "
End If
Text1.Text = y
Text1.Visible = True
End Sub

Možda i grešim naravno, kažem, nisam ulazio u detalje o zadatku, već samo tražio nelogičnosti u kodu.

[ ubuntuandxp @ 06.06.2009. 15:35 ] @

marko l svaka cast taj code radi perfektno

hvala ti od srca ne znam kako da ti se oduzim