برنامه نویسی جاوا برای موبایل

این برنامه ای که در چند پست قبل بود .


[HTML]
var
i,x:integer;
s,k:string;
cmdReset,cmdQuit,clicked:command;
begin
i:=1;
while i=1 do
begin
x:=0;

s:=Element_T(5);
k:=Getmobile(5);
Mobile_Search(s,k);

cmdReset:= CreateCommand('Reset', CM_SCREEN, 2);
AddCommand(cmdReset);

cmdQuit := CreateCommand('Quit', CM_EXIT, 1);
AddCommand(cmdQuit);

repeat
clicked:=GetClickedCommand;
if Clicked = cmdQuit then i:=0;
if Clicked = cmdReset then x:=1;
until (i=0) or (x=1);

RemoveCommand(cmdQuit); // reset
RemoveCommand(cmdReset);
ClearForm;
setcolor(250,250,250);
FillRect(0, 0, GetWidth, GetHeight);
setcolor(0,0,0);

end;[/HTML]

نقل قول:

---

نوشته شده توسط SuB [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

شما که اسم کامل برنامه رو گفتی، لطف کن و بگو از کجا دانلودش کنم یا لینک دانلودش رو بزار تا دیگه مزاحم نشم.:19:

---

متاسفانه لینک دانلود این برنامه ها را ندارم .

با سلام .

با توجه به اتمام امتحانات سعی می کنم وقت بیشتری بگذارم .
در ابتدا سعی کردم به سوالات شما جواب بدهم و بعضی از لینکها را نیز اصلاح کردم .

با سلام .

برنامه ای را برایتان قرار میدهم که می توانید برنامه های جاوا را با آن اجرا کنید ( البته چون اینجا کار ما این است )

Sjboy

[HTML]
http://www.4shared.com/file/18585407/60b1dbb3/sjboy.html[/HTML]

پس از نصب , فایلهای جاوا را روی آیکن درگ کنید .

من اون موقع هایی که تازه عضو شده بودم اینجا پست داده بودم که این برنامه ها mipd 1.0 هستند.

آیا این برنامه ها رو کسی روی گوشیش تونسته نصب کنه ؟ با اینترنت یا مستقیم ؟

لطفا دوستان همكاري كنند .

دوتا سوال
1- چطور میشه برنامه SJBoy رو به صورت default با N70 بالا آورد ؟

2- در MidletPascal چطور میشه یه سری اطلاعات رو در یک فایل در مسیر خاصی save کرد ؟

نقل قول:

---

نوشته شده توسط LordMMD [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوتا سوال
1- چطور میشه برنامه SJBoy رو به صورت default با N70 بالا آورد ؟

2- در MidletPascal چطور میشه یه سری اطلاعات رو در یک فایل در مسیر خاصی save کرد ؟

---

در مورد سئوال اول بعید میدونم راهی باشه .
در مورد سئوال دوم اگر منظورت این است که فایل هایی را که وارد کرده ای در پوشه خاصی قرار دهی . من ابتدا مسیر مجازی برای هر فایل تعریف کردم و پس از ساختن برنامه فایل جار را با وین رار باز کردم و مسیر مجازی را ایجاد کردم .

[HTML]
DrawImage(LoadImage('/EXAM/logo.png'), 0, 0);[/HTML]

و پوشه EXAM را دستی ایجاد کردم .(البته شاید راه دیگری هم داشته باشد )

نه من دقیقا منظورم اینه که مثلا یه داده از نوع string داریم، حالا میخواهیم اون رو با پسوند خاصی مثلا .txt یا .jpg ذخیره کنیم.

راستی شما ایمیلتو میشه بگی تا سریع تر مراوده داشته باشیم. ؟
ایمیل من:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

نوشته شده توسط LordMMD [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نه من دقیقا منظورم اینه که مثلا یه داده از نوع string داریم، حالا میخواهیم اون رو با پسوند خاصی مثلا .txt یا .jpg ذخیره کنیم.

راستی شما ایمیلتو میشه بگی تا سریع تر مراوده داشته باشیم. ؟
ایمیل من:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

---

با سلام .
چون midlet pascal اجازه دسترسی به حافظه فلش را نمی دهد می توانید از فرمان زیر استفاده کنید :

[HTML]function OpenRecordStore (name: string): recordStore;[/HTML]

شما میتوانید یک اسم از کاربر درخواست کنید و یک رکورد در حافظه گوشی ( که البته فقط در همین برنامه قابل دسترسی است ) را ایجاد کنید .
(داده string خود را در آن ذخیره کنید ) .
نمیتوانید عکسی را در فایلی ذخیره کنید (محدودیت برنامه ) ولی میتوانید از یک فایل اطلاعاتی را خوانده و از طریق حلقه ای از دستور زیر پیکسل به پیکسل (که کمی غیر منطقی هست ) آن را روی صفحه بیاورید :

[HTML]Plot(x, y:integer);[/HTML]

چون خودم در حال نوشتن یک برنامه جدید هستم برای همین نمی توانم بیشتر کمک کنم ولی کد زیر که از help برنامه اقتباس شده است به شما کمک خواهد کرد :
[HTML]
var rs : recordStore;
countStr : string;
countInt : integer;
index : integer;
nextId :integer;
begin
rs := OpenRecordStore('Count');

nextId := GetRecordStoreNextId(rs);

// if this is the first program run, add an entry into the
// record store
if nextId = 1 then
index := AddRecordStoreEntry(rs, '0'); // the initial count is 0

// read the count
countStr := ReadRecordStoreEntry(rs, 1);

// increment count by one
countInt := StringToInteger(countStr) + 1;
countStr := IntegerToString(countInt);

// save the increased count
ModifyRecordStoreEntry(rs, countStr, 1);

// close the record store
CloseRecordStore(rs);

// display the count
ShowForm;
index := FormAddString('Number of runs: ' + countStr);

AddCommand(CreateCommand('Exit', CM_EXIT, 1));
repeat Delay(100) until GetClickedCommand <> EmptyCommand;

end.[/HTML]
این کد تعداد مراجعات شما به این برنامه را نشان می دهد .(برای موقتی بودن یک برنامه " نسخه بتا " نیز می توانید از آن استفاده کنید ) .

در انتها - چون من هفته ای یک بار ایمیلم را چک می کنم شاید به دردتان نخورد ولی اگه خواستی پیغام خصوصی بده تا برایت بفرستم .