visual basic 2008 express edition

Bi mi lahko prosim kdo povedal kateri znak se uporablja v 2008 express namesto _ . Mam samo knjigo za visual basic 6 in mi napiše identifier expected.

Naprimer : lblIzpis = " Jabolko: " & Jabolko & _ " Hruška : " & Hruska . Tako bi moralo biti ampak potem napiše pač napako naroben izraz za _ . Hvala vnaprej.

Ne razumem te najbol
Ta znak je za naslednjo vrstico

_ si imel pravilno, le enter bi moral stisni

Mogoče sem ti tudi nerazumljivo napsial

Ta znak sicer bolj redko uporabljam, edina funkcija je preglednost kode, da nimaš ene vrstice nevem kako dolge.

Zato pač daš znak _ na mestu, kjer je možno in imaš kodo v večih vrsticah.

Pri tebi je bilo tako, da si z izbrisom tega znaka spravil vse v eno vrstico.

lblIzpis = " Jabolko: " & Jabolko & _ " Hruška : " & Hruska

ali

lblIzpis = " Jabolko: " & Jabolko & _
" Hruška : " & Hruska

je enako

Še mal pomoči bi rabu. Bi mi lahko povedali kako v visual basic2008 express narediš izhod iz programa.

V visual basicu 6 greš naprimer pod cmdIzhod in napišeš Unload Me . Tle pa ta ukaz vsaj meni ne deluje. Našel sem Unlock morda, je to to. Vendar deluje na cifro ne črke, rabil bi najti file number, potem bi mogoče delovalo.

Ali pa se zapre kako drugače?

Zanima me pa še zakaj je zamenjan podatkovni tip Currency. Če je naprimer bilo pri Currency ChkPozar.Value kaj je sedaj namesto Value. Hvala

Hvala.Našel sem potem tudi, da se isto zapre tudi z Me.Close().Mogoče veš, kaj bi v tem primeru uporabil namesto Value, ki ga visual 2008 ne prepozna.

Znesek = ChkPozar.Value * VredNep * 0.002 + _
ChkSteklo.Value * Kvad * 50 + _
ChkIzliv.Value * Kvad * 150 + _
ChkOprema.Value * VredOpr * 0.01

Eno vprašanje - kaj maš to chkPozar oz. druge stvari, ki se začnejo z chk..

Če maš checkbox pol ti .checked vrne true ali pa false. Nisem sicer nikdar razmišljal, če je kak ukaz da bi ti direktno vrnil 1 ali 0, mogoče gre. Drugače pa daj v iif stavek.

Je checkbox ja.

No celotna koda zgleda takole, kar se tiče samega izračuna, samo je narejena za visual 6. Currency sem spremenil za Decimal, Empty z Nothing in pa posledično je namesto CCur CDec. Ostalo je pa mislem, da isto, če nisem kaj spregledal. Visual 2008 v tej nalogi ne prepozna value(če ga sploh pozna), pa mislem, da to ni edino v tej kodi, kar bi moral še spremeniti. Vrže mi potem pri izračunu vedno samo 0.00, ubistvu nič ne izračuna, čeprav program deluje.


Private Sub cmdIzracun_Click()

Dim VredNep As Decimal
Dim Kvad As Single
Dim VredOpr As Decimal
Dim Znesek As Decimal

If txtVredNep.Text = Nothing Then
VredNep = 0
Else
VredNep = CDec(txtVredNep.Text)
End If

If txtKvad.Text = Nothing Then
Kvad = 0
Else
Kvad = CSng(txtKvad.Text)
End If

If txtVredOpr.text = Nothing Then
VredOpr = 0
Else
VredOpr = CDec(txtVredOpr.Text)
End If

If Znesek = ChkPozar.Value * VredNep * 0.002 + _
ChkSteklo.Value * Kvad * 50 + _
ChkIzliv.Value * Kvad * 150 + _
ChkOprema.Value * VredOpr * 0.01 Then

'V nalogi v knjigi tu ni ne if ne then na koncu. Samo jaz sem moral uporabi oboje, ker mi je sicer javlalo napako.

Select Case True
Case opt3.Text
Znesek = Znesek * 0.97
Case opt5.Text
Znesek = Znesek * 0.95
Case opt10.Text
Znesek = Znesek * 0.9

End Select

Select Case cboNacinPla.Text
Case " Gotovina "
Znesek = Znesek * 0.95
Case " Čeki "
Znesek = Znesek * 1.02
Case " kreditna kartica "
Znesek = Znesek * 0.98

End Select

Select Case cboNacinPla.Text
Case 0
Znesek = Znesek * 0.95
Case 1
Znesek = Znesek * 1.02
Case 2
Znesek = Znesek * 0.98

End Select
__________________________________________________________________


Jaz sem potem, na eni drugi nalogi vse priredil in mi je začelo delovati, predvsem je problem v končnicah.

Ko sem naprimer, tule namesto Znesek vpisal številko 50 je prišlo do izračuna in se potem ugotovil, da je v tem problem.

Select Case cboNacinPla.Text
Case 0
Znesek = Znesek * 0.95
Case 1
Znesek = Znesek * 1.02
Case 2
Znesek = Znesek * 0.98

Druga naloga:

Dim Rezultat As Single
Dim Gorivo As Decimal
Gorivo = txtGorivo.Text

Select Case cboZnamka.Text
Case "BMW"
Rezultat = txtGorivo.Text * 100 / 12
Case "R5"
Rezultat = txtGorivo.Text * 100 / 5.5
Case "YUGO"
Rezultat = txtGorivo.Text * 100 / 8
Case Else

No takole stvar deluje.

Ker vidim, da imaš kar veselje se učit, ne obupat.

Gor maš preverjanje, če ni nič napisano v texbox, kaj pa če se zmotim pa vpišem tja x ali y.

If txtVredNep.Text = Nothing Then
VredNep = 0
Else
VredNep = CDec(txtVredNep.Text)
End If

If txtKvad.Text = Nothing Then
Kvad = 0
Else
Kvad = CSng(txtKvad.Text)
End If

If txtVredOpr.text = Nothing Then
VredOpr = 0
Else
VredOpr = CDec(txtVredOpr.Text)
End If

v textboxe vpišeš vrednosti...
Kaj če se zmotiš in namesto številke npr 10.000 vpišeš a ali x ali y.
Zate mogoče to ne bi bil problem, če pa delaš program za koga drugega verjemi da je to eden izmed murphyjevih zakonov. Prej ko slej bo nekdo vpisal v textbox string, moraš jim to onemogočit.

npr:
if not isnumeric(me.txtvredOpr.text) then
msgbox("Vpiši številčno vrednost za -Navedi ime polja-")
exit sub
end if

Nisem ravno preveč domač v VB6 ampak v vb2008 probaj structure namesto type

Public Class Form1

Private Structure Oseba
Dim PriimekInIme As String
Dim Ocena1 As Integer
Dim Ocena2 As Integer
End Structure

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim Studenti() As Oseba

ReDim Studenti(10)

With Studenti(1)
.PriimekInIme = "Peternelj Suzana"
.Ocena1 = 60
.Ocena2 = 65
End With

With Studenti(2)
.PriimekInIme = " Ficko Marija "
.Ocena1 = 70
.Ocena2 = 70
End With

Catch ex As Exception

End Try
End Sub
End Class

lep pozdrav

mam isti problem kot JU11
morm se naučit vb 2008, mam pa knjigo za vb 6.... pa če mi lahko kdo mal pomaga....tnx

-zanima me kako se v 2008 uporablja array oz. a tega sploh ni:

v vb6 naj bi bila naloga:

dim element as variant
dim polje as variant

polje = array ("pon","tor","sre","čet","pet","sob","ned")

for each element in polje
lblIzpis.caption = lblIzpis.caption & element & vbcrlf
next element

end sub

kako to zapisati v vb 2008?

kdorkoli? tnx!

Hvala, dela:)