Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 14 odgovora
  • 3.197 pregleda

Najnovija ↓

totalni pocetnik jedan zadatak 30.05.2009. u 12:27 · pre 212 meseci
izmenjeno 1 put, poslednji put Aleksandar Vasic 30.05.2009. u 13:00
  1. Aleksandar Vasic30.05.2009. u 13:00zapis iz teksta poruke
#1
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 !!!!!!!
Re: totalni pocetnik jedan zadatak 30.05.2009. u 15:38 · pre 212 meseci #2
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)
Potpis
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
Re: totalni pocetnik jedan zadatak 30.05.2009. u 16:30 · pre 212 meseci #4
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
Re: totalni pocetnik jedan zadatak 30.05.2009. u 19:55 · pre 212 meseci #5
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

???
Re: totalni pocetnik jedan zadatak 31.05.2009. u 15:31 · pre 212 meseci #7
napravio sam textbox
al nisam nikakvu komandu ukucao vjerovatno je to problem sto nista ne izbaci nakon starta program

druze pomagaj
Re: totalni pocetnik jedan zadatak 31.05.2009. u 18:31 · pre 212 meseci #8
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
Re: totalni pocetnik jedan zadatak 31.05.2009. u 19:53 · pre 212 meseci #9
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
Re: totalni pocetnik jedan zadatak 01.06.2009. u 16:25 · pre 212 meseci #11
Ili bar uradi copy paste cijelog koda koji imas u glavnoj formi.
Potpis
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
Re: totalni pocetnik jedan zadatak 02.06.2009. u 22:52 · pre 212 meseci
izmenjeno 1 put, poslednji put Aleksandar Vasic 03.06.2009. u 09:36
  1. Aleksandar Vasic03.06.2009. u 09:36zapis iz teksta poruke
#12
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
Re: totalni pocetnik jedan zadatak 03.06.2009. u 08:05 · pre 212 meseci #13
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.
Potpis
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
Re: totalni pocetnik jedan zadatak 04.06.2009. u 05:16 · pre 211 meseci #14
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.
Potpis
-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
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme