.............................

[GenericName]

...

Endret 11. januar 2011 av Token

[abcd423417984]

select case. her kommer et eksempel:

 

Select Text1.text

  Case "hei"

    MsgBox "hallo"

  Case "hadet"

    MsgBox "adjø"

  Case Else

    MsgBox Text1.text

End select

Endret 25. november 2004 av invictus

[Blib]

Du kan bruke Case Select for eksempel. Funker noen lunde likt. Men kom heller med et skikkelig eksempel på hvor du ville brukt mange if's, for med det eksempelet der vil koden bare se hårreisende ut dersom du skal prøve å dekke alle mulige responser.

[Jonas]

Å bruker 10238745 if's til en chat-bot er dårlig, og veldig tidkrevende.

 

Skikkelig AI lages ikke slik. Mye if's, men ikke bare if's

 

Edit: Altså .. Det blir heller ikke mye bedre å bruke select case. Det er bare et annen alternativ.

Endret 25. november 2004 av Jonas

[GenericName]

...

Endret 11. januar 2011 av Token

[Jonas]

Hvis du bare skal peise på med If's, som i første post, finnes det mange andre, og mye bedre måter.

[aadnk]

Til eksempel kan vi tenke oss et scenario hvor brukeren skal få tilbakemelding avhengig av hva som tastes inn i en tekstboks. Da kan vi bruke If eller Select Case, men det er blant annet også mulig å bruke en Array (eller en Class-module og CallByName, hvis du virkelig vil være sofistikert):

 

Private Sub Command1_Click()

Dim sCommand As String, Tell As Long

' Laster inn kommandoen
sCommand = Text1.Text

' Sjekker alle elementene i tabellen, og utfører den spesifiserte handlingen, som
' her er å vise en forhåndsbestemt melding i en [I]msgbox[/I.]

For Tell = LBound(aCmd) To UBound(aCmd)
     If sCommand = aCmd(Tell) Then
           MsgBox "Melding: " & aMsg(Tell), vbInformation, "Test"
     End If
Next

End Sub

Private Sub Form_Load()

aCmd = Array("svart", "lys", "kjedelig", "himmel")
aMsg = Array("hvit", "mørk", "trivelig", "helvete")

End Sub