Buraya kadar olan dersler bazılarına biraz sıkıcı ve basit gelmiş olabilir. Bu ve bundan sonraki derslerde daha yoğun kodlama bilgisine başlıyoruz. Yani işin eğlenceli kısmı bundan sonra başlıyor..

İlk kodumuzu yazalım



Önceki derste bir form tasarlamış ve kod penceresine bir göz atmıştık. Şimdi de biraz kod ekleyelim.

Private Sub Button1_Click satırının altına aşağıdan kopyaladığınız kod bloğunu yazınız. End sub'dan önce olmalıdır.
Dim number1 As Integer
Dim number 2 As Integer
Dim answer As Integer

number1 = 3
number2 = 5

answer = number1 + number2

MsgBox answer
Burada neler olduğunu kontrol etmeden önce, çalışmanızı kaydedin ve F5'e basarak projeyi çalıştırın. Ekrana gelen formdaki butona (siz hazırlamıştınız) tıklayın. Sonuç:



Yukarıdaki resimde de gördüğünüz gibi bir mesaj kutusu çıkacak ve 8 rakamını gösterecektir.

Projeyi kapatın ve tasarım ekranına geri dönün. Kodunuzu göremiyorsanız tasarım ekranına geçememişsiniz demektir. Aşağıdaki resme bakarak ekranın en üstünde bulunan tabları kontrol edin.


ve formunuzu görmek için "Form1.vb [Design]" tabına tıklayın.

Pekala, burada kodlar nasıl çalıştı? Olan şey aslında çok basit: İki rakamı taoplayan ve sonucu mesaj kutusunda gösteren bir program yazdınız. Gerçek bir program. Daha anlaşılır olması için kodları biraz daha inceleyelim:

Dim number1 As Integer

Önce Dim kelimesi ile Visual Basic'e bir değişken (variable) tanımlamak istediğimizi bildirdik.
Sonra değişkene bir ad verdik: (number1)
Daha sonra VB'ye bu değişkenin bir sayı (As Integer) olduğunu bildirdik.
Benzer şekilde iki tane daha değişken Dim... As Integer komutuyla atandı: (number1 ve number2)

Not: Dim kelimesi İngilizce "Dimension" (Boyut) kelimesinden gelmektedir ve değişken boyutlandırma (oluşturma) için kullanılır. Dim oluşturulan değişken için AS tanımlayıcısından sonra belirtilen değişken tipinin büyüklüğü kadar yeri programın çalıştığı makinenin RAM belleğinde ayırır. Integer = 4 byte

Üç değişken deklere ettikten sonra (oluşturduktan) sonra, şunları yaptık:

number1 = 3
number2 = 5


VB'ye number1 adlı ilk değişkenin değerinin 3, diğer number2 adlı değişkenin değerinin 5 olduğunu bildirdik.
Not: Bir değişken içine değer yüklemek için VB'de = (eşittir) operatörü kullanılır. Aslında buna eşittir işareti demek hatalı olabilir. Çünkü eşitlik durumu söz konusu değildir. Bilakis "=" işareti soldaki değeri sağdaki değişkene yükler. Programlama dilinde "=" işaretine "Assignment operator" (atama operatörü) denir.

Bir sonraki satırda,
answer = number1 + number2
iki değişkenin değerlerinin toplanmasını ve ortaya çıkan değerin "answer" değişkenine atanmasını istedik. Farkettiğiniz gibi insan mantığına çok yakın bir işlem yapılıyor. VB number1 ve number2 değişkenlerine atanmış olan değerleri topluyor ve oluşan sonucu "=" işaretinden önceki değişkene yüklüyor. Lütfen buna da dikkat ediniz: "=" işaretinden sonraki değer işaretten önceki değişkene atanır. yani answer = 3 + 5 ...

Visual Basic toplama, çıkarma vs tüm işlemleri yapar. Siz sadece ona neleri toplaması gerektiğini vermelisiniz. Zaten bildiğiniz matematik işaretleri kullanılır.

+ toplama
- çıkarma
/ bölme
* çarpma


Programın son satırı ise MsgBox fonksiyonunun oluşan answer değişkeni değerini göstermesidir:

MsgBox answer


Mesaj kutuları uyarı, bilgi aktarımı onay girişi gibi işlerde kullanılır.

Burada bir değişiklik yapalım ve boş duran text kutusunu da işe dahil edelim. MsgBox answer yazan satırı silin ve yerine Textbox1. yazın (sondaki nolta işaretine dikkat!) Siz nokta yazdığınız anda hemen bir kutu aşağı doğru açılacak ve size text kutusunun özelliklerini ve metotlarını gösteren listeyi sunacaktır. (Metot'un ne olduğu daha sonra anlatılacaktır.)

Text yazısını görene kadar listeyi aşağı doğru tarayın ve Text özelliğinin üzerine çift tıklayın. Visual Basic'in 5nci sürümünden bu yana kullanılan bu aşağı-açılır kutuya IntelliSense adı verilmektedir ve herhangi bir kontrolun metot yada özelliğini elle yazmak zorunda kalmadan listeden seçmenize olanak tanımaktadır.

Daha önceki derslerimizin birinde Textbox'un Text özelliğini özellikler penceresinde değiştirmiştik. Burada ise Text özelliğini kod ile değiştireceğiz. Aslında biz değil, program akışında kodların kendisi değiştirecek.

Bir değer atamak için "=" atama operatörünü yazın ve sonrada Text özelliğine atamak istediğimiz değeri yazın. Biz burada sabit (hardcoding) bir değer yazmıyoruz, bir değişkene atanmış değeri Text değeri olarak atıyoruz:

Textbox1.Text = answer
Projeyi tekrar çalıştırın ve butona tıklayın. Bu kez text kutusu içinde 8 rakamını göreceksiniz.

Pekala, programın çalışma mantığını gördünüz. Umarım çok sıkılmıyorsunuzdur. Unutmayın bu dersler sıfır düzey için hazırlandı.

?imdi sizin bu projeyi biraz kurcalamanızı istiyorum. Aşağıdaki alıştırmaları uygulayın:

"3" ve "5" değerleri yerine siz kendi rakamlarınızı yazınız.
+ işareti yerine diğer aritmetik operatörleri kullanarak projeyi test ediniz.
number3 adında başka bir değişken oluşturun ve ona da 10 değerini atayın. "answer" değişkenini number3 ile çarpın ve sonucun Text1'de görüntülenmesini sağlayın.

Değişkenleri deklere eder ve değer atarken, bu işlemi tek satırda da yapabilirsiniz:

Dim number3 As Integer = 10

Bu satır aşağıdaki iki satırla aynı anlamdadır:

Dim number3 As Integer

number3 = 10

İstediğinizi kullanabilirsiniz, sonuçta her ikisi de değişkene değer atamaktadır.

__________________

verdiğin bilgiler için teşekkürler
ama bu derste vermiş olduğunuz kodları kopyala yapıştır yapıyorum aynı şekilde error veriyor kullandığım visual basic sizin vermiş olduğunuz kısıtlamalı versiyon yardımcı olursanız mumnun olurum

1. Error 1 End of statement expected. C:\Users\Ahmet\Documents\Visual Studio 2005\Projects\My First Project\My First Project\Form1.vb 9 12 My First Project
2. Error 2 Name 'number2' is not declared. C:\Users\Ahmet\Documents\Visual Studio 2005\Projects\My First Project\My First Project\Form1.vb 13 9 My First Project
3. Error 3 Name 'number2' is not declared. C:\Users\Ahmet\Documents\Visual Studio 2005\Projects\My First Project\My First Project\Form1.vb 15 28 My First Project
bu errorları veriyor

Dim number1 As Integer
Dim number 2 As Integer
Dim answer As Integer

number1 = 3
number2 = 5

answer = number1 + number2

bu satırları doğru yazdığından emin ol.. sana tavsiyem eğer herşey çorba olduysa, tertemiz yeni bir proje başlat ve öyle işe koyul.. anlatılan adımları sırası ile izle..

number1 ve number2 değişkenleri tanımlanmamış senin projende ve bundan dolayı o hataları alıyorsun..

__________________

sağolun bu konuyu çözdüm teşekkürler derslerinizin devamını bekliyorum