Board Logo
« getting started, Pigeon Breeders Records program »

Welcome Guest. Please Login or Register.
Jan 21st, 2018, 12:50am


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 ... 5 6 7 8 9  ...  11 Notify Send Topic Print
 veryhotthread  Author  Topic: getting started, Pigeon Breeders Records program  (Read 10844 times)
tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: getting started with Prog for Pigeon Breeding
« Reply #90 on: Sep 15th, 2016, 01:34am »

Hello stumpy
I really can't keep up with you ;)
A few things.

Quote:
Yes there are several striped bmps which get out of proportion vertically, which matters because they need to match the textboxes,

It should align with font size - and it is scaled - I'm afraid there is no way around but use same main font and draw it in graphicbox with commands. It should be relatively easy, though.

Quote:
also the 'select ring set' buttons in Nest Cards screen, which masks nearby objects on 1280x1024

I have the idea about it. Basically bmpbutton size depends on bitmap it created with
But after you could load different BMP to bmpbutton - and it will scale!
Not very good - scaling down adds artifacts, but scales.
I have a code - default pigeon looks recognizable (from the cat), but pairstripb.bmp scales really nice
If all you need from picture is to show (that is, not draw on it or detect mouse position), than you can put BMPBUTTON and disable it.

Quote:
and static text is displaced, also on 1920x1080.
My program might miss some statictext. Please look in a program does it have "*scale" added? (I just don't know by heart there it is supposed to be so I cannot see what's displaced)
So please tell me what line/name this control has so I might fix it.

Quote:
What screen sizes do you think would be most useful?

I think it scales to width, and 1024 is absolute minimum
So with "small" font it is visble at that size (it even works on my netbook 1024x600 screen)
With Arial Narrow I believe it is visible only at 1280
(actually should do some screencaps and post here, may be later)
Same about italics - will do comparison post with pictures. I think right way is 1) have main font set in single place, something like
Code:
mainFont$="font Arial Narrow 10 italic" 

and used then needed
Code:
print #main, mainFont$ 

2) then adapting to scaled program, change that firts line so it select font on DisplayWidth (so for 1024 it'll be Small , for may be others Arial Narrow)

Quote:
but the three pages each open near the middle of the screen, when they only slightly overlap the bottom.

See "Size and Placement of Windows" in a helpfile.
Basically, if you set UpperLeftX and UpperLeftY to 1, it'll be in upper left.

EDIT
I see your program start with huge list of GLOBAL variables.
Global used to make variables be available in subs/functions - but you don't have any.
So why?
« Last Edit: Sep 15th, 2016, 01:38am 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)
stumpy
Full Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 148
xx Re: getting started with Prog for Pigeon Breeding
« Reply #91 on: Sep 15th, 2016, 01:52am »

Thank you, that's plenty for me to check out...

Meanwhile, according to earlier advice,
and as recommended for JustBasic itself (for it not to be installed into a Windows-restricted folder):-
In v1.6, 'saveload$' has been adjusted to C:\Basic\Breeders and Installation readme has been edited
https://www.filesanywhere.com/fs/v.aspx?v=8b7164885c65727bb399
« Last Edit: Sep 15th, 2016, 02:44am by stumpy » User IP Logged

tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: getting started with Prog for Pigeon Breeding
« Reply #92 on: Sep 15th, 2016, 01:55am »

Sample scaling (run from there your program sits)
scaling of pigeon
Code:
'"bmp\DefaultCock.bmp" 282x180
nomainwin
srcPic$="bmp\DefaultCock.bmp"
loadbmp "srcPic", srcPic$ 
call GetBmpDimensions srcPic$, srcW, srcH
'srcW=282
'srcH=180

srcWidth = 1920
smallWidth1=1280
smallWidth2=1024
scale1=smallWidth1/srcWidth
call makeEmptyBmp "smallBmp1.bmp", srcW*scale1, srcH*scale1
scale2=smallWidth2/srcWidth
call makeEmptyBmp "smallBmp2.bmp", srcW*scale2, srcH*scale2

UpperLeftX=1
UpperLeftY=1
WindowWidth=900
WindowHeight=300

graphicbox #main.grSrc, 0, 30, srcW, srcH
statictext #main "source pic", 0, 0, 300, 25
bmpbutton #main.small1, "smallBmp1.bmp", [dummy], UL, 300, 30
statictext #main "scaled to 1280 width", 300, 0, 300, 25
bmpbutton #main.small2, "smallBmp2.bmp", [dummy], UL, 600, 30
statictext #main  "scaled to 1024 width", 600, 0, 300, 25
open "test" for window as #main
#main "trapclose [quit]"
#main.grSrc "down"
#main.grSrc "drawbmp srcPic"
#main.grSrc "flush"

#main.small1 "bitmap srcPic"
#main.small2 "bitmap srcPic"
#main.small1 "disable"
#main.small2 "disable"

wait

[dummy]
    wait

[quit]
    close #main
    end
'-------------------------
sub makeEmptyBmp name$, w, h
    call tryToKill name$
    open "temp" for graphics as #1
    #1 "getbmp tempBmp 0 0 ";w;" ";h
    close #1
    bmpsave "tempBmp", name$ 
end sub

sub tryToKill filename$
    on error goto [dontCare]
    kill filename$
[dontCare]
end sub

'============================
'Custom function from Freeform-J v.261006

sub GetBmpDimensions fileName$, byref width, byref height
    open fileName$ for input as #gbd
    temp$ = input$(#gbd, 24)
    close #gbd
    width = asc(mid$(temp$, 19, 1))+asc(mid$(temp$, 20, 1))*256
    height = asc(mid$(temp$, 23, 1))+asc(mid$(temp$, 24, 1))*256
end sub 

scaling of pairstripb.bmp
Code:
nomainwin
srcPic$="bmp\pairstripb.bmp"
loadbmp "srcPic", srcPic$ 
call GetBmpDimensions srcPic$, srcW, srcH
'srcW=282
'srcH=180

srcWidth = 1920
smallWidth1=1280
smallWidth2=1024
scale1=smallWidth1/srcWidth
call makeEmptyBmp "smallBmp1.bmp", srcW*scale1, srcH*scale1
scale2=smallWidth2/srcWidth
call makeEmptyBmp "smallBmp2.bmp", srcW*scale2, srcH*scale2

UpperLeftX=1
UpperLeftY=1
WindowWidth=900
WindowHeight=300

graphicbox #main.grSrc, 0, 30, srcW, srcH
statictext #main "source pic", 0, 0, 300, 25
bmpbutton #main.small1, "smallBmp1.bmp", [dummy], UL, 0, 130
statictext #main "scaled to 1280 width", 0, 100, 300, 25
bmpbutton #main.small2, "smallBmp2.bmp", [dummy], UL, 0, 230
statictext #main  "scaled to 1024 width", 0, 200, 300, 25
open "test" for window as #main
#main "trapclose [quit]"
#main.grSrc "down"
#main.grSrc "drawbmp srcPic"
#main.grSrc "flush"

#main.small1 "bitmap srcPic"
#main.small2 "bitmap srcPic"
#main.small1 "disable"
#main.small2 "disable"

wait

[dummy]
    wait

[quit]
    close #main
    end
'-------------------------
sub makeEmptyBmp name$, w, h
    call tryToKill name$
    open "temp" for graphics as #1
    #1 "getbmp tempBmp 0 0 ";w;" ";h
    close #1
    bmpsave "tempBmp", name$ 
end sub

sub tryToKill filename$
    on error goto [dontCare]
    kill filename$
[dontCare]
end sub

'============================
'Custom function from Freeform-J v.261006

sub GetBmpDimensions fileName$, byref width, byref height
    open fileName$ for input as #gbd
    temp$ = input$(#gbd, 24)
    close #gbd
    width = asc(mid$(temp$, 19, 1))+asc(mid$(temp$, 20, 1))*256
    height = asc(mid$(temp$, 23, 1))+asc(mid$(temp$, 24, 1))*256
end sub
 
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)
stumpy
Full Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 148
xx Re: getting started with Prog for Pigeon Breeding
« Reply #93 on: Sep 15th, 2016, 02:34am »

Those two sets of code look excellent...there is plenty for me to try out. I have also started to try small changes to 'out' to see what happens, and to understand it better. That seems to have been how I got to use JB, in fits and starts, but means I still don't really understand some of the principles involved.

re 2.), thanks. I was not sure about the meaning of 'global' but, when first or second efforts were combined, the lists also served to try to check possible duplication of variables for different purposes, in case they would all act globally anyway.
User IP Logged

stumpy
Full Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 148
xx Re: getting started with Prog for Pigeon Breeding
« Reply #94 on: Sep 15th, 2016, 08:10am »

The scaling code for bmp works really well, and helped to make points about the difficulties solved by the 'out' series, which must have also shown people the output (if there were any others, and if any of them is still around!). 'Out' has also helped me a lot too.

After a bit of trial and error the penny has finally dropped as to how much 1920 x1080 proportions differ from those of the more useful 1280 x 1024 (which gives relatively more Y axis space). In the PairsRecords screen that is better for displaying more of the items in Cocks and Hens lists but not so good for showing pedigrees, while the buttons panel in Nest Cards fits easily, but not the nest cards. Now think that after all it may be best to try a re-jigged layout for 1280 x 1024.

The coding has been the most taxing bit, so next I could use that from v1.6 and change the spacing, size, and spec. of boxes and bmps etc. to suit an alternative version. That might work better for most others, so will post some progress, and hope it could be more acceptable. Surely I will need further help but for now thanks again for the tutorials smiley
User IP Logged

tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: getting started with Prog for Pigeon Breeding
« Reply #95 on: Sep 15th, 2016, 10:13am »

stumpy,
speaking of tutorial - I would recommend reading "Streamlining your code" sequence. It's on LBPE,
http://lbpe.wikispaces.com/tutorials
scroll page down.

I think it could give you some ideas.
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)
stumpy
Full Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 148
xx Re: getting started with Prog for Pigeon Breeding
« Reply #96 on: Sep 15th, 2016, 12:17pm »

tsh73, thanks for the link. Will do
User IP Logged

stumpy
Full Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 148
xx Re: getting started with Prog for Pigeon Breeding
« Reply #97 on: Sep 16th, 2016, 04:16am »

Hello tsh73. Back again a bit sooner smiley

Started converting v1.6 to for 1280 x 1024 but after more rewriting the pages were not turning out to be as good as with the layout produced by 'out 1.49'.

I have partly redone the intro page for 1280 x 1024 and moved the buttons which was quite easy to do, screenshot below.

Would appreciate it if you would kindly do an out-type conversion to automagic scaling on v1.6, and reckon that text etc could then be adjusted to match the other new bmps needed, when I do that.

I tried a couple more older PCs and found that no two of them shared the same sized physical display, which was a surprise. Nor (in spite of advice) was it clear to me until recently how this would affect the output of .bas generated pages.

For later, when I have played with bmp examples for 1280 x 1024 and perhaps juggled the code of any new 'out' version to match, would you also consider writing the drawing code for the scalable coloured number colums and bars?

User Image
« Last Edit: Sep 16th, 2016, 04:19am by stumpy » User IP Logged

tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: getting started with Prog for Pigeon Breeding
« Reply #98 on: Sep 16th, 2016, 05:25am »

I will have a look into it.
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)
tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: getting started with Prog for Pigeon Breeding
« Reply #99 on: Sep 16th, 2016, 1:06pm »

I did not seen 1.6 yet
But I tried fiddling with converted 1.48 (just that I had handy) by hand to change graphicboxes to auto-scaled bmpbuttons
So to see it works.

On pairs window: bird pics are scaled. If you put bird bitmaps like C03.bmp in Documents folder, they will be scaled too.

On Nest cards window: bmpbuttons selecting ring scales are scaled, horisontal color strips is scaled.

As I've said, vertical color strips should be drawn with same point as listbox.

Here's the link

(as a downside, it leaves temporary empty bitmaps)
« Last Edit: Sep 16th, 2016, 1:07pm 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)
stumpy
Full Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 148
xx Re: getting started with Prog for Pigeon Breeding
« Reply #100 on: Sep 17th, 2016, 07:20am »

Very good thank you. I see that you have applied scaling to the vertical bmp in "graphicbox #main.paircolumn, 948*scale, 193*scale, 31*scale, 305*scale"
and find it does the job for that horizontal bmp. I realize that in practice:-

1.) Having changed the screen sizes and fonts of v1.6 to suit display on a native 1280x1024 PC, that means I can do most of the other mods needed on my 1920x1080 laptop (where it is more comfortable) at its native resolution i.e to reduce the width of static text, listboxes, textboxes to fit the pages.

2.) Quote:
As I've said, vertical color strips should be drawn with same point as listbox.
perhaps you said that about drawing graphics with code, but may have also confirmed that bmps need to be re-done at resolution 1280x1024, (with my older desktop where it is less comfy) to fit the output from 1.) at 1280x1024, while they will not then fit when viewed at 1920x1080. Getting on with that too.
« Last Edit: Sep 17th, 2016, 07:26am by stumpy » User IP Logged

tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: getting started with Prog for Pigeon Breeding
« Reply #101 on: Sep 19th, 2016, 4:23pm »

Here's some screenshots
of autoconverted 1.6
1) 1280 wide
User Image

2) 1024, same font - barely visible
User Image

3) 1024, "Small" font
User Image

Here's autoconverted 1.6 program

And here is converting program, rewritten in Just Basic
Code:
inFile$="Breeders_Records v1.6.bas"
outFile$="out_1.6.bas"
FS$="," 'field delimiter
qq$=chr$(34)    '   (")

NR=0
open inFile$ for input as #1
open outFile$ for output as #2
while not(eof(#1))
    SCAN
    NR=NR+1
    line input #1, aLine$
    flag=1

    spc$=""
    i=0
    while mid$(aLine$,i,1)=" "
        i=i+1
        spc$=spc$+" "
    wend
    trimLine$=trim$(aLine$)

    if NR=106 then
        print #2, "    scale = WindowWidth/1920"
        print #2, "    fontscale = 1.0*scale"
        'flag = 0
    end if

    if instr(aLine$, "font Arial Narrow 10 italic") then
        'this line for italic
        print #2, word$(aLine$,1,FS$); FS$; qq$;"font Arial_Narrow 0 ";qq$;";int(27*fontscale);" ;qq$;" italic";qq$
        'this line for normal
        'print #2, word$(aLine$,1,FS$); FS$; qq$;"font Arial_Narrow 0 ";qq$;";int(27*fontscale)"
        'small font, for 1024
        'print #2, word$(aLine$,1,FS$); FS$; qq$;"font small 0 ";qq$;";int(24*fontscale);" ;qq$;" italic";qq$
        flag = 0
    end if

    if instr(aLine$, "!font calibri 12 italic bold") then
        print #2, word$(aLine$,1,FS$); FS$; qq$;"!font calibri 0 ";qq$;";int(24*fontscale);"; qq$;" italic bold"; qq$
        flag = 0
    end if

    if instr(aLine$, "font Franklin Gothic Medium Cond") then
        print #2, word$(aLine$,1,FS$); FS$; qq$;"font Franklin_Gothic_Medium_Cond 0 ";qq$;";int(27*fontscale);"; qq$;" bold"; qq$
        flag = 0
    end if


    if instr(aLine$, "WindowWidth = 1920") then
        print #2, spc$;"WindowWidth = DisplayWidth" 'depending on DisplayWidth
        'print #2, spc$;"WindowWidth = 1024"    'or you could chack smaller size
        flag = 0
    end if

    if instr(aLine$, "WindowHeight = 1080") then
        print #2, spc$;"WindowHeight = WindowWidth/1920*1080"
        print #2, spc$;"UpperLeftX = 1: UpperLeftY = 1 "
        flag = 0
    end if

    if instr(trimLine$,"button #main")=1 then
        NF=countWords(aLine$, FS$)
        'print #2, NR, NF, aLine$
        out$=""
        for i = 1 to NF
            i$=word$(aLine$, i, FS$)
            if i >=NF-3 then i$ = i$; "*scale"
            out$=out$+i$+left$(FS$,i<>NF)
        next
        print #2, out$
        flag = 0
    end if

    if instr(trimLine$,"bmpbutton #main.")=1 then
        NF=countWords(aLine$, FS$)
        'print #2, NR, NF, aLine$
        out$=""
        for i = 1 to NF
            i$=word$(aLine$, i, FS$)
            if i >=NF-1 then i$ = i$; "*scale"
            out$=out$+i$+left$(FS$,i<>NF)
        next
        print #2, out$
        flag = 0
    end if

    if instr(aLine$,"graphicbox #main.") then
        NF=countWords(aLine$, FS$)
        out$=""
        for i = 1 to NF
            i$=word$(aLine$, i, FS$)
            if i >=2 then i$ = i$; "*scale"
            out$=out$+i$+left$(FS$,i<>NF)
        next
        print #2, out$
        flag = 0
    end if

    if instr(lower$(aLine$),"textbox #main.") then
        NF=countWords(aLine$, FS$)
        out$=""
        for i = 1 to NF-1
            i$=word$(aLine$, i, FS$)
            if i >=2 then i$ = i$; "*scale"
            out$=out$+i$+left$(FS$,i<>NF)
        next
        NF$=str$(val(word$(aLine$, NF, FS$)))
        if val(NF$) < 33 then NF$ = "33"
        NF$=NF$; "*scale"
        out$=out$+NF$
        print #2, out$
        flag = 0
    end if

    if instr(aLine$,"statictext #main.") then
        NF=countWords(aLine$, FS$)
        out$=""
        for i = 1 to NF
            i$=word$(aLine$, i, FS$)
            if i >=NF-3 then i$ = i$; "*scale"
            out$=out$+i$+left$(FS$,i<>NF)
        next
        print #2, out$
        flag = 0
    end if

    if instr(aLine$,"listbox #main.") then
        NF=countWords(aLine$, FS$)
        out$=""
        for i = 1 to NF
            i$=word$(aLine$, i, FS$)
            if i >=NF-3 then i$ = i$; "*scale"
            out$=out$+i$+left$(FS$,i<>NF)
        next
        print #2, out$
        flag = 0
    end if

    if instr(aLine$, "WindowWidth = 1502") then
        print #2, "WindowWidth = 1502*scale : WindowHeight = 90"
        flag = 0
    end if

    if instr(aLine$, "WindowWidth = 1490") then
        print #2, "WindowWidth = 1490*scale : WindowHeight = 100"
        flag = 0
    end if

    if instr(aLine$,"textbox #hndl.") then
        NF=countWords(aLine$, FS$)
        out$=""
        for i = 1 to NF
            i$=word$(aLine$, i, FS$)
            if (i >=NF-3) and (i<>NF) then i$ = i$; "*scale"
            out$=out$+i$+left$(FS$,i<>NF)
        next
        print #2, out$
        flag = 0
    end if

    if instr(aLine$,"button #hndl") then
'    print #2, NR, aLine$
        NF=countWords(aLine$, FS$)
        out$=""
        for i = 1 to NF-1
            i$=word$(aLine$, i, FS$)
            if i >=NF-1 then i$ = i$; "*scale"
            out$=out$+i$+left$(FS$,i<>NF)
        next
        NF$=word$(aLine$, NF, FS$)
        NF$=val(NF$); "*scale"
        out$=out$+NF$
        print #2, out$
        flag = 0
    end if

    'else
    'if flag then print #2, NR, aLine$
    if flag then print #2, aLine$
wend
close #1
close #2
print NR;" lines converted"
end

'-----------------------
function countWords(objStr$, delim$)
    token$ = "?"
    while token$ <> ""
        countWords = countWords + 1
        token$ = word$(objStr$, countWords, delim$)
    wend
    countWords = countWords - 1
end function
 

« Last Edit: Sep 19th, 2016, 4:25pm 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)
stumpy
Full Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 148
xx Re: getting started with Prog for Pigeon Breeding
« Reply #102 on: Sep 19th, 2016, 6:51pm »

Thank you very much for those files. Its late but I look forward to playing with them tomorrow. That comparison of fonts is convincing and I am not using italic with v1.78 for 1280x 1024.
« Last Edit: Sep 19th, 2016, 6:52pm by stumpy » User IP Logged

stumpy
Full Member
ImageImageImageImage


member is offline

Avatar




PM


Posts: 148
xx Re: getting started with Prog for Pigeon Breeding
« Reply #103 on: Sep 26th, 2016, 12:47pm »

The points were well taken about non italic text, so that has been substituted, and about streamlining the code. I did manage to get one of the very worst and most blatantly redundant routines improved by using a string array to carry the individual names of various text boxes. That had baffled me before so it was interesting, and I discovered that a nest of 'if then' loops could more efficiently addressed by using an index for them, instead of being handled as individual sub-loops.

However it took quite a long time to make it work, and then got lost by overwriting...'case' is now used for for one expanded set of routines, although it did not produce such a dramatic reduction of code. I see plenty of things still to be done but, since the much modified and patched program was working ok, and since streamlining would only be for the sake of elegance, further attempts have been postponed.

Instead two extra packages with sightly different layouts were made up. Each has its own set of bmps to suit either the 1920x1080 or the 1280x1024 display format based upon the same v1.80 code. To take up the extra space, '1920 Records' simply gets a white board.

In v1.8, the loft idiosyncrasies have been removed, and even more extensive guides have been built in with access buttons. In particular the structure of the records, and the way the files relate to each other and can be swapped around, would probably seem obscure without such a wordy exposition and demo. Unfortunately, and in spite of it, I suspect they may still seem enigmatic. The guides were just as much fun to write and are just as bloated smiley but I am pleased with the scheme for automating my own record keeping, thanks to JustBasic.

The extra programs, and more directory/path control, now at least have the potential to do anything which I and perhaps also roller1000 could think of so far, but would be happy to do more in the event that it should be requested. The data files are common to the two v1.80 packages but not bmps, and the data does not quite match v1.6, but I find that if only for me any version is quick to use and keeps everything tidy and up to date...

Many thanks for all the assistance too.

edit 27.9.2016: 3rd Update two posts on
« Last Edit: Sep 27th, 2016, 5:43pm by stumpy » User IP Logged

tsh73
JB-Supporter


member is offline

Avatar




PM

Gender: Male
Posts: 3636
xx Re: getting started with Prog for Pigeon Breeding
« Reply #104 on: Sep 27th, 2016, 2:40pm »

Hello stumpy
I just run your program,
and I found a thing or two.
1) button trying to open notes tries
Code:
run "Notepad.exe C:\Basic\Breeders\Guide_Stock_v1.80.rtf" 

but it is one folder deeper
Code:
run "Notepad.exe C:\Basic\Breeders\Guides\Guide_Stock_v1.80.rtf" 

All four of them.

2) somehow, colored bars is bigger then text on both screens at 1280x1024. So 13th colored box stays along 14th line of text.

3) Help topic "How to Specify Fonts" explicitly says
Code:
To specify a font which has spaces in its name, use underscores like this:

  Courier New

becomes...

  Courier_New  (or ignore the uppercase letters and type courier_new). 

I see your code says
Code:
print #main, "font calibri Narrow 9 bold" 

should be
Code:
print #main, "font calibri_Narrow 9 bold" 

So you get just "calibri", no "calibri Narrow".

(other fonts too)

Other things seem working.
;)
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)
Pages: 1 ... 5 6 7 8 9  ...  11 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