Ah, VB ...

[Firo Atrum Ventus]

I'm having bad day today as I stumbled across some VB code that's worse than usual coding horror. So I decided to relieve my mind by sharing those gems here.

If _Inspeksi = Inspeksi.JTM Then
Else
SQL = "SELECT ID_GI FROM AGARDU_INDUK WHERE NO_GARDU='" & DDGI2.ID & "'"
DT = New DataTable
DT = GlobalClassV2.Globals.Instance.ExecuteQuery(SQL)
SQL = ""
If DT.Rows.Count = 0 Then
Exit Function
End If
GINDUKR = DT.Rows(0)!ID_GI
SQL = "SELECT ID_GD FROM AGARDU_DISTRIBUSI WHERE NO_GARDU='" & GINDUK & "'"
DT = New DataTable
DT = GlobalClassV2.Globals.Instance.ExecuteQuery(SQL)
SQL = ""
If DT.Rows.Count = 0 Then
Exit Function
End If
GINDUK = DT.Rows(0)!ID_GD
End If
If GlobalClassV2.Globals.Instance.ExecuteQuery2(XSQL) = False Then
Throw New Exception("GAGAL")
Exit Function
End If
For iData As Integer = 1 To FG2.Rows.Count - 1
If IsDBNull(FG2.Item(iData, 0)) = True Then
Else
DLInsert.InsertInspeksiJTMTR2_DETIL_NEWEST(False, pIDInspeksi, "R", dtTglPeriksa.Text, _
CG.CheckNull(FG2.Item(iData, 0)), FG2.Item(iData, 8), "", CG.CheckNullNum(FG2.Item(iData, 13)), "", Split(CG.CheckNull(FG2.Item(iData, 2)), " - ")(0), _
Split(CG.CheckNull(FG2.Item(iData, 3)), " - ")(0), "", "", _
Split(CG.CheckNull(FG2.Item(iData, 4)), " - ")(0), CG.CheckNull(FG2.Item(iData, 5)), Split(CG.CheckNull(FG2.Item(iData, 7)), " - ")(0), _
CG.CheckNull(FG2.Item(iData, 11)), "", Globals.Instance.EncodeDate(DateTime.Parse(FG2.Item(iData, 12))), _
Split(CG.CheckNull(FG2.Item(iData, 13)), " - ")(0), CG.CheckNull(FG2.Item(iData, 5)), CG.CheckNull(FG2.Item(iData, 6)), _
CG.CheckNull(FG2.Item(iData, 1)), Split(CG.CheckNull(FG2.Item(iData, 14)), " - ")(0), Split(CG.CheckNull(FG2.Item(iData, 15)), " - ")(0), _
CG.CheckNull(FG2.Item(iData, 17)), Split(CG.CheckNull(FG2.Item(iData, 18)), " - ")(0), FG2.Item(iData, 9), FG2.Item(iData, 10))
End If
Next

Excuse me for my improper grammar and typos. It's because English is my primary language, not my first language. My first languages are C# and Java. VB, ASP, JS, PHP and SQL are my second language. Indonesian came as my third language. My fourth language? I'm still creating it, I'll let you know when it's done! :-D

[Bernhard Hiller]

Very inconsistent! He'd better write:

If GlobalClassV2.Globals.Instance.ExecuteQuery2(XSQL) = True Then
Else
Throw New Exception("GAGAL")
Exit Function
End If

And I like that gaga exception ("gagal" means "failed", doesn't it?) before the call to Exit Function...

[Lost User]

'GAGAL' sonds more like something you could encounter in Star Wars, something with long teeth and claws :)

And from the clouds a mighty voice spoke:
"Smile and be happy, for it could come worse!"

And I smiled and was happy
And it came worse.

[AspDotNetDev]

Let Me Gagal That Fer Ya.

Somebody in an online forum wrote:

INTJs never really joke. They make a point. The joke is just a gift wrapper.

[StM0n]

You have to do inspeksi ahead... I like inspeksi... ;)

(yes|no|maybe)*

[Sander Rossel]

That is just horror after horror after horror... :wtf: :omg: :~ X|

It's an OO world.

public class Naerling : Lazy<Person>{}

[jgrogan]

In fairness ... the problem is not that it's VB, it's that he's a crap programmer!

[zenstain]

This is dailywtf worthy.