Label, İf ve toplama işlemi

Başlatan kamboccia, 01 Şubat 2011 - 08:46:22

« önceki - sonraki »

0 Üyeler ve 1 Ziyaretçi konuyu incelemekte.

kamboccia

Sorun çözüldü arkadaşlar ben kısacası bir textbox ifadesiyle ve ya labelle bir sayının toplanması ve if eger komutlarını kullanmayı sorun etmiştim sorunu çözdüm size sallama sayılarla bunu göstereceğim

Bir textbox ve ya labeldeki karakterleri sayı değeri olarak tanımlıyoruz baştan örneğin;

Val(Label1.Text)

Sonrada bu kodu bir değişkene eşitliyoruz

Val(Label1.Text) = A

* tabi ki PRIVATE SUB değil PUBLIC SUB olacak işlemimiz ve ayrıca işlemin altınada bu değişkeni belirtiyoruz

DIM A AS Integer

Ardından IF Komutlarını kullanıyoruz
eğer A 100 den küçük olur ve bir diğer değişkenizim C de 7 den küçük ve ya ona eşit olursa THEN 'in altındaki komut çalışacak

IF A < 100 AND C <= 7 THEN

Sonra komutumuzu giriyoruz

A = A + 1000
C = C - 8
Sonrada Labeldeki eski değerleri yenileriyle değiştiriyoruz bunun için de LAbellerimizin sonuna text ifadesi koyarak onları Str$ fonksiyonuyla karaktersel hale getiriyoruz.

Label1.Text = Str$(A)
Label2.Text = Str$(C)

Sonrada bitiriyoruz...

END IF
END

Kolay gelsin:)