Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

totalni pocetnik jedan zadatak

[es] :: Visual Basic 6 :: totalni pocetnik jedan zadatak

[ Pregleda: 2092 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

ubuntuandxp
brcko

Član broj: 197872
Poruke: 64
213.196.80.*



Profil

icon totalni pocetnik jedan zadatak30.05.2009. u 11:27 - pre 181 meseci
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]
 
Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893



+384 Profil

icon Re: totalni pocetnik jedan zadatak30.05.2009. u 14:38 - pre 181 meseci
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)
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
 
Odgovor na temu

ubuntuandxp
brcko

Član broj: 197872
Poruke: 64
213.196.68.*



Profil

icon Re: totalni pocetnik jedan zadatak30.05.2009. u 15:24 - pre 181 meseci
druže hvala na pomoći al ipak imam isti problem nažalost
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: totalni pocetnik jedan zadatak30.05.2009. u 15:30 - pre 181 meseci
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
 
Odgovor na temu

ubuntuandxp
brcko

Član broj: 197872
Poruke: 64
213.196.68.*



Profil

icon Re: totalni pocetnik jedan zadatak30.05.2009. u 18:55 - pre 181 meseci
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

???
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: totalni pocetnik jedan zadatak30.05.2009. u 19:22 - pre 181 meseci
Da li si napravio Textbox na formi?
 
Odgovor na temu

ubuntuandxp
brcko

Član broj: 197872
Poruke: 64
213.196.68.*



Profil

icon Re: totalni pocetnik jedan zadatak31.05.2009. u 14:31 - pre 181 meseci
napravio sam textbox
al nisam nikakvu komandu ukucao vjerovatno je to problem sto nista ne izbaci nakon starta program

druze pomagaj
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: totalni pocetnik jedan zadatak31.05.2009. u 17:31 - pre 181 meseci
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
 
Odgovor na temu

ubuntuandxp
brcko

Član broj: 197872
Poruke: 64
213.196.80.*



Profil

icon Re: totalni pocetnik jedan zadatak31.05.2009. u 18:53 - pre 181 meseci
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
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: totalni pocetnik jedan zadatak31.05.2009. u 23:45 - pre 181 meseci
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
 
Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893



+384 Profil

icon Re: totalni pocetnik jedan zadatak01.06.2009. u 15:25 - pre 181 meseci
Ili bar uradi copy paste cijelog koda koji imas u glavnoj formi.
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
 
Odgovor na temu

ubuntuandxp
brcko

Član broj: 197872
Poruke: 64
213.196.68.*



Profil

icon Re: totalni pocetnik jedan zadatak02.06.2009. u 21:52 - pre 181 meseci
Code:
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



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]
 
Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893



+384 Profil

icon Re: totalni pocetnik jedan zadatak03.06.2009. u 07:05 - pre 181 meseci
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.
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: totalni pocetnik jedan zadatak04.06.2009. u 04:16 - pre 181 meseci
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.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

ubuntuandxp
brcko

Član broj: 197872
Poruke: 64
213.196.68.*



Profil

icon Re: totalni pocetnik jedan zadatak06.06.2009. u 15:35 - pre 181 meseci
marko l svaka cast taj code radi perfektno


hvala ti od srca ne znam kako da ti se oduzim
Prikačeni fajlovi
zadataka zbi.vbp zadataka zbi.vbp - 0.61k
 
Odgovor na temu

[es] :: Visual Basic 6 :: totalni pocetnik jedan zadatak

[ Pregleda: 2092 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.