Текущий архив: 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.
dfmobject 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.47 MB
Время: 0.008 c
