Взято с http://www.midletpascal.com/projects.php


Это сообщение отредактировал(а) Mayk - 11.8.2006, 15:48

) Извращение 

ВАУ!!!   Вот это прикол!!!!   

Настоящий процедурный подход.

Явно с любовью к Паскалю написано! 

Добавлено @ 15:59 
Особенно мне понравился цикл в самом конце проги! =)

javastic, а в j2me можно отталкиваться от событий или тоже - так же, цикл с ожиданием?

Там ожидание нажатия в отдельном системном потоке идет:


Добавлено @ 16:29 
Здесь нормально написано

Это сообщение отредактировал(а) W0LF - 11.8.2006, 16:25

skyboy, а коммандные кнопки могут обрабатываться откуда угодно и из любого класса.
А если хочешь в текущем, то просто назначаешь интерфейс обработки нажатия кнопок как CommandListener
WOLF тебе правильно истолковал.


Давай, переходи на Джаву 

Да, JAVA РУЛИТ!

Добавлено @ 16:42 

Исходник тетриса на мидлет паскаль


Присоединённый файл ( Кол-во скачиваний: 28 )
 wgrtetris.txt 20,12 Kb

отдельный поток - это хорошо. потому я и сказал, что этот интерпретатор сильно ограничен. А теперь ещё и развиваться перестал 

Перейду. Через полгода нырну...

уже на 90 процентов доделал 
универсальное приложение для мобильнык книг с рисунками

Простенький мидлет проигрывает wavку

program midi;
begin
    if not openPlayer('/windows.WAV', 'audio/x-wav') then halt;    
    if not setPlayerCount(-1) then halt; 
    if not startPlayer then halt; 
    delay(5000);     
end.
_____
А как это будет выглядеть в j2me ????????????

Это один раз проиграет твой wav. Если же тебе надо с управлением и бесконечным проигрыванием, то смотри здесь

Всем, здрасте!! 
Помогите решить трабл, не доходит до меня, как исправить!!
Вот код:

procedure on (st : string) ; 
begin 
setColor(255, 255, 255); 
fillRect(0, 0, GetWidth, GetHeight); 
setColor(255, 0, 0); 
setfont(FONT_FACE_SYSTEM , FONT_STYLE_BOLD, FONT_SIZE_LARGE); 
DrawText(st, (Getwidth) div 2, ((Getheight - 6) div 2) + 1); 
repaint; 
delay(1000); 
end; 

procedure menu; 
begin 
ShowMenu('Выберите действие', CH_IMPLICIT); //это заголовок меню 
igrat := MenuAppendString('Играть'); //это добавляются 3 пункта меню 
about := MenuAppendString('Автор'); 
vyhod := MenuAppendString('Выход'); 
play := CreateCommand('Выбрать', CM_SCREEN , 1); //тут добавляются команды, для 2 кнопок сразу под экраном 
AddCommand(play); 
exit := CreateCommand('Выход', CM_EXIT, 1); 
AddCommand(exit); 
repeat //запускаем цикл, пока игрок не нажал одну из 2 кнопок 
delay(100); 
clicked := getClickedCommand; 
until (clicked = play) or (clicked = exit); 
if clicked = exit then halt; //если выбрали выход, то... 
showCanvas; // "убираем" меню 
if menuGetSelectedIndex = igrat then igra; //смотрим, какой пункт выбрал игрок и в зависимости от этого вызываем нужную процедуру 
if menuGetSelectedIndex = about then ab; 
if menuGetSelectedIndex = vyhod then halt; 
menu; //опять вызываем меню 
end; 

type zp=record 
b : boolean; 
end; 

var a : array [0..20, 0..20] of zp;

if direction_y = up then y1 := y1 - speed; 
if direction_y = down then y1 := y1 + speed; 
if direction_x = left then x1 := x1 - speed; 
if direction_x = right then x1 := x1 + speed;

key := GetKeyPressed; 
if KeyToAction(key) = GA_UP then 
if y2<>0 then y2 := y2 - 3; 
if KeyToAction(key) = GA_DOWN then 
if y2<>(GetHeight - 5) then y2 := y2 + 3; 
if KeyToAction(key) = GA_LEFT then 
if x2<>0 then x2 := x2 - 3; 
if KeyToAction(key) = GA_RIGHT then 
if x2<>(GetWidth - 30) then x2 := x2 + 3;

procedure block; 
var i,k : integer; 
begin 
for i:=0 to (GetWidth div 10) - 1 do 
for k:=0 to (GetHeight div 10) - 1 do 
if a[i,k].b then 
begin 
SetColor(0, 0, 0); 
fillRect(i*10, k*10, 10, 10 ); 
SetColor(255, 255, 255); 
drawRect(i*10+2, k*10+2, 6, 6 ); 
end; 
end; 

for z:=0 to GetWidth div 10 do 
for d:=0 to GetHeight div 10 do 
if ( d < 5 ) and ( d > 0 ) and ( z > 0 ) and ( z < (GetWidth div 10) - 1) 
then a[z,d].b:=true else a[z,d].b:= false;

if (a[ x1 div 10, y1 div 10].b) or (a[ (x1+10) div 10, y1 div 10].b) or 
(a[ x1 div 10, (y1+10) div 10].b) or (a[ (x1+10) div 10, (y1+10) div 10].b) 
then 
begin 
if direction_y = down then direction_y := up else direction_y := down; 
if direction_x = left then direction_x := right else direction_x := left; 
if (a[ x1 div 10, y1 div 10].b) then 
a[ x1 div 10, y1 div 10].b:=false; 
if (a[ (x1+10) div 10, y1 div 10].b) then 
a[ (x1+10) div 10, y1 div 10].b:=false; 
if (a[ x1 div 10, (y1+10) div 10].b) then 
a[ x1 div 10, (y1+10) div 10].b:=false; 
if (a[ (x1+10) div 10, (y1+10) div 10].b) then 
a[ (x1+10) div 10, (y1+10) div 10].b:=false; 
end;

Ошибочка в строке 15 и 34:
" error, identefier 'igrat' is not procedure, function, variable or unit name"
"newproject.mpsrc:34: error, character '.' expected, 'type' found"


Заранее благодрен!!

объяви кто у тебя такой igrat а так же avtor, vyxod, play.
Var igrat,vyhod,play: UserType; 
ну или какой-то определённый в MIDlet Pascal. я в нём не силён сорри. Но при описании процедуры то обязан описать переменные, которые будут в ней использоваться, либо эти перемнные уже должны быть глобально описаны у тебя где-то "выше"

Dancer, 

Спасибо!!