Board Logo
« Simple Text Routines for MainWin »

Welcome Guest. Please Login or Register.
Jan 16th, 2018, 3:34pm


Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Please use the forums Search feature before asking.
Please post code using the code box described in Format Your Messages.
This will keep indentation, separate it better form the message and prevent gibberish.
If the code is too long for one post or additional files are needed, upload a ZIP archive to the Just BASIC Files Archive Site.

« Previous Topic | Next Topic »
Pages: 1  Notify Send Topic Print
 thread  Author  Topic: Simple Text Routines for MainWin  (Read 690 times)
AndyAmaya
Board Moderator


member is offline

Avatar




PM

Gender: Male
Posts: 362
xx Simple Text Routines for MainWin
« Thread started on: Apr 29th, 2016, 2:16pm »

Here are some simple text Sub's that can make any text based project easier and more fun to code.

They are intended to make it easier for novice's to get their 'creative on' in MainWin programs.

In alphbetical order they are:

- SUB drop text.bas
- SUB rise text.bas
- SUB slide text.bas
- SUB spread text.bas
- SUB Text Status Bar.bas
- SUB teleType.bas

All of these show a simplistic usage demo and the commented SUB code.

SUB drop
Code:
MainWin 80 25
For x = 4 To 78 Step 4
    Call drop x, 1, "Print from top to bottom", 15
Next

End


Sub drop xLoc, yLoc, msg$, delay

'==================================================================================
'=  Prints text vertically on the screen, dropping from the specified xLoc and    =
'=  yLoc position.  If the length of the text would continue past row 24,         =
'=  printing will stop at that point                                              =
'==================================================================================
    If delay < 15 Then delay = 15
    r = yLoc

    For i = 1 To Len(msg$)
        Locate xLoc, r
        Print Mid$(msg$, i, 1);
        r = r + 1
'       don't go past bottom of screen
        If c = 26 Then Exit For
        Timer delay, [timerOff]
        Wait
        [timerOff]
        Timer 0
    Next

End Sub
 


SUB rise
Code:
MainWin 80 25
For x = 4 To 78 Step 4
    Call rise x, 24, "Print from bottom to top", 15
Next

End



Sub rise xLoc, yLoc, msg$, delay

'===============================================================================
'=  Prints text vertically on the screen, rising from the specified xLoc and   =
'=  yLoc position.  If the length of the text would continue above row 1,      =
'=  printing will stop at that point                                           =
'===============================================================================
    If delay < 15 Then delay = 15
    r = yLoc

    For i = 1 To Len(msg$)
        Locate xLoc, r
        Print Mid$(msg$, i, 1);
        r = r - 1
        If r = 0 Then Exit For
        Timer delay, [timerOff]
        Wait
        [timerOff]
        Timer 0
    Next

End Sub
 


SUB slide
Code:
MainWin 80 25
Call slide 39, 1, "Slide text from right to left.", 0, 75
Call slide 10, 2, "Slide text from left to right.", 1, 75
End

Sub slide xLoc, yLoc, msg$, leftRight, delay

'============================================================================
'=  Slides text onto the screen to the left or right starting at the        =
'=  specified xLoc and yLoc. Direction is determined by the argument        =
'=  leftRight, where a zero value equals LEFT, non-zero equals RIGHT.       =
'=  delay is measured in milliseconds (1/1000th of a second).               =
'============================================================================
'   minimum delay is 15 milliseconds
    If delay < 15 Then delay = 15

    For i = 1 To Len(msg$)

'       slide to the left
        If leftRight = 0 Then

'           check column for illegal value (<1)
            c = xLoc - i + 1
            If c < 1 Then Exit For

'           print 1 char at a time, from left to right
            Locate c, yLoc
            Print Left$(msg$, i);

        Else

'          slide from right to left, 1 char at a time
           Locate xLoc, yLoc
           Print Right$(msg$, i);

        End If

        Timer delay, [timerOff]
        Wait
        [timerOff]
        Timer 0

    Next

End Sub
 


SUB spread
Code:
MainWin 80 25
Call spread 40, 10, "Text 'spreading' from the center", 75
End

Sub spread xLoc, yLoc, msg$, delay

'===============================================================================
'=  Spreads text on the screen in both directions starting from the specified  =
'=  coordinates.  'delay' is number of milliseconds (must be >= 15)            =
'===============================================================================

'    minimum 15 millisecond delay
    If delay < 15 Then delay = 15

'   if null, get out
    If msg$ = "" Then Exit Sub

    txt$ = msg$

'   make text length even if not already so
    If (Len(txt$) And 1) = 1 Then
       txt$ = txt$ + " "
    End If

'   divide text into left and right sides
    leftSide$ = Left$(txt$, Int(Len(txt$)/2))
    rightSide$ = Right$(txt$, Int(Len(txt$)/2))

    For i = 1 To Len(rightSide$)

        Locate xLoc, yLoc
        Print Right$(rightSide$, i);

'       print a letter from the left side
        If (xLoc - i) >= 1 Then
          Locate xLoc - i, yLoc
          Print Left$(leftSide$, i);
        End If

        Timer delay, [timerOff]
        Wait
        [timerOff]
        Timer 0

    Next

End Sub
 


SUB teleType
Code:
MainWin 80 25
Call teleType "This is an example of 'teleType' text.", 75
End


Sub teleType msg$, delay

'===============================================================================
'=  Prints text one character at a time beginning at the current cursor        =
'=  location.  'delay' between each character being printed is measured in     =
'=  milliseconds (delay of 1000 = 1 second).  If a value of less than 15       =
'=  is specified, the delay defaults to 15 milliseconds.                       =
'===============================================================================

    If delay < 15 Then delay = 15

'   print text 1 char at a time, with a "click" after non-space characters
    For x = 1 To Len(msg$)

        t$ = Mid$(msg$, x, 1)
        Print t$;

        Timer delay, [timeOut]
        Wait
        [timeOut]
        Timer 0

    Next

End Sub
 


SUB sBar
Code:
'Status bar using text only

fmt$ = "###.#"
For i = 0 To 100
    Locate 30,1
    Print Using(fmt$,i);"%"
    Call sBar 10,  2, ">", 50, i
    Call sBar 10,  7, "/", 50, i
    Call sBar 10, 12, ":", 50, i
    Call pause 60
Next

For i = 100 To 0 Step -1
    Locate 30,1
    Print Using(fmt$,i);"%"
    Call sBar 10,  2, "<", 50, i
    Call sBar 10,  7, "\", 50, i
    Call sBar 10, 12, ".", 50, i
    Call pause 60
Next
Print ""
Print "End of 'Text Status Bar.BAS'"

End

Sub sBar xLoc, yLoc, bar$, barMax, pct
    'xLoc, yLoc define the location of upper-left corner of status bar
    'bar$ is the character used to display inside status bar
    'barMax is the maximum number of characters to display 100%
    'pct is the percentage to display in status bar

    boxLen = barMax + 2
    For i = 1 To barMax
        dash$ = dash$ + "-"
        in$ = in$ + bar$
    Next
    If pct > .999 Then frac = pct/100.0
    show$ = Left$(in$, Int(frac*barMax))
    If Len(show$) = barMax Then
        blank$ = ""
    Else
        blank$ = Space$(barMax-Len(show$))
    End If
    Locate xLoc, yLoc
    Print "+"+dash$+"+"
    Locate xLoc, yLoc+1
    Print "|"+show$+blank$+"|"
    Locate xLoc, yLoc+2
    Print "+"+dash$+"+"
End Sub

Sub pause mils
    Timer mils, [out]
    Wait
    [out]
    Timer 0
End Sub
 
User IP Logged

AndyAmaya
Board Moderator


member is offline

Avatar




PM

Gender: Male
Posts: 362
xx Re: Simple Text Routines for MainWin
« Reply #1 on: Apr 29th, 2016, 2:19pm »

- SUB txtBox.bas
Another simple text SUB which has 3 screens showing practical examples.

This text SUB is well commented since it's slightly more complex.

Code:
MainWin 80 25

Gosub [example1]    'Show how different characters can be chosen to make text boxes
Gosub [example2]    'Show how to make a simple data table using text boxes
Gosub [example3]    'Show how to make a menu and highlight the selected menu item
Call center "End of 'Sub txtBox.bas'", 24
End

Sub txtBox xPos, yPos, wide, high, corner$, top$, side$
'==========================================================================
' Draws a box using ASCII text characters
' xLoc, yLoc is the upper-left corner where drawing txtBox begins
' wide is number of characters to place inside of box
' high is number of lines of text to place inside of box
' corner$, top$, and side$ define how box will appear when drawn
'==========================================================================
' Printed box is 2 chars GREATER than wide & 2 lines GREATER than high
'==========================================================================
    'Example:
    ' A box 30 chars wide with 1 line of text will
    ' be 32 chars wide by 3 lines high
    '
    ' xLoc, yLoc
    '      \
    '       \          1         2         3
    '        \12345678901234567890123456789012 <--- Total box width = 32 chars
    '       1 +------------------------------+
    '       2 |**Inside = 30 characters max**| <--- Total box height = 3 lines                       |
    '       3 +------------------------------+

    '            Font = Courier New - Extended ASCII characters
    'These chars can be typed in by holding down the ALT key while typing
    'in the 4 digit character code. Release the ALT key and the extended
    'character will appear at the current cursor position.
    '  - Alt + 0164      - Alt + 0166      - Alt + 0167
    '  - Alt + 0169      - Alt + 0171       Alt + 0176
    '   Alt + 0186      - Alt + 0183      - Alt + 0187
'==========================================================================

    For i = 1 To wide
        hz$ = hz$ + top$
    Next
    Locate xPos, yPos
    Print corner$+hz$+corner$;
    For i = 1 To high
        Locate xPos, yPos+i
        Print side$;
        Locate xPos+wide+1, yPos+i
        Print side$;
    Next
    Locate xPos, yPos + high + 1
    Print corner$+hz$+corner$;
End Sub

[example1]
'Create some examples showing different characters
Call center "You can change 'corner', 'top/bottom', and 'side'",1
Call center "characters to alter the appearance of text box.",2

Call txtBox 4,  4, 25, 1, "+","-","|"
Locate 5,  5:Print " Sample box style 1"

Call txtBox 45,  4, 25, 1, "0","-","|"
Locate 46,  5:Print " Sample box style 2"

Call txtBox 5,  9, 25, 1, "#","=","|"
Locate 6, 10:Print " Sample box style 3"

Call txtBox 45, 9, 25, 1, "*","*","*"
Locate 46, 10:Print " Sample box style 4"

Call txtBox 5, 14, 25, 1, "#","#","#"
Locate 6, 15:Print " Sample box style 5"

Call txtBox 45, 14, 25, 1, "O","O","O"
Locate 46, 15:Print " Sample box style 6"

Call txtBox 5, 19, 25, 1, ".",".",":"
Locate 6, 20:Print " Sample box style 7"

Call txtBox 45, 19, 25, 1, "","",""
Locate 46, 20:Print " Sample box style 8"

Call center "Press [ENTER] for next screen ",24
Input response$
Return

[example2]
'Show simple table layout using 'txtBox' Sub
Cls
'Print main table
For i = 4 To 10 Step 2
    Call txtBox  3, i,  9, 1, "+", "-", "|"
    Call txtBox 13, i, 20, 1, "+", "-", "|"
    Call txtBox 34, i, 20, 1, "+", "-", "|"
    Call txtBox 55, i, 20, 1, "+", "-", "|"
    Read qty, desc$, unit
    Locate  8, i+1: Print qty;
    Locate 16, i+1: Print desc$;
    Locate 37, i+1: Print "$";Using("#######.##",unit);
    Locate 60, i+1: Print "$";Using("#######.##",qty*unit);
    subTot = subTot + qty*unit
Next

'Print table header last to over write top of existing text box
Call txtBox  3, 2,  9, 1, "", "", "|"
Call txtBox 13, 2, 20, 1, "", "", "|"
Call txtBox 34, 2, 20, 1, "", "", "|"
Call txtBox 55, 2, 20, 1, "", "", "|"
Locate  7, 3: Print "Qty";
Locate 21, 3: Print "Desc";
Locate 38, 3: Print "Unit Cost";
Locate 60, 3: Print "Line Amount";

'Print sub-total label and amount
Call txtBox 55, 12, 20, 1, "+", "-", "|"
Locate 45, 13:Print "Sub-Total";
Locate 60, 13:Print "$";Using("#######.##",subTot);

'Local sales tax as a number (not percentage)
salesTax = 0.0825 '8.25%
'Sales tax on sub-total
tax = subTot * salesTax

'Print the tax label and amount
Call txtBox 55, 14, 20, 1, "+", "-", "|"
Locate 36, 15:Print "Sales Tax @ ";Using("##.##", salesTax*100);"%";
Locate 60, 15:Print "$";Using("#######.##",tax);

'Print the total label and amount
Call txtBox 55, 16, 20, 1, "+", "-", "|"
Locate 42, 17:Print "Total Amount";
Locate 60, 17:Print "$";Using("#######.##",subTot+tax);

Call txtBox 22, 20, 31, 1, "*","*"," "
Call center "Text only table",21


Call center "Press [ENTER] for next screen ",24
Input response$
Return

[sampleData]
'   Qty   Desc        Unit Cost
Data  2,  "W Widget", 19.99
Data  1,  "X Widget", 24.99
Data 11,  "Y Widget",  2.99
Data  5,  "Z Widget",  5.99

[example3]
'Simple menu using only text characters
Cls
Call txtBox 30,  5, 20, 1, "","",""
Locate 33,  6:Print "File Menu"
Call txtBox 30,  7, 20, 11, "","",""
Locate 33,  9:Print "[N] New File"
Locate 33, 11:Print "[L] Load File"
Locate 33, 13:Print "[S] Save File"
Locate 33, 15:Print "[E] Edit File"
Locate 33, 17:Print "[X] Exit"

Call center "Menus with non-destructive highlighting",2

For i = 1 To 2
    For j = 8 To 16 Step 2
        'use light weight characters to highlight a menu item
        Call txtBox 32, j, 16, 1, ".",".",":"
        Locate 1,24
        Call pause 350
        'erase the highlighting text box without over writing existing text
        Call txtBox 32, j, 16, 1, " "," "," "
        Locate 1,24
        Call pause 350
    Next
Next
Return

Sub center msg$, yLoc
    xLoc = Int((80-Len(msg$))/2)
    Locate  xLoc, yLoc
    Print msg$;
End Sub

Sub pause mils
    Timer mils,[timerOff]
    Scan
    Wait
    [timerOff]
    Timer 0
End Sub
 
User IP Logged

AndyAmaya
Board Moderator


member is offline

Avatar




PM

Gender: Male
Posts: 362
xx Re: Simple Text Routines for MainWin
« Reply #2 on: Apr 29th, 2016, 2:22pm »

And lastly a simple demo using all of the SUB's above.

Code:
'Simple text routines demo
MainWin 80 25
msg$ = "Simple Text Routines for the Main Window"
ctr = Int( (80-Len(msg$) )  /2)
Locate ctr, 1: Print msg$;

'    txtBox xPos, yPos, wide, high, corner$, top$, side$
Call txtBox    4,    5,   70,    7,     "0",  "-",   "|"

'    drop xLoc, yLoc, msg$, delay
Call drop    2,    5, "Drop text", 75

'    rise xLoc, yLoc, msg$, delay
Call rise   77,   13, "Rise text", 75

'    slide xLoc, yLoc, msg$, leftRight, delay
Call slide    4,    4, "This text slides from left to right", 1, 50
'    slide xLoc, yLoc, msg$, leftRight, delay
Call slide   75,    4, "This text slides from right to left", 0, 50

'    spread xLoc, yLoc, msg$, delay
Call spread   40,    6, "This text is an example of using the 'spread' sub", 100
Call spread   40,    7, "When status bar is 100%, the box around this message will change", 100

For i = 2 To 100 Step 2
    Locate 39, 9
    Print Using("###.#",i);"%"
    '    sBar   xLoc, yLoc, bar$, barMax, pct
    Call sBar      9,   10,  ">",     60, i
    Call pause 100
Next

Call txtBox   4,    5,    70, 7,         "#", "#", "#"
Call pause 1000
Call txtBox   4,    5,    70, 7,         "O", "o", "0"
Call pause 1000
Call txtBox   4,    5,    70, 7,         "#", "=", ""
Call pause 1000
Call txtBox   4,    5,    70, 7,         "O", "-", "|"
Call pause 1000
Call txtBox   4,    5,    70, 7,         "@", ".", ":"

Locate 23, 15
Call teleType "End of 'Simple text routines.bas'", 85

End


Sub drop xLoc, yLoc, msg$, delay
'==================================================================================
'=  Prints text vertically on the screen, dropping from the specified xLoc and    =
'=  yLoc position.  If the length of the text would continue past row 24,         =
'=  printing will stop at that point                                              =
'==================================================================================

    r = yLoc

    For i = 1 To Len(msg$)
        Locate xLoc, r
        Print Mid$(msg$, i, 1);
        r = r + 1
'       don't go past bottom of screen
        If c = 26 Then Exit For
        Timer delay, [timerOff]
        Wait
        [timerOff]
        Timer 0
    Next

End Sub

Sub rise xLoc, yLoc, msg$, delay
'===============================================================================
'=  Prints text vertically on the screen, rising from the specified xLoc and   =
'=  yLoc position.  If the length of the text would continue above row 1,      =
'=  printing will stop at that point                                           =
'===============================================================================
    r = yLoc

    For i = 1 To Len(msg$)
        Locate xLoc, r
        Print Mid$(msg$, i, 1);
        r = r - 1
        If r = 0 Then Exit For
        Timer delay, [timerOff]
        Wait
        [timerOff]
        Timer 0
    Next

End Sub

Sub slide xLoc, yLoc, msg$, leftRight, delay
'============================================================================
'=  Slides text onto the screen to the left or right starting at the        =
'=  specified xLoc and yLoc. Direction is determined by the argument        =
'=  leftRight, where a zero value equals LEFT, non-zero equals RIGHT.       =
'=  delay is measured in milliseconds (1/1000th of a second).               =
'============================================================================
'   minimum delay is 15 milliseconds
    If delay < 15 Then delay = 15

    For i = 1 To Len(msg$)

'       slide to the left
        If leftRight = 0 Then

'           check column for illegal value (<1)
            c = xLoc - i + 1
            If c < 1 Then Exit For

'           print 1 char at a time, from left to right
            Locate c, yLoc
            Print Left$(msg$, i);

        Else

'          slide from right to left, 1 char at a time
           Locate xLoc, yLoc
           Print Right$(msg$, i);

        End If

        Timer delay, [timerOff]
        Wait
        [timerOff]
        Timer 0

    Next

End Sub

Sub spread xLoc, yLoc, msg$, delay
'===============================================================================
'=  Spreads text on the screen in both directions starting from the specified  =
'=  coordinates.  'delay' is number of milliseconds (must be >= 15)            =
'===============================================================================

'    minimum 15 millisecond delay
    If delay < 15 Then delay = 15

'   if null, get out
    If msg$ = "" Then Exit Sub

    txt$ = msg$

'   make text length even if not already so
    If (Len(txt$) And 1) = 1 Then
       txt$ = txt$ + " "
    End If

'   divide text into left and right sides
    leftSide$ = Left$(txt$, Int(Len(txt$)/2))
    rightSide$ = Right$(txt$, Int(Len(txt$)/2))

    For i = 1 To Len(rightSide$)

        Locate xLoc, yLoc
        Print Right$(rightSide$, i);

'       print a letter from the left side
        If (xLoc - i) >= 1 Then
          Locate xLoc - i, yLoc
          Print Left$(leftSide$, i);
        End If

        Timer delay, [timerOff]
        Wait
        [timerOff]
        Timer 0

    Next

End Sub


Sub teleType msg$, delay
'===============================================================================
'=  Prints text one character at a time beginning at the current cursor        =
'=  location.  'delay' between each character being printed is measured in     =
'=  milliseconds (delay of 1000 = 1 second).  If a value of less than 15       =
'=  is specified, the delay defaults to 15 milliseconds.                       =
'===============================================================================

    If delay < 15 Then delay = 15

'   print text 1 char at a time, with a "click" after non-space characters
    For i = 1 To Len(msg$)

        t$ = Mid$(msg$, i, 1)
        Print t$;

        'Playwave "keystroke20ms.wav", async

        Timer delay, [timerOff]
        Wait
        [timerOff]
        Timer 0

    Next
    Playwave ""
End Sub

Sub sBar xLoc, yLoc, bar$, barMax, pct
    'xLoc, yLoc define the location of upper-left corner of status bar
    'bar$ is the character used to display inside status bar
    'barMax is the maximum number of characters to display 100%
    'pct is the percentage to display in status bar

    boxLen = barMax + 2
    For i = 1 To barMax
        dash$ = dash$ + "-"
        in$ = in$ + bar$
    Next
    If pct > .999 Then frac = pct/100.0
    show$ = Left$(in$, Int(frac*barMax))
    If Len(show$) = barMax Then
        blank$ = ""
    Else
        blank$ = Space$(barMax-Len(show$))
    End If
    Locate xLoc, yLoc
    Print ""+dash$+""
    Locate xLoc, yLoc+1
    Print "|"+show$+blank$+"|"
    Locate xLoc, yLoc+2
    Print ""+dash$+""
End Sub

Sub txtBox xLoc, yLoc, wide, high, corner$, top$, side$
'==========================================================================
'           Draw a box using ASCII text characters
'xLoc, yLoc is the upper-left corner where drawing txtBox begins
'wide is number of characters to place inside of box
'high is number of lines of text to place inside of box
'corner$, top$, and side$ define how box will appear when drawn
'==========================================================================
'Printed box is 2 chars GREATER than wide & 2 lines GREATER than high
'==========================================================================
    'Example:
    ' A box 30 chars wide with 1 line of text will
    ' be 32 chars wide by 3 lines high
    '
    ' xLoc, yLoc
    '      \
    '       \          1         2         3
    '        \12345678901234567890123456789012 <--- Total box width = 32 chars
    '       1 +------------------------------+
    '       2 |**Inside = 30 characters max**| <--- Total box height = 3 lines                       |
    '       3 +------------------------------+

    '            Font = Courier New - Extended ASCII characters
    'These chars can be typed in by holding down the ALT key while typing
    'in the 4 digit character code. Release the ALT key and the extended
    'character will appear at the current cursor position.
    '  - Alt + 0164      - Alt + 0166      - Alt + 0167
    '  - Alt + 0169      - Alt + 0171       Alt + 0176
    '   Alt + 0186      - Alt + 0183      - Alt + 0187
'==========================================================================

    For i = 1 To wide
        hz$ = hz$ + top$
    Next
    Locate xLoc, yLoc
    Print corner$+hz$+corner$;
    For i = 1 To high
        Locate xLoc, yLoc+i
        Print side$;
        Locate xLoc+wide+1, yLoc+i
        Print side$;
    Next
    Locate xLoc, yLoc + high + 1
    Print corner$+hz$+corner$;
End Sub

Sub pause ms
    Timer ms, [timerOff]
    Wait
    [timerOff]
    Timer 0
End Sub 
User IP Logged

tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3635
xx Re: Simple Text Routines for MainWin
« Reply #3 on: Apr 30th, 2016, 06:56am »

Cool!
Now, fullscreen green on black wink
« Last Edit: Apr 30th, 2016, 06:56am by tsh73 » User IP Logged

Q: "And if I took your codes and compile them, and sell them for a profit"?
A: Go ahead. I had my share of good then I coded it for fun, if you can make better use of it - please do.
(enjoying JB 1.01 on WinXP, netbook and desktop)
Joseph E.
Full Member
ImageImageImageImage


member is offline

Avatar

Hello.


PM

Gender: Male
Posts: 266
xx Re: Simple Text Routines for MainWin
« Reply #4 on: Nov 22nd, 2016, 6:39pm »

Wow, this is really impressive. You gave me a lot of great ideas!
User IP Logged

Want to know more? I have a list of pretty much everything I've ever done. Joseph's Personal LB Page
AndyAmaya
Board Moderator


member is offline

Avatar




PM

Gender: Male
Posts: 362
xx Re: Simple Text Routines for MainWin
« Reply #5 on: Nov 23rd, 2016, 11:06am »

Thanks!

I tried to make text displays easier for novices of JB, so they can focus on their project, and not the details of placing text.

Glad to see that these SUB's can be useful to even experienced users of JB. smiley
User IP Logged

Rod
Administrator
ImageImageImageImageImage


member is offline

Avatar

Graphics = Goosebumps!


PM

Gender: Male
Posts: 3151
xx Re: Simple Text Routines for MainWin
« Reply #6 on: Nov 23rd, 2016, 12:20pm »

More.. more.. honestly... moresmiley
User IP Logged

RNBW
New Member
Image


member is offline

Avatar




PM


Posts: 12
xx Re: Simple Text Routines for MainWin
« Reply #7 on: Nov 23rd, 2016, 3:58pm »

I've not seen routines like that for ages!

It just shows what can be done using the MainWin without resorting to graphics. It always used to be done like this.

It has been said that the MainWin in LB (and presumably for JB and LBB) is intended for debugging only.

AndyAmaya's code shows what can be produced on the MainWin. I use it for all sorts of "dirty programming". It is particularly useful for converting QB programs. You'd be amazed how often you can get QB programs to run with minimal changes (sometimes it is just a case of changing the label referencing [label] instead of labelsmiley.

I'd very much like to see more code produced for the MainWin.

Perhaps anyone interested would like to list what they would like to see produced and those with the skills could produce it.
User IP Logged

Pages: 1  Notify Send Topic Print
« Previous Topic | Next Topic »

Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Donate $6.99 for 50,000 Ad-Free Pageviews!

| |

This forum powered for FREE by Conforums ©
Sign up for your own Free Message Board today!
Terms of Service | Privacy Policy | Conforums Support | Parental Controls