Post Uzun kodlamada vakit kazanma

---

Merhaba arkadaşlar ara sıra böyle şeyleri konuya eklemeyi düşünüyorum

Diyelimki bir select Case olayınız var ve çok fazla case var

Kod:

Select Case Tanımım
          case 0:if Tan2 = 1 then msgbox 0
          case 1:if Tan2 = 1 then msgbox 1
          case 2:if Tan2 = 1 then msgbox 2
          .....
          .....
end select

böyle diyelimki 300 e kadar gidicek.elle yazmak zor.Bunun için kendinize şöyle birşey geliştirebilirsiniz.Ben kendim için basit projeler yaptım kullanıyorum

1.textbox (name = text1,multiline = true)
1 buton(name = command1)

buton(command1) içine

Kod:

For i = 0 to 300 ' 300 E adar case 
text1 = text1 & vbcrlf & "case " & (i) & ":if Tan2 = 1 then msgbox " & (i)
next i

Butona bastığımız anda 300 e kadar case yapısı oluşturur.

bu tarz sorunlarla karşılaştığınızda çözüm olacaktır umarım.