Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: NOVARSEG on March 31, 2021, 10:33:10 pm

Title: Basic FORM Filler
Post by: NOVARSEG on March 31, 2021, 10:33:10 pm
So here is a programming project.

The essential is to move some text around with arrow keys on top of a BMP background
1 pixel at a time. up/down/left/right

The mouse is used for coarse locating of the text and then arrow keys to fine tune the text position

Then print out both text and BMP background

An additional tweak would be to change font size  (maybe with scroll wheel?)

Another essential is to be able to save to a file

The idea is to scan a FORM and save it as a BMP. Most scanners will do a fine job at 300DPI. 
then add the text and save or print.

if this gets any interest then it can be moved to programming section.


****
other ideas

I know that text can be saved as a BMP using Microsoft paint (raster stuff).  QB64 has _CLEARCOLOR.  We know how to make a 32 bit BMP.   Need a background form image and a foreground text image and somehow save the 2 layers as one layer.


Attached file has a green background but it is 24 bit . That's OK _LOADIMAGE converts it to 32 bit.
The trick is to move this small BMP 1 pixel at a time in any direction.
Use _CLEARCOLOR to make the green background transparent.
Title: Re: Basic FORM Filler
Post by: NOVARSEG on April 01, 2021, 02:15:56 am
Some code by DAV that might help


Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(600, 600, 32)
  3. pic = BASIMAGE1&
  4.  
  5.  
  6. _PUTIMAGE (100, 100), pic
  7.  
  8.  
  9.  
  10. FUNCTION BASIMAGE1& 'hello world.bmp
  11.     v& = _NEWIMAGE(140, 38, 32)
  12.     DIM m AS _MEM: m = _MEMIMAGE(v&)
  13.     A$ = ""
  14.     A$ = A$ + "haIkHfHS32335>[0c0[0k0S#WQK5j6`6`6d9XC0;0;#g0fQkJT`RG=a9Q`MG"
  15.     A$ = A$ + "EDOjCA85bOfnUP9^_M42Q#842Q#842Q#842Qlk#ocRK]dWAmO2<0f^k0m3kc"
  16.     A$ = A$ + "dodJM:ce:fVQC<OD_\7ZG\QjUm#mR=D_\7ZG\QjUml9ZGlSc5X=]?;Om\\XJ"
  17.     A$ = A$ + "GYjUKZfhFW_kIJWhJkJ4K37?<>>2e_\n^>hm=[fkLPiFKKc[n79>WB_Xm]RO"
  18.     A$ = A$ + "]Fe;gD_7;=^Ge<UXGn:bh;n_D<J<nJk7eBhJjQKC[diR_N^YVKLLjFm9HL>V"
  19.     A$ = A$ + "NabgZm9_;mB>U1Snkgc8k_#O06??ZNAk;c=6YiQZmFS?>gBL]eHM6[l8cn4C"
  20.     A$ = A$ + "_\hNEK5[D;j5lLBM<3?SYDm2j_lk=Uh`3g[kckb`FKQf;jjNXoHl2?_Gdkc:"
  21.     A$ = A$ + "o0nmf9eJejL:lM;^]_]5B_<ZZO4jG]NnB^joBd;jh3^WecMSi`2d7;JK<6Rn"
  22.     A$ = A$ + "Nd_8idPa_f0S?>6FfFXnIYGdi\PD[i_T[6;V^`ZnD[]LGk2Xnj:dOikXhnH<"
  23.     A$ = A$ + "6:WQPe5:WL[gW:GN;m2f_#oSA][GBU3A<OG>jUcNn2^W\g]5WTm^bIUGLKk]"
  24.     A$ = A$ + "a_cQaeB?OYDmRnl5MnHeRN1]9_o6oOdiEkLbXm7=oUNWMn;GbdNkDS7Zc5=B"
  25.     A$ = A$ + ";d>dFeOOd[?\bO1ookBe;GEe;[C]]GCjUHo;M8Ki_joSbeOQa09oGA3Zc_<d"
  26.     A$ = A$ + "hVco7UkM8TB_4;gBMNSeRNaCZk7i<jU5GjHdA^_I]mf6iM=1j?NGKFaAmM8F"
  27.     A$ = A$ + "ZN9V_E[][9mR7[kO=fMGMVkg]IMl;a?Q[AMN1jeO82Mo^bmI[ca:7K;emk>h"
  28.     A$ = A$ + "fdXnWbgjN7j52Q#842Q#842Q#842Q#84b73o04eL%%h1"
  29.     btemp$ = ""
  30.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  31.         IF INSTR(1, B$, "%") THEN
  32.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  33.                 IF F$ <> "%" THEN C$ = C$ + F$
  34.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
  35.             IF MID$(B$, j, 1) = "#" THEN
  36.         MID$(B$, j) = "@": END IF: NEXT
  37.         FOR t% = LEN(B$) TO 1 STEP -1
  38.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  39.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  40.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  41.     NEXT: btemp$ = btemp$ + X$: NEXT
  42.     btemp$ = _INFLATE$(btemp$)
  43.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
  44.     BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&

moving text. need to update the green background properly.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(600, 600, 32)
  4. pic = BASIMAGE1&
  5.  
  6. ' _PUTIMAGE (0, 0), pic&
  7.  
  8. FOR x = 1 TO 100
  9.  
  10.     _PUTIMAGE (100 + x, 100), pic
  11.     _DELAY .3
  13.  
  14.  
  15.  
  16.  
  17. FUNCTION BASIMAGE1& 'hello world.bmp
  18.     v& = _NEWIMAGE(140, 38, 32)
  19.     DIM m AS _MEM: m = _MEMIMAGE(v&)
  20.     A$ = ""
  21.     A$ = A$ + "haIkHfHS32335>[0c0[0k0S#WQK5j6`6`6d9XC0;0;#g0fQkJT`RG=a9Q`MG"
  22.     A$ = A$ + "EDOjCA85bOfnUP9^_M42Q#842Q#842Q#842Qlk#ocRK]dWAmO2<0f^k0m3kc"
  23.     A$ = A$ + "dodJM:ce:fVQC<OD_\7ZG\QjUm#mR=D_\7ZG\QjUml9ZGlSc5X=]?;Om\\XJ"
  24.     A$ = A$ + "GYjUKZfhFW_kIJWhJkJ4K37?<>>2e_\n^>hm=[fkLPiFKKc[n79>WB_Xm]RO"
  25.     A$ = A$ + "]Fe;gD_7;=^Ge<UXGn:bh;n_D<J<nJk7eBhJjQKC[diR_N^YVKLLjFm9HL>V"
  26.     A$ = A$ + "NabgZm9_;mB>U1Snkgc8k_#O06??ZNAk;c=6YiQZmFS?>gBL]eHM6[l8cn4C"
  27.     A$ = A$ + "_\hNEK5[D;j5lLBM<3?SYDm2j_lk=Uh`3g[kckb`FKQf;jjNXoHl2?_Gdkc:"
  28.     A$ = A$ + "o0nmf9eJejL:lM;^]_]5B_<ZZO4jG]NnB^joBd;jh3^WecMSi`2d7;JK<6Rn"
  29.     A$ = A$ + "Nd_8idPa_f0S?>6FfFXnIYGdi\PD[i_T[6;V^`ZnD[]LGk2Xnj:dOikXhnH<"
  30.     A$ = A$ + "6:WQPe5:WL[gW:GN;m2f_#oSA][GBU3A<OG>jUcNn2^W\g]5WTm^bIUGLKk]"
  31.     A$ = A$ + "a_cQaeB?OYDmRnl5MnHeRN1]9_o6oOdiEkLbXm7=oUNWMn;GbdNkDS7Zc5=B"
  32.     A$ = A$ + ";d>dFeOOd[?\bO1ookBe;GEe;[C]]GCjUHo;M8Ki_joSbeOQa09oGA3Zc_<d"
  33.     A$ = A$ + "hVco7UkM8TB_4;gBMNSeRNaCZk7i<jU5GjHdA^_I]mf6iM=1j?NGKFaAmM8F"
  34.     A$ = A$ + "ZN9V_E[][9mR7[kO=fMGMVkg]IMl;a?Q[AMN1jeO82Mo^bmI[ca:7K;emk>h"
  35.     A$ = A$ + "fdXnWbgjN7j52Q#842Q#842Q#842Q#84b73o04eL%%h1"
  36.     btemp$ = ""
  37.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  38.         IF INSTR(1, B$, "%") THEN
  39.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  40.                 IF F$ <> "%" THEN C$ = C$ + F$
  41.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
  42.             IF MID$(B$, j, 1) = "#" THEN
  43.         MID$(B$, j) = "@": END IF: NEXT
  44.         FOR t% = LEN(B$) TO 1 STEP -1
  45.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  46.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  47.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  48.     NEXT: btemp$ = btemp$ + X$: NEXT
  49.     btemp$ = _INFLATE$(btemp$)
  50.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
  51.     BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
  53.  

Title: Re: Basic FORM Filler
Post by: NOVARSEG on April 01, 2021, 03:15:18 am
From the WIKI I got this text to move a pixel at a time

This is definite graphics based text

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  3.  
  4. h& = _NEWIMAGE(1024, 768, 32)
  5.  
  6. FOR x = 1 TO 100
  7.     _PRINTSTRING (10 + x, 10), "This _PUTIMAGE used no parameters!"
  8.  
  9.     _DELAY .1
  10.  
  11.  
  12.     _SOURCE h&
  13.     _DEST 0
  14.  
  15.     _PUTIMAGE
  18.  
Title: Re: Basic FORM Filler
Post by: SpriggsySpriggs on April 01, 2021, 07:30:51 am
Good luck with this!
Title: Re: Basic FORM Filler
Post by: bplus on April 01, 2021, 11:21:15 am
What is purpose of moving a pixel at a time? Some sort of game?

Why wouldn't you just want to print text directly over image?

And for that matter, why not do everything with less time and space with text?

Are we really just filling out a form or making up a bunch of work for yourself?
Title: Re: Basic FORM Filler
Post by: NOVARSEG on April 01, 2021, 07:19:24 pm

Quote
What is purpose of moving a pixel at a time? Some sort of game?

Moving a pixel at a time is for fine positioning of text.  It would take much more programming
to auto position text.

Quote
Why wouldn't you just want to print text directly over image?

Thats what Im trying to do.

Quote
And for that matter, why not do everything with less time and space with text?

easier for sure with text.

Quote
Are we really just filling out a form or making up a bunch of work for yourself?

Form fillers are challenging. I'm not trying to make the best.

Title: Re: Basic FORM Filler
Post by: SpriggsySpriggs on April 01, 2021, 07:23:37 pm
Quote from: NOVARSEG on April 01, 2021, 07:19:24 pm

Form fillers are challenging. I'm not trying to make the best.
I had an AIAG standard label making program from a year or two ago. I could make a label that used a template and filled in data dynamically. I don't think I have it anymore. Even if I did, I'd rather you take a crack at it yourself.
Title: Re: Basic FORM Filler
Post by: bplus on April 01, 2021, 08:01:58 pm
Quote
Moving a pixel at a time is for fine positioning of text.  It would take much more programming
to auto position text.

Quote
Why wouldn't you just want to print text directly over image?

Thats what Im trying to do.

@NOVARSEG

Do you know about _PRINTSTRING(xPixel, yPixel), textLabel$ that starts printing at the precise pixel of x, y for upper left corner of a box the could enclose the print (textLabel$) perfectly. And a box for your label can be calculated from text with _PRINTWIDTH(text$) which takes into account the font you have active. So it wouldn't be hard to use a mouse to drop a box right where you want a label to go and then as you say use image saver code like Dav's.
Title: Re: Basic FORM Filler
Post by: 191Brian on April 02, 2021, 04:52:40 am
Mmm
Sounds like an interesting challenge.

As Bplus said I would use _printstring with a _printmode option have and array of a user defined type for the form box text, its x,y pos and the font used (assuming you would need different size fonts to fit the text in the boxes).
I would then have loop display the form as an image _putimage display any text already added then the user could click on the form box type in there text which would be _printstringed on the box and stored in the array then allow the user to use the cursor keys to nudge the text into the correct position. Keep looping till the user pressed an F key to save the completed form.

Note I would avoid using bit map for the form image as it produces very large files I would scan to jpg or png.
Title: Re: Basic FORM Filler
Post by: SMcNeill on April 02, 2021, 05:40:59 am
Form = _LOADIMAGE(yourimage)
INPUT “your text); text$

DO
    _PUTIMAGE , Form
    K = _KEYHIT
    SELECT CASE K
        CASE directions: alter X, Y
        CASE enter: print image: System
     END SELECT
     _PRINTSTRING (x, y), text$
LOOP


Isn’t this basically all you’re doing?
Title: Re: Basic FORM Filler
Post by: NOVARSEG on April 02, 2021, 09:44:57 pm
@SMcNeill

Yes essentially it is.   Is it necessary to putimage every time a printstring is used?
Title: Re: Basic FORM Filler
Post by: SMcNeill on April 02, 2021, 09:57:56 pm
Quote from: NOVARSEG on April 02, 2021, 09:44:57 pm
@SMcNeill

Yes essentially it is.   Is it necessary to putimage every time a printstring is used?

I’m just using the putimage above basically like a CLS to restore my background as you move the text across it.
Text Only | Text with Attachments