Programalama > VISUAL BASIC

Etiketler: select, case, uygulamasi

Ort. 0
Puan ver:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'1-Yeni bir proje oluşturun.
'2- Aşağıdaki kodları Formun general Declarations bölümüne yapıştırın
 
 
 
Sub Form_Click ()
 
Dim veri ' Tanımlama.
 
Do ' Döngü.
 
veri = UCase(InputBox("A Ve ya X tuşlarına basınız", "End"))
 
Select Case veri ' Veri Seçimi.
 
Case "A": MsgBox "Girişiniz 'A'.",54,”End
 
Case "X": End ' Çıkış
 
Case Else: MsgBox "Geçersiz Giriş,Tekrar Deneyiniz.",48,”End
 
End Select ' Seçim Bloğu bitti.
 
Loop
 
End Sub ' Procedure sonu
 
'4- Projenizi Kaydedip Çalıştırın. Form 1 uzerine fare ile çift tıklayın


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2025 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.