تعداد مطالب : 87
تعداد نظرات : 348
زمان آخرین مطلب : 211روز قبل
از یه نفر می پرسن که برای بستن یه لامپ چند نفر لازمه می گه سه نفر! می گن چرا! می گه یه نفر می ره بالای نردبوم لامپ رو نگه می داره و دو نفر بقیه هم نردبوم رو می چرخونن.
دوشنبه 6/7/1388 - 17:9
دفتری که بسته شد دیگر بازش مکن    دلی که شکسته شد دیگر نازش مکن
دوشنبه 6/7/1388 - 17:2
  کدهای تقلب را در حالت pause بازی وارد کنید. کدها با رنگ قرمز مشخص شده اند. تمام کلیدهای مشخص شده را در حالت بازی وارد کنید.

Code Result
--------------------
slallcheats - حالت تقلب فعال می شود. 
sllottery  -  پول و یک لیسانس +50000 
slroads  - همه ی جاده ها باز می شوند 
slrepair  - کلید Backspace را برای تعمییر رایگان فشار دهید 
slrecover  - کلید Ctrl+5 را برای ریکاوری رایگان فشار دهید. 
slfillup  - سوخت نا محدود 
minesoff  - مین های غیر فعال می شوند 
slmap  - همه ی کانتینرهای مخفی نمایش داده می شوند 

  
 slturbine  - باعث فعال شدن کارهای زیر می شود: 
---------------------------------------------
  Ctrl+1 حرکت به سریع به جلو 
 Ctrl+2 حرکت به عقب 
Ctrl+3 حرکت به سمت بالا 
 Ctrl+4 حرکت به سمت پایین
 
شنبه 28/6/1388 - 10:22

برای تغییر مرحله ی بازی یا چیزهای دیگر کافی به رجیستری برید و در کلید زیر نام بازیکن را انتخاب کنید و مشخصاتی را که می خواهید تغییر بدهید:


 HKEY_CURRENT_USER\Software\Sigma Team\Alien\نام بازیکن

 

شنبه 28/6/1388 - 10:12

این روش مربوط به BIOS است و ربطی به سیستم عامل ندارد بنابراین می توانید این کار را در هر جایی که اطلاعات را از صفحه کلید در یافت می کند انجام دهید. برای این کار ابتدا کلید ALT را پایین نگه داشته (تا موقعی که نگفتم ول نکنید) و از قسمت Numpad (ماشین حسابی) صفحه کلید، کلید صفر را یک بار فشار دهید و سپس کد 3 رقمی کاراکتر اسکی را وارد کنید و در نهایت کلید ALT را که نگه داشته بودید رها کنید تا کاراکتر درج شود. اگر کد کاراکتری که می خواهید وارد کنید 2 رقمی یا کمتر بود باید قبل از آن صفر را وارد کنید که 3 رقم درست شود.

شنبه 28/6/1388 - 9:31

 کدها با رنگ قرمز مشخص شده اند. کدها رو هنگام بازی وارد کنین. برین حال کنین...

cheate : Complete Level
cheath : Give 1000 HP
cheatw : All Weapons
cheata : Give 1000 Ammo
cheatm : Give 50,000 Money (At the Shop)
cheats : Run faster
http://drjackool.blogfa.com
جمعه 27/6/1388 - 19:0

کدها با رنگ قرمز مشخص شده اند. کدها رو هنگام بازی وارد کنید. برین حال کنین...

in game mode: 
--------
cheate  : complete level
cheath  : give 1000hp
cheatw  : give all weapons
cheata  : + 1000 ammo

in shop mode:
--------
cheatm  : + 50000 mone

 

drjackool.blogfa.com

جمعه 27/6/1388 - 18:52

آرایه بصورت معمول اینطور تعریف می شود:

Dim array(20) As Integer

 

حال اگر بخواهیم اندازه ی این آرایه را در حین اجرای برنامه تغییر بدهیم باید از دستور Redim استفاده کنیم. استفاده از این دستور باعث می شود که طول آرایه را تعیین کنیم اما همچنین باعث از بین رفت اطلاعات قبلی آرایه می شود برا یپیشگیری از این مشکا باید بعد از این دستور از دستور Preserve نیز استفاده کنیم. به مثالهای زیر توجه کنید: 


Dim a() As Integer
      Dim size As Integer
        size = InputBox(...) "Ignore parameters
 Redim Preserve a(1 to size) As Integer

البته بعد از تغییر دادن طول آرایه مشخص کردن نوع عناصر آن الزامی نیست. همچنین هنگام تغییر دادن آندازه ی آن مشخص کردن کران پایین نیز الزامی نیست. 
نکته: در هنگام تعریف آرایه برای اولین بار نباید طول آن را مشخص کنید و فقط از پرانتزهای باز و بسته استفاده کنید.
شنبه 22/1/1388 - 14:48
آیا تا بحال دقت کرده اید که بعضی از برنامه هابااین حال که در ویندوز XP اجرا می شوند ظاهری شبیه ویندوز 98 دارند! در این متن شما یاد می گیرید که چطور ظاهر آن برنامه ها و یا برنامه هایی که خودتان ساخته اید را بصورت ویندوز XP درآورید. برای منظور کارهای زیر را انجام دهید:
 

1-یک فایل با مضمون زیر بسازید و نام آنرا به این صورت انتخاب کنید که باید نام اجرایی برنامه یی باشد که می خواهید ظاهر آنرا عوض کنید بهمراه پسوند manifest. مثال اگر برنامه یی دارای نام myprog.exe است نام فایل را برای آن myprog.exe.manifest قرار دهید و دقت کنید که این فایل باید در همان مسیری که فایل اجرایی برنامه است باشد. سپس متن زیر را در فایل واردکنید:
  


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> 
<assemblyIdentity 
  version="1.0.0.0" 
  processorArchitecture="X86" 
  name="Microsoft.Windows.ResistorReader"
  type="win32" 
/> 
<description>Your app description here</description> 
<dependency> 
  <dependentAssembly> 
  <assemblyIdentity 
  type="win32" 
  name="Microsoft.Windows.Common-Controls" 
  version="6.0.0.0" 
  processorArchitecture="X86" 
  publicKeyToken="6595b64144ccf1df" 
  language="*" 
  /> 
  </dependentAssembly> 
</dependency> 
</assembly>
 

اگر فایل را ذخیره کرده و برنامه را اجرا کنید خواهید دید که برنامه ظاهری شبیه ویندوز XP خواهد داشت.


چند نکته:
این کار را نمی توان برروی تمام برنامه ها انجام داد و ممکن است که باعث شود برنامه اجرا نشود در این صورت فایلی را که ساخته اید پاک کنید.

اگر برنامه را خودتان ساخته اید برای جلوگیری از بروز مشکل بالا حتما از تابع API
InitCommonControls در ابتدای برنامه استفاده کنید.


این manifest را می توان بصورت resource در فایل اجرایی نیز قرار داد. با مشخصه ی 24
شنبه 22/1/1388 - 14:23
Private Declare Function|Sub
 نام دلخواه برای تابع یا ساب
Lib
 "نام کتابخانه"
Alias
 "نام اصلی تابع"
(پارامترها) 
As
 نوع خروجی

اگر تابعی که استفاده می کنید خروجی ندارد باید از Sub و در غیر اینصورت ازFunction استفاده کنید. در قسمت نام تابع، اگر نام را دقیقا عین نام اصلی تابع بنویسید دیگر احتیاجی به نوشتن بخش Alias نیست. و در قسمت پارامترها، پارامترها را باید عین تابع اصلی بنویسید و در نهایت اگر تابع مورد استفاده خروجی دار نوع آن را مشخص کنید. اگر تابع را در ماژول تعریف بکنید می توانید آنرا بصورت Public نیز بکار ببرید در غیر ابنصورت باید Private باشد.
 مثال:


Private Declare Function GetVersion Lib "Kernel32.dll" () As Long
یا 
Private Declare Function GetVer Lib "Kernel32.dll" Alias "GetVersion" () As Long
 
 
Private Sub PrintOsVer()
  Dim ver As Long
  ver = GetVer 
End Sub 

شنبه 22/1/1388 - 14:13