| Swat | 11 Temmuz 2014 10:34 |
Switch-Case Örneği
Bu program örnek bir switch-case uygulamasıdır. Programda kullanıcıdan alınan not girişine uygun olarak bir mesaj penceresi gösterilmektedir. Kod:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a=StrToInt(InputBox("NOT GİRİŞİ","Notunuzu Giriniz",""));
switch (a)
{
case 0: Application->MessageBox("Çok Berbatsın!","SONUÇ",MB_ICONINFORMATION); break;
case 20: Application->MessageBox("Kötüsün!","SONUÇ",MB_ICONINFORMATION); break;
case 40: Application->MessageBox("İyi Değilsin!","SONUÇ",MB_ICONINFORMATION); break;
case 49: Application->MessageBox("Sınırdasın!","SONUÇ",MB_ICONINFORMATION); break;
case 50: Application->MessageBox("İdare Eder!","SONUÇ",MB_ICONINFORMATION); break;
case 60: Application->MessageBox("Fena Sayılmazsın!","SONUÇ",MB_ICONINFORMATION); break;
case 75: Application->MessageBox("İyisin!","SONUÇ",MB_ICONINFORMATION); break;
case 100: Application->MessageBox("Çok İyi!","SONUÇ",MB_ICONINFORMATION); break;
default: Application->MessageBox("Tanımlı Bir Not Girişi Değil!","SONUÇ",MB_ICONINFORMATION); break;
}
}
//---------------------------------------------------------------------------
| 