Linear Search Process Using Visual Basic 2008

  • June 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Linear Search Process Using Visual Basic 2008 as PDF for free.

More details

  • Words: 661
  • Pages: 5
A Program in Linear Search Using Visual Basic 2008 (version 9.0) By Ariel T. Sumagaysay, MSCS A. Form Design Design the form shown below using the Visual Basic 2008:

B. Components The following are the components of the program: 1 Form, 1 GroupBox, 4 Labels, 1 ListBox, 5 TextBoxes and 5 Buttons.

2

C. Code Listings 'LINEAR SEARCH 'PROGRAM BY ARIEL T. SUMAGAYSAY 'COLLEGE OF INFORMATION & COMMUNICATION TECHNOLOGY 'WEST NEGROS UNIVERSITY 'DECEMBER 15, 2008 Public Class Form1 'Variables Dim nNumberOfElements As Integer Dim sNumbers As String Dim nFind As Integer Dim n As Integer Dim x As Integer Dim s As String 'One Dimensional Array Dim aInputSet() As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Setting Buttons - controls Button2.Enabled = False Button3.Enabled = False Button4.Enabled = False TextBox1.Enabled = True TextBox6.Enabled = False TextBox7.Enabled = False TextBox1.Text = " " TextBox2.Text = " " TextBox3.Text = " " TextBox6.Text = " " TextBox7.Text = " " ListBox1.Items.Clear() 'Initialize variables nNumberOfElements = 0 n = 0 x = 0 s = " " sNumbers = " " 'Set string of numbers to NULL nFind = 0 'Set the Number of Elements ReDim aInputSet(0) End Sub

3 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Re - setting Buttons Button2.Enabled = False Button3.Enabled = False Button4.Enabled = False Button5.Enabled = True TextBox1.Enabled = True TextBox6.Enabled = False TextBox7.Enabled = False TextBox1.Text = " " TextBox2.Text = " " TextBox3.Text = " " TextBox6.Text = " " TextBox7.Text = " " ListBox1.Items.Clear() 'Initialize variables nNumberOfElements = 0 n = 0 x = 0 s = " " sNumbers = " " 'Set string of numbers to NULL nFind = 0 'Set the Number of Elements ReDim aInputSet(0) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Terminate Program End End Sub Private Sub bubblesort() 'Sort the elements using bubblesort Static a As Integer Static b As Integer Static temp As Integer Static sHereNumbers As String 'initialize variables a = 0 b = 0 temp = 0 sHereNumbers = " " For a = 1 To n For b = 1 To n - 1

4 If (aInputSet(b) > aInputSet(b + 1)) Then temp = aInputSet(b) aInputSet(b) = aInputSet(b + 1) aInputSet(b + 1) = temp End If Next Next 'display list For a = 1 To n sHereNumbers = sHereNumbers + Str(aInputSet(a)) & " " TextBox3.Text = sHereNumbers Next 'Enable Search button Button3.Enabled = True TextBox7.Enabled = True End Sub Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click 'Setting Buttons Button4.Enabled = True Button5.Enabled = False TextBox6.Enabled = True TextBox1.Enabled = False 'Get number of elements nNumberOfElements = CInt(TextBox1.Text) n = nNumberOfElements ReDim aInputSet(n) 'set command button label s = Format(1, "0#") Button4.Text = "&ENTER ELEMENT " + s End Sub Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Static y As Integer y = 0 'Enter numbers If TextBox6.Text <> " " Then x = x + 1 y = x s = Format(y + 1, "0#") Button4.Text = "&ENTER ELEMENT " + s aInputSet(x) = CInt(TextBox6.Text) If x = n Then Button4.Enabled = False TextBox6.Enabled = False Button4.Text = "&ENTER ELEMENT"

5

Call bubblesort() End If sNumbers = sNumbers & TextBox6.Text & " " TextBox2.Text = sNumbers TextBox6.Text = " " End If End Sub Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Static z As Integer Static bFind As Boolean 'Setting Buttons & Initialization Button2.Enabled = True bFind = False ListBox1.Items.Clear() 'Searching nFind = CInt(TextBox7.Text) For z = 1 To n If nFind = aInputSet(z) Then ListBox1.Items.Add("Number is found on location " & Str(z)) bFind = True End If Next If bFind = False Then ListBox1.Items.Add(" Number is NOT FOUND on the LIST! ") End If End Sub End Class

Related Documents