搜索引擎

开发平台：
Visual Basic

Form1.vb：源码内容
							﻿Public Class Form1
    Private Sub uiExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uiExitButton.Click
        End
    End Sub
    Private Sub uiDisplayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uiDisplayButton.Click
        Dim input As Integer
        If uiNumberInTextBox.Text = "" Then
            MsgBox("Please, input the the number!" & Chr(13) & Chr(10) & "(between 1 and 7)", MsgBoxStyle.Information, "Error!")
            uiNumberInTextBox.Focus()
        Else
            input = Val(uiNumberInTextBox.Text)
            Select Case input
                Case 1
                    uiDisplayTextBox.Text = "This should be a unique identifier for the purposes of filing. If more than one person is working on the project or more than one analysis technique is being used, this identifier could contain letters and numbers. For example, if Chris Smith and Jan Koo are both doing an analysis, the identifier might be CS1 or JK75. If both a heuristic evaluation and a think-aloud usability study were used, the identifiers might be HE6 or TA89.Follow the unique identifier with the word Problem, if the report pertains to a usability problem of the interface, or the words Good Feature, if it describes an aspect of the interface you feel should be preserved in any redesign."
                    uiStringInTextBox.Focus()
                    uiStringInTextBox.SelectAll()
                Case 2
                    uiDisplayTextBox.Text = "This description will be used as the name of this UAR when you talk about its relation to other UARs. Make the name as short as possible (about three to five words) but still descriptive and distinguishable from other aspects of the system.If this UAR is about a problem (as opposed to a good feature), make sure you have a name that describes the problem, rather than a solution."
                    uiStringInTextBox.Focus()
                    uiStringInTextBox.SelectAll()
                Case 3
                    uiDisplayTextBox.Text = "This is the objective supporting material that justifies your identifying the aspect as worthy of report. This section needs to contain enough information for a reader of this UAR to understand what triggered the report. For an HE report, for instance, this could be an image of a cluttered screen and the heuristic about aesthetics and minimalist design. Or, it could be a list of menu items that do not have keyboard shortcuts and the heuristic about providing shortcuts. In a think-aloud study this is usually what was on the screen (a screen shot or description), what the user did (keystrokes, mouse movements), what the system did in response to any user actions, and what the user said. If you have video annotating or editing capability, it can be a brief animation.You need to include enough pertinent information about the identification of an aspect for the reader to understand what the analyst was thinking when the aspect was identified (for HE) or what the user was trying to do when the aspect either hindered or facilitated the user's progress."
                    uiStringInTextBox.Focus()
                    uiStringInTextBox.SelectAll()
                Case 4
                    uiDisplayTextBox.Text = "This is your interpretation of the evidence. That is, for a think-aloud usability test, why you think what happened, happened, or, for an HE, why you think the aspect was designed the way it was. You need to provide enough context in this explanation for the reader to understand the problem—even if they do not know the system or domain as well as you do. "
                    uiStringInTextBox.Focus()
                    uiStringInTextBox.SelectAll()
                Case 5
                    uiDisplayTextBox.Text = "This is your reasoning about how important it is to either fix this problem or preserve this good feature. This includes how frequently the users will experience this aspect, whether they are likely to learn how it works, whether it will affect new users, casual users, experienced users, etc."
                    uiStringInTextBox.Focus()
                    uiStringInTextBox.SelectAll()
                Case 6
                    uiDisplayTextBox.Text = "If this aspect is a problem (as opposed to a good feature to be preserved in the next version of the software), this is the place to propose a solution. It is not necessary to have a solution as soon as you identify a problem—you might find after analyzing the whole interface that many problems are related and can all be fixed by making a single broad change instead of making several small changes.However, if you do propose a possible solution, report any potential design trade-offs that you see."
                    uiStringInTextBox.Focus()
                    uiStringInTextBox.SelectAll()
                Case 7
                    uiDisplayTextBox.Text = "It is often the case that UARs are related to each other. This is where you record which UARs this one is related to and a statement about how it is related. Make sure that all the related UARs point to each other. That is, if UAR #1 related to UAR #30, then UAR #30 should point to UAR #1 in this section and UAR #1 should point to UAR #30 in its version of this section. (It is a common mistake to enter the pointer into a newly created UAR, but neglect to go back to the previous ones that it relates to and update their UARs.)"
                    uiStringInTextBox.Focus()
                    uiStringInTextBox.SelectAll()
                Case Else
                    MsgBox("Invalid Input!" & Chr(13) & Chr(10) & "Enter a number between 1 and 7", MsgBoxStyle.Information, "Error")
                    uiNumberInTextBox.Focus()
                    uiNumberInTextBox.SelectAll()
            End Select
        End If
    End Sub
    Private Sub uiSearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uiSearchButton.Click
        Dim key As String
        Dim index, count, first, last As Integer
        If uiDisplayTextBox.Text = "" Then
            MsgBox("Select a UAR component content description to be searched!", MsgBoxStyle.Information, "Error!")
            If uiNumberInTextBox.Text = "" Then
                uiNumberInTextBox.Focus()
            Else
                uiDisplayButton.Focus()
            End If
        ElseIf uiStringInTextBox.Text = "" Then
            MsgBox("Please, input the the keyword!", MsgBoxStyle.Information, "Error!")
            uiStringInTextBox.Focus()
        Else
            key = uiStringInTextBox.Text
            first = uiDisplayTextBox.Text.ToLower.IndexOf(key.ToLower, index)
            index = index + key.Length
            Label2.Text = uiDisplayTextBox.Text.Length
            If first <> -1 Then
                count = 1
                last = index - key.Length
                Do While index < uiDisplayTextBox.Text.Length
                    index = uiDisplayTextBox.Text.ToLower.IndexOf(key.ToLower, index)
                    If index = -1 Then
                        index = uiDisplayTextBox.Text.Length + 1
                    Else
                        count = count + 1
                        last = index
                        index = index + key.Length
                    End If
                Loop
                uiResultLabel.Text = "First index is: " & first & Chr(13) & Chr(10) & "The last index is: " & last
                If MsgBox("The number of occurrences is:> " & count & Chr(13) & Chr(10) & "Do you want to search the same description for a different keyword?", MsgBoxStyle.OkCancel, "Search Result") = 1 Then
                    uiStringInTextBox.Focus()
                    uiStringInTextBox.SelectAll()
                Else
                    uiNumberInTextBox.Text = ""
                    uiStringInTextBox.Text = ""
                    uiNumberInTextBox.Focus()
                End If
            Else
                uiResultLabel.Text = ""
                If MsgBox(key & " - does not exist in this text" & Chr(13) & Chr(10) & "Do you want to search the same description for a different keyword?", MsgBoxStyle.OkCancel, "Search Result") = 1 Then
                    uiStringInTextBox.Focus()
                    uiStringInTextBox.SelectAll()
                Else
                    uiNumberInTextBox.Text = ""
                    uiStringInTextBox.Text = ""
                    uiNumberInTextBox.Focus()
                End If
            End If
        End If
    End Sub
End Class

						