Loading ...
Sorry, an error occurred while loading the content.
 

Re: Re:[libertybasic]Help

Expand Messages
  • bobjose@juno.com
    Hi Ingemar, I ll type it up and send it out shortly. Bob On Thu, 2 Jan 2003 07:51:46 +0100 Ingemar Bjerle ...
    Message 1 of 50 , Jan 2 10:40 AM
      Hi Ingemar,

      I'll type it up and send it out shortly.

      Bob
      On Thu, 2 Jan 2003 07:51:46 +0100 "Ingemar Bjerle"
      <ingemar.bjerle@...> writes:
      > Hi Bob
      > I have modified my simplex and now it is less sensitive to the first
      > guess. I suggest a trade, you get my source code and I get yours for
      > Newton. At least the tkn.file so I can evaluate the function of your
      > program.
      > regards
      > Ingemar
      > ----- Original Message -----
      > From: <bobjose@...>
      > To: <libertybasic@yahoogroups.com>
      > Sent: Monday, December 30, 2002 3:20 PM
      > Subject: Re:[libertybasic]Help
      >
      >
      > > Hi Ingemar,
      > >
      > > I tried your simplex routine and it seems very sensitive
      > to your
      > > first guesses. Another way is to use Newton's Method. It also uses
      > first
      > > guesses, but it might not be so unforgiving.
      > >
      > > Bob Hosang
      > >
      > > ________________________________________________________________
      > > Sign Up for Juno Platinum Internet Access Today
      > > Only $9.95 per month!
      > > Visit www.juno.com
      > >
      > > To unsubscribe from this group, send an email to:
      > > libertybasic-unsubscribe@egroups.com
      > >
      > >
      > >
      > > Your use of Yahoo! Groups is subject to
      > http://docs.yahoo.com/info/terms/
      > >
      > >
      >
      >
      > To unsubscribe from this group, send an email to:
      > libertybasic-unsubscribe@egroups.com
      >
      >
      >
      > Your use of Yahoo! Groups is subject to
      > http://docs.yahoo.com/info/terms/
      >
      >
      >
      >

      ________________________________________________________________
      Sign Up for Juno Platinum Internet Access Today
      Only $9.95 per month!
      Visit www.juno.com
    • rod_bird001
      When you want to print graphicbox contents to any printer you must keep all of the drawn graphics inside one Liberty BASIC segment. To do that issue only one
      Message 50 of 50 , Aug 21, 2015
        When you want to print graphicbox contents to any printer you must keep all of the drawn graphics inside one Liberty BASIC segment. To do that issue only one single flush command at the end of your drawing.

        Also use the size parameter to fill the whole page, your graphicbox is 600 wide so a size value of 600 will rint your graphicbox across the whole page.

        Dump is associated with line printinmg and has no effect on graphicbox printing.

        You don't need to put the pen up and down all the time usually just down at the start.

        When the user clicks generate you need to read the contents of the textboxes into the variables.

        If it still is not printing then it is probably the printerdialog that is interfering. Liberty prints to the default printer so usually there is no need to invoke the printerdialog.

        nomainwin

              WindowWidth=DisplayWidth
              WindowHeight=DisplayHeight

              menu #main,"File","Print",[print]
               menu #main,"Help","Help",[Help]


               graphicbox #main.gr,70,50,600,600
               Textbox #main.tx1,800,50,140,30
               Textbox #main.tx2,800,130,140,30
               Textbox #main.tx3,800,210,140,30

               Statictext #main.st1,"Item",700,50,100,30
               Statictext #main.st2,"Number",700,130,100,30
               Statictext #main.st3,"Price",700,210,100,30

               button #main.bt1,"Generate and print",[generate],UL,700,300,240,50


               open "Recite" for window as #main
               print #main, "trapclose [quit]"
               print #main,"font Ariel 15 bold"
               print #main.gr,"font Ariel 15 bold"
               wait

               [generate]
               print #main.tx1,"!Contents? item$"
               print #main.tx2,"!Contents? number$"
               print #main.tx3,"!Contents? prince$"


               print #main.gr,"down"
               print #main.gr,"place 200 40"
               print #main.gr,"\Comets Systems"
               print #main.gr,"place 150 100"
               print #main.gr,"\P.O.Box 998,Akim Oda.Ghana"
               print #main.gr,"place 100 150"
               print #main.gr,"\Item         :  ";  item$
               print #main.gr,"place 100 200"
               print #main.gr,"\Number   :  "; number$
               print #main.gr,"place 100 250"
               print #main.gr,"\Price       :  "; prince$
               print #main.gr,"place 100 300"
               print #main.gr,"\Date        :  "; date$()
               print #main.gr,"place 100 350"
               print #main.gr,"\Time        :  "; time$()
               print #main.gr,"place 100 450"
               print #main.gr,"\Note's        "
               print #main.gr,"place 250 520"
               print #main.gr,"\Design By Comets Systems"
               print #main.gr,"place 250 550"
               print #main.gr,"\P.O.Box 998, Akim Oda. Ghana"
               print #main.gr,"flush"

               'printerdialog
               print #main.gr,"print 600"
               wait




                   [quit]
                    close #main
                    end




      Your message has been successfully submitted and would be delivered to recipients shortly.