IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - İkilik Tabandan Sekizlik Tabana Dönüştürme

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)

{

Edit1->Visible=false;

Edit1->Text="";

int saydir=1;

String x=InputBox("Sayı Gir","2 Lik Tabanda Sayı Gir","");

String temp=x;

int boy=x.Length();

int dongu=boy/3;

int kalan=boy%3;

if(kalan>0)

dongu++;

strrev(x.c_str());

while(saydir<=dongu)

{

x.Delete(saydir*3+1,x.Length());

x.Delete(1,(saydir-1)*3);

char dizi[3];

strcpy(dizi,x.c_str());

int sonuc,bir,iki,uc;

String he=(String(dizi));

int p=he.Length();

sonuc=0;

if(p==3)

{bir=StrToInt(String(dizi[2]))*4;   sonuc=sonuc+bir; }

if(p>=2)

{iki=StrToInt(String(dizi[1]))*2;   sonuc=sonuc+iki; }

if(p>=1)

{uc=StrToInt(String(dizi[0]))*1;   sonuc=sonuc+uc;   }

 

Edit1->Text=Edit1->Text+IntToStr(sonuc);

x=temp;

saydir++;

}

Edit1->Text=strrev(Edit1->Text.c_str());

Edit1->Visible=true;       

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::FormShow(TObject *Sender)

{

Edit1->Visible=false;

}

//---------------------------------------------------------------------------