If Örneği (Dersten Geçip Kalmak) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Swat · 11 Temmuz 2014, 10:35

Kullanıcıdan alınan sınav notunun 50'den büyük olması durumunda "Tebrikler Geçtiniz" mesajı verecek.50'den küçük olması durumunda bütünleme notunu isteyecek girilen bütünleme notunun 50'den küçük olması durumunda "Kaldınız" mesajı verecek 50'den büyük olması durumunda ise "Tebrikler Geçtiniz" mesajı verecek program.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#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 but=StrToInt(InputBox("Giriş Notu","Sınav Notunu Giriniz",""));
if(but>50)
Application->MessageBox("Tebrikler Geçtiniz","Durum",MB_ICONINFORMATION);
else
{
 but=StrToInt(InputBox("Bütünleme Notunuz","Giriş Notu",""));
 if(but>50)
 Application->MessageBox("Tebrikler Geçtiniz","Durum",MB_ICONINFORMATION);
 else
 Application->MessageBox("Kaldınız","Durum",MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş Arama Yap
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Bir Dersten Nasıl Başarılı Olunur	Cry	Ruh Sağlığı	0	08 Mayıs 2012 22:08
Dersten atılma sahneler.	LuisCode	Genel Paylaşım	0	27 Mayıs 2006 16:54

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.