INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
• Talk With Other Members
• Be Notified Of Responses
• Keyword Search
Favorite Forums
• Automated Signatures
• Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

#### Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.
Jobs from Indeed

Just copy and paste the

# QBasic FAQ

## Graphical Techniques in QB

 How do I make a custom dotted line? faq314-2455 Posted: 15 Sep 02 (Edited 1 Sep 03) Most people know how to make a broken line using &H5555 and &H2222, but say you want a line that is an oddball and you don't know the code for it.  Do you have to use trial and error, not any more.The last number is figured out in binary, and it goes in loops of 15; here is a chart that will help you 16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2 1 so say you want a line that goes 0,1,1,0,1,0,0,1,1,0,0,1,0,1,1figure out it out by plugging it into the table and adding all the values together16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2 1      0      1       1    0       1      0    0     1   1    0  0  1 0 1 1 Now add up all the numbers that had a 1 under them8192+4096+1024+128+64+8+2+1=13515LINE (100,100)-(200,100),,,13515Here is a FUNCTION to help you in your programming, so now you can use a$= "011010011001011"LINE (100,100)-(200,100),,,Bin2Dec%(a$)FUNCTION Bin2Dec% (number$)place = 65535 / 2FOR a% = 1 TO 16 c$ = MID$(number$, a%, 1)    IF c\$ = "1" THEN num% = num% + place    place = place / 2NEXTBin2Dec% = num%END FUNCTION Back to QBasic FAQ Index Back to QBasic Forum

Close Box

# Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

• Talk To Other Members
• Notification Of Responses To Questions
• Favorite Forums One Click Access
• Keyword Search Of All Posts, And More...

Register now while it's still free!