|
07-16-2007, 22:34
|
#1 (permalink) |
|
Yüzbaşı
 
Üyelik tarihi: Jul 2007
Mesajlar: 251
|
Sayı sistemlerinde sayı dönüşümü
Programın işlevi; 10 lu,16 lı, 8 li veya 2 li sayı sistemlerinden birine göre girilen bir sayıyının diğer sayı sistemlerindeki karşılıklarını bulan program.
Kod: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Panel1: TPanel; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RadioButton4: TRadioButton; Button1: TButton; Button2: TButton; Button4: TButton; Label5: TLabel; procedure Button4Click(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); procedure RadioButton3Click(Sender: TObject); procedure RadioButton4Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Label4Click(Sender: TObject); procedure Label3Click(Sender: TObject);
__________________
[Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...] Yukarıdaki İşaretlenmİş OLan yere TıkLayarak UYgunsuz Kullanımları moderatörlere veya Adminlere Bildirebilirsiniz. BilGiniZe... 8D1T 8y 4kR3p |
|
|
 |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|
Normal
