Dennis
Full Member
Old but still active
Posts: 147
|
Post by Dennis on Aug 23, 2021 7:56:15 GMT -5
Thanks tenochtitlanuk! Yip, got it "print "svga" etc... I also used the printorient.dll to set landscape. I am going to play around with Anatoly's code in a graphics window and see if I can print it out colours and all...
|
|
Dennis
Full Member
Old but still active
Posts: 147
|
Post by Dennis on Aug 23, 2021 10:45:50 GMT -5
My apologies tenochtitlanuk - my reply disappeared Yip, I know about "print svga" and will play with it. I will have to compose the chart screen by screen and then print each screen seperately... the number of lines and calendar dates means that the report will turn out to be multi-page. Anatoly's code and the LB demo program (printform) shows that it can be done but it would have been easier if I could print line by line... The other problem is that there is a lot of "text" involved. A possible solution is to compose the "entire" report in memory using arrays and then output it via a graphics window to the printer. I will experiment tonight... Edit: I see my earlier reply did go through....
|
|
|
Post by colinmcm on Aug 23, 2021 12:08:31 GMT -5
Hi Dennis, is ebasic the same as emergence basic by Ionic Wind? They used to produce a product called Aurora with a c-like syntax whixch was fun.
Regarding DDOC, I downloaded the full program and got a password ($25) from Don Dickenson overnight. It looks to me that the Dll has not changed since 2003, and the ddoc.exe only changed in 2008'ish to correct the fault in dislaying the screen preview (to overcome this, iconify and then open the preview screen). Having said that, the zip file that Don sent me had the old faulty exe in it. The evaluation program (Tryddoc.exe) is broken, and Don is happy to leave it like that apparently.
As far as the LB demo is concerned, it was written by Eldon Gill (I contributed one function to it). You will know better than I what functions in the DLL are missing from it, but as far as I can see it seems to work OK.
All in all, if anyone wants to play with ( sorry, evaluate) it then they may as well use the files attached to my post above. All I ever do is play with stuff. If I did anything serious I would not use unsupported software either.
|
|
Dennis
Full Member
Old but still active
Posts: 147
|
Post by Dennis on Aug 23, 2021 13:50:00 GMT -5
Hi Colin Yes, EBasic was Emergence Basic which later became IBasic and I remember the Aurora product - paid for it but never received a final version :-) I had developed a lot of systems using EBasic and was devastated when the whole Paul scandal came out and the Ionic Wind house of cards came tumbling down. I then switched to Purebasic but could just not get into it so my systems "stagnated". I had LB from early days so decided to give it another go during the pandemic lockdown - glad I did :-) I sent an email to Don Dickinson this evening asking for a new fresh registered copy which I will gladly pay for. I will then use ddoc until someone out there comes up with a replacement for it (hint, hint :-)). DDOC has some great functions and I am sure LB will benefit from something similar. I have played with the copy I downloaded from you and it is working perfectly including the preview. Thanks for your assistance and everybody else's. I am glad that Eldon Gill converted ddoc's demo to LB - that was the breakthrough for me.
|
|
Dennis
Full Member
Old but still active
Posts: 147
|
Post by Dennis on Aug 23, 2021 14:01:18 GMT -5
Hi Colin Don has just answered my mail and has given me the go-ahead to download a fresh copy gratis. I seriously think that anybody developing "serious" systems under LB should take a look at it. Regards
|
|
Dennis
Full Member
Old but still active
Posts: 147
|
Post by Dennis on Aug 25, 2021 10:17:30 GMT -5
All sorted. Used DDOC and now have a "perfect" Gantt Chart. I am glad DDOC was ported to LB else I would have struggled. If anybody is interested in the functions available in the DDOC dll you can email me on dncom@mweb.co.za and I will send the documentation page showing the functions available.
|
|
|
Post by Brandon Parker on Aug 25, 2021 15:20:34 GMT -5
Why not post an example here for people to see...? {:0) Brandon Parker
|
|
Dennis
Full Member
Old but still active
Posts: 147
|
Post by Dennis on Aug 25, 2021 15:49:51 GMT -5
Hi Brandon I have just answered a few emails regarding the Chart. The Chart is a printout which I have scanned but do not know if I can attach it to a post?. The code is part of a 3000 line program so it is difficult to post it here. It is a complete CPA (Critical Path Analysis) program with over 15 different functions. What I have suggested in my email is to download the zipped file given in Colin's post in this thread (colinmcm). That zipped file contains a working demo program as well as an unregistered dll. It is well commented and one can easily follow it. It demonstrates some of the DDOC capabilities. If I knew how to attach, I can attach a scanned copy of my chart as well as a list of the DDOC functions. Regards
|
|
|
Post by Brandon Parker on Aug 25, 2021 16:18:12 GMT -5
You added an attachment in your first post of this thread... If the image is not hosted somewhere on the internet then that is the way to go; just add it as an attachment as you did in the first post. Try to keep the image small in size though because we are limited in space with respect to attachments. If the image is hosted on the internet somewhere, you can link to it by hitting the "Insert Image" button highlighted in green below. The attachment button is highlighted in red. {:0) Brandon Parker
|
|
|
Post by colinmcm on Aug 25, 2021 16:58:51 GMT -5
attached here (again) is the original ddoc demo for LB from 2004. Still working on Windows 10. This functions in the LB file are a subset of those available in DDOC.dll itself. I will look at implementing the missing ones if peolpe think it is worth it.
Don Dickinson seems to have emulated in Power Basic commands from early postscript implementations (without the stack and rpn - shame). I think it is great work and I shall study it to see if I can understand it.
I will also look to attach the function guide from DDOC.Dll to a seperate post.
Dennis, I will send you an email also.
|
|
|
Post by colinmcm on Aug 25, 2021 17:22:02 GMT -5
Here are the functions from the DDOC.dll documentation. Attachments:functions.htm (105.34 KB)
|
|
Dennis
Full Member
Old but still active
Posts: 147
|
Post by Dennis on Aug 27, 2021 17:03:44 GMT -5
I see that Colin has given the full function list/manual for DDOC. I am going to try to attach the Gantt Chart I produced using DDOC.
Edit... Same problem as before - does not attach... The file is bigger than 1 Mb....
|
|
|
Post by Brandon Parker on Aug 27, 2021 23:12:19 GMT -5
You should be able to easily resize it in Paint or any other image utility.
{:0)
Brandon Parker
|
|
Dennis
Full Member
Old but still active
Posts: 147
|
Post by Dennis on Aug 28, 2021 3:03:45 GMT -5
Busy lecturing so have time restraints. I will resize as soon as I get a break. All it is is a printout... Regards
Edit.... It is a .pdf and not and not an image. DDOC outputs a printout or PDF not an image file i.e. the Gantt Chart is not shown on the screen.. I will try zipping or editing the pdf later....
Or I will print and scan it as a .jpg or some image....
|
|
|
Post by colinmcm on Aug 28, 2021 13:12:53 GMT -5
A quick and dirty apporach to a Gannt chart in native LB. Much more to be done, especially with headers, margins and automated scaling, but proof of concept.
this is built upon an existing LB demo, for context.
The code should select a PDF printer. I do not know how to do that from LB, so I pre-selected one in Windows.
'printform.bas 'This example program shows how to use a graphics window to produce 'printable form without using PCL or graphics characters. Different 'fonts and colors are used.
nomainwin WindowWidth = 800 WindowHeight = DisplayHeight open "Printable Form" for graphics as #form #form "trapclose [quit]"
#form "down" #form "backcolor 220 220 220" #form "size 2" #form "place 1 1 ; boxfilled 700 110" #form "font arial 16 bold"
#form "backcolor white" #form "place 1 110" #form "boxfilled 700 471" #form "place 1 471" #form "boxfilled 700 970"
#form "font courier_new 10" #form "size 1" for a = 1 to 9 y = 111+a*30 #form "place 250 "; y #form "box 650 "; y + 22 read label$ #form "place 50 "; y + 13 #form "\"; label$ next a
#form "place 150 431" #form "font courier_new 10 italic" #form "\Make sure to provide your email address so we can send" #form "\your registration code promptly!" '===========================new code below ===================================
#form "place 20 500 ; boxfilled 650 900" #form "font arial 10"
tasknum= 0 while desc$ <> "end" tasknum = tasknum + 1 read desc$, startln, endln yVar = 500 + tasknum*20 xVar= 50 #form "place " ; xVar ; " " ; yVar #form "\ " ; desc$ print #form, "backcolor Blue" xVar = 200+int(startln*5) x1Var = 200 + int((endln*5)) y1Var = yVar+4 #form "place " ; xVar ; " " ; yVar #form, "boxfilled "; str$(x1Var); " " ; str$(y1Var) print #form, "backcolor white" wend
'==============================end of new code ============ #form "flush" confirm "Send to printer?"; answer if answer then #form "print svga" wait close #form end
data "a quick and dirty", "mock-up of a ", "gantt chart, reading", "data statements", "obviously much more to", "do, including column" data "headers, scaling", "and margins etc, but still", "proof of concept"
[quit] close #form end
function ganttfind( number ) ganttfind= 520+(number*20) end function
data "task1", 0 , 30 data "task2", 5, 60 data "task3", 20, 50 data "task4", 60, 80 data "end", 0, 0
|
|