[es] - Vb prekid programa da,ne

Alenko V6
Hr

Član broj: 63048
Poruke: 45
*.adsl.net.t-com.hr.

Profil

^{22.03.2008. u 10:18}

dakle jednostavno pitanje, ne kuzim onu komandu Goto,
tj. kako se vraca program na pocetak odnosno izlazi i programa, npr;

Code:

Dim izlaz As Integer

izlaz = MsgBox("stop", vbQuestion + vbYesNo, "Program")
If izlaz = vbNo Then
           'ne
End If
If izlaz = vbYes Then

            'da
            End If

dakle ako ne, kamo onda, tj. ja bi na pocetak programa ?

recimo pocetak je ovakav;

Code:

Private Sub Form_Load()
Dim q

InputBox("Ime:")

_{[Ovu poruku je menjao Aleksandar Ružičić dana 22.03.2008. u 17:35 GMT+1]}

^{22.03.2008. u 10:18}

Aleksandar Vasic
Čačak

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

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

Profil

Re: Vb prekid programa da,ne

^{22.03.2008. u 11:02}

GoTo nije fensi ;)

Code:

Private Sub Command1_Click()
Dim izlaz As Integer
izlaz = MsgBox("zaustavi", vbQuestion & vbYesNo, "Program")
If izlaz = vbNo Then
'kod za ne
Call Form_Load
End If
If izlaz = vbYes Then
'kod za da
End If
End Sub

Private Sub Form_Load()
Dim q
InputBox ("Ime:")
End Sub

^{22.03.2008. u 11:02}

Alenko V6
Hr

Član broj: 63048
Poruke: 45
193.19.223.*

Profil

Re: Vb prekid programa da,ne

^{22.03.2008. u 14:55}

hvala aco

^{22.03.2008. u 14:55}

Alenko V6
Hr

Član broj: 63048
Poruke: 45
*.adsl.net.t-com.hr.

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 12:10}

sada je ovdje zapelo

Private Sub Form_start()
Dim broj As Long
broj = 1

MsgBox "brojac"
Call Form_Load

End Sub

Private Sub Form_Load()

Dim poruka, title, podatak As String
poruka = "Redni broj"

podatak = InputBox(poruka, title)
broj = broj + 1
MsgBox broj
Call Form_Load
End Sub

zasto je broj uvijek 1 a ne +1 ??

^{25.03.2008. u 12:10}

Aleksandar Vasic
Čačak

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

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

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 12:31}

najbolje bi bilo kad bi objasnio sta ti zelis da napravish,ovako ti ne mogu pomoci...

^{25.03.2008. u 12:31}

Alenko V6
Hr

Član broj: 63048
Poruke: 45
*.adsl.net.t-com.hr.

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 12:38}

pa, htio bi da zbraja, tj. da broj bude onoliki koliko sam puta upisivao nešto
znaci prvi puta, 1
drugi puta da u msgbox-u napise 2
itd...

^{25.03.2008. u 12:38}

Aleksandar Vasic
Čačak

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

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

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 12:43}

Code:
Public broj as String
Private Sub Form_Load()
MsgBox "brojac"
Call Komanda
End Sub

Public Sub Komanda()
Dim poruka as String,podatak as String,title as String
poruka = "Redni broj"
podatak = InputBox(poruka, title)
broj = broj + 1
MsgBox broj
Call Form_Load
End Sub

probaj ovako,ako sam dobro shvatio

^{25.03.2008. u 12:43}

Alenko V6
Hr

Član broj: 63048
Poruke: 45
*.adsl.net.t-com.hr.

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 12:48}

run-time error 13

type mismatch

^{25.03.2008. u 12:48}

Aleksandar Vasic
Čačak

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

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

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 12:52}

na vrhu izmeni ovo u Public broj as Integer

^{25.03.2008. u 12:52}

Alenko V6
Hr

Član broj: 63048
Poruke: 45
*.adsl.net.t-com.hr.

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 13:11}

da, hvala

kako taj broj dodati pokraj ispisa poruka

znaci da ispise; 'broj' puta

^{25.03.2008. u 13:11}

Aleksandar Vasic
Čačak

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

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

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 13:18}

Code:
Public broj as Integer
Private Sub Form_Load()
MsgBox "brojac"
Call Komanda
End Sub

Public Sub Komanda()
Dim poruka as String,podatak as String,title as String,poruka 2 as String
poruka = "Redni broj"
podatak = InputBox(poruka, title)
broj = broj + 1
poruka2 = broj + " puta"
MsgBox poruka2
Call Form_Load
End Sub

^{25.03.2008. u 13:18}

Alenko V6
Hr

Član broj: 63048
Poruke: 45
*.adsl.net.t-com.hr.

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 13:27}

zahvaljujem!

^{25.03.2008. u 13:27}

Aleksandar Ružičić
Developer, Haragei Creative Solutions
Beograd - Čačak

Moderator
Član broj: 26939
Poruke: 1781
*.dynamic.adsl.itsisp.net.

Jabber: krcko@haragei.com
Sajt: krcko.haragei.org

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 13:46}

@Alenko V6: kada postujes kod koristi [code] tagove

_{[Ovu poruku je menjao Aleksandar Ružičić dana 25.03.2008. u 15:33 GMT+1]}

Čovekova dostignuća prevazilaze njegovu maštu.

^{25.03.2008. u 13:46}

Alenko V6
Hr

Član broj: 63048
Poruke: 45
*.adsl.net.t-com.hr.

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 14:01}

ok, no opet problem u zadnjem codu

compile error
expected: end of statement

i plavom označena dvojka;

..poruka 2 As String

^{25.03.2008. u 14:01}

Aleksandar Vasic
Čačak

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

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

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 14:04}

jbg pogledaj malo,greshka je ocigledna

Code:
Public broj as Integer
Private Sub Form_Load()
MsgBox "brojac"
Call Komanda
End Sub

Public Sub Komanda()
Dim poruka as String,podatak as String,title as String,poruka2 as String
poruka = "Redni broj"
podatak = InputBox(poruka, title)
broj = broj + 1
poruka2 = broj + " puta"
MsgBox poruka2
Call Form_Load
End Sub

^{25.03.2008. u 14:04}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 8679
*.static.sbb.co.yu.

Sajt: www.diskusije.net

Profil

Re: Vb prekid programa da,ne

^{25.03.2008. u 14:25}

@Aleksandar Ruzicic, kad objasnjavas kroiscenje [code] tagova, nemoj ubijati formatiranje strane

Download from Youtube

Otkrivena nova tehnika kloniranja

FBzP

^{25.03.2008. u 14:25}

Re: Vb prekid programa da,ne

^{25.03.2008. u 14:27}

ne kontam na sta mislis :)

edit: sad sam sredio, samo ostajem pri tome da je es-ov bbcode parser krajnje jadno uradjen :)

Čovekova dostignuća prevazilaze njegovu maštu.

^{25.03.2008. u 14:27}

Alenko V6
Hr

Član broj: 63048
Poruke: 45
*.adsl.net.t-com.hr.

Profil

Re: Vb prekid programa da,ne

^{26.03.2008. u 07:42}

da vidim gore problem da je space visak, ali
ne prihvaca ono msgbx poruka + " puta"

run time error 13
type mismatch

stavio sam jos jedan string puta
i napravio ovako
msgbox poruka + puta

iako mi nije jasno zašto u prvom slucaju ne radi ?

^{26.03.2008. u 07:42}

Aleksandar Vasic
Čačak

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

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

Profil

Re: Vb prekid programa da,ne

^{26.03.2008. u 17:16}

heh jesam glup krenuo sam da sabiram integer i string

ovo je reshenje

Code:
poruka2 = broj & " puta"

^{26.03.2008. u 17:16}

Alenko V6
Hr

Član broj: 63048
Poruke: 45
*.adsl.net.t-com.hr.

Profil

Re: Vb prekid programa da,ne

^{27.03.2008. u 07:45}

da to me zanimalo.

^{27.03.2008. u 07:45}