Småproblemer med IF, Then

[nassie]

Jeg har nettop startet med Visual Basic 2005 express, og har laga ett enkelt paint program, en notisblokk med meny, ett lite gjett nummeret spill osv. Alt har jeg brukt oppskrift på (templates).

nå fikk jeg lyst til å lage en meget enkel "venn".

 

programmet består av 2 tekstbokser og en button hvor:

 

textbox1 = der du skriver meldingen til "boten"

button1 = trykker du på for å få svar.

textbox2 = er "boten" som svarer

 

Hele koden går på If, Then. for eksempel:

 

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = ("hei") Then

            TextBox2.Text = ("hei du:)")

        End If

        If TextBox1.Text = ("hvordan står det til?") Then

            TextBox2.Text = ("bare bra med meg, enn der?")

        End If

    End Sub

 

Når jeg kjører programmet nå så må jeg si enten "hei" eller "hvordan står det til?"

for at "boten" skal svare. Jeg kan ikke si "hei:)"

 

Det jeg lurer på er hvordan jeg kan få programmet til å reagere på ett eller flere ord?

 

f.eks:

jeg skriver, "hva syntes du om snus?" så kjenner programmet igjenn ordet "snus" bare og er programert til å svare "jeg elsker snus"

 

beklager om det er vanskelig å forstå hva jeg mener men bare å spørre så skal jeg prøve å forklare bedre, og ja jeg veit at dette kansje er ett latterlig program. Men jeg skal lage det for å bli bedre.

[PerB]

Du må sjekke om et ord (f.eks "snus") finnes i den intastede strengen. denne type funksjoner returnerer ofte posisjonen ordet befinner seg i (starter i). Se etter om din Basic har funksjonen POS(...)

[nassie]

hvordan finner jeg ut om den har funksjonen POS?

[aadnk]

hvordan finner jeg ut om den har funksjonen POS?

6589207[/snapback]

.NET har umiddelbart ingen global funksjon slik PerB antyder (med mindre du importerer Microsoft.Visual Basic, der en kan benytte InStr), men streng-klassen har imidlertid en rekke relevante funksjoner for dette formålet, blant annet funksjonen Contains:

    ' Initialiserer testvariabel

    Dim Test As String = "Hello World!"

 

    ' Sjekk om variabelen inneholder et visst ord (case insensitive)

    If Test.ToLower.Contains("hello") Then

        MessageBox.Show("Strengen inneholder ordet 'hello'")

    End If