1. 176.
    0
    @96 ya bonus alın binler :

    Dim Nick_Pic As String
    Nick_Pic = InputBox("Nickin ney bin?")

    Dim dizi(Nick_Pic. Length) As String
    For a = 0 To Nick_Pic. Length - 1
    For b = 0 To a
    dizi(a) = dizi(a) + Nick_Pic. Chars(b)

    Next
    Next
    For a = 0 To Nick_Pic. Length - 1

    ListBox1.Items.Add(dizi(a))
    Next
    ···
  2. 177.
    0
    m
    ···
  3. 178.
    0
    ben pimpe 3 koyuyorum
    ···
  4. 179.
    0
    e
    ···
  5. 180.
    0
    m
    ···
  6. 181.
    0
    m
    ···
  7. 182.
    0
    m
    r

    l
    a
    f
    l
    e
    u
    r
    ···
  8. 183.
    0
    bazı embesillerin okuma yazması yok amk, her harfi ayrı mesaj atıcaksınız olm, mühim olan kimsenin konuya mesaj yazmadığı bir dönemi denk getirip nickinizi oluşturmak.. çakal olan kazanıyor yani

    nickinizdeki harf sayısı kadar inci penceresi açın, her birine bi harfinizi yazın, sırayla tıklayın oluyor
    ···
  9. 184.
    0
    k
    ···
  10. 185.
    0
    d
    d
    d
    ···
  11. 186.
    0
    beyler bi kişinin yapmasına müsade edelim de başlık boşa gitmesin
    ···
  12. 187.
    0
    d
    d
    d
    ···
  13. 188.
    0
    e
    e
    e
    ···
  14. 189.
    0
    v
    v
    v
    ···
  15. 190.
    0
    a
    a
    a
    ···
  16. 191.
    0
    d
    d
    d
    ···
  17. 192.
    0
    hasgibtir bozdum.
    ···
  18. 193.
    0
    haaaaapşuoooo, pardon
    ···
  19. 194.
    0
    s
    i
    k
    t
    i
    r

    g
    i
    t
    ···
  20. 195.
    0
    a
    a
    a
    ···