BARONER FORUM
Would you like to react to this message? Create an account in a few clicks or log in to continue.

BARONER FORUM

Bahadır Arda Onur Eren
 
AnasayfaGaleriLatest imagesAramaKayıt OlGiriş yap

 

 BASİT BİR ŞEHİR GİRME ÖRNEGİ

Aşağa gitmek 
YazarMesaj
Admin
Admin
Admin


Mesaj Sayısı : 22
Kayıt tarihi : 24/11/08
Yaş : 33

BASİT BİR ŞEHİR GİRME ÖRNEGİ Empty
MesajKonu: BASİT BİR ŞEHİR GİRME ÖRNEGİ   BASİT BİR ŞEHİR GİRME ÖRNEGİ Icon_minitimeÇarş. Ara. 10, 2008 12:59 am

Ben üç adet şehir belirledim bunu önce dim şehir string diyerek programıma başladım derken şehirlermizi textboxa yazcagmızı söyleyip eger sivas girilirse sivaslısın eger hatay girilirse hataylsın kırıkkale girilirse kırıkkalelisin mesaji verilsin istedim bilmeyen ler için örn eger kırıkkale girilrse yi (else if (şehir="kırıkkale") then ) diye gösterdim aşagıdaki linkten indirebilrisiniz...




indir

http://rapidshare.com/files/172128187/ONUR_BAS__304_T_B__304_R_BAS__304_C_oeRNEG__304_.rar.html




Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim şehir As String
şehir = TextBox1.Text
If (şehir = "kırıkkale") Then
MsgBox("kırıkkale vay hemşerimm")
Form2.Show()
MsgBox("hoşgeldiniz")
TextBox1.ResetText()
ElseIf (şehir = "hatay") Then
MsgBox("hatay vay be")
Form2.Show()
MsgBox("hoşgeldiniz")
TextBox1.ResetText()
ElseIf (şehir = "sivas") Then
MsgBox("sivas vay be")
Form2.Show()
MsgBox("hoşgeldiniz")
TextBox1.ResetText()
Else
MsgBox("hadi kocum sen yavaşta yaylan")
TextBox1.ResetText()
End If
End Sub



ögretmenimiz sadık yıldıza teşekkür ederiz...
Sayfa başına dön Aşağa gitmek
https://baroner.yetkin-forum.com
 
BASİT BİR ŞEHİR GİRME ÖRNEGİ
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» VB ÖRNEGİ

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
BARONER FORUM :: PROGRAMLAMA :: VİSUAL BASİC .NET-
Buraya geçin: