Вниз  Вопросы по MobileBasic
- 18.10.2010 / 14:21
Elveman
  Пользователь

Elveman 
Сейчас: Offline
aleksey, в сохранении? Нет! У меня такая же ситуация была. пост выше
- 18.10.2010 / 16:46
blowrus
  Пользователь

blowrus 
Сейчас: Offline
Elveman, Перед диском ''/'' ?
- 18.10.2010 / 17:07
blowrus
  Пользователь

blowrus 
Сейчас: Offline
Elveman, Проверил,соберает,спасибо за инфу.
- 18.10.2010 / 18:27
aleksey
  Пользователь

aleksey 
Сейчас: Offline
Elveman (18.10.2010/14:21)
aleksey, в сохранении? Нет! У меня такая же ситуация была. пост выше
Ну я на всякий...
- 22.10.2010 / 07:05
FighteR
  Пользователь

FighteR 
Прикол, бейсик отрисовывает быстрей мидлет паскаля. Провел небольшой тест по закраске экрана точками. Бейсик сделал эт за 5сек а мп за 25. Эт все рэпаинт тормозит :)
- 22.10.2010 / 07:46
Just
  Пользователь

Just 
FighteR, предоставь два исходных кода, мы и сравним.
- 22.10.2010 / 08:45
FighteR
  Пользователь

FighteR 
Бейсик
10 for x%=0 to 240
20 for y%=0 to 320
30 plot x%,y%
40 next y%
50 next x%
  midlet pascal
var x,y:integer;
begin
showCanvas;
  for x:=0 to 240 do
    for y:=0 to 320 do
    plot(x,y); repaint;
end.
- 22.10.2010 / 09:02
Just
  Пользователь

Just 
Fighter, вот тебе неоптиизированный паскалевский код, портни-ка в бейсик:
  1. program JustLines;
  2. var
  3. x,y,w,h,c,key:integer;
  4. begin
  5. w:=GetWidth;
  6. h:=GetHeight;
  7. x:=0;
  8. y:=h;
  9. while GetKeyClicked <> KE_KEY0  do
  10. begin
  11. key:=GetKeyClicked;
  12. SetColor(255,255,255);
  13. FillRect(0,0,w,h);
  14. for x:=0 to w do
  15. begin
  16. for y:=0 to h do
  17. begin
  18. c:=Random(2);
  19. if (c=0) then c:=0 else c:=1;
  20. SetColor(c,c,c);   
  21. Plot(x,y);
  22. end;
  23. end;
  24. repaint;
  25. delay(1);
  26. end;
  27. end.


Изменено Just (22.10 / 09:03) (всего 1 раз)
- 22.10.2010 / 09:27
FighteR
  Пользователь

FighteR 
Just, зачем?
суть в том что в бейсике както по другому отрисовывает на екране что получается быстрей мп ))
- 22.10.2010 / 10:13
Just
  Пользователь

Just 
Ну для сравнения. Нужно несколько тестов для точности :-)
Наверх  Всего сообщений: 9538
Фильтровать сообщения
Поиск по теме
Файлы топика (270)