Programlama | Programlama Dilleri | C Programlama Dili |C++

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character
Anasayfa Programlama C++ Builder Onluk Tabandan ?kilik Tabana


Onluk Tabandan ?kilik Tabana

AÇIKLAMA

C++ Builder 6 ile uyumludur. 

Bu program onluk tabanda girilen say?y? ikilik tabana çevirmektedir. Ayr?ca onluk tabanda rakamdan ba?ka bir?ey girilmemesi gerekmektedir. Bu sebeplede Edit1 bile?eni içerisine girilecek olan onluk tabandaki say?n?n kontrollü girilmesi de sa?lanm??t?r. Edit1 içerisine onluk tabanda say? yaz?ld?ktan sonra Hesapla butonuna bas?l?r ikilik tabandaki sonuç Edit2 bile?eni içerisinde belirecektir. 

Ayr?ca yanl?? yaz?m sebebiyle silme i?lemine gerçekle?tirebilmek amac?yla backspace tu?uda aktif olarak b?rak?lm??t?r.

Program?n Tamam?n? A?a??daki Linkten ?ndirebilirsiniz

Linki Görebilmeniz ?çin Üye Olman?z Gerekmektedir...

Üye Kay?t

Program Kodu:

  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17.  
  18. void __fastcall TForm1::Button1Click(TObject *Sender)
  19. {
  20. int x=StrToInt(Edit1->Text);
  21. String sonuc="";
  22. int kalan;
  23. while(x>1)
  24. {
  25.  kalan=x%2;
  26.  sonuc+=kalan;
  27.  x=x/2;
  28. }
  29. sonuc+=x;
  30. Edit2->Text=strrev(sonuc.c_str());
  31. }
  32. //---------------------------------------------------------------------------
  33.  
  34. void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
  35. {
  36. if(Key==48||Key==49||Key==50||Key==51||Key==52||Key==53||Key==54||Key==55||Key==56||Key==57||Key==VK_BACK)
  37. ;
  38. else
  39. Key=0;
  40. }
  41. //---------------------------------------------------------------------------
Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Salı, 04 Eylül 2012 02:47 )  
404 Not Found

404

Not Found

The resource requested could not be found on this server!


Proudly powered by LiteSpeed Web Server

Please be advised that LiteSpeed Technologies Inc. is not a web hosting company and, as such, has no control over content found on this site.