| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите написать простенькую процедуру (Delphi). [D7, XP]

Slinne ©   (2006-04-25 01:39:00) 

Необходимо, написать программку, состоящую из трех переключателей (умножение далее введенного значения на 36, 49 и 81), поля ввода значения, кнопки ОК и поле вывода результата.
Помогите пожалуйста написать процедуру ButtonClick.
Знаю, что она простая, но никак не получается.

---

Slinne   (2006-04-25 23:40:00) [1]

Огромное спасибо, премного благодарна!)

---

Gydvin   (2006-04-25 12:22:00) [2]

Ух ты Пушкин, прям как живой

---

tsa   (2006-04-25 12:14:00) [3]

Посмотри-ка в свой карман - твой подарок уже там! :)

---

Gydvin   (2006-04-25 12:12:00) [4]

pas

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   RadioButton1: TRadioButton;
   RadioButton2: TRadioButton;
   RadioButton3: TRadioButton;
   Button1: TButton;
   Edit1: TEdit;
   Label1: TLabel;
   Edit2: TEdit;
   Label2: TLabel;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
try
x:=strtoint(edit1.text);
except
showmessage('Error');
exit;
end;
if RadioButton1.Checked then x:=x*39;
if RadioButton2.Checked then x:=x*46;
if RadioButton3.Checked then x:=x*81;
edit2.Text:=inttostr(x);
end;

end.


dfm

object Form1: TForm1
 Left = 192
 Top = 107
 Width = 696
 Height = 480
 Caption = 'Form1'
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'MS Sans Serif'
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object Label1: TLabel
   Left = 96
   Top = 32
   Width = 59
   Height = 13
   Caption = 'In'
 end
 object Label2: TLabel
   Left = 96
   Top = 256
   Width = 67
   Height = 13
   Caption = 'Out'
 end
 object RadioButton1: TRadioButton
   Left = 96
   Top = 80
   Width = 113
   Height = 17
   Caption = '39'
   Checked = True
   TabOrder = 0
   TabStop = True
 end
 object RadioButton2: TRadioButton
   Left = 96
   Top = 120
   Width = 113
   Height = 17
   Caption = '46'
   TabOrder = 1
 end
 object RadioButton3: TRadioButton
   Left = 96
   Top = 160
   Width = 113
   Height = 17
   Caption = '81'
   TabOrder = 2
 end
 object Button1: TButton
   Left = 96
   Top = 208
   Width = 75
   Height = 25
   Caption = 'Button1'
   TabOrder = 3
   OnClick = Button1Click
 end
 object Edit1: TEdit
   Left = 96
   Top = 48
   Width = 121
   Height = 21
   TabOrder = 4
   Text = '0'
 end
 object Edit2: TEdit
   Left = 96
   Top = 280
   Width = 121
   Height = 21
   TabOrder = 5
   Text = '0'
 end
end

Где мои деньги????

---

Плохиш   (2006-04-25 10:57:00) [5]

> Slinne   (25.04.06 01:39)

Без проблем, по предоплате 100 Euro.

---

_RusLAN   (2006-04-25 10:40:00) [6]

Slinne   (25.04.06 1:39)
Для этого надо уметь програмировать.
Если вы хотите уметь писать такие программы сами, то надо выучить программирование.
Если вы не умеете программировать и оно вам не надо, но вам нужна такая программа, то в таком случае нужно нанять программиста, заплатить ему деньги и он  напишет ее для вас.

---

Anatoly Podgoretsky   (2006-04-25 08:45:00) [7]

Brother ©   (25.04.06 06:06) [3]
Не мешай учебному процессу

---

evvcom   (2006-04-25 08:40:00) [8]

> а потом привязываем к событию нажатия кнопки! :)

Это
> procedure OnButtonClick;

не привяжешь! :-)

---

balepa   (2006-04-25 06:06:00) [9]

> Slinne   (25.04.06 01:39)  


А в чем проблема умножай и выводи.

---

Brother   (2006-04-25 06:06:00) [10]

Ерунда! Главное спросить, а мы ответим:

procedure OnButtonClick;
begin
// делаем что-то
end;

а потом привязываем к событию нажатия кнопки! :)

---

Германн   (2006-04-25 02:11:00) [11]

> Знаю, что она простая, но никак не получается.

А ты пробовал? Что именно не получается?

Вопрос, конечно, риторический. Поскольку, не знаю, не пробовал и даже не думал пробовать! Имхо.

---

Наверх