Print Page - Multiple Dimensional Array v's Type Statement

Active Forums => QB64 Discussion => Topic started by: Dimster on December 22, 2018, 09:55:35 am

Title: Multiple Dimensional Array v's Type Statement
Post by: Dimster on December 22, 2018, 09:55:35 am

I found I just like the looks of Select Case over If.. statements and where possible I prefer to nest an IF statement in a Select Case .. just for the look of it. Now I'm writing a larger program with a lot more saving and retrieving from files. Again, just because I liked the look of it I have been using Type Statements rather than multi dimensional arrays. It's not too late for me to rethink, and recode for better efficiency - as my program gets larger and data handling increases, is there any particular advantage the array would have over the Type?

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: bplus on December 22, 2018, 05:25:34 pm

I'd say the main advantage (and maybe the only) of Type is making your code readable and understandable 3 years from now.

You also have a 3rd option, maybe considered the most primitive but still very readable and that is to have a separate single dimension array for what would be each line in the Type definition and a common index would keep all the values in sync.

A multi-dimensional array would be my last choice but it is a matter of preference.

Append: TYPE has more advantages, excellent for fixed record size for data basing and with Type you can have an array of mixed typed variables. With a multi-dimensional array, you are stuck with one type.

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: Dimster on December 23, 2018, 11:06:59 am

Thanks. and Merry Christmas, Happy New Year, Happy Birthday, Happy Halloween and all those other happy events I have missed. I hadn't considered going to much smaller uni-arrays, so to speak. Back to the drawing board.

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: bplus on December 23, 2018, 11:11:39 am

I appended two more advantages with a Type Array. Season's Greetings back to you!

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: OldMoses on December 23, 2018, 05:18:41 pm

I have to agree with Bplus on the readability of the TYPE over a multidimensional array. I feel like I have half a chance of figuring out what I was doing later on. Even so, with a good comment section to lay out the scheme, it wouldn't be too hard to get up to speed again.

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: Dimster on December 23, 2018, 05:56:06 pm

I appreciate that Andy. TYPE without the comments does give a better "look" to the logical flow, and with the comment section hopefully you can pass your code onto the grand kids and they may have some chance to understand where you were going with it all. I'm just now working on breaking up an old TYPE statement into the various individual, singular arrays. Lot more 'commenting' seems to be needed as I'm losing track of which array connects with which other array - had to rename them with a common theme.

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: FellippeHeitor on December 23, 2018, 06:21:35 pm

An array of a custom type is much more readable and kind of resemble modern languages' classes.

In the end all options are indeed valid code and it boils down to personal preference.

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: xra7en on December 24, 2018, 02:51:17 pm

Quote from: bplus on December 22, 2018, 05:25:34 pm

I'd say the main advantage (and maybe the only) of Type is making your code readable and understandable 3 years from now.

You also have a 3rd option, maybe considered the most primitive but still very readable and that is to have a separate single dimension array for what would be each line in the Type definition and a common index would keep all the values in sync.

A multi-dimensional array would be my last choice but it is a matter of preference.

Append: TYPE has more advantages, excellent for fixed record size for data basing and with Type you can have an array of mixed typed variables. With a multi-dimensional array, you are stuck with one type.

another advantage - is if your a text gamer (like me hehehe), makes game saves a breeze! Just stuff player with all vars relating to player and then if needed, all dynamic game vars in a UTD, and then save both to a file..

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: Dimster on December 25, 2018, 03:26:17 pm

xra7en - That's interesting. I haven't really worked with UTD, as most of my arrays are working with values. Doesn't UTD work mostly with strings? Have to confess I did come across UTD a while ago and came away with thinking it mostly stores and retrieves words. I guess a value can be STR$'d

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: bplus on December 25, 2018, 03:45:08 pm

UTD?

I've heard of UDT (User Defined Type) but not UTD??

Probably mean UDT given subject of this thread. ;-))

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: SMcNeill on December 25, 2018, 04:15:31 pm

Quote from: bplus on December 25, 2018, 03:45:08 pm

UTD?

I've heard of UDT (User Defined Type) but not UTD??

Probably mean UDT given subject of this thread. ;-))

I’ve worked with some databases that used UDT as an abbreviation for User Data Type, which is what I assumed it was representing here; though you’re probably correct in assuming it was originally just a typo.

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: Dimster on December 26, 2018, 12:12:39 pm

My apologizes, my mind went to Universal Text Data.

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: xra7en on December 26, 2018, 02:49:34 pm

Quote from: SMcNeill on December 25, 2018, 04:15:31 pm

Quote from: bplus on December 25, 2018, 03:45:08 pm
UTD?

I've heard of UDT (User Defined Type) but not UTD??

Probably mean UDT given subject of this thread. ;-))

I’ve worked with some databases that used UDT as an abbreviation for User Data Type, which is what I assumed it was representing here; though you’re probably correct in assuming it was originally just a typo.

dyslexia...
but I mean what you know...

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: xra7en on December 26, 2018, 02:55:24 pm

its kdnda lkie redaing tihs mesasge. If you go wtih the folw, you knida get the gist of waht I was tyring to say LOL

(old trick on how peoples minds can be when reading. we just fill in the gaps)

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: bplus on December 26, 2018, 09:05:53 pm

Quote from: xra7en on December 26, 2018, 02:55:24 pm

its kdnda lkie redaing tihs mesasge. If you go wtih the folw, you knida get the gist of waht I was tyring to say LOL

(old trick on how peoples minds can be when reading. we just fill in the gaps)

Code: QB64: [Select]

_TITLE "Scampling" 'B+ translated from JB to QB64 only changingmsg$() and adding this line,  2019-12-26
'scampling.txt for JB v1.01 [B+=MGA] 2016-05-15
'modified for JB from scampling.bas SmallBASIC 2015-09-02 MGA/B+
 
'2018-12-27 need Randomize
RANDOMIZE TIMER
'2018-12-27 oops missed RND(0)
PRINT RND(0) ' always returns the last value returned
 
 
DIM msg$(3)
'see if scample$ can unscramble some of following by accident
msg$(1) = "its kdnda lkie redaing tihs mesasge. If you go wtih the folw, you knida get the gist of waht I was tyring to say LOL"
msg$(2) = "(old  trick on how peoples minds can be when reading. we just fill in the gaps) "
msg$(3) = "THIS MESSAGE SHOWS YOU, THAT THE CAPABILITIES OF YOUR BRAIN ARE REALLY GREAT!"
 
punc$ = " <,>.?/:;'{[}]|\!@#$%^&*()_-+=" + CHR$(34)
 
FOR m = 0 TO UBOUND(msg$)
    lastp = 0: build$ = ""
    FOR i = 1 TO LEN(msg$(m))
        IF INSTR(punc$, MID$(msg$(m), i, 1)) THEN
            wrd$ = MID$(msg$(m), lastp + 1, i - lastp - 1)
            build$ = build$ + scample$(wrd$) + MID$(msg$(m), i, 1)
            lastp = i
        END IF
    NEXT
    IF lastp < LEN(msg$(m)) THEN
        wrd$ = MID$(msg$(m), lastp + 1)
        build$ = build$ + scample$(wrd$)
    END IF
    PRINT build$
NEXT
 
FUNCTION scample$ (wrd$)
    IF wrd$ = "scramble" THEN scample$ = CHR$(34) + "scample" + CHR$(34): EXIT FUNCTION
    IF wrd$ = "a" THEN scample$ = "aa": EXIT FUNCTION
    IF LEN(wrd$) THEN
        flaglower = 0
        FOR i = 1 TO LEN(wrd$)
            IF INSTR("abcdefghijklmnopqrstuvwxyz", MID$(wrd$, i, 1)) THEN flaglower = 1: EXIT FOR
        NEXT
        IF flaglower THEN 'just mess up the word a little, leave first and last letter the same
            IF LEN(wrd$) > 3 THEN
                lp = INT(RND * (LEN(wrd$) - 3)) + 2
                wrd$ = MID$(wrd$, 1, lp - 1) + MID$(wrd$, lp + 1, 1) + MID$(wrd$, lp, 1) + MID$(wrd$, lp + 2)
            END IF
        ELSE 'all upper case letters so do a different substition numbers for letters and vice versa
            bld$ = ""
            FOR ch = 1 TO LEN(wrd$)
                L$ = MID$(wrd$, ch, 1)
                SELECT CASE L$
                    CASE "A": s$ = "4"
                    CASE "4": s$ = "A"
                    CASE "B": s$ = "8"
                    CASE "8": s$ = "B"
                    CASE "E": s$ = "3"
                    CASE "3": s$ = "E"
                    CASE "G": s$ = "6"
                    CASE "6": s$ = "G"
                    CASE "I": s$ = "1"
                    CASE "1": s$ = "I"
                    CASE "O": s$ = "0"
                    CASE "0": s$ = "O"
                    CASE "S": s$ = "5"
                    CASE "5": s$ = "S"
                    CASE ELSE: s$ = L$
                END SELECT
                bld$ = bld$ + s$
            NEXT
            wrd$ = bld$
        END IF
    END IF
    scample$ = wrd$
END FUNCTION
 
 

EDIT: Oops, I forgot JB handles RND differently than QB64, code has been updated.

Title: Re: Multiple Dimensional Array v's Type Statement
Post by: xra7en on December 27, 2018, 01:52:34 pm

ROFLMAO!!! love it OK, so Im not the only one that gets bored and write some random code - just because
ok, s'pose we should get back on topic :P

Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Dimster on December 22, 2018, 09:55:35 am