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

Anasayfa Programlama C++ Builder İkilik Tabandan Onluk Tabana


İkilik Tabandan Onluk Tabana

AÇIKLAMA

C++ Builder 6 ile uyumludur. 

Sitenin içinde ikilik tabandan onluk tabana çeviren başka bir proje daha bulunmaktadır. Bu projede ise farklı daha efektif bir algoritma kullanılarak ikilik tabandan onluk tabana dönüştürme işlemi gerçekleştirilmiştir. Ayrıca ikilik tabanda 1 den ve 0 dan başka rakam girilmemesi gerekmektedir. Bu sebeplede Edit1 bileşeni içerisine girilecek olan ikilik tabandaki sayının kontrollü girilmesi de sağlanmıştır. Edit1 içerisine ikilik tabanda sayı yazıldıktan sonra Hesapla butonuna basılır onluk 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. #include "Math.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18.  
  19. void __fastcall TForm1::Button1Click(TObject *Sender)
  20. {
  21. String ikili=strrev(Edit1->Text.c_str());
  22. int toplam=0;
  23. char *x;
  24. x=(char *)malloc(ikili.Length());
  25. strcpy(x,ikili.c_str());
  26. for(int i=0;i<ikili.Length();i++)
  27. {
  28.   toplam+=StrToInt(x[i])*pow(2,i);
  29. }
  30. Edit2->Text=IntToStr(toplam);
  31. }
  32. //---------------------------------------------------------------------------
  33.  
  34. void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
  35. {
  36. if(Key==48 || Key==49|| 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:51 )