Текущий архив: 2006.05.14;
Скачать: CL | DM;

Вниз

Помогите написать простенькую процедуру (Delphi).   Найти похожие ветки 

← →
Slinne   (2006-04-25 01:39) [0]

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

---

← →
Германн ©   (2006-04-25 02:11) [1]

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

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

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

---

← →
balepa ©   (2006-04-25 06:06) [2]

> Slinne   (25.04.06 01:39)  


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

---

← →
Brother ©   (2006-04-25 06:06) [3]

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

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

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

---

← →
evvcom ©   (2006-04-25 08:40) [4]

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

Это
> procedure OnButtonClick;

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

---

← →
Anatoly Podgoretsky ©   (2006-04-25 08:45) [5]

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

---

← →
_RusLAN ©   (2006-04-25 10:40) [6]

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

---

← →
Плохиш ©   (2006-04-25 10:57) [7]

> Slinne   (25.04.06 01:39)

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

---

← →
Gydvin ©   (2006-04-25 12:12) [8]

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

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

---

← →
tsa   (2006-04-25 12:14) [9]

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

---

← →
Gydvin ©   (2006-04-25 12:22) [10]

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

---

← →
Slinne   (2006-04-25 23:40) [11]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.05.14;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.042 c