Visual Basic Yardım?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    gowand
    gowand's avatar
    Kayıt Tarihi: 07/Ocak/2010
    Erkek

    if döngüsünü bir tişörte basacamda örnek şurada doğrumu değilmi sizce

    Sub

    İf Jose.Caption="Aşık" Then

    MsgBox="Ayvayı Yedi"

    Else

    MsgBox="Hala Yaşama Uymudu Var"

    End If

    End Sub


    with great power comes great irresponsibility ‪#‎deadpool‬
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kvasir
    kvasir's avatar
    Kayıt Tarihi: 24/Ağustos/2005
    Erkek

    MsgBox= ne hacı, MsgBox "buraya yazı" şeklinde olacak, Ayrıca İf değil If. Tişörte basacam dediğin MsgBox ile nasıl bir basma olacak anlamadım ? aklımda şöyle bir şey oluştu, forma bir tişört resmi koyacaksın üstüne label atacaksın gibi, o zaman o labelin caption ını değiştirmen daha mantıklı değil mi ?

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    anarsistherif
    anarsistherif's avatar
    Kayıt Tarihi: 27/Ağustos/2009
    Erkek

    Private Sub

    If Jose.Caption = "Aşık" Then

    MsgBox ("Ayvayı Yedi")

    Else

    MsgBox ("Hala yaşama umudu var") 


    End If

    End Sub


    =)
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    baristbt
    baristbt's avatar
    Kayıt Tarihi: 20/Nisan/2011
    Erkek

    maksat kalabalık olsun :D

     

    if (Jose.Text == "Aşık")

                {

                    MessageBox.Show("Ayvayı Yedi");

                }

                else

                {

                    MessageBox.Show("Hala Yaşama Umudu Var");

                }


    http://www.leyladansonra.com/
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    gowand
    gowand's avatar
    Kayıt Tarihi: 07/Ocak/2010
    Erkek

    Ben sadece Baskılı bir tişört yapmak istiormmm yani program yazmıcam tbt tişörtleri gibi var ya gerçek tişörtün üstüne kodları basacamm

    İf Jose.Caption="Aşık" Then

    MsgBox="Ayvayı Yedi"

    Else

    MsgBox="Hala Yaşama Uymudu Var"

    End If

    End Sub

    burada bir örnek var

    http://www.google.com.tr/imgres?q=bask%C4%B1l%C4%B1+ti%C5%9F%C3%B6rt+pc&um=1&hl=tr&biw=1024&bih=653&tbm=isch&tbnid=YLHE7YYzkUuyJM:&imgrefurl=http://www.indirimlr.com/satici/tish-o/&docid=LUy9TqnITnV2vM&imgurl=http://www.indirimlr.com/wp-content/uploads/2012/02/baskili-ya-sev-ya-delete-matrak-tshirt.jpg&w=508&h=512&ei=l2NOT4jhBvDV4QTtpOmGAw&zoom=1&iact=hc&vpx=767&vpy=308&dur=441&hovh=163&hovw=170&tx=152&ty=116&sig=102419820404415774591&page=7&tbnh=158&tbnw=166&start=117&ndsp=23&ved=1t:429,r:5,s:117


    with great power comes great irresponsibility ‪#‎deadpool‬
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Kız Babası
    kuytul
    kuytul's avatar
    Kayıt Tarihi: 08/Eylül/2005
    Erkek

    bi özentilik yapmayın gözün sevem.


    instagram.com/yks.rehberlik >> YKS Rehberlik ve Eğitim Koçluğu için takipte kalın ;)
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    maserati
    maserati's avatar
    Kayıt Tarihi: 28/Nisan/2006
    Homo

    hehe hocam bilmedigin seyi niye bastiriyorsun ti sorte D


    Türkiyede kim sevdiği işi yapıyor ki?
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SinusX
    SinusX's avatar
    Kayıt Tarihi: 14/Aralık/2010
    Erkek
    Private Sub exit_Click()
    ex = MsgBox("Are You Sure You Want To Exit", vbYesNo, "Exit")
    If ex = vbYes Then
        Form4.Show
        Form1.Hide
        End If
    If ex = vbNo Then
        Form1.Show
        End If
    End Sub
    
    Private Sub Form_Load()
    Label11.Visible = False
    Randomize
    PLAY = (Rnd * 1)
    If PLAY = 0 Then
        Label10.Caption = "Player One Goes First"
    Else
        Label10.Caption = "Player Two Goes First"
        End If
    End Sub
    
    Private Sub game_Click()
    Form5.Show
    Form1.Hide
    End Sub
    
    Private Sub Label1_Click()
    If PLAY = 0 Then
        Label1.Caption = "X"
        PLAY = 1
    Else
        Label1.Caption = "O"
        PLAY = 0
        End If
        Label1.Enabled = False
    Timer1.Enabled = True
    und = 1
    End Sub
    
    Private Sub Label2_Click()
    If PLAY = 0 Then
        Label2.Caption = "X"
        PLAY = 1
    Else
        Label2.Caption = "O"
        PLAY = 0
        End If
        Label2.Enabled = False
        Timer1.Enabled = True
    und = 2
    End Sub
     
    Şöyle uzun bişey daha hoş olur rasgele aldım bi projeden :)

    Si vis pacem para bellum.
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    gowand
    gowand's avatar
    Kayıt Tarihi: 07/Ocak/2010
    Erkek
    ya beyler aşktan ben ne yaptığımı biliormuyumm kii :(:...........

    with great power comes great irresponsibility ‪#‎deadpool‬
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    maserati
    maserati's avatar
    Kayıt Tarihi: 28/Nisan/2006
    Homo

    gowand bunu yazdı:
    -----------------------------
    ya beyler aşktan ben ne yaptığımı biliormuyumm kii :(:...........
    -----------------------------

     

    belki sen suan bilmiyo olabilirsin ama yaptigin sey cok amelece 


    Türkiyede kim sevdiği işi yapıyor ki?
Toplam Hit: 2632 Toplam Mesaj: 10