LB Booster - output to gui problem formating numbers

LB Booster

Programming

Liberty BASIC language (Moderator: Richard Russell)

output to gui problem formating numbers

« Previous Topic | Next Topic »

Pages: 1

Author

Topic: output to gui problem formating numbers (Read 424 times)

hammerjit
New Member

member is offline

Posts: 26

output to gui problem formating numbers
« Thread started on: Jun 17^th, 2015, 08:44am »

Hi, I am having problem with this. My text file sample is like this

Jones, Joyce, 22, 5.6
Newman, Bill, 26, 0.35
Abercrombe, Tom Cruise, 35, 1254.25
Belton, Mindy, 28, 1245687.8
Doyle, Barbara, 15, 1040.05

I want to output to gui and format the last columns as "#,###,###.##"

My code (as below) when executed only show value for first record and the balance rows are blank.

Can someone help me out?

Code:

c=0
dim last$(50),first$(50),age$(50),phone$(50)
dim recnum(50)

    nomainwin

    WindowWidth = 688
    WindowHeight = 575

    statictext #main.statictext1, "StaticText Caption", 38, 66, 100, 440
    statictext #main.statictext2, "StaticText Caption", 148, 66, 100, 440
    statictext #main.statictext3, "StaticText Caption", 248, 66, 100, 440
    statictext #main.statictext4, "StaticText Caption", 348, 66, 100, 440
    open "Showing Records directly from File" for window as #main
    print #main, "font ms_sans_serif 0 16"

open "C:\myTestData.txt" for input as #fo
c=0
while eof(#fo)=0
c=c+1
input #fo, name$
last$(c)=name$
input #fo, name$
first$(c)=name$
input #fo, q$
age$(c)=q$
input #fo, q$
phone$(c)=q$
wend
close #fo
recnum=c

showRec1$=""
showRec2$=""
showRec3$=""
showRec4$=""
for i=1 to recnum
showRec1$=showRec1$+last$(i)+chr$(10)+chr$(13)
showRec2$=showRec2$+first$(i)+chr$(10)+chr$(13)
showRec3$=showRec3$+age$(i)+chr$(10)+chr$(13)
showRec4$=showRec4$+phone$(i)+chr$(10)+chr$(13)
next i


print #main.statictext1,showRec1$
print #main.statictext2,showRec2$
print #main.statictext3,showRec3$
print #main.statictext4,using("###,###.##",showRec4$)

[main.inputLoop]   'wait here for input event
    wait

END

Logged

Richard Russell
Administrator

member is offline

Posts: 1348

Re: output to gui problem formating numbers
« Reply #1 on: Jun 17^th, 2015, 10:42am »

on Jun 17^th, 2015, 08:44am, hammerjit wrote:

Hi, I am having problem with this.

I can see a few problems with your code. Firstly, your CRLF sequences are in the wrong order (you are using LFCR!). Change them to:

Code:

chr$(13)+chr$(10)

Secondly you are passing a string instead of a number to the USING function here:

Code:

using("###,###.##",showRec4$)

Thirdly you seem to be hoping that USING() can format a whole list of numbers in one go. It can't - it can only format a single number. So you will need to call USING() for each value in the list; this is most easily done when you construct the list:

Code:

showRec4$=showRec4$+using("###,###.##",val(phone$(i)))+chr$(13)+chr$(10)

Richard.

Logged

hammerjit
New Member

member is offline

Posts: 26

Re: output to gui problem formating numbers
« Reply #2 on: Jun 18^th, 2015, 06:22am »

Thanks Richard, that was a great help. Got it to work.

Logged

hammerjit
New Member

member is offline

Posts: 26

Re: output to gui problem formating numbers
« Reply #3 on: Jun 19^th, 2015, 07:02am »

Hi Richard, supposedly with this same code and text file, I want to display each record in 2 lines, can it be done?

eg

<first line>Jones Joyce
<2nd line> 22 5.6
<blank line>
<3rd line>Newman Bill
<4th line> 26 0.35
<blank line>
etc....

Asking this since in my actual data, I want to display 15 columns and it is not wide enough currently

Or is there another possible solution?

Logged

tsh73
Full Member

member is offline

Gender:

Posts: 210

Re: output to gui problem formating numbers
« Reply #4 on: Jun 19^th, 2015, 07:32am »

I think you better have it scrolled.
You can use Listbox and use Stylebits to add horisontal scrollbar
(I just found stylebits at LB forum - I do not use them so have no idea)
Code:

'   Form created with the help of Freeform-J v.261006
'   Generated on Jun 19, 2015 at 10:17:41

    nomainwin

    WindowWidth = 328
    WindowHeight = 310

    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)

    N=40        'as big as you need
    dim array$(N)

    listbox #main.listbox1, array$(, [listbox1DoubleClick], 22, 16, 272, 250
    Stylebits #main.listbox1, _WS_HSCROLL, 0,0, 0
    open "untitled" for window as #main
    print #main, "trapclose [quit.main]"

    print #main, "font courier_new 8"   'you need monospaced font so columns neatly stack up

    'populate listbox array. Make it big (run several times)
   for k = 1 to 5
   restore
    for i = 1 to 5
        j=j+1
        read a1$, a2$, n1, n2
         array$(j)=padr$(a1$,12)+padr$(a2$,10)+"    "+using("###",n1)+"   "+using("#######.##",n2)
    next
   next

    'reload listbox
    #main.listbox1 "reload"
    wait

[quit.main]
    Close #main
    END


[listbox1DoubleClick]    'Perform action for the listbox named 'listbox1'
    'Insert your own code here
    wait

data Jones, Joyce, 22, 5.6
data Newman, Bill, 26, 0.35
data Abercrombe, "Tom Cruise", 35, 1254.25
data Belton, Mindy, 28, 1245687.8
data Doyle, Barbara, 15, 1040.05

'-------------------------------
'adds spaces from the left until 'n' symbols
'if n<len(a$) returns left$(a$,n)
function padl$(a$,n)
    padl$ = left$(space$(n-len(a$))+a$,n)
end function

'adds spaces from the right until 'n' symbols
'if n<len(a$) returns left$(a$,n)
function padr$(a$,n)
    padr$ = left$(a$+space$(n-len(a$)),n)
end function

Logged

Pages: 1


« Previous Topic \| Next Topic »