|
Основной форум Сюда все проблемы связанные с программированием. |
15.01.2006, 20:28
|
#1
|
|
Попробовал тут эту прогу. Накатал быстренько приложение считающие корни квадратного уравнения. Запустил на эмуляторе - всё ок. Заливаю на свой Siemens CX65 - софт кнопок нет. Как бороться?
Вот исходный текст:
program FistMidlet;
var a, b, c : string;
item1,item2, item3, a2, b2, c2, x1, x2, d : integer;
cmdNext : command;
cmdQuit : command;
cmdStart, clicked : command;
begin
// switch to form mode from default canvas mode
ShowForm;
while clicked <> cmdQuit do
begin
ClearForm;
// add a text field to the form
item1 := FormAddTextField('A:', '', 20, TF_NUMERIC);
item2 := FormAddTextField('B:', '', 20, TF_NUMERIC);
item3 := FormAddTextField('C:', '', 20, TF_NUMERIC);
// create a command (button)
cmdNext := CreateCommand('Считать', CM_OK, 1);
AddCommand(cmdNext);
// wait until the user clickes on Go! command
repeat until GetClickedCommand = cmdNext;
RemoveCommand(cmdNext);
// retrieve the entered name
a := FormGetText(item1);
b := FormGetText(item2);
c := FormGetText(item3);
a2 := StringToInteger(a);
b2 := StringToInteger(B);
c2 := StringToInteger©;
d := (b2*b2)+(a2*c2*-4);
ShowCanvas;
SetColor(255, 255, 255);
FillRect(0, 0, GetWidth, GetHeight);
SetColor(0, 0, 0);
if d<0 then
begin
DrawText('Дискриминант меньше нуля!', 0, 0);
end
else begin
if a2=0 then
begin
DrawText('На 0 делить нельзя!', 0, 0);
end
else begin
x1:=((-1)*b2-sqr(d)) div (2*a2);
x2:=((-1)*b2+sqr(d)) div (2*a2);
DrawText('x1: ' + x1, 0, 0);
if x1<>x2 then
DrawText('x2: ' + x2, 0, 20);
end;
end;
Repaint;
// create a quit command
cmdQuit := CreateCommand('Выход', CM_EXIT, 2);
AddCommand(cmdQuit);
cmdNext := CreateCommand('Считать', CM_OK, 1);
AddCommand(cmdNext);
repeat
clicked := GetClickedCommand;
until (clicked = cmdQuit) or (clicked = cmdNext);
RemoveCommand(cmdNext);
RemoveCommand(cmdQuit);
end;
end.
|
|
|
15.01.2006, 22:37
|
#2
|
Оператор ЭВМ
Регистрация: 10.01.2006
Сообщений: 28
Написано 0 полезных сообщений (для 0 пользователей)
|
|
(Offline)
|
|
15.01.2006, 22:45
|
#3
|
|
это форум глюканул. Или ещё что-нибудь. Там написанно (_с_). Только без _.
|
|
|
15.01.2006, 22:47
|
#4
|
|
ето было ( c ) а преобразовалось автоматом в ©
|
|
|
16.01.2006, 00:44
|
#5
|
Оператор ЭВМ
Регистрация: 04.01.2006
Сообщений: 22
Написано 0 полезных сообщений (для 0 пользователей)
|
проверил на C65, все ок! кнопик есть, а в режиме canvas телефон их не показывает. вместо них стрелка в правом нижнем углу.
|
(Offline)
|
|
21.01.2006, 13:00
|
#6
|
Оператор ЭВМ
Регистрация: 04.01.2006
Сообщений: 22
Написано 0 полезных сообщений (для 0 пользователей)
|
че за.... после того как поставил на тел пару патчей (теоретически не должны влиять) попали меню...
|
(Offline)
|
|
22.01.2006, 04:02
|
#8
|
Оператор ЭВМ
Регистрация: 04.01.2006
Сообщений: 22
Написано 0 полезных сообщений (для 0 пользователей)
|
воть не надо рассовых беспорядков насчет того кому что нравиться...
|
(Offline)
|
|
22.01.2006, 10:53
|
#9
|
Оператор ЭВМ
Регистрация: 30.12.2005
Сообщений: 45
Написано одно полезное сообщение
|
Нокио берите! :D
|
(Offline)
|
|
03.02.2006, 10:01
|
#10
|
|
Originally posted by stinger25@21.1.2006, 10:00
че за.... после того как поставил на тел пару патчей (теоретически не должны влиять) попали меню...
|
Интересно...
|
|
|
04.02.2006, 14:40
|
#11
|
Оператор ЭВМ
Регистрация: 04.01.2006
Сообщений: 22
Написано 0 полезных сообщений (для 0 пользователей)
|
попробую переписать твою прогу так что бы были меню... (ну или свою напишу..) а потом сравним..
|
(Offline)
|
|
06.02.2006, 11:28
|
#12
|
|
Originally posted by stinger25@4.2.2006, 11:40
попробую переписать твою прогу так что бы были меню... (ну или свою напишу..) а потом сравним..
|
Давай. Хотя я не представляю как ты перепишишь так чтобы меню были...
|
|
|
06.02.2006, 12:16
|
#13
|
Оптимист
Регистрация: 07.01.2006
Сообщений: 961
Написано 105 полезных сообщений (для 259 пользователей)
|
У меня если в полноэкранном режиме, то команды можно только кнопкой меню вызвать и они тогда из списка выбираются.
|
(Offline)
|
|
10.02.2006, 20:19
|
#14
|
|
Это прямо мистика какая-то. Поставил 2 графических (!) патча самодельных - кнопки появились ).
|
|
|
11.02.2006, 00:06
|
#15
|
Оператор ЭВМ
Регистрация: 04.01.2006
Сообщений: 22
Написано 0 полезных сообщений (для 0 пользователей)
|
так вот и у меня таже мутотень... до граф патча они были.... после него, (ратч на сеть и батарею в стиле нокиа) ... и они пропали
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 16:19.
|