Vb prekid programa da,ne

[ Alenko V6 @ 22.03.2008. 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]}

[ Aleksandar Vasic @ 22.03.2008. 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

[ Alenko V6 @ 22.03.2008. 14:55 ] @

hvala aco

[ Alenko V6 @ 25.03.2008. 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 ??

[ Aleksandar Vasic @ 25.03.2008. 12:31 ] @

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

[ Alenko V6 @ 25.03.2008. 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...

[ Aleksandar Vasic @ 25.03.2008. 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

[ Alenko V6 @ 25.03.2008. 12:48 ] @

run-time error 13

type mismatch

[ Aleksandar Vasic @ 25.03.2008. 12:52 ] @

na vrhu izmeni ovo u Public broj as Integer

[ Alenko V6 @ 25.03.2008. 13:11 ] @

da, hvala

kako taj broj dodati pokraj ispisa poruka

znaci da ispise; 'broj' puta

[ Aleksandar Vasic @ 25.03.2008. 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

[ Alenko V6 @ 25.03.2008. 13:27 ] @

zahvaljujem!

[ Aleksandar Ružičić @ 25.03.2008. 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]}

[ Alenko V6 @ 25.03.2008. 14:01 ] @

ok, no opet problem u zadnjem codu

compile error
expected: end of statement

i plavom označena dvojka;

..poruka 2 As String

[ Aleksandar Vasic @ 25.03.2008. 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

[ Shadowed @ 25.03.2008. 14:25 ] @

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

[ Aleksandar Ružičić @ 25.03.2008. 14:27 ] @

ne kontam na sta mislis :)

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

[ Alenko V6 @ 26.03.2008. 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 ?

[ Aleksandar Vasic @ 26.03.2008. 17:16 ] @

heh jesam glup krenuo sam da sabiram integer i string

ovo je reshenje

Code:
poruka2 = broj & " puta"

[ Alenko V6 @ 27.03.2008. 07:45 ] @

da to me zanimalo.