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: Who is teaching these people?

I am BATMAN13-May-09 8:22

I am BATMAN

13-May-09 8:22

He shoulda written it recursively Laugh | :laugh:

Re: Who is teaching these people?

Russell Jones14-May-09 5:01

Russell Jones

14-May-09 5:01

He should have used the for- case pattern Wink | ;-)

Re: Who is teaching these people?

Fatbuddha 113-May-09 23:40

Fatbuddha 1

13-May-09 23:40

Could easily be c++ -> C# Smile | :)

.
But still, this isn't nice in C++ as well.

You have the thought that modern physics just relay on assumptions, that somehow depends on a smile of a cat, which isn’t there.( Albert Einstein)

Re: Who is teaching these people?

SalarSoft13-May-09 10:53

SalarSoft

13-May-09 10:53

OriginalGriff wrote:
Fortran programmer.

Hehe, he is still alive! Smile | :)

www.softprojects.org

Re: Who is teaching these people?

Russell Jones14-May-09 5:04

Russell Jones

14-May-09 5:04

state=1<br />
for (int n = state; n<101;n++)<br />
{<br />
switch (n)<br />
{<br />
case 1:<br />
//do something<br />
<br />
case 2:<br />
<br />
//do something<br />
<br />
case 3: <br />
//do something <br />
<br />
............<br />
<br />
<br />
case 100:<br />
<br />
//do something<br />
<br />
}<br />
}

What could be easier than that Wink | ;-)

Re: Who is teaching these people?

johannesnestler15-May-09 4:12

johannesnestler

15-May-09 4:12

If the syntax is correctet, the compiler doesn't complain... Laugh | :laugh:

thank you for teaching me that - Poke tongue | ;-P

int state=1;
switch (state)
{
    case 1:
    //do something
    goto case 2;

    case 2:
    //do something
    goto case 3;

    case 3:
    //do something
    goto case 4;

    case 4://do something
    break; // !!!
}

Re: Who is teaching these people?

Luc Pattyn15-May-09 4:43

Luc Pattyn

15-May-09 4:43

I'm still in favor of

//do something #1
//do something #2
//do something #3
//do something #4

which compiles just fine.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.

Re: Who is teaching these people?

Som Shekhar15-May-09 19:28

Som Shekhar

15-May-09 19:28

Whatever he was trying to do, It results in what Luc has written.

Ultimately, he ended up getting the same result with extra lines of code.

Re: Who is teaching these people?

Jeroen De Dauw15-May-09 10:57

Jeroen De Dauw

15-May-09 10:57

looooool - OMFG, took me a few minutes before I could type again after reading this - ROFL!!!

GSoC 2009 student for SMW!
---
My little forums: http://code.bn2vs.com
---
70 72 6F 67 72 61 6D 6D 69 6E 67 20 34 20 6C 69 66 65!

Re: Who is teaching these people?

Rajesh R Subramanian26-May-09 2:01

Rajesh R Subramanian

26-May-09 2:01

Shite!

Sometimes while reading the programming forums, I just feel like jabbing a fork into my eyes.

It is a crappy thing, but it's life -^ Carlo Pallini

Code reuse

zlezj12-May-09 21:10

zlezj

12-May-09 21:10

I guess the programmer of the snippet below found a function to fill a DropDownList and adjusted it just enough to fill a TextBox...

Private Sub ShowName(ByVal id As String)

	Dim daNames As New SqlDataAdapter("SELECT ID, NAME FROM TBL_NAMES", ConnectionString)

	Dim dsNames As New DataSet("NAMES")
	daNames.Fill(dsNames, "NAMES")

	Dim drNames As DataRow = dsNames.Tables(0).NewRow
	drNames("ID") = -1
	drNames("NAME") = ""

	dsNames.Tables(0).Rows.InsertAt(drNames, 0)

	If dsNames.Tables("NAMES").Rows.Count > 0 Then
		Try
			Dim drs() As DataRow = dsNames.Tables(0).Select("ID = " & id)
			txtName.Text = drs(0).Item("NAME").ToString
		Catch e As Exception
			'
		End Try
	Else
		txtName.Text = ""
	End If

End Sub

Re: Code reuse

PIEBALDconsult13-May-09 3:41

PIEBALDconsult

13-May-09 3:41

DataAdapter and DataSet are so powerful they can be used to do anything... poorly.

Re: Code reuse

Tristan Rhodes13-May-09 22:29

Tristan Rhodes

13-May-09 22:29

Cool! Can i quote that?

I had a boss who used those as his all powerful silver bullet, and many a wtf ensued.

-------------------------------

Carrier Bags - 21st Century Tumbleweed.

Re: Code reuse

PIEBALDconsult14-May-09 3:39

PIEBALDconsult

14-May-09 3:39

Ummm yeah.

One of my own :)

_Maxxx_12-May-09 20:21

_Maxxx_

12-May-09 20:21

#if (LIBRARYFLAG)
    using Product.Client;
#else
    using Product.Server;
#endif
using Product.Server;

To explain - we have the same services defined in Client and Server - this is using WCF. For development we set off LibraryFlag so use the services directly - without using WCF (it is faster and makes debugging easier)

Of course, if you create a new service, then dont create the client service, and set LIBRARYFLAG, resharper pops up a "Press alt-enter to add the 'using'" message.

I musta pressed it - so now it adds the using for the Server version.

Ohh it took me a while to spot what was happening!

___________________________________________
.\\axxx
(That's an 'M')

Re: One of my own :)

Lutosław12-May-09 21:39

Lutosław

12-May-09 21:39

There are more #if #endif-related ReSharper bugs. Here is one of them which I spotted some time ago:
I you'd enable generating XML documentation in your project settings, you will get warnings in every place where you didn't make documentation. So far so good. However, once upon a time I wanted to have a different description for debugging and realase builds.

#if DEBUG
		/// &lt;summary&gt;
		/// Useless and unreliable sh*t, do not use this.
		/// &lt;/summary&gt;
#else
		/// &lt;summary&gt;
		/// This is a very subtle class which performs many difficult and expensive algorithms.
		/// &lt;/summary&gt;
#endif
public class Damage : Occurance

C# compiler wasn't complaing, but ReSharper wanted me to add another summary.

Greetings - Jacek Gajek

High end SQL

Bernard Laplace12-May-09 5:15

Bernard Laplace

12-May-09 5:15

Found in a stored procedure...

Declare @IsClosed bit

SET @IsClosed = (SELECT ISNULL(Closed,0)
FROM TimeRegHeader
WHERE TSID = @TSID)

If @IsClosed Is Null
BEGIN
Select 0
END
else
BEGIN
Select @IsClosed
END

Re: High end SQL

_Damian S_12-May-09 19:36

_Damian S_

12-May-09 19:36

Well, you really have to be sure about these things!! Roll eyes | :rolleyes:

Knowledge is knowing that the tomato is a fruit. Wisdom is not putting it in fruit salad!!

Booger Mobile - Camp Quality esCarpade 2010

Re: High end SQL

Nagy Vilmos13-May-09 3:15

Nagy Vilmos

13-May-09 3:15

Arnaud Lhopiteau wrote:
ISNULL(Closed,0)

belts...

Arnaud Lhopiteau wrote:
If @IsClosed Is Null

and braces.

What more do you want?

Panic, Chaos, Destruction.
My work here is done.

[Message Deleted]

StarBP6-May-09 15:49

StarBP

6-May-09 15:49

[Message Deleted]

Re: Needless Polygon Rendering

Tristan Rhodes6-May-09 23:03

Tristan Rhodes

6-May-09 23:03

Hardly a Coding Horror. An inefficient process to be sure, but not a horror.

* Sensible Function names
* Sensible Method Sizes
* Sensible Variable Declarations
* Clear Intent

-------------------------------

Carrier Bags - 21st Century Tumbleweed.

Which language is this Urgent help required

Sanjaykalsi5-May-09 22:53

Sanjaykalsi

5-May-09 22:53

' MAIN()
'
' Entry point. No more PPd. & Add. (^800 = 5)
'
'^:MAIN
MAIN:
'^PR^! Retract form in printer.
PRINT CMD("PR");
'^PL66^! Set line count to 66 for this form.
PRINT CMD("PL66");
'^PN^! Normal print mode on.
PRINT CMD("PN")
'^:GET.TERMS
GET.TERMS:
'^?"BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4. COD"1"1""%d"800
'A%=VAL(INPUTBOX$("BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4.COD",1,"1"))
A%=3
'^OC(^800 < 1)(^GT GET.TERMS)
'^OC(^800 > 4)(^GT GET.TERMS)
IF (A%<1) OR (A%>4) THEN GOTO GET.TERMS
'^H
'
' Goto line 2
'^G2
PRINT CMD("G4");
'
' DATE, ORIGIN, DESTINATION
'
PRINT CMD("C50");CMD("D");STRING$(4," "); K$ ; STRING$(6," "); STRJUST$(FLD(14,0),3,"L"," ")
'GOTO ENDING
'
' Skip a line
'
PRINT
'PRINT
'
' Shippers acct Number
PRINT STRING$(20," "); L$
'
'
PRINT
PRINT
'
PRINT STRING$(2," "); CMD("YL");CMD("7");CMD("YB")
PRINT STRING$(2," "); CMD("YL");CMD("8");CMD("YB")
PRINT STRING$(2," "); CMD("YL");CMD("9");CMD("YB"); STRING$(32," "); CMD("PB"); "HAWB#: ";STRJUST$(FLD(10,0),18, "L", " ");CMD("Pb")
PRINT STRING$(2," "); " "
'
PRINT STRING$(2," "); " ";STRING$(20," "); M$
PRINT STRING$(2," ");STRIP$(FLD(40,0),"C", " ")
'
'
'Skip 4 lines
'
PRINT
PRINT
PRINT
PRINT
'
PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("2"),"C"," ");CMD("YB")
PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("3"),"C"," ");CMD("YB")
PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("4"),"C"," ");CMD("YB")
PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("14"),"C"," ");CMD("YB")
'PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");", ";STRIP$(CMD("6"),"C"," ");" ";STRIP$(CMD("7"),"C"," ");CMD("YB")
PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");CMD("YB")
'PRINT
PRINT STRING$(2," ");CMD("YL");STRJUST$(FLD(10,2),18,"L"," ");CMD("YB"); STRING$(2," "); STRIP$(FLD(8,2),"C"," ")
'PRINT STRING$(2," ");
' PO (13chars) / BOL #
PRINT STRING$(2," ");STRJUST$(FLD(40,0),20,"L"," "); STRING$(1," "); STRJUST$(FLD(9,0), 16, "L"," ");
'PRINT STRING$(2," ");STRJUST$(FLD(9,0),13,"L"," "); STRING$(1," "); STRJUST$(FLD(2,0), 16, "L"," ")
'

Re: Which language is this Urgent help required

OriginalGriff5-May-09 23:05

OriginalGriff

5-May-09 23:05

Have you posted this in every forum?

No trees were harmed in the sending of this message; however, a significant number of electrons were slightly inconvenienced.

This message is made of fully recyclable Zeros and Ones

Re: Which language is this Urgent help required

Dino Mulahusic5-May-09 23:16

Dino Mulahusic

5-May-09 23:16

English

Let there arise out of you a band of people inviting to all that is good, enjoining what is right, and forbidding what is wrong: They are the ones to attain felicity.

Āli-'Imrān (The Family of Imran), 104.

Re: Which language is this Urgent help required

KarstenK6-May-09 3:45

KarstenK

6-May-09 3:45

looks like a basic dialect from out of the legendary Bill Gates times. Confused | :confused:

Press F1 for help or google it.
Greetings from Germany

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.