Keskustelu: Ohjelmointikysymykset: VB6: Mikä vikana?

Mikäs tässä on vikana?

If Text1.text = "pekka" Then
Text4.text = Text4 + 1 And Text1 = ""
If Text4 = 10 Then
Text4 = 0 And Text2 + 1
End If
End If

VB6 ei anna mitään virheilmoitusta, mutta silti ei toimi?

Mitähän yrität tehdä tolla?

Hhhmmm... No sellasta pistelaskuria... Tarkotus olis, että kun text1 on "pekka" ni text4 tulee yks piste lisää ja text1 on taas tyhjä... Sit kun text4 on 10 "pistettä" ni sitten se tyhjääntyy (muuttuu 0) ja text2 saa 1 "pisteen" lisää... Tajusitko?

jotain tähän tyyliin:

if text1.text = "pekka" then
   tetxt4=str(val(text4)+1)
   text1=""
   if text4="10" then
      Text4="0"
      text2=str(val(text2)+1)
   end if
end if

Arvasin että jotain noitten arvojen (value) kanssa piti tehdä... Perhana kun oon ruosteessa... Pakko se kirja on hommata, ja kiitos

No piti tota vähän muokata, mutta nyt toimii...

Noi TextBoxit on VB:ssä niin viksuja, ettei välttämättä tarvi pelata noiden vallujen ja stringejen kanssa. DaZipin koodi pelaa, kun vain laitat tuon Andin tilalle kaksoispisteen ja vertailuissa käytät lukujen ympärillä lainausmerkkejä. Siis jos laitat samalle riville useita käskyjä, ne on eroteltava kaksoispisteellä. And tarkoittaa loogista And-operaatiota ja siksi ei tuu virheilmoitusta eikä toiminta ole halutunlainen.