Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / PROGRAMS / BARS3 / BARS2.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1992-03-19 | 14.3 KB | 342 lines

Form1 BarCode 3 of 9 Version 2.0 Helvetica wwwwwwwwwwwwwww wwwwwwwwwwww wwwwwwwwwwww Form1, Label11 Single Label Display of Output Picture3 wwwwwwwwwwwwwww wwwwwwwwwwww wwwwwwwwwwww Picture5 Label1 Helvetica Picture1 Label2 Command5 &Add a New Code Command2 &Modify a Code Command6 &Delete a Code Command4 &Lookup a Code & fontlabel Command7 &Select a Text Font Label8 #Please Enter a Code and Description Command1 &Print Label5 Label6 Description Text1 Text2 Command3 &Exit Combo2 .03125 Label7 Barcode Height Label3 Number of Labels Across Page Combo4 .01325 Label9 Vertical Distance Between Labels Picture2 Option1 1 Across Option2 2 Across Option3 3 Across Combo5 .01325 Label10 "Horizontal Distance Between Labels Combo1 Label4 Number of Rows to Print Label12 _Note: All values are in inches. Please use the decimal equivelance of the value you wish to set ABOUT &File E WHATS_NEW Whats New Setup About Form_Click @ Form_Load~ FORM1 CURRENTX CURRENTY onewide threewide) twospace fourspaceo fillstyle FILLCOLOR THREE PRINTER9 wbnb1 wbnsN SCALEMODE HEADER FOOTER SEVEN, EIGHT6 LETTER_AP LETTER_Bl LETTER_C7 LETTER_D_ LETTER_E{ LETTER_F PICTUREBOX PICTUREBOX1g picture1Q Form_DragOver1 SOURCEE Stateq Form_DragDrop Form_MouseMove Button Shift- DIGIT LABEL2B caption LABEL1! Command3_Click LETTER_G LETTER_H LETTER_I^ LETTER_J LETTER_K LETTER_L LETTER_M LETTER_N LETTER_O] LETTER_P LETTER_Q LETTER_R LETTER_S LETTER_T LETTER_U LETTER_V! LETTER_WM LETTER_X LETTER_Y LETTER_Zv NSWB- Command1_Click_ picture IMAGE PICTURE2s VISIBLE COMMAND3 COMMAND1J COMMAND2 Command2_Click NOCODES, SCREEN1 WIDTH% HEIGHTx ABOUT_Click FORM2M barcode DESCRIPTION PrintFlAG NOCODES1 Useprinter1` useprinter2 useprinter3W useprinter4 NB_EXIT NS_EXIT WB_EXIT| WS_EXIT OPTION1 COUNTER< OPTION2 OPTION3 ACROSS VALUE WHATS_NEW_Click FORM3 MOUSEPOINTER Command7_Click form4g labelfont fontlabel FONTNAMEQ COMBO1+ Text1_Change TEXT1h TEXT; Text1_KeyPress keyascii# SETNEWBAR Text2_Change+ Text2_KeyPress setnewdescrip TEXT2 LABELSTOPRINT NUMBEROFLABELS NEWVALUE COMBO2 BARHEIGHT$ COMBO3| combo4 combo5 BARCODEHEIGHT NOBARCODE EXITPRINT SAVETOPPOS BETWEENHEIGHTj HORBETWEEN> Text1_LostFocus Text2_LostFocus sets_Click FORM5 getprofilestring& sname knameH APPNAME KEYNAME default RETURNS buffsize WRITEProfileString^ RINGS IstringS SUCCESS SetNewDefaults lstring string1 lstring2 string3 string2 Istring2 Istring3 REDOSTART FONTDEFAULT string4 string5H string6c string7 FONTTOUSE LABELSACROSS LEFTMARGIN TOPMARGIN TEXT4 TEXT56 @ Command5_Click- LABELS FORM6 FORM7Q @ Command6_Click FORM8 Command4_Click FORM9 GFDG_Click Form_Load LABELS.DB" Bars Version 2.0 BarHeight" Program will use standard default settings Bars Version 2.0 Bars Version 2.0 BarHeight" BarVertical" BarHorizontal" Current Font is NumAcross" TopMargin" LeftMargin .03125 .0625" .0125" 1.0625 1.125" .03125 .0625" .0125" 1.0625 1.125" Main Form Purpose: Create Code 3 of 9 BarCodes For Windows Ver 3.0 Input: Barcode Number = BARCODE$ Description = Description$O Output: Screen = Visual BarCode Description: Code 3 of 9 BarCodes Each Code is Made up of 2 Different Types of Lines* One Thick and One Thin Also There Are Two Types Of* Spaces One Thick and One Thin This Programs Concept is Very Simple it Will First Divide thee Code Into Seperate Digits it Will Then Pick the Correctt Subroutine to Call Based on The BarCode Digit. Each Digit Subroutine Will Call Four Other Subroutines Each of The Four Subroutines Contains Code To Either Draw Liness or Spaces To Picture1. NB Subroutine : Thick Space Three Pixels Wide NS Subroutine : Thin Space One Pixel Wide WS Subroutine : Thick Line Three Pixels Wide WB Subroutine : Thin Line Pixel Wide Show This Form Center Form On Screen Calculate The ScreenWidth / 2I Calculate The ScreenHeight / 2 Command3_Click Command1_Click Set mouse pointer to hourglass Main Print Routine The Code That Follows is One Possible Solution to Print too any Graphics Printer That Windows Will Support. This Code May Be Further Modified To Ask The User How Many Labels They Wish To Print.W ALSO THE X AND Y CORDS MAY BE MODIFIED TO SUPPORT DIFFERENT SPACING FOR DIFFERENT SIZE LABELS F WINDOWS LIKES THIS I DONT KNOW WHY ONE LABEL ACROSS TWO LABELS ACROSS THREE LABELS ACROSS SET COUNTER TO NUMBER ACROSS PRINT THE DESCRIPTIONR THIS ROUTINE WILL RESET THE X CORD FOR EACH LABEL TO PRINT THE BAR CODE EACH BAR CODE HAS A HEADERR PRINT BARCODE HEADER THIS ROUTINE WILL DIVIDE THE CODE INTO DIGITS THEN CALL EACH DIGITS SUBROUTINEE GET BARCODE FROM LABEL2* Set A=Length Of Barcode* Get Each Digit Of Code ADD 1 MORE SINGLE SPACEC THIS ROUTINE WILL TAKE CARE OF THE LAST DIGIT IN THE BARCODE* THIS WAS ADDED BECAUSE IT WAS A SIMPLE WAY TO DO IT.. HOWEVER IF YOU CAN THINK OF A BETTER WAY I LIKE TO SEE IT.* EACH BARCODE HAS A FOOTER THIS CODE WILL RESET THE X CORD TO PRINT THE BARCODE TEXT RESET FLAG PRINT THIS PAGER Reset mouse pointer to arrow WHATS_NEW_Click Command7_Click Text1_KeyPress Text2_KeyPress Text1_LostFocus Text2_LostFocus sets_Click Command5_Click Command2_Click Command6_Click Command4_Click GFDG_Click