Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / SORTS_2 / SORTS.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-03-16 | 14.0 KB | 249 lines

Sorts A Program of Sorts MS Sans Serif Form1% EXIT_PGM START START SortPlot Label5 (EXIT leaves program, writes result file. Label4 3Results text file will be placed in C:\SORT_LST.TXT Label1 Algorithm Run Time text1 ,Algorithm Now Running Shown on Title Bar MS Sans Serif Clock 00:00.00 Arial Swaps Arial Iterations Arial Label3 Swaps Arial Label2 Iterations Arial Form_Click Label4_Clickr @ Form_Load Clock_Click Index& SortPlot_Click^ START_Click< RackEmUp MakeCell cell' @ ShowPlots| rack& plotw SortPlot panel2 SortContest checker start Caption qsort DoneC qprogress6 Light scootborderleft SwapW miditeration iteration4 ShowTime StartTimeg elapsed! clock Sorted ForeColorU BackColorL oldx1+ oldy1^ oldx2( oldy2 OverPlot ssort swicN iterations ShowIter NewPlot newx1 newy1 newx2 newy21 newxe bsort oldx& bubsorty goto2600 botmloop toploopI leftloop crossU rightloop @ resetplot binsearch! arraysizeu position SearchK rangeleftt rangeright testunit Search_Click lookfor Label1_Click Label3_Click Label2_Click QuickSort_Click ShellSort_ClickX BubbleSort_Click! sorts swapsA MergeSort_Click| HeapSort_Click hsortm InsertionSort_Click ResetSort isort msort RadixSort_Click rsort DisplaySwitch_Click DisplayOn DisplaySwitch/ qsort2b bsort2w ssort2E toploop2 bubsort2 SelectionSort_Click selsort selsort2 NewPlot1? @ OverPlot1 isort2, NewPlot2 @ OverPlot2 started msort2 subunit SubPlot subx9 @ UnSubPlot unsubx unsuby recurs| olderx1l oldery1 dfsort max# uminf dfsort2 ShowIteU DFSort_Click DF_Sort_Clickv Screen MousePointer Quit_ClickH Form1 SortText1 SortStep SortTemp Exchanges Passes RangeEnd RangeStart SortRangeb LastTimeStr ElapsedTime1 Label1 Label2 Label3 text1q TempE @ gksort GK_Sort_Click HashSort_Click7 results sort_number Form_Unload Cancelf Sorted_Click Command2_Click Command1_Click| Iterations_Click name_Click time_gone] display hours minutes seconds EXIT_PGM_Click base_data first_pass Visible Enabled exit_pgm timegone4 bsort dfsort EXIT_PGM_Click Form_Load Form_Unload c:\sort_lst.txt Iterations Swaps gksort HeapSort_Click hsort isort NewPlot SortPlot.PSet (newx1, newy1), QBColor(11) SortPlot.PSet (newx2, newy2), QBColor(11)) NewPlot1 SortPlot.PSet (newx1, newy1), QBColor(11)) NewPlot2 SortPlot.PSet (newx2, newy2), QBColor(11)) OverPlot OverPlot1 OverPlot2 qsort RackEmUp For chk = 1 To cell - 1 If vl = unit(chk) Then GoTo MakeCell Next chk RadixSort_Click resetplot rsort selsort ShowIter ShowPlots ShowTime hh:mm:ss ssort START_Click Bubble Sort Bubble sort DF Sort DF Sort GK Sort GK Sort Heap Sort Heap Sort Insertion Sort Insertion Sort Quick Sort Quick Sort Selective Sort Selective Sort Shell Sort Shell Sort SubPlot time_gone UnSubPlot