Soci (Soczó Zsolt) szakmai blogja

2007.03.27.

WTF gyanús kód :)

Filed under: Fun,Szakmai élet — Soczó Zsolt @ 13:01

Benevezhetne ide.

Update: gaba kedvéért itt a kód:

[source:VB]
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click

Dim name_cost As String
Dim i As Integer ‘A ListView-kat lépteti
Dim b As Integer ‘Az item-ket lépteti
Dim c As Integer ‘A subitem-ket lépteti
Dim d As Integer ‘A találatok item részét lépteti
d = 1
i = 0

If Me.CheckBox1.Checked Then
While i <= 21 c = 1 b = 0 If i = 1 Then Főablak.változó = Főablak.ListView1 End If If i = 2 Then Főablak.változó = Főablak.ListView2 End If If i = 3 Then Főablak.változó = Főablak.ListView3 End If If i = 4 Then Főablak.változó = Főablak.ListView4 End If If i = 5 Then Főablak.változó = Főablak.ListView5 End If If i = 6 Then Főablak.változó = Főablak.ListView6 End If If i = 7 Then Főablak.változó = Főablak.ListView7 End If If i = 8 Then Főablak.változó = Főablak.ListView8 End If If i = 9 Then Főablak.változó = Főablak.ListView9 End If If i = 10 Then Főablak.változó = Főablak.ListView10 End If If i = 11 Then Főablak.változó = Főablak.ListView11 End If If i = 12 Then Főablak.változó = Főablak.ListView12 End If If i = 13 Then Főablak.változó = Főablak.ListView13 End If If i = 14 Then Főablak.változó = Főablak.ListView14 End If If i = 15 Then Főablak.változó = Főablak.ListView15 End If If i = 16 Then Főablak.változó = Főablak.ListView16 End If If i = 17 Then Főablak.változó = Főablak.ListView17 End If If i = 18 Then Főablak.változó = Főablak.ListView18 End If If i = 19 Then Főablak.változó = Főablak.ListView19 End If If i = 20 Then Főablak.változó = Főablak.ListView20 End If If i = 21 Then Főablak.változó = Főablak.ListView21 End If While b < Főablak.változó.Items.Count.MaxValue If chc2.Checked Then name_cost = Főablak.változó.Items.Item(b).SubItems(4).Text Else name_cost = Főablak.változó.Items.Item(b).Text End If If name_cost = Me.TextBox1.Text Then 'Me.találatok_mini.Items.Add(Főablak.változó.Items.Item(b).Text) 1: 'Me.találatok_mini.Items.Item(d).SubItems(1).Text = Főablak.változó.Items(b).SubItems(4).Text Dim add As ListViewItem add = találatok_mini.Items.Add(Főablak.változó.Items.Item(b).Text) add.SubItems.Add(Főablak.változó.Items(b).SubItems(4).Text) add.SubItems.Add("") If i = 1 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Merev acélbetétek" If i = 2 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Betonacélok" If i = 3 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Adalékanyagok" If i = 4 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Egyéb" If i = 5 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Faanyagok" If i = 6 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Beton falazók" If i = 7 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Égetett agyagtégla" If i = 8 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Pórusbeton termékek" If i = 9 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Habarcsok" If i = 10 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Ragasztók" If i = 11 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Beton" If i = 12 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Szálas hőszigetelők" If i = 13 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Poliészter hőszigetelők" If i = 14 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Kiegészítő anyagok - Hőszigetelés" If i = 15 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Beton cserép" If i = 16 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Kerámia cserép" If i = 17 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Zsindely" If i = 18 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Kiegészitő anygagok - Tetőfedés" If i = 19 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Bitumenes lemez" If i = 20 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Műanyag lemez" If i = 21 Then Me.találatok_mini.Items.Item(d).SubItems(2).Text = "Fóliák" d = d + 1 End If End While End While End If End Sub [/source]

3 Comments

  1. Nem tudod beidézni? (Elfelejtettem a jelszavam a devportálra, és nem küldi el a jelszóváltozatást.)

    Comment by gaba — 2007.03.27. @ 15:11

  2. Beraktam. :)

    Comment by Soczó Zsolt — 2007.03.27. @ 16:37

  3. Köszönöm. Tényleg meglepő, mennyi ilyen kód van. Azt hiszem, sok ember egyszerűen nem is akar megtanulni normálisan programozni, mert az erőfeszítést igényel. Inkább szenved egész nap.

    Comment by gaba — 2007.03.28. @ 09:02

RSS feed for comments on this post.

Sorry, the comment form is closed at this time.

Powered by WordPress