Tekil Mesaj gösterimi - Visual Basic Değişken Ve İşleçleri

Konu Visual Basic Değişken Ve İşleçleri

27-07-2010, 01:47:19

#1

sinanozulku

Bu derste programlarınzda verileri geçiçi olarak depolamak için değişkenleri ve toplama çıkartma gibi görevleri yerine getirmek için matematiksel işleçleri kullanmayı ogreneceksiniz..Sayılarla hesaplamalar yapmak icin matematiksel işlevleri ve iletişim kutuları kullanarak bilgi almak ve görüntülemek için InputBox. MsgBox işlevlerini kullanmayı da öğreneceksiniz..

Bilgi Saklamak için Değişkenleri Kullanmak

Bir degisken programınızdaki veri çin geçiçi saklama yeridir.Kodunuzda bir ya da daha fazla degisken kullanabilirsiniz.Degiskenler sözückleri sayı yarih ve özellikleri içerebilir.Değişkenler çalısmayı planladıgınız her veri parçası için kısa ve kolay anımsanabilir adlar atamanızı sagladıkları için yararlıdır..

File menüsünden Open Project komutunu tıklayın

Veri projesi programlama ortamında calısır.Veri çeşitli temel veri türlülerini nasıl çalısıtıgı gösteren bir tam visual basic programıdır

Başlıyoruz

Label Ekliyoruz Ve Temel veri Türleri ismini koyuyoruz diger ders'de göstermistim sagdaki özelliklerden capiton program ismi sonra font yazı tipi boyutlarını ayalıcaz..

Ve Sonra label ekliyoruz tekrar asagıdaki gibi..

Ve cıkıs butonu ekliyoruz menülerden commandbutton tıklıyoruz

Ve isin en zevkli kısmına geliyoruz kodları ekliyoruz..

Baslıktaki Temel veri Türleri diye label eklemistin hemen ona çift tıklayıp asagıdaki kodu ekliceksiniz

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
'Bu satırlar List1 listesini görüntüler
List1.AddItem "Integer"
List1.AddItem "Long integer"
List1.AddItem "Single precision"
List1.AddItem "Double precision"
List1.AddItem "Currency"
List1.AddItem "String"
List1.AddItem "Boolean"
List1.AddItem "Date"
List1.AddItem "Variant"
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub List1_Click()
'Değişken bildiri bölümü
Dim Kuşlar%, Borç&, Fiyat!, Pi#, Kredi@, Köpek$, Toplam
Dim Bayrak As Boolean
Dim DoğumGünü As Date

'Kullanıcının seçeneğini işleyen Case bildirisini seçin
Select Case List1.ListIndex
Case 0
Kuşlar% = 37
Label4.Caption = Kuşlar%
Case 1
Borç& = 350000
Label4.Caption = Borç&
Case 2
Fiyat! = -1234.123
Label4.Caption = Fiyat!
Case 3
Pi# = 3.1415926535
Label4.Caption = Pi#
Case 4
Kredi@ = 299950.95
Label4.Caption = Kredi@
Case 5
Köpek$ = "Rus Kurdu"
Label4.Caption = Köpek$
Case 6 'Kod -1 ise True , False as 0
Bayrak = True
Label4.Caption = Bayrak
Case 7 '# simgesini ve Format işlemini not edin
DoğumGünü = #11/19/1963#
Label4.Caption = Format$(DoğumGünü, "dddd, mmmm dd, yyyy")
Case 8
Fiyat = 99.95
Label4.Caption = Fiyat
End Select
End Sub

Ve Sonra List1 ekledik ona çift tıklayıp kodumuzu ekliyoruz

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
'Bu satırlar List1 listesini görüntüler
List1.AddItem "Integer"
List1.AddItem "Long integer"
List1.AddItem "Single precision"
List1.AddItem "Double precision"
List1.AddItem "Currency"
List1.AddItem "String"
List1.AddItem "Boolean"
List1.AddItem "Date"
List1.AddItem "Variant"
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub List1_Click()
'Değişken bildiri bölümü
Dim Kuşlar%, Borç&, Fiyat!, Pi#, Kredi@, Köpek$, Toplam
Dim Bayrak As Boolean
Dim DoğumGünü As Date

'Kullanıcının seçeneğini işleyen Case bildirisini seçin
Select Case List1.ListIndex
Case 0
Kuşlar% = 37
Label4.Caption = Kuşlar%
Case 1
Borç& = 350000
Label4.Caption = Borç&
Case 2
Fiyat! = -1234.123
Label4.Caption = Fiyat!
Case 3
Pi# = 3.1415926535
Label4.Caption = Pi#
Case 4
Kredi@ = 299950.95
Label4.Caption = Kredi@
Case 5
Köpek$ = "Rus Kurdu"
Label4.Caption = Köpek$
Case 6 'Kod -1 ise True , False as 0
Bayrak = True
Label4.Caption = Bayrak
Case 7 '# simgesini ve Format işlemini not edin
DoğumGünü = #11/19/1963#
Label4.Caption = Format$(DoğumGünü, "dddd, mmmm dd, yyyy")
Case 8
Fiyat = 99.95
Label4.Caption = Fiyat
End Select
End Sub

Örnek yedi labelin üzerine bu kodu ekliyorsunuz

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
'Bu satırlar List1 listesini görüntüler
List1.AddItem "Integer"
List1.AddItem "Long integer"
List1.AddItem "Single precision"
List1.AddItem "Double precision"
List1.AddItem "Currency"
List1.AddItem "String"
List1.AddItem "Boolean"
List1.AddItem "Date"
List1.AddItem "Variant"
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub List1_Click()
'Değişken bildiri bölümü
Dim Kuşlar%, Borç&, Fiyat!, Pi#, Kredi@, Köpek$, Toplam
Dim Bayrak As Boolean
Dim DoğumGünü As Date

'Kullanıcının seçeneğini işleyen Case bildirisini seçin
Select Case List1.ListIndex
Case 0
Kuşlar% = 37
Label4.Caption = Kuşlar%
Case 1
Borç& = 350000
Label4.Caption = Borç&
Case 2
Fiyat! = -1234.123
Label4.Caption = Fiyat!
Case 3
Pi# = 3.1415926535
Label4.Caption = Pi#
Case 4
Kredi@ = 299950.95
Label4.Caption = Kredi@
Case 5
Köpek$ = "Rus Kurdu"
Label4.Caption = Köpek$
Case 6 'Kod -1 ise True , False as 0
Bayrak = True
Label4.Caption = Bayrak
Case 7 '# simgesini ve Format işlemini not edin
DoğumGünü = #11/19/1963#
Label4.Caption = Format$(DoğumGünü, "dddd, mmmm dd, yyyy")
Case 8
Fiyat = 99.95
Label4.Caption = Fiyat
End Select
End Sub

Ve cıkıs Butonuna Bu kodu ekliyorsunuz

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
'Bu satırlar List1 listesini görüntüler
List1.AddItem "Integer"
List1.AddItem "Long integer"
List1.AddItem "Single precision"
List1.AddItem "Double precision"
List1.AddItem "Currency"
List1.AddItem "String"
List1.AddItem "Boolean"
List1.AddItem "Date"
List1.AddItem "Variant"
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub List1_Click()
'Değişken bildiri bölümü
Dim Kuşlar%, Borç&, Fiyat!, Pi#, Kredi@, Köpek$, Toplam
Dim Bayrak As Boolean
Dim DoğumGünü As Date

'Kullanıcının seçeneğini işleyen Case bildirisini seçin
Select Case List1.ListIndex
Case 0
Kuşlar% = 37
Label4.Caption = Kuşlar%
Case 1
Borç& = 350000
Label4.Caption = Borç&
Case 2
Fiyat! = -1234.123
Label4.Caption = Fiyat!
Case 3
Pi# = 3.1415926535
Label4.Caption = Pi#
Case 4
Kredi@ = 299950.95
Label4.Caption = Kredi@
Case 5
Köpek$ = "Rus Kurdu"
Label4.Caption = Köpek$
Case 6 'Kod -1 ise True , False as 0
Bayrak = True
Label4.Caption = Bayrak
Case 7 '# simgesini ve Format işlemini not edin
DoğumGünü = #11/19/1963#
Label4.Caption = Format$(DoğumGünü, "dddd, mmmm dd, yyyy")
Case 8
Fiyat = 99.95
Label4.Caption = Fiyat
End Select
End Sub

Ve Programımız Hazır Star komutuylu Calıstıralım

Liste menüsünden integer türün tıklayın

Örnek veri kutusunda 37 sayısı görünür

Liste kutusunda Date türünü tıklayın

Örnek veri kutusunda salı kasım 19,196 tarihi görünür

Programı durdurmak için çık dugmesine tıklayın

KAYNAK