• Pic® Basic


  • BubbleSort

     
    A library module for use withLibrary Manager by JohnGB. This module has been written by Tim Box (Tim on PDS forum). The library module is offered on an as-is basis with no warranty as to its effectiveness, operation or reliability. Users use it at their own risk.

    Adds a new command called BubbleSort

    Syntax

    BubbleSort Array, Elements, Direction

    Overview

    Performs a bubble sort on N number of elements on a byte array in either direction.

    Operators

    Array – any Byte array

    Elements - a constant, or byte variable indicating the number of elements within the array to sort

    Direction - a constant, or byte variable indicating the direction of sorting 0 or 1. Any number > 0 will be taken as 1. 1 = high numbers first, 0 = low numbers first

    Code:
    Include "proton_4.inc""   

    Dim myarray[10] As Byte
    Dim index As Byte

    For index = 0 To 9
        myarray[index] = index
        HRSOut Dec myarray[index],", "
    Next

    HRSOut 13,10 

    index = 1 

    BubbleSort myarray, 10, index

    For index = 0 To 9
        HRSOut Dec myarray[index],", "
    Next

    HRSOut 13,10

    index = 10

    BubbleSort myarray, index, 0 

    For index = 0 To 9
        HRSOut Dec myarray[index],", "
    Next

    HRSOut 13,10

    Stop
    The above example code will fill an array with the values from 0 to 9 and send then sort the array first down then up.

    Download module

    Download: Bubble Sort

  • Recent Activity

    teo-16018

    Microsoft security essentials blues

    Thread Starter: shantanu@india

    Hi, A strange thing happened just now.My Windows 7 Micrsoft Sercurity Essentials suddenly gave a warning that prplus.exe(Compiler) is a potential...

    teo Today, 19:23 Go to last post
    pic-ignorant-1162

    Proton Runtime Error

    Thread Starter: Paulcc

    I have proton running well on my laptop, but after installing it on my desktop, I get the following runtime error: "Runtime Error 217 at 000709FC" I...

    pic-ignorant Yesterday, 22:11 Go to last post
    David Barker-251

    UMC bootloader 18F46K22

    Thread Starter: shunt010

    Hi all. I am trying to build a UMC bootloader file for the 18F46K22, and it doesn't appear to work. It returns (in the error log) Error ...

    David Barker Today, 11:20 Go to last post
    barak-1433

    SPI mssp

    Thread Starter: picprotonguy

    Just ordered Digital to Analog IC MCP4822 with SPI interface and immediately opened proton manual. I'm very disappointed, it looks like Proton...

    barak Today, 16:06 Go to last post