The Weird and The Wonderful

The Weird and The Wonderful forum is a place to post Coding Horrors, Worst Practices, and the occasional flash of brilliance.

We all come across code that simply boggles the mind. Lazy kludges, embarrassing mistakes, horrid workarounds and developers just not quite getting it. And then somedays we come across - or write - the truly sublime.

Post your Best, your worst, and your most interesting. But please - no programming questions . This forum is purely for amusement and discussions on code snippets. All actual programming questions will be removed.

Re: VB 6

Bigdeak10-Sep-10 1:56

Bigdeak

10-Sep-10 1:56

My first language was C/C++. With my knowledge of this language, starting program in C# was really easy for me.

But my biggest mistake in my live...
...One day, i asked my boss how to do something in vb6, because i only wanted to see how another language works. This question was unfortunately the start of a big chaotic long-live and important project written in vb6 by my boss and other programmer, that have been left the firm long time ago. So my job was to step back from a modern language to a frumpish language.
My fun to program has been decreased a lot since that day, it's not mainly the difficult to work with vb6 in relation to C#. The syntax is okay, because at my young days i played with BlitzBasic. The hardest thing was the predominant bad-formed code in this project that has been written by unexperienced programmers (yes my boss included).

I said to my boss, that i don't like vb6 and instead of upgrade this old long-live project with new important features, we should create new projects with this features in a newer language instead of increasing the longevity of a old vb6 project. He answer with sentences like: "I don't give a sh*t, you get paid for this work.", or: "The customer needs this tool for work." etc.

There are some approaches in this projects, some features for this project has been developed in .NET, but because of the missing downward-compatibility and some problems to access them from vb6, this modern solutions had to be developed in vb6 to make the access easier. Because my boss dont have the time for this and i'm the only one who can do this, i had to destroy the .NET approaches and develop it in vb6. Its hardly imaginable how reluctant i'm with this, develop a done and working .NET feature with an older language, because the boss want to have it.

Re: VB 6

Fabio Franco10-Sep-10 2:03

Fabio Franco

10-Sep-10 2:03

I feel really sorry for you. Bosses usually really don't care about the details, maintainability, etc. All they want is what the client wants.

And I often see they miss many opportunities because they are reluctant to improve things that are already working. With this kind of mentality, that companies like Microsoft gets owned by companies like Google.

Improve always, think before the client.

Re: VB 6

M i s t e r L i s t e r1-Sep-10 5:54

M i s t e r L i s t e r

1-Sep-10 5:54

VB should just be put out of it's misery !

Re: VB 6

bwallan1-Sep-10 8:08

bwallan

1-Sep-10 8:08

Beautiful! Just absolutely beautiful...

bwa

Re: VB 6

JasonPSage1-Sep-10 8:37

JasonPSage

1-Sep-10 8:37

This is a response to all the posts in this topic before mine... you might know what I'm referring to if you read this thread up until this post...

I've written miles of VB5,6 code and folks can knock it all they like but I think it was one of the best products Microsoft has made alongside forcefeedback joysticks, access 2003, excel 2003 and DirectX in my opinion.

It is one of first totally RAD programming languages in my opinion: True Binary, tons of widget addons, ADO, ODBC, RDO .. tons of ways to communicate with databases and whip up applications quickly with integrated set up and deployment tools - all wrapped into one seamless package if you wen corporate - not to mention it supports various client/server (two tier/three tier systems easily.

On error resume next? You can test the error result after that command - SO? what's the problem? How is that different then try catch? You can do the same thing... and frankly - there is a time and place for any code construct - even GOTO.

I love when folks get indignant about GOTO and other coding philosophy. I truly believe users just want software that works - less flash and more "DO" ... and

* If you write beautiful code that is easy to read and performs great: AWESOME!

* If you write ugly code that works.. well.. I wouldn't recommend it but before I chastise ya: How much time did you have to get it done? Boss breathing down your neck? Simply didn't care? All valid reasons to write crap and "Git-R-Dun" in my opinion... Example: Coder: I need two days to do this right! Boss: I need it NOW.. an Hour! Worker: Sure thing boss!

VB6 is pretty darn sweet and I say if they had a vb7 by the same development team with better multi-tasking - I would chose it over .Net any day!

--Jason

Know way too many languages... master of none!

Re: VB 6

Max Peck2-Sep-10 4:05

Max Peck

2-Sep-10 4:05

I concur.

We have a time & attendance system that was originally developed in VB6 that serves thousands of clients on a daily basis. (Some of these clients have > 10,000 employees). The current enterprise-level solution is now a mix of the VB6 stuff and .Net. Since 2005 the management kept saying "in 6 months we'll get rid of VB6 code". Now, years later, the ratio of the VB6 code to the .Net section is about the same. Why? The stuff just plain works, that's why.

Agreed, .Net is far more refined a product than VB6 is - it had better be, it's 12 years newer (in its latest version that is). However even now the VB6 code continues to ensure that paychecks are accurately produced and the system continues to hum along.

VB6 may wind up being the next COBOL. It will eventually fall off the radar but in the background will continue to get results for years to come.

One developer said that he'd never take another job where he would have to deal with VB6. That's all right son, just send that work my way. I won't turn my nose up - they pay me big bucks to fix systems that the kids don't want to bother with anymore. Smile | :)

I love .Net (absolutely crazy about C#) but, at the same time I find it a breath of fresh air sometimes to go back to VB6. Besides being a competent development environment it is just plain FUN.

-Max Smile | :)

Re: VB 6

Matt McGuire1-Sep-10 13:15

Matt McGuire

1-Sep-10 13:15

true, that does hurt. but you should have seen some c code I had to take over when I first arived at the company I now work for.

something along the lines---

void _add{
int a,b,c,d,e,f,g,h,i,j,k,l,m,n;
int aa,bb,cc,iiii,iii,ii,i;

if {z==0}n=3; /*declared in globals*/
b=1
}

all of the code was like this, with vars never even refrenced in the code, except for one var that is assigned a variable, but never actually used. the names of the functions had no correlation to the body of code inside of them!

yes, most of it was scrubbed, as no one could follow the majority of the logic.

Re: VB 6

Lutosław1-Sep-10 20:25

Lutosław

1-Sep-10 20:25

Maybe a programmer who wrote this was using a lot an early version of BASIC, where variables had to match a pattern ([A-Z][A-Z]) (identifiers not longer than two characters, not case sensitive, a-z letters can be accesed via an array A, e.g. A[3]=C as well as other "advantages").

BTW in your code i is declared twice.

Greetings - Jacek

Re: VB 6

cwp423-Sep-10 1:38

cwp42

3-Sep-10 1:38

It always depends on the coder !!!
You can do this horror in every language.

cwp42

558 Lines Of QuickBasic Glory

AspDotNetDev25-Aug-10 21:29

AspDotNetDev

25-Aug-10 21:29

This post relates to the coding horror I posted about earlier today. I dug up my old Tetris code and I found it... the following is the 558 line QuickBasic subroutine I made in high school that prints a string to the screen. Enjoy. Smile | :)

SUB PrintMain (Variable1 AS STRING, Variable2 AS STRING, FunctionNum AS INTEGER)
DIM Letter AS STRING
STATIC PrintColor AS INTEGER
STATIC Left AS INTEGER
STATIC Top AS INTEGER
IF FunctionNum = 0 THEN
        FOR i = 1 TO LEN(Variable1)
                Letter = MID$(Variable1, i, 1)
                IF Letter = "A" THEN
                        LINE (Left + 2, Top)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 1)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 2)-STEP(1, 4), PrintColor, BF
                        LINE (Left + 4, Top + 2)-STEP(1, 4), PrintColor, BF
                        LINE (Left + 2, Top + 4)-STEP(1, 0), PrintColor, BF
                END IF
                IF Letter = "B" THEN
                        LINE (Left, Top)-STEP(5, 0), PrintColor
                        LINE (Left + 1, Top + 1)-STEP(1, 4), PrintColor, B
                        LINE (Left, Top + 6)-STEP(5, 0), PrintColor
                        LINE (Left + 3, Top + 3)-STEP(2, 0), PrintColor
                        LINE (Left + 5, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 5, Top + 4)-STEP(1, 1), PrintColor, B
                END IF
                IF Letter = "C" THEN
                        LINE (Left + 5, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top)-STEP(3, 0), PrintColor
                        LINE (Left + 1, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 2)-STEP(1, 2), PrintColor, B
                        LINE (Left + 1, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 6)-STEP(3, 0), PrintColor
                        LINE (Left + 5, Top + 5)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "D" THEN
                        LINE (Left, Top)-STEP(4, 0), PrintColor
                        LINE (Left + 1, Top + 1)-STEP(1, 4), PrintColor, B
                        LINE (Left, Top + 6)-STEP(4, 0), PrintColor
                        LINE (Left + 4, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 2)-STEP(1, 2), PrintColor, B
                        LINE (Left + 4, Top + 5)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "E" THEN
                        LINE (Left + 1, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 2, Top)-STEP(4, 0), PrintColor
                        LINE (Left + 2, Top + 3)-STEP(2, 0), PrintColor
                        LINE (Left + 2, Top + 6)-STEP(4, 0), PrintColor
                END IF
                IF Letter = "F" THEN
                        LINE (Left + 1, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 3, Top)-STEP(3, 0), PrintColor
                        LINE (Left + 3, Top + 3)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "G" THEN
                        LINE (Left + 2, Top)-STEP(3, 0), PrintColor
                        LINE (Left + 1, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 2)-STEP(1, 2), PrintColor, B
                        LINE (Left + 1, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 6)-STEP(4, 0), PrintColor
                        LINE (Left + 5, Top + 4)-STEP(1, 1), PrintColor, B
                        PSET (Left + 4, Top + 4), PrintColor
                END IF
                IF Letter = "H" THEN
                        LINE (Left, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 4, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 2, Top + 3)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "I" THEN
                        LINE (Left + 1, Top)-STEP(3, 0), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                        LINE (Left + 2, Top + 1)-STEP(1, 4), PrintColor, B
                END IF
                IF Letter = "J" THEN
                        LINE (Left + 3, Top)-STEP(3, 0), PrintColor
                        LINE (Left + 4, Top + 1)-STEP(1, 4), PrintColor, B
                        LINE (Left, Top + 4)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "K" THEN
                        LINE (Left + 1, Top)-STEP(1, 6), PrintColor, B
                        PSET (Left, Top), PrintColor
                        PSET (Left, Top + 6), PrintColor
                        LINE (Left + 3, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 4)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top)-STEP(1, 1), PrintColor, B
                        LINE (Left + 5, Top + 5)-STEP(1, 1), PrintColor, B
                END IF
                IF Letter = "L" THEN
                        LINE (Left + 1, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 3, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "M" THEN
                        LINE (Left, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 5, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 2, Top + 1)-STEP(0, 2), PrintColor
                        LINE (Left + 3, Top + 2)-STEP(0, 2), PrintColor
                        LINE (Left + 4, Top + 1)-STEP(0, 2), PrintColor
                END IF
                IF Letter = "N" THEN
                        LINE (Left, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 5, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 2, Top + 1)-STEP(2, 2), PrintColor
                        LINE (Left + 2, Top + 2)-STEP(2, 2), PrintColor
                END IF
                IF Letter = "O" THEN
                        LINE (Left + 3, Top)-STEP(-3, 2), PrintColor
                        LINE (Left + 4, Top)-STEP(2, 2), PrintColor
                        LINE (Left + 3, Top + 6)-STEP(-3, -2), PrintColor
                        LINE (Left + 4, Top + 6)-STEP(2, -2), PrintColor
                        LINE (Left + 2, Top + 1)-STEP(-1, 1), PrintColor
                        LINE (Left + 4, Top + 1)-STEP(1, 1), PrintColor
                        LINE (Left + 2, Top + 5)-STEP(-1, -1), PrintColor
                        LINE (Left + 4, Top + 5)-STEP(1, -1), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 3)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "P" THEN
                        LINE (Left, Top)-STEP(5, 0), PrintColor
                        LINE (Left + 1, Top + 1)-STEP(1, 4), PrintColor, B
                        LINE (Left, Top + 6)-STEP(3, 0), PrintColor
                        LINE (Left + 5, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 3, Top + 3)-STEP(2, 0), PrintColor
                END IF
                IF Letter = "Q" THEN
                        LINE (Left + 1, Top)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 3), PrintColor, B
                        LINE (Left + 4, Top + 1)-STEP(1, 3), PrintColor, B
                        PSET (Left + 3, Top + 4), PrintColor
                        LINE (Left + 1, Top + 5)-STEP(3, 0), PrintColor
                        LINE (Left + 3, Top + 6)-STEP(2, 0), PrintColor
                END IF
                IF Letter = "R" THEN
                        LINE (Left, Top)-STEP(5, 0), PrintColor
                        LINE (Left + 1, Top + 1)-STEP(1, 4), PrintColor, B
                        LINE (Left, Top + 6)-STEP(2, 0), PrintColor
                        LINE (Left + 5, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 3, Top + 3)-STEP(2, 0), PrintColor
                        LINE (Left + 4, Top + 4)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 5)-STEP(1, 1), PrintColor, B
                END IF
                IF Letter = "S" THEN
                        LINE (Left + 1, Top)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 4, Top + 1)-STEP(1, 0), PrintColor
                        PSET (Left + 2, Top + 2), PrintColor
                        LINE (Left + 1, Top + 3)-STEP(2, 0), PrintColor
                        LINE (Left + 3, Top + 4)-STEP(2, 0), PrintColor
                        LINE (Left, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "T" THEN
                        LINE (Left, Top)-STEP(5, 0), PrintColor
                        LINE (Left + 2, Top + 1)-STEP(1, 5), PrintColor, B
                END IF
                IF Letter = "U" THEN
                        LINE (Left, Top)-STEP(1, 5), PrintColor, B
                        LINE (Left + 4, Top)-STEP(1, 5), PrintColor, B
                        LINE (Left, Top + 6)-STEP(5, 0), PrintColor
                END IF
                IF Letter = "V" THEN
                        LINE (Left, Top)-STEP(1, 4), PrintColor, B
                        LINE (Left + 4, Top)-STEP(1, 4), PrintColor, B
                        LINE (Left + 1, Top + 5)-STEP(3, 0), PrintColor
                        LINE (Left + 2, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "W" THEN
                        LINE (Left, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 5, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 2, Top + 4)-STEP(0, 1), PrintColor
                        LINE (Left + 4, Top + 4)-STEP(0, 1), PrintColor
                        LINE (Left + 3, Top + 3)-STEP(0, 1), PrintColor
                END IF
                IF Letter = "X" THEN
                        LINE (Left, Top)-STEP(1, 1), PrintColor, B
                        LINE (Left + 5, Top)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 3)-STEP(2, 1), PrintColor, B
                        LINE (Left + 1, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 6)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "Y" THEN
                        LINE (Left, Top)-STEP(1, 2), PrintColor, B
                        LINE (Left + 4, Top)-STEP(1, 2), PrintColor, B
                        LINE (Left + 1, Top + 3)-STEP(3, 0), PrintColor
                        LINE (Left + 2, Top + 4)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "Z" THEN
                        LINE (Left, Top)-STEP(6, 0), PrintColor
                        LINE (Left + 5, Top + 1)-STEP(-4, 4), PrintColor
                        LINE (Left + 6, Top + 1)-STEP(-4, 4), PrintColor
                        LINE (Left, Top + 6)-STEP(6, 0), PrintColor
                END IF
                IF Letter = "a" THEN
                        LINE (Left + 1, Top + 2)-STEP(3, 0), PrintColor
                        LINE (Left + 4, Top + 3)-STEP(1, 2), PrintColor, B
                        LINE (Left + 1, Top + 4)-STEP(2, 0), PrintColor
                        LINE (Left, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(2, 0), PrintColor
                        LINE (Left + 5, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "b" THEN
                        PSET (Left, Top), PrintColor
                        LINE (Left + 1, Top)-STEP(1, 5), PrintColor, B
                        LINE (Left, Top + 6)-STEP(1, 0), PrintColor
                        LINE (Left + 3, Top + 3)-STEP(2, 0), PrintColor
                        LINE (Left + 3, Top + 6)-STEP(2, 0), PrintColor
                        LINE (Left + 5, Top + 4)-STEP(1, 1), PrintColor, B
                END IF
                IF Letter = "c" THEN
                        LINE (Left + 1, Top + 2)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 2), PrintColor, B
                        LINE (Left + 4, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                        LINE (Left + 4, Top + 5)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "d" THEN
                        PSET (Left + 3, Top), PrintColor
                        LINE (Left + 4, Top)-STEP(1, 5), PrintColor, B
                        LINE (Left + 1, Top + 3)-STEP(2, 0), PrintColor
                        LINE (Left, Top + 4)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(2, 0), PrintColor
                        LINE (Left + 5, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "e" THEN
                        LINE (Left + 1, Top + 2)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 2), PrintColor, B
                        LINE (Left + 4, Top + 3)-STEP(1, 1), PrintColor, B
                        LINE (Left + 2, Top + 4)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "f" THEN
                        LINE (Left + 2, Top)-STEP(2, 0), PrintColor
                        LINE (Left + 4, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 1)-STEP(1, 4), PrintColor, B
                        PSET (Left, Top + 3), PrintColor
                        PSET (Left + 3, Top + 3), PrintColor
                        LINE (Left, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "g" THEN
                        LINE (Left + 1, Top + 2)-STEP(2, 0), PrintColor
                        LINE (Left + 5, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 5)-STEP(2, 0), PrintColor
                        LINE (Left + 4, Top + 3)-STEP(1, 3), PrintColor, B
                        LINE (Left, Top + 7)-STEP(4, 0), PrintColor
                END IF
                IF Letter = "h" THEN
                        PSET (Left, Top), PrintColor
                        LINE (Left + 1, Top)-STEP(1, 6), PrintColor, B
                        PSET (Left, Top + 6), PrintColor
                        PSET (Left + 3, Top + 3), PrintColor
                        LINE (Left + 4, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 3)-STEP(1, 3), PrintColor, B
                END IF
                IF Letter = "i" THEN
                        LINE (Left + 2, Top)-STEP(1, 0), PrintColor
                        PSET (Left + 1, Top + 2), PrintColor
                        LINE (Left + 2, Top + 2)-STEP(1, 3), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "j" THEN
                        LINE (Left + 4, Top)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 2)-STEP(1, 4), PrintColor, B
                        LINE (Left, Top + 5)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 7)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "k" THEN
                        PSET (Left, Top), PrintColor
                        PSET (Left, Top + 6), PrintColor
                        LINE (Left + 1, Top)-STEP(1, 6), PrintColor, B
                        LINE (Left + 3, Top + 4)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "l" THEN
                        PSET (Left + 1, Top), PrintColor
                        LINE (Left + 2, Top)-STEP(1, 5), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "m" THEN
                        LINE (Left + 1, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 3), PrintColor, B
                        LINE (Left + 5, Top + 3)-STEP(1, 3), PrintColor, B
                        LINE (Left + 4, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 3)-STEP(2, 1), PrintColor, B
                        PSET (Left + 3, Top + 5), PrintColor
                END IF
                IF Letter = "n" THEN
                        LINE (Left, Top + 2)-STEP(4, 0), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 3), PrintColor, B
                        LINE (Left + 4, Top + 3)-STEP(1, 3), PrintColor, B
                END IF
                IF Letter = "o" THEN
                        LINE (Left + 1, Top + 2)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 2), PrintColor, B
                        LINE (Left + 4, Top + 3)-STEP(1, 2), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "p" THEN
                        LINE (Left, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 3)-STEP(1, 3), PrintColor, B
                        LINE (Left, Top + 7)-STEP(3, 0), PrintColor
                        LINE (Left + 3, Top + 2)-STEP(2, 0), PrintColor
                        LINE (Left + 5, Top + 3)-STEP(1, 1), PrintColor, B
                        LINE (Left + 3, Top + 5)-STEP(2, 0), PrintColor
                END IF
                IF Letter = "q" THEN
                        LINE (Left + 1, Top + 2)-STEP(2, 0), PrintColor
                        LINE (Left + 5, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 5)-STEP(2, 0), PrintColor
                        LINE (Left + 4, Top + 3)-STEP(1, 3), PrintColor, B
                        LINE (Left + 3, Top + 7)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "r" THEN
                        LINE (Left, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 3, Top + 2)-STEP(2, 0), PrintColor
                        LINE (Left + 1, Top + 3)-STEP(1, 2), PrintColor, B
                        PSET (Left + 3, Top + 3), PrintColor
                        LINE (Left + 5, Top + 3)-STEP(1, 1), PrintColor, B
                        LINE (Left, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "s" THEN
                        LINE (Left + 1, Top + 2)-STEP(4, 0), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 4)-STEP(3, 0), PrintColor
                        LINE (Left + 4, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 6)-STEP(4, 0), PrintColor
                END IF
                IF Letter = "t" THEN
                        LINE (Left + 2, Top + 1)-STEP(0, 4), PrintColor
                        LINE (Left + 3, Top)-STEP(0, 5), PrintColor
                        PSET (Left + 1, Top + 2), PrintColor
                        LINE (Left + 4, Top + 2)-STEP(1, 0), PrintColor
                        PSET (Left + 5, Top + 5), PrintColor
                        LINE (Left + 3, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "u" THEN
                        LINE (Left, Top + 2)-STEP(1, 3), PrintColor, B
                        LINE (Left + 4, Top + 2)-STEP(1, 3), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(2, 0), PrintColor
                        LINE (Left + 5, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "v" THEN
                        LINE (Left, Top + 2)-STEP(1, 2), PrintColor, B
                        LINE (Left + 4, Top + 2)-STEP(1, 2), PrintColor, B
                        LINE (Left + 1, Top + 5)-STEP(3, 0), PrintColor
                        LINE (Left + 2, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "w" THEN
                        LINE (Left, Top + 2)-STEP(1, 3), PrintColor, B
                        LINE (Left + 5, Top + 2)-STEP(1, 3), PrintColor, B
                        PSET (Left + 3, Top + 3), PrintColor
                        LINE (Left + 2, Top + 4)-STEP(2, 1), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "x" THEN
                        LINE (Left, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 4)-STEP(2, 0), PrintColor
                        LINE (Left + 1, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 6)-STEP(1, 0), PrintColor
                        LINE (Left + 5, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "y" THEN
                        LINE (Left, Top + 2)-STEP(1, 2), PrintColor, B
                        LINE (Left + 4, Top + 2)-STEP(1, 4), PrintColor, B
                        LINE (Left + 1, Top + 5)-STEP(2, 0), PrintColor
                        LINE (Left, Top + 7)-STEP(4, 0), PrintColor
                END IF
                IF Letter = "z" THEN
                        LINE (Left, Top + 2)-STEP(5, 0), PrintColor
                        PSET (Left, Top + 3), PrintColor
                        LINE (Left + 3, Top + 3)-STEP(-2, 2), PrintColor
                        LINE (Left + 4, Top + 3)-STEP(-2, 2), PrintColor
                        PSET (Left + 5, Top + 5), PrintColor
                        LINE (Left, Top + 6)-STEP(5, 0), PrintColor
                END IF
                IF Letter = "0" THEN
                        LINE (Left + 1, Top)-STEP(4, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 4), PrintColor, B
                        LINE (Left + 5, Top + 1)-STEP(1, 4), PrintColor, B
                        LINE (Left + 4, Top + 2)-STEP(0, 1), PrintColor
                        LINE (Left + 3, Top + 3)-STEP(0, 1), PrintColor
                        LINE (Left + 2, Top + 4)-STEP(0, 1), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(4, 0), PrintColor
                END IF
                IF Letter = "1" THEN
                        LINE (Left + 2, Top)-STEP(1, 5), PrintColor, B
                        PSET (Left + 1, Top + 1), PrintColor
                        LINE (Left, Top + 6)-STEP(5, 0), PrintColor
                END IF
                IF Letter = "2" THEN
                        LINE (Left + 1, Top)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 2, Top + 3)-STEP(2, 0), PrintColor
                        LINE (Left + 1, Top + 4)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 5)-STEP(1, 1), PrintColor, B
                        LINE (Left + 2, Top + 6)-STEP(3, 0), PrintColor
                        LINE (Left + 4, Top + 5)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "3" THEN
                        LINE (Left + 1, Top)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 2, Top + 3)-STEP(2, 0), PrintColor
                        LINE (Left + 4, Top + 4)-STEP(1, 1), PrintColor, B
                        LINE (Left, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "4" THEN
                        PSET (Left + 3, Top), PrintColor
                        LINE (Left + 2, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 2)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top)-STEP(1, 5), PrintColor, B
                        LINE (Left, Top + 4)-STEP(3, 0), PrintColor
                        PSET (Left + 6, Top + 4), PrintColor
                        LINE (Left + 3, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "5" THEN
                        LINE (Left, Top)-STEP(5, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 2, Top + 2)-STEP(2, 0), PrintColor
                        LINE (Left + 4, Top + 3)-STEP(1, 2), PrintColor, B
                        LINE (Left, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "6" THEN
                        LINE (Left + 2, Top)-STEP(2, 0), PrintColor
                        LINE (Left + 1, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left, Top + 2)-STEP(1, 3), PrintColor, B
                        LINE (Left + 2, Top + 3)-STEP(2, 0), PrintColor
                        LINE (Left + 4, Top + 4)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "7" THEN
                        LINE (Left, Top)-STEP(5, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 3, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 4)-STEP(1, 2), PrintColor, B
                END IF
                IF Letter = "8" THEN
                        LINE (Left + 1, Top)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 4, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 3)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 4)-STEP(1, 1), PrintColor, B
                        LINE (Left + 4, Top + 4)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 6)-STEP(3, 0), PrintColor
                END IF
                IF Letter = "9" THEN
                        LINE (Left + 1, Top)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 4, Top + 1)-STEP(1, 3), PrintColor, B
                        LINE (Left + 1, Top + 3)-STEP(2, 0), PrintColor, B
                        LINE (Left + 3, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(2, 0), PrintColor
                END IF
                IF Letter = "." THEN
                        LINE (Left + 2, Top + 5)-STEP(1, 1), PrintColor, B
                END IF
                IF Letter = "," THEN
                        LINE (Left + 2, Top + 5)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 7)-STEP(1, 0), PrintColor
                END IF
                IF Letter = ":" THEN
                        LINE (Left + 2, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 2, Top + 5)-STEP(1, 1), PrintColor, B
                END IF
                IF Letter = ";" THEN
                        LINE (Left + 2, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 2, Top + 5)-STEP(1, 1), PrintColor, B
                        LINE (Left + 1, Top + 7)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "(" THEN
                        LINE (Left + 3, Top)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 2)-STEP(1, 2), PrintColor, B
                        LINE (Left + 2, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 3, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = ")" THEN
                        LINE (Left + 1, Top)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 3, Top + 2)-STEP(1, 2), PrintColor, B
                        LINE (Left + 2, Top + 5)-STEP(1, 0), PrintColor
                        LINE (Left + 1, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "!" THEN
                        LINE (Left + 1, Top + 1)-STEP(0, 2), PrintColor
                        LINE (Left + 2, Top)-STEP(1, 4), PrintColor, B
                        LINE (Left + 4, Top + 1)-STEP(0, 2), PrintColor
                        LINE (Left + 2, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "?" THEN
                        LINE (Left + 1, Top)-STEP(3, 0), PrintColor
                        LINE (Left, Top + 1)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 1)-STEP(1, 1), PrintColor, B
                        LINE (Left + 3, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 4)-STEP(1, 0), PrintColor
                        LINE (Left + 2, Top + 6)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "`" THEN
                        LINE (Left + 2, Top)-STEP(1, 1), PrintColor, B
                        LINE (Left + 3, Top + 2)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "'" THEN
                        LINE (Left + 1, Top)-STEP(1, 1), PrintColor, B
                        LINE (Left, Top + 2)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "+" THEN
                        LINE (Left + 2, Top + 1)-STEP(1, 4), PrintColor, B
                        LINE (Left, Top + 3)-STEP(1, 0), PrintColor
                        LINE (Left + 4, Top + 3)-STEP(1, 0), PrintColor
                END IF
                IF Letter = "-" THEN
                        LINE (Left, Top + 3)-STEP(5, 0), PrintColor
                END IF
                IF Letter = "*" THEN
                        LINE (Left + 2, Top + 2)-STEP(2, 2), PrintColor, BF
                        PSET (Left + 1, Top + 1), PrintColor
                        PSET (Left + 5, Top + 1), PrintColor
                        PSET (Left + 1, Top + 3), PrintColor
                        PSET (Left + 5, Top + 3), PrintColor
                        PSET (Left + 1, Top + 5), PrintColor
                        PSET (Left + 5, Top + 5), PrintColor
                END IF
                IF Letter = "/" THEN
                        LINE (Left, Top + 5)-STEP(5, -5), PrintColor
                        LINE (Left, Top + 6)-STEP(6, -6), PrintColor
                END IF
                IF Letter = "=" THEN
                        LINE (Left, Top + 2)-STEP(5, 0), PrintColor
                        LINE (Left, Top + 5)-STEP(5, 0), PrintColor
                END IF
                Left = Left + 8
        NEXT i
END IF
IF FunctionNum = 1 THEN
        Left = VAL(Variable1)
        Top = VAL(Variable2)
END IF
IF FunctionNum = 2 THEN PrintColor = VAL(Variable1)
END SUB

As you can see, I didn't even go with a chained IF... it's just a bunch of IF statements in a row. No, this code is not under copyright. Feel free to use it yourself. Roll eyes | :rolleyes:

[Forum Guidelines]

Re: 558 Lines Of QuickBasic Glory

Kevin Drzycimski25-Aug-10 22:22

Kevin Drzycimski

25-Aug-10 22:22

reminds me of my first steps in BASIC

i didnt even know of functions, so all code was in one gigantic file with many GOTOs

different targets were marked by global variables:

type = 3
GOTO 2000

...

2000
IF (type = 1) THEN
  GOTO 2001
ELSE IF (type = 2) THEN 
  GOTO 2002
ELSE IF (type = 3) THEN 
  GOTO 2003
ELSE IF (type = 4) THEN 
  GOTO 2004
ELSE
...

this was truly spaghetti code

but i am not ashamed. when i learned functions later they felt so great! and even OO later, oh my god!

Re: 558 Lines Of QuickBasic Glory

AspDotNetDev26-Aug-10 10:48

AspDotNetDev

26-Aug-10 10:48

Yeah, not sure why I wrote it the way I did. Looks like I have to call the same function 3 times... once to set the color, once to set the coordinate, and once to print the text. Guess I just didn't like too many parameters. D'Oh! | :doh:

[Forum Guidelines]

Re: 558 Lines Of QuickBasic Glory

CDP180226-Aug-10 0:50

CDP1802

26-Aug-10 0:50

Well, everybody has to begin somewhere and then find out how to do it better. I really hope I can recover some of my early masterpieces from the tapes of my old computer.

Back then I had the choice between machine language (I recently recovered one of my earliest working games, a Lunar Lander 'clone') and Tiny BASIC (because the interpreter needed a little more than 2k of my precious 4k RAM). If you look at the grammar of Tiny BASIC (http://en.wikipedia.org/wiki/Tiny_BASIC[^]), then you will see that coding horrors are as good as certain with it.

A while ago he asked me what he should have printed on my business cards. I said 'Wizard'.

I read books which nobody else understand. Then I do something which nobody understands. After that the computer does something which nobody understands. When asked, I say things about the results which nobody understand. But everybody expects miracles from me on a regular basis. Looks to me like the classical definition of a wizard.

Re: 558 Lines Of QuickBasic Glory

Ian Shlasko26-Aug-10 2:57

Ian Shlasko

26-Aug-10 2:57

aspdotnetdev wrote:
IF Letter = "`" THEN
LINE (Left + 2, Top)-STEP(1, 1), PrintColor, B
LINE (Left + 3, Top + 2)-STEP(1, 0), PrintColor
END IF

Does anyone even USE that character? Seriously, man... Too much free time Smile | :)

Proud to have finally moved to the A-Ark. Which one are you in?
Author of the Guardians Saga (Sci-Fi/Fantasy novels)

Re: 558 Lines Of QuickBasic Glory

AspDotNetDev26-Aug-10 5:15

AspDotNetDev

26-Aug-10 5:15

I'm pretty sure I just typed out any characters I saw on my keyboard. Smile | :)

[Forum Guidelines]

Me! Me! Me!

peterchen27-Aug-10 5:27

peterchen

27-Aug-10 5:27

Ian Shlasko wrote:
Does anyone even USE that character?

I have some custom HTML building routines where ` is used instead of double quotes, e.g.

s= TextTag("b,a href=`link`", _T("<Click Me!>"))

that would generate

<b><a href="link"><Click Me!></a></b>

Do I get a cookie?

Agh! Reality! My Archnemesis![^]

| FoldWithUs! | sighist | WhoIncludes - Analyzing C++ include file hierarchy

Re: Me! Me! Me!

Ian Shlasko27-Aug-10 5:41

Ian Shlasko

27-Aug-10 5:41

Yes, but it's a stale cookie.

The fresh ones came from a different site, so they were blocked Smile | :)

Proud to have finally moved to the A-Ark. Which one are you in?
Author of the Guardians Saga (Sci-Fi/Fantasy novels)

Re: 558 Lines Of QuickBasic Glory

leppie27-Aug-10 11:18

leppie

27-Aug-10 11:18

Ian Shlasko wrote:
Does anyone even USE that character?

A lot in LISP and Scheme. I'm sure other languages use it too.

xacc.ide
IronScheme - 1.0 RC 1 - out now!
((λ (x) `(,x ',x)) '(λ (x) `(,x ',x)))
The Scheme Programming Language – Fourth Edition

Re: 558 Lines Of QuickBasic Glory

LloydA11128-Aug-10 12:44

LloydA111

28-Aug-10 12:44

Ian Shlasko wrote:
Does anyone even USE that character? Seriously, man... Too much free time

The GCC compiler can use the ` character for parts of parameters to some of it's commands... I'm not sure which ones exactly, or even why they even decided to allow the ` character D'Oh! | :doh:

. I never bothered to figure out where the ` character could be used with it because it seems such a useless character. I don't even know what it's called... a wonky apostrophe? Laugh | :laugh:

Your right though, who even uses the ` character? Smile | :)

"People demand freedom of speech to make up for the freedom of thought which they avoid."

Re: 558 Lines Of QuickBasic Glory

dawmail33323-Jun-11 13:41

dawmail333

23-Jun-11 13:41

It's called the backtick, gets a few obscure uses. I think you can use it for formatting at SO though. Some text-based markup systems (possibly Markdown?) use it to denote code etc.

Just sayin'. $Shucks | :-\$

Don't forget to rate my post if it helped! Wink | ;)

"He has no enemies, but is intensely disliked by his friends."
"His mother should have thrown him away, and kept the stork."
"There's nothing wrong with you that reincarnation won't cure."
"He loves nature, in spite of what it did to him."

Re: 558 Lines Of QuickBasic Glory

beeseearr14-Jul-11 3:46

beeseearr

14-Jul-11 3:46