vb.net - How to fix a function that isn't calling (No error alerts) -


This is a code for my computing coursework to create a seat booking system, to which the user has a desired line input and the adjacent Seats are required, and then the form shows the message that does not have enough seats in that seat, whether seats are available or a warning.

The main problem is that I do not have any errors, but after clicking on the submit button there is nothing that is not suggesting the "Seatblok" function, and I was thinking that Someone can give me a solution

  Personal sub-listbox objects, and events as senders in the form of ARG) handles the box. The selected index changes the end sub Private Private button to 1_Click (the sender in the form of the object, and event as ARG) button 1. Click the Dim row number as integer if ListBox2.Text = "A", then the row number = 1 other listbox 2.Text = "B" then the row number = 2 other list Listbox2.Text = "C" then the row number = 3 Other listbox 2.Text = "D" then row number = 4 other ListBox2. Text = "E" then the row number = 5 end if the search space (line number, list box 1 text), end sub function lookup (form all lines as integer, byval number number as integer) string formation calculation form In the equation = 0 'the first seat as the first letter = 0 in the final form, in the form of the string = 0 dim I = I first form = seatbok (row number, i, firstest, la sitaset) namesetts & gt; Count if I & gt; 9 Return again ("There are not enough seats available in this block") Exit if the seatsblock (Roundland, I, FirstSTATE, last set) = "booked", then calculation = 0 first seat = seatblocks (row number, ( I + 1), first set, last sitat) or the previous seat = seatblocks (row number, i, first set, last sitat) count = i + 1 end if i = i + 1 loop returns ("currently" and cemetts End seats are available: "& amp; FirstSet & amp; Final Siatic) Function Function Seatsblocks (as string strings, in the form of strings, byVal LastSeat string, as the voltage number set, valve row number as integer) ("are currently available "& Amp; NumSeats & Seats Available:" & amp; FirstSeat & amp; "-" & LastSeat) Expiration Function Handles DataGridView1_CellContentClick (as the object, in the form of this object, handles DataGridViewCellEventArgs) DataGridView1.CellContentClick SeatsBlock string (,) = {{ "A1", "A2" was booked, "booked", "booked", "B4", "booked", "A4", "A5", " A6 "," A7 "," A8 "," Reserved "," B5 "," Book "," Book "," B8 "," Book "," B10 "}, {" C1 " , "C2", "C3", "C4", "C5", "C6", "C7", "C8", "C9", "C10"}, {"D 1 "," Reserved "," Reserved "," D4 "," D5 "," D6 "," D7 "," D8 "" D9 "," D10 "}, {" E1 " , "E2", "Book", "Book", "Book", "E6", "E7", "E8", "E9", "E10"}} End Sub   P> Thanks   

Change the following line:

  SearchSeats ( RowNumber, ListBox1.Text)   

To::

  MsgBox (SearchSeats (rowNumber, ListBox1.Text))   

In this way you get a message box, otherwise you will never get the error will see!

Comments

Popular posts from this blog

Pass DB Connection parameters to a Kettle a.k.a PDI table Input step dynamically from Excel -

multithreading - PhantomJS-Node in a for Loop -

c++ - MATLAB .m file to .mex file using Matlab Compiler -