İlk Programımızı Yazıyoruz. [ İlk Programımızı Yazıyoruz., İlk Programımızı Yazıyoruz. ]

[I][COLOR="Red"][FONT="Times New Roman"]İlk olarak Visual Basic 6.0 ı çalıştırdıktan sonra karşımıza gelen ilk panel New Project paneli, buradan Standart Exe seçeneğine tıklayarak il uygulamamızı yani programımızı yazmaya başlayalım. " target="_blank">Tıklayın Yeni projemizi açtıktan sonra karşımıza üzerinde çalışacağımız yani yazacağımız programın (Visual) görsel ara yüzünü olacağı boş form u görebilirsiniz. " target="_blank">Tıklayın Evet Form umuzuda gördükten sonra ilk uygulamamızı yazmaya başlayabiliriz.İlk uygulamamızın yapacağı iş şu olacak 1 adet text Box , 3 adet commond button dan oluşacak çalışmamız , her bir buton a basıldığı zaman text box a patates, havuç ve soğan yazdıracak bunları teker teker yazdıracak tabi ki şimdi uygulamamıza başlayalım. " target="_blank">Tıklayın Arkadaşlar form umuzun görsel kısmı böyle olacak bu işlemi gerçekleştirdikten sonra şimdi kod kısmına gerek programımızı yazmaya başlayalım. ilk olarak form umuzda ki patates butonunun kodunu yazacağız. Kod penceremizi açarak veya patates buton umuza çift tıklayarak. kod penceresinde aşağıda kodu görebilriz. [color=green]Private Sub Command1_Click() End Sub Yukarıda görmüş olduğunuz kod patates butonuna tıklandığı zmana çalışacak ve yapılacak işlemlerin hepsi 2 kod arasına yazılacaktır. Şimdi kodumuzu yazmaya başlayalım. [color=green]Private Sub Command1_Click() Text1.Text = "Patates" End Sub text1 yazan kısım bizim eklediğimiz text box ın ismidir eğer eklediğimiz text box ı yazı diye tanımlayabilirdik. text1.text yani text1 den sonra kullandığımız text yazısı ise text1 in (text box ın içinde ki yazılara müdahele etmemizi sağlar) [color=green]Private Sub Command1_Click() Text1.Text = "" Text1.Text = "Patates" End Sub Yukarıda kodumuza Text1.Text = "" eklemiş olduğumuz yeni kod text1 deki text i sıfırlar yani içini temizler (önceki yazılmış olan yazıyı siler). Şimdi diğer butonlarımız için aynı yolları izleyerek text box ımıza yazdırmak istediğimiz yazıları diğer butonlarada girelim. [color=green]Private Sub Command2_Click() Text1.Text = "" Text1.Text = "Havuç" End Sub Private Sub Command3_Click() Text1.Text = "" Text1.Text = "Soğan" End Sub Diğer bbutonlarımızında kodları bunlar arkadaşlar yukarıda anlatmış olduğumuz patates butonuna uyguladığımız işlemlerin aynısını burada da kullandık. Şimdi aşağıda görmüş olduğunuz kodların hepsi programımızın bütün kodlarını içermektedir. [color=green]Private Sub Command1_Click() Text1.Text = "" Text1.Text = "Patates" End Sub Private Sub Command2_Click() Text1.Text = "" Text1.Text = "Havuç" End Sub Private Sub Command3_Click() Text1.Text = "" Text1.Text = "Soğan" End Sub İlk programımızı yazmış olduk vatana millete hayırlı uğurlu olsun alıntıdır [/I]

BEDAVA MILYONLARCA LİSELI GENÇ KIZ MSN ADRESI.!!!

- Konular -

Rastgele YANLIŞ NUMARA

ACIBADEM TATLISI TARIFI

kadın gözünü yiyor

Burma Tel Kadayıf

bir ablanın günlüğü=)

Allah insanlarin duasini isitir ve onlara cevap verir

Kadını AĞLATMAK

Hayatın içinden