'' Note: first parameter is an "Integer Ptr" '' If your array is of a different type, the first parameter type must be [ThatType] Ptr Sub ReArrangeArray( ByVal myIntArray As Integer Ptr, ByVal myIntArraySize As Integer ) '' In here, we can access the array by myIntArray to myIntArray[myIntArraySize-1] '' If this is a regular integer array, you can get the value with: '' Print myIntArray '' And to set the value: '' myIntArray = 100 '' And to swap the value from two elements: '' Swap myIntArray, myIntArray End Sub Dim test(5 To 100) As Integer '' Notice the @ symbol, which gets the memory address of the variable, which is essentially what a pointer is. ReArrangeArray( @test(LBound(test)), UBound(test) - LBound(test) )
SUB ReArrange( ByRef myIntArray() As Integer ) '' ... END Sub
I have been a qbasic programmer since 2000, creating games, minor libraries and various small programs. I have experience using interrupts, graphics, file input/output, the mouse cursor, and using libraries. I have also learned FreeBASIC, QB64, c/c++, python, lua, php and html.
I do not claim to be an absolute authority in any language, but I don't mind looking things up and learning with you.
I have been programming in *Basic dialects since 2000, as mentioned in my expertise. After a year of QBasic, I learned C and C++, and dabbled a little in ASM (I don't program in ASM - I literally just played around to see how things work). When QB64 and FreeBASIC were released, I played with those languages. At the time, FreeBASIC offered more functionality and I sided with that language for a while. During that time, while I was learning new languages, that I would see what scripting languages are available, where I took up python and lua. I started to notice a staleness to QB64's development (which I kept tabs on from time to time), and am now trying to be active in it's community and maybe in it's development in the future.
Currently, I am only active on the QB64.net forums, but I appear on occasion on FreeBASIC.net's forums as well.
Highschool - 2007