|
Основной форум Сюда все проблемы связанные с программированием. |
09.12.2009, 23:21
|
#1
|
Оператор ЭВМ
Регистрация: 09.12.2009
Адрес: Украина
Сообщений: 34
Написано 6 полезных сообщений (для 9 пользователей)
|
Piligrim, ViNT, и кто знает как работать с jsr75 help!!!
|
(Offline)
|
|
09.12.2009, 23:25
|
#2
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Piligrim, ViNT, и кто знает как работать с jsr75 help!!!
Большинство функций для работы с ФС реализованы в библиотеках Lib_jsr75i и Lib_jsr74ex, к ним есть примеры и описания, там большинство функций описано и проиллюстрировано примерами.
|
(Offline)
|
|
09.12.2009, 23:49
|
#3
|
Оператор ЭВМ
Регистрация: 09.12.2009
Адрес: Украина
Сообщений: 34
Написано 6 полезных сообщений (для 9 пользователей)
|
Ответ: Piligrim, ViNT, и кто знает как работать с jsr75 help!!!
Смотрел я описания, но не пойму как в "окне" моей проги вывести содержимое папок с дальнейшим открытием файлов. Неделю голову ломаю!
|
(Offline)
|
|
10.12.2009, 00:02
|
#4
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Piligrim, ViNT, и кто знает как работать с jsr75 help!!!
Вот когда-то писал прогу, там есть выбор файла из ФС.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
10.12.2009, 15:24
|
#5
|
Оператор ЭВМ
Регистрация: 09.12.2009
Адрес: Украина
Сообщений: 34
Написано 6 полезных сообщений (для 9 пользователей)
|
Ответ: Piligrim, ViNT, и кто знает как работать с jsr75 help!!!
Большое спс!!!
|
(Offline)
|
|
10.12.2009, 22:20
|
#6
|
Оператор ЭВМ
Регистрация: 09.12.2009
Адрес: Украина
Сообщений: 34
Написано 6 полезных сообщений (для 9 пользователей)
|
Ответ: Piligrim, ViNT, и кто знает как работать с jsr75 help!!!
|
(Offline)
|
|
10.12.2009, 22:43
|
#7
|
ПроЭктировщик
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений (для 57 пользователей)
|
Ответ: Piligrim, ViNT, и кто знает как работать с jsr75 help!!!
покажи что ты тут напрогал
|
(Offline)
|
|
10.12.2009, 23:37
|
#8
|
Оператор ЭВМ
Регистрация: 09.12.2009
Адрес: Украина
Сообщений: 34
Написано 6 полезных сообщений (для 9 пользователей)
|
Ответ: Piligrim, ViNT, и кто знает как работать с jsr75 help!!!
сильно не ругайте за код
прогу только начал писать, поэтому немного
program MiniWini;
Uses alpha;
uses jsr75i;
const
s=2;
var
win8,win7,win6,win5,win4,win3,win2,win1,win:image;
BULMycomp,BULdwigokna,BulDrawKomp,Buldcpanel,BULcpanel,BULdwcpanel:boolean;
xcp,ycp,xkc,ykc,xko,yko,xmk,ymk,x,y:integer;
procedure kompdwig; //двигаем значок компа
begin
if keyToAction(GetKeyPressed)=Ga_Up then yko:=yko-s;
if keyToAction(GetKeyPressed)=Ga_down then yko:=yko+s;
if keyToAction(GetKeyPressed)=Ga_left then xko:=xko-s;
if keyToAction(GetKeyPressed)=Ga_right then xko:=xko+s;
if xko<0 then xko:=0;
if xko>getwidth-20 then xko:=getwidth-20;
if yko<0 then yko:=0;
if yko>getheight-35 then yko:=getheight-35;
if x<0 then x:=0;
if x>getwidth-20 then x:=getwidth-20;
if y<0 then y:=0;
if y>getheight-35 then y:=getheight-35;
if (getKeyClicked=ke_pound) then BulDrawKomp:=false;
end;
procedure mycomp; //рисуем окно компа и двигаем
begin
drawimage(win5,xmk,ymk);
if ((x>xmk) and (y>ymk) and (x<xmk+50) and (y<ymk+20) and (keyToAction(GetKeyPressed)=GA_fire)) then
begin BULdwigokna:=true;
end;
end;
procedure dwigokna; //двигаем комп
begin
if keyToAction(GetKeyPressed)=Ga_Up then ymk:=ymk-s;
if keyToAction(GetKeyPressed)=Ga_down then ymk:=ymk+s;
if keyToAction(GetKeyPressed)=Ga_left then xmk:=xmk-s;
if keyToAction(GetKeyPressed)=Ga_right then xmk:=xmk+s;
if keyToAction(GetKeyPressed)=ke_key2 then ymk:=ymk-s;
if keyToAction(GetKeyPressed)=ke_key8 then ymk:=ymk+s;
if keyToAction(GetKeyPressed)=ke_key4 then xmk:=xmk-s;
if keyToAction(GetKeyPressed)=ke_key2 then xmk:=xmk+s;
if xmk<0 then xmk:=0;
if xmk>getwidth-20 then xmk:=getwidth-20;
if ymk<0 then ymk:=0;
if ymk>getheight-35 then ymk:=getheight-35;
if x<0 then x:=0;
if x>getwidth-20 then x:=getwidth-20;
if y<0 then y:=0;
if y>getheight-35 then y:=getheight-35;
if (getKeyClicked=ke_pound) then BULdwigokna:=false;
end;
Procedure ankomp; //подказка для компа при наведении
begin
if GetKeyPressed=ke_star then Buldrawkomp:=true;
setcolor(244,242,242);
setcolor(0,0,11);
drawText('Мой Компьютер',x+13,y+17);
setcolor(111,111,111);
drawimage(win,x+10,y+15);
if GetKeyPressed=ke_key5 then BULMycomp:=true;
if GetKeyPressed=ke_key0 then
end;
Procedure anpusk; //подказка для пуска при наведении
begin
setcolor(244,242,242);
setcolor(0,0,11);
drawText('Начните работу с нажатия этой кнопки',x+13,y);
setcolor(111,111,111);
if GetKeyPressed=ke_key0 then
end;
Procedure ancpanel; //подказка для панели управления при наведении
begin
if GetKeyPressed=ke_star then Bulcpanel:=true; //значок
setcolor(244,242,242);
setcolor(0,0,11);
drawText('Панель управления',x+13,y+17);
setcolor(111,111,111);
if GetKeyPressed=ke_key5 then BULdcpanel:=true; //окно панели управления
end;
procedure dcpanel; //окно панели управления
begin
drawimage(win5,xcp,ycp);
if ((x>xcp) and (y>ycp) and (x<xcp+50) and (y<ycp+20) and (keyToAction(GetKeyPressed)=GA_fire)) then
begin BULdwcpanel:=true;
end;
end;
procedure cpanel; //значок анели управления
begin
if keyToAction(GetKeyPressed)=Ga_Up then ykc:=ykc-s;
if keyToAction(GetKeyPressed)=Ga_down then ykc:=ykc+s;
if keyToAction(GetKeyPressed)=Ga_left then xkc:=xko-s;
if keyToAction(GetKeyPressed)=Ga_right then xkc:=xkc+s;
if xkc<0 then xkc:=0;
if xkc>getwidth-20 then xkc:=getwidth-20;
if ykc<0 then ykc:=0;
if ykc>getheight-35 then ykc:=getheight-35;
if x<0 then x:=0;
if x>getwidth-20 then x:=getwidth-20;
if y<0 then y:=0;
if y>getheight-35 then y:=getheight-35;
if (getKeyClicked=ke_pound) then Bulcpanel:=false;
end;
procedure dwcpanel; //двигаем окно панели управления
begin
if keyToAction(GetKeyPressed)=Ga_Up then ycp:=ycp-s;
if keyToAction(GetKeyPressed)=Ga_down then ycp:=ycp+s;
if keyToAction(GetKeyPressed)=Ga_left then xcp:=xcp-s;
if keyToAction(GetKeyPressed)=Ga_right then xcp:=xcp+s;
if keyToAction(GetKeyPressed)=ke_key2 then ycp:=ycp-s;
if keyToAction(GetKeyPressed)=ke_key8 then ycp:=ycp+s;
if keyToAction(GetKeyPressed)=ke_key4 then xcp:=xcp-s;
if keyToAction(GetKeyPressed)=ke_key2 then xcp:=xcp+s;
if xcp<0 then xcp:=0;
if xcp>getwidth-20 then xcp:=getwidth-20;
if ycp<0 then ycp:=0;
if ycp>getheight-35 then ycp:=getheight-35;
if x<0 then x:=0;
if x>getwidth-20 then x:=getwidth-20;
if y<0 then y:=0;
if y>getheight-35 then y:=getheight-35;
if (getKeyClicked=ke_pound) then BULdwcpanel:=false;
end;
{КУРСОР}
Procedure kursor;
begin
repeat
DrawImage(win3,0,0);
DrawImage(win7,0,304);
DrawImage(win6,0,304);
drawimage(win4,xko,yko);
drawimage(win8,xkc,ykc);
if keyToAction(GetKeyPressed) = GA_left then x:= x-s;
if keyToAction(GetKeyPressed) = GA_right then x:=x+s;
if keyToAction(GetKeyPressed) = GA_Up then y:=y-s;
if keyToAction(GetKeyPressed) = GA_down then y:=y+s;
if GetKeyPressed = ke_key4 then x:=x;
if GetKeyPressed = ke_key6 then x:=x;
if GetKeyPressed = ke_key2 then y:=y;
if GetKeyPressed = ke_key8 then y:=y;
if ((x>xko) and (y>yko) and (x<xko+20) and (y<yko+22)) then
begin
ankomp;
end;
if ((x>xkc) and (y>ykc) and (x<xkc+20) and (y<ykc+22)) then
begin
ancpanel;
end;
if ((x>0) and (y>304) and (x<55) and (y<320)) then
begin
anpusk;
end;
if BULdwcpanel=true then dwcpanel;
if BULcpanel=true then cpanel;
if Buldcpanel=true then dcpanel;
if BULmycomp=true then mycomp;
if BULdwigokna=true then dwigokna;
if BulDrawKomp=true then kompdwig;
if ((x>3) and (y>3) and (x<23) and (y<25)) then
begin
if keyToAction(GetKeyPressed)=Ga_fire then BULmycomp:=true;
end;
{в углы}
if GetKeyPressed=ke_key1 then
begin x:= x-s; y:=y-s; end;
if GetKeyPressed=ke_key3 then
begin x:= x+s; y:=y-s; end;
if GetKeyPressed=ke_key7 then
begin x:= x-s; y:=y+s; end;
if GetKeyPressed=ke_key9 then
begin x:= x+s; y:=y+s; end;
{чтоб курсор не выходил за экран}
if x<0 then x:=0;
if x>239 then x:=239;
if y<0 then y:=0;
if y>319 then y:=319;
drawimage(win1,x,y);
repaint;
until GetKeyPressed=ke_key0;
end;
procedure base;
begin
if not OpenPlayer('/m_22794_94327.mp3', 'audio/mpeg') then // загрузка музыки
Halt; // ошибка при загрузке (не поддерживается midi формат или звук отключен)
if not SetPlayerCount(1) then // проигрывать бесконечное число раз
Halt;
if not StartPlayer then // начать проигрывание
Halt;
delay(30);
win4:=SetOpaque(win4, 150);
xcp:=33;
ycp:=50;
xkc:=30;
ykc:=5;
xko:=5;
yko:=5;
xmk:=33;
ymk:=50;
x:=33;
y:=33;
win8:=loadimage('/cpanel2.png');
win7:=loadimage('/140zz.png');
win6:=loadimage('/puskbutton.png');
win5:=loadimage('/comp1.png');
win4:=loadimage('/mycomp.png');
win3:=loadimage('/55zzz.png');
win2:=loadimage('/55z.png');
win1:=loadimage('/kur.png');
BULMycomp:=false;
kursor;
repaint;
end;
begin
base;
drawimage(win3,0,0);
repaint;
delay(1000);
if not OpenPlayer('/Windows Vista Logoff.wav.MP3', 'audio/mpeg') then // загрузка музыки
Halt; // ошибка при загрузке (не поддерживается midi формат или звук отключен)
if not SetPlayerCount(1) then // проигрывать бесконечное число раз
Halt;
if not StartPlayer then // начать проигрывание
Halt;
delay(30);
drawimage(win2,0,0);
repaint;
delay(5000);
end.
|
(Offline)
|
|
11.12.2009, 17:18
|
#9
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: Piligrim, ViNT, и кто знает как работать с jsr75 help!!!
Выложил бы уже весь проект в архиве, а то к программе там слишком много файлов прикреплено, а у меня их нет.
Да, и переименуй файлы с двойным расширением типа "music.wav.mp3" на некоторых телефонах от таких имен может возникнуть проблема при открытии, я уже не говорю о том, что не все телефоны поддерживают MP3.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
ViNT |
Dzirt |
Поздравления и пожелания |
14 |
20.08.2009 20:34 |
использование jsr75 |
TahirBySky |
Основной форум |
0 |
22.03.2009 13:45 |
O LIB.JSR75 |
temned |
Основной форум |
22 |
28.12.2008 01:32 |
ViNT |
Romanzes |
Поздравления и пожелания |
10 |
21.08.2008 11:59 |
Piligrim |
IN2WAP |
Основной форум |
5 |
19.05.2006 23:41 |
Часовой пояс GMT +4, время: 21:16.
|