[es] - visual basic problem s brojevima

pr0gramer
nezaposlen

Član broj: 163931
Poruke: 66
*.adsl.net.t-com.hr.

Profil

^{30.03.2008. u 18:04 - pre 195 meseci}

Treba mi ovo za visual basic,imam 5 textboxa u koje treba upisati neki broj, ako se ne upiše broj ili ako je broj koji se upiše veći od 5 treba da javi neku grešku. i sad ovako,treba raditi ovo,kada netko nasumično upiše četiri broja manja od 5 u 4 textboxa program treba prepoznati koji broj nije unesen i upisati ga u prazan 5. textbox i to pritiskom na button, nadam se da ste razumjeli problem

Hvala

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.186.*

+1 Profil

Re: visual basic problem s brojevima

^{30.03.2008. u 20:24 - pre 195 meseci}

Postavi indexirane Textboxove znaci

Text(0)
Text(1)
Text(2)
Text(3)
Text(4)

i jos jedan Command button (Command1)

evo code:

Code:

private sub command1_click()
      for t = 0 to 4
             if text(t).text = "" then
                     msgbox "Niste uneli vrednost u text box", vbinformation, "title"
                     text(t).setfocus
                     exit sub
             end if
             if val(text(t).text) > 5 or val(text(t).text) < 0 then
                     msgbox "Unete vrednosti moraju biti u opsegu od 0 do 5", vbinformation, "title"
                     text(t).setfocus
                     exit sub
             end if
      next t
end sub

Odgovor na temu

pr0gramer
nezaposlen

Član broj: 163931
Poruke: 66
*.adsl.net.t-com.hr.

Profil

Re: visual basic problem s brojevima

^{30.03.2008. u 21:59 - pre 195 meseci}

1)kako da postavim indexirane textboxove?
2)mislim da nisi dobro shvatio problem,ima 5 textboxa,svi su pazni,a pri pokretanju aplikacije korisnik upisuje 4 broja a aplikacija sama treba potražiti 5 broj,primjer:ako upiše 1,2,4,5 aplikacija u prazan textbox napiše broj 3

Odgovor na temu

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

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net

+1 Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 12:47 - pre 195 meseci}

1.) Svim textboxovima postavish Name da budu isti,a stavku Index ides redom od 0 pa na dalje

2.) @stefanpn ti je pokazao primer kako da ispitash koji je textbox prazan,e sad ako hoces da ti aplikacija sama upishe broj,onda morash da ispitujesh koji su brojevi upisani,pa onda da upishe odgovarajuci broj...

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.115.*

+7 Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 14:08 - pre 195 meseci}

Naravno da je Stefan dobro shvatio ali ti izgleda neznas da kontrole na formi mogu da budu postavljene kao niz (istih kontrola, sa istim imenom samo razlicitim indexom)
Stavi jedan text box na formu , promeni mu ime onako kako ti odgovara, selektuj ga i desnim dugmetom klikni na njega pa Copy (kopiraj ga) onda klikni na Formu pa desnim izaberi Paste. VB6 ce da pita hocete li da napravite Control Array od ove kontrole , kazi da i ponovi paste jos 3 puta (ukupno 4 puta + prva = 5).
Imaces imena 5 TekstBox-ova u obliku niza … Text(0),Text(1) …

Tako se to radi kad imas veci broj istih kontrola na formi ... ovako kako si ti zamislio je amaterski , sporo i komlikovano ...

HomePage http://www.eurora3d.com

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.186.*

+1 Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 16:29 - pre 195 meseci}

Znaci ti hoces da ti program u prazan textbox upise (val(text(t-1).text) + val(text(t+1).text))/2 ili hoces da se upise redni broj text box-a ili sta vec? Ajde postavi pitanje malo preciznije.

Odgovor na temu

pr0gramer
nezaposlen

Član broj: 163931
Poruke: 66
*.lunarmania.com.

Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 20:54 - pre 195 meseci}

evo pitanje preciznije,imam 5 textboxa,prvi textbox je prazan,u preostalim 4 napisani su različiti brojevi od 1 do 5
i sad treba ovako,pritiskom na button aplikacija treba pronaci preostali broj, primjer:ako su u 4 textboxa upisani brojevi 1,2,4,5 u petom text boxu treba upisati preostali broj 3
ja sam to zamislio ovako: napravim 5 textboxova i jedan button, zatim da pritiskom na button provjeri dal se u textboxu 2, textboxu 3, textboxu 4, textboxu 5 nalaze brojevi 1,2,3 ili 4, ako se nalaze u textbox jedan upiše broj 5, ako se ne nalaze textbox ostavi pravan, zatim ako je textbox ostavio prazan provjerava dalje, znaci dali se u textboxovima 2,3,4,5 nalaze brojevi 2,3,4,5,ako se nalaze u textbox 1 upiše broj 1, ako se ne nalazi u textbox ostavi prazan i tako sve dok ne nađe broj
nadam se da je ovo dovoljno precizno

znaci, treba mi code koji provjerava dali se u više textboxova(u mojem slucaju 4 textboxa) nalaze više brojeva, da provjeri dali se u textboxovima 2,3,4,5 nalaze brojevi 1,2,3,4 i ako se nalaze da upiše broj 5 u textbox1

i imam još jedan problem,da ne otvaram novu temu pošto je problem sličan,ovako ako se u textboxu 1 nalazi broj 50, u text boxu 2 broj 70 i u textboxu 3 broj 20 tada da pritiskom na button da se pojavi poruka bravo, usjeli ste a u suprotnom da je povali poruka,žao mi je,niste uspjeli

Evo,hvala na trudu

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.114.*

+7 Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 23:49 - pre 195 meseci}

Sad si bolje objasnio :)
Imas i zakacen VB6 projekat.
Prouci kod pa probaj da uradis sam ovaj drugi problem koji si dodao.

Code:

Private Sub cmdProveri_Click()
On Error GoTo err
Dim No As Integer, MyNo As Integer
Dim Jedan As Boolean, Dva As Boolean, Tri As Boolean, Cetri As Boolean, Pet As Boolean
For n = 1 To 4
If Text(n).Text = "" Then GoTo err
MyNo = CLng(Text(n).Text)
Select Case MyNo
Case 1
If Not Jedan Then Jedan = True: No = No + 1
Case 2
If Not Dva Then Dva = True: No = No + 1
Case 3
If Not Tri Then Tri = True: No = No + 1
Case 4
If Not Cetri Then Cetri = True: No = No + 1
Case 5
If Not Pet Then Pet = True: No = No + 1
End Select
err:
Next n
If No <> 4 Then Text(0).Text = "": Exit Sub
If Not Jedan Then MyNo = 1
If Not Dva Then MyNo = 2
If Not Tri Then MyNo = 3
If Not Cetri Then MyNo = 4
If Not Pet Then MyNo = 5
Text(0).Text = CStr(MyNo)
End Sub

_{[Ovu poruku je menjao Eurora3D Team dana 01.04.2008. u 12:16 GMT+1]}

HomePage http://www.eurora3d.com

Prikačeni fajlovi

ESPrimer.zip - 1.48k

Odgovor na temu