[es] - visual basic problem s brojevima

pr0gramer

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

Profil

^{30.03.2008. u 18:04}

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

^{30.03.2008. u 18:04}

stefanpn
Stefan Kostic
Student, VPS
Paracin (Blace - FAX)

Član broj: 172809
Poruke: 293
77.46.186.*

Sajt: www.stefanpn.co.nr

Profil

Re: visual basic problem s brojevima

^{30.03.2008. u 20:24}

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

Da sam znao da je internet ovako dobar ja bih to postavio jos pre 30 godina.

^{30.03.2008. u 20:24}

pr0gramer

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

Profil

Re: visual basic problem s brojevima

^{30.03.2008. u 21:59}

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

^{30.03.2008. u 21:59}

Aleksandar Vasic
Čačak

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

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.vasictech.net

Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 12:47}

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...

^{31.03.2008. u 12:47}

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 558
91.148.115.*

Sajt: www.eurora3d.com

Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 14:08}

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 ...

char $[12] = "0D3 aroruE0";char* $$ = &$[10];
while(*(--$$)!='0')
cout << (char)*$$;

^{31.03.2008. u 14:08}

stefanpn
Stefan Kostic
Student, VPS
Paracin (Blace - FAX)

Član broj: 172809
Poruke: 293
77.46.186.*

Sajt: www.stefanpn.co.nr

Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 16:29}

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.

Da sam znao da je internet ovako dobar ja bih to postavio jos pre 30 godina.

^{31.03.2008. u 16:29}

pr0gramer

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

Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 20:54}

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

^{31.03.2008. u 20:54}

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 558
91.148.114.*

Sajt: www.eurora3d.com

Profil

Re: visual basic problem s brojevima

^{31.03.2008. u 23:49}

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]}

char $[12] = "0D3 aroruE0";char* $$ = &$[10];
while(*(--$$)!='0')
cout << (char)*$$;

Prikačeni fajlovi

ESPrimer.zip - 1.48k

^{31.03.2008. u 23:49}