سلام به همگي كلي شرمنده كه نتونستم ديروز و پريروز آپ كنم

عوضش يه كادو دارم اونم اين صفحه است كه پره از كتاباي برنامه نويسي

حتمآ برين واقعآ جالبه.بعدش به گالري سرزدين البته هنوز تازه راه افتاده .شما مي تونيد به آدرس ايميلم كه رو درو ديوار وبلاگ نوشتم برام عكس هاي جالب بفرستين يا آپلواد كنيد آدرسشو برام بفرستين تا توي گالري بزارم وهمه ازش استفاده كنن

واما ديروز آمار نظر سنجي رو هم ديدم وتصميم گرفتم بهش عمل كنم و كلي سورس بزارم روي سايت

انواع كنترل -پيغام وفرم به سبك ويندوز ايكس پي در وي بي6 دريافت

منوي پيش رفته و بسيار زيبا دريافت

يك فرم والد-ام دي آي- پيش رفته دريافت

يك برنامه بسيار ساده در وي بي -رنگ فرم- دريافت

ليبل -برچسب-بسار زيبا وسه بعدي دريافت

اسكرول -نوار مرور-بسار پيش رفته و زيبا -دريافت

يك فرم شفاف وشيشه اي واقعآ زيبا -دريافت

ساعت ديجيتال-كامپيوتري-آموزشش توي سايت هست ولي اين به صورت عملي هست - دريافت

منبع تكنيك برتر

لينك مقاله |0:4 شنبه 28 بهمن1385 - توسط ناصر نيازي

 ببخشید که پست نکردم چند روز مشغول درست کردن گالری بودم امیدوارم خوشتون بیاد نظر بدین

لينك مقاله |15:8 پنجشنبه 26 بهمن1385 - توسط ناصر نيازي

کسی جی میل خواست تو همین پست بگه برا پرشین گیگ یه خورده باید صبر کنید ولی جی میل فوریه

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

لينك مقاله |11:31 چهارشنبه 25 بهمن1385 - توسط ناصر نيازي

واقعآ دلم نيومد اين كتاب رو كه از قفسه پيدا كردم نزارم
مجموعه ي 1300 جوك و اس ام اس از هادي نيكخواه
داشته باشينAdobe Acrobat Readerفرم پي دي اف هست كه بايد براي ديدنش
دانود كنيد تظمين شده است

لينك مقاله |10:45 سه شنبه 24 بهمن1385 - توسط ناصر نيازي

امروز مي خوام يه تابع بنويسم كه ديگه وجدانتون بهتون اجازه نده بخونيدو نظر ندين

رو غير فعال كنهCRTL_ALT_Deletاين تابع كه مي گم مي تونه كليد هاي

البته حتمآ بايد سريع به حالت قبل برگردونيد چون موندن اين حالت زياد جالب نيست

طريقه فراخواني

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPI_SCREENSAVERRUNNING = 97

DesabledوEnabledحالا دو تا كامند به فرم اضافه كنيد به اسم هاي
كد دكمه غير فعال كرد ن

Private Sub Disabled_Click()

Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)

End Sub

نيز فراخواني كنيدUnloadكد فعال سازي اين كليد ها بهتر است اين كد هار در فرم

Private Sub EnableD_Click()

Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)

End Sub

راستي اين كد رو هم توي پروژه ديگه تست كنيد-تارخ فارسي

MsgBox WeekdayName(Weekday(Date), False, vbSunday) & ", " & VBA.MonthName(VBA.Month(Date)) & " " & Day(Date) & ", " & VBA.Year(Date), vbOKOnly + vbInformation, "The date"

موفق باشيد

لينك مقاله |9:37 سه شنبه 24 بهمن1385 - توسط ناصر نيازي

تابع امروز كه مي خوام براتون بگم بسيار بسيار جالبه

با اين تابع مي تونيد آيكون هاي روي دسكتاپ رو مخفي و دوباره ظاهر كنيد

اول فراخواني توابع

Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

بعد سه تا كامند براي ظاهر كردن آيكون ها مخفي كردن آنها و خروج از فرم بنويسيد

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

Private Sub cmdDHide_Click()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
End Sub'--------------------------------
Private Sub cmdDShow_Click()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 5
End Sub'---------------------------------
Private Sub cmdExit_Click()
Me.Hide
End
End Sub'-------------------------------------

خدايش نظرنداده نرو

لينك مقاله |9:33 سه شنبه 24 بهمن1385 - توسط ناصر نيازي

سلام بعد از يه مدت وي بي نويسي نمي دونم با چه رويي دارم دلفي مينويسم .آخه دلفي نت ام پريده بود

دوباره نصب اش كردم.چطور يك آرايه در دلفي ايجاد كنيم

آرايه كه خودتون تقربآ واردين چيه!.يه سري متغير هم نام كه فقط انديس هلشون با هم فرق داره.وبه صورت زير تعريف مي شن

Var ArrayName:[MinIndex ..MaxIndex] Of ArrayType;

آرايه در جايي استفاده مي شه كه بخوايم با يه حلقه تمام متغيير هارو كنترل كنيم

(دستورات بالا در پاسكال هم قابل استفاده است)

مثال دقيق تعريف آرايه

Var Num:[1..12]Of Integer;

مثال يك برنامه كاربردي

Var

Num:[1..20]Of Integer;

G :Real;

I:Integer;

Begin

G:=Edit1.Text;

For i:= 1 to 20 Do

Begin

if Num[i]=G then Break;

Edit2.text:="Not Found!";

End ;

if Edit.text="" then Edit2.text:=Num[i];

End;

اميدوارم غلط نداشته باشه

آرايه ها مي توانند چندين بعد داشته باشند.آرايه هاي دو بعدي خيلي مرسومند.بيشتر از دو بعد زياد استفاده نمي شود چون كنترل آن سخت مي شه

با اين وجود دلفي توانايي ايجاد آرايه تا شصت بعد رو هم داره.آرايه چند بعدي به اين صورت تعريف مي شه

Var Num:[MinIndex..MaxIndex,MinIndex .. MaxIndex,...]Of Integer

حال يك مثال از آرايه د بعدي مي زنم چاپ جدول ضرب

Var

N1[1..10,1..10] Of Integer;

I,J:Integer

Begin

For i:=1 to 10 Do

For j:=1 to 10 Do Begin

N1 [i,j]:=i*j ;

Form1.Canvas.TextOut(i*20, j*20, inttostr(N1[i, j]));

End;End;

در تنظيم نوع آرايه مي توان از مجموعه و ركورد و حتي آرايه ي ديگر استفاده كرد

تمام آرايه هاي بالا استاتيك بودند .يعني طول انها ثابت بود اما اگر طول دقيق آرايه را در اول برنامه ندانيم

در اين صورت بايد از آرايه هاي ديناميك استفاده كنيم.در اين صورت طول آرايه را در اول برنامه نمي نويسيم

و در داخل برنامه آنرا مقدار دهي مي كنيم.مثال

Var

B1:Array Of Integer;

i:Integer;

Begin

For i:=1 to 10

Begin

B1:=Nil;

SetLength(B1,i);

End;End

در خط مشخص شده طول آرايه با مقدار صفر تا شمارنده حلقه برابر مي شود و در خط قبلش طول آرايه حذف مي گردد

لينك مقاله |14:53 دوشنبه 23 بهمن1385 - توسط ناصر نيازي

اول سلام بخش نظرات رو زير هر بخش گذاشتم .مي دونم پرستيج وبلاگو به هم ميزنه ولي چه كنم كه براي عده اي (شما نه!)نظر دادن خيلي سخت به نظر مي ياد

كلاس چيست

كلاس ييك مجموعه اي از كدهاست كه شبيه به يك كنترل هستند فقط شكل ظاهري و طراحي ندارند

كلاس ها شي هستند - يعني خاصيت دارند -كلاس ها مي توانند داخل خود پردازه يا تابع محلي وسراسري داشته باشند

كلاس به چه دردي مي خورد-كلاسها از تكرار كدها جلو گيري مي كنند -كلاس ها خوانايي برنامه را افزايش مي دهندوغيره

كلاس ها مي توانند به صورت خودكار خود را مقدار دهي كنند-يك ماژول كلاس ايجاد كنيد وكدهاي زير را در آن كپي كنيد

تعريف يك خاصيت در كلاس

'-----------Set Property Information---------

Public Poperty Let CWidth( Value As Integer)

CWidth=Value

End Property

'------------Get Property Information--------------

Public Property Get CWidth() As Integer

CWidth=CForm.Width

End Property

دستور اول خاصيت را مقدار دهي مي كند با مقداري كه كار بر فرستاده

دستور دوم براي دادن مقدار براي كابر است .البته هر كدام از اين دستورات را مي توان به صورت محلي استفاده كرد

وي بي با كلاس ها مانند يك نوع جديد رفتار مي كند يعني شما براي استفاده از يك كلاس در سطح فرم بايد يك متغير از

نوع كلاس تعريف كنيد .تعرف يك متغيير محلي در سطح فرم

Private CForm As Form

تمام متغيير ها وتوابع وپردازه ها وحتي نام خود كلاس را با سي آغاز كنيد تا معلوم شود مربوط به يك كلاس است

تعرف يك پردازه سراسري در كلاس

Private Sub CSetInfo(Frm As Form)

Set Form=Frm

End Sub

اگر تمام كدها بالا را درست در يك ماژول كلاس كپي كنيد اكنون نوبت استفاده از كدهاي بالاست

در خط اول فرم يك متغيير از نوع نام كلاس تعريف كنيد.بدين صورت

Dim Calss As Class1

Private Sub Form_Resiz()

Me.Caption="Form1.Width: "& Class.With

End Sub

لينك مقاله |17:26 یکشنبه 22 بهمن1385 - توسط ناصر نيازي

پست امرو همونطور كه قبلآ گفته بودم در مورد نوشتن فيل ميانبر هست

فايل هاي ميانبر دو صورت هستند

 HomePageفايل ميانبر وب:كه به يك آدرس اينترنتي اشاره ميكنه.

دراكثر برنامه ها براي صفحات وغيره ازش استفاده مي شه.

كه ايكون اون رو سيستم به صورت اتوماتيك مقداردهي ميكنه(آيكون فايل اچ تي ام ال)كه

 (Http:// - File:/// - MaileTo: -...)مي شود در اين نوع آيكون از آدرس دهي اينتر نتي استفاده كرد

 البته از نظر ساختار فايل آيكون اين نوع آيكون هيچ فرقي با ايكون يك فايل روي هارد نداره ساختار فايل آيكون(ميانبر) به صورت زير هست

 [InternetShortcut] URL= "مسير ايجاد ميانبر" IconFile="مسير آيكون ميانبر" Iconindex="انديس آيكون" هست".URL"

پسوند فيل ميانبر پارامتر آخر در مورد يك گرفتن آيكون يك فايل اجرايي استفاده مي شود-مثال

 Print #2," [InternetShortcut]"+VbCrlf+"URL=C:\1.url"+vbcrlf+"IconFile=d:\1.Exe"+vbcrlf+"Iconindex=0"

 دستور بالا يك فايل ميانبر در درايو سي ايجاد مي كند كه آيكونش از برنامه اي دردرايو دي است حال يك مثال كامل و كاربردي از فايل ميانبر برايتان مي نويسم

 Private Sub Form_Load()

CreateShortCut "c:\NasserHomePage", "c:\Windows\Explorer.exe", "0", Http://NasserVb.blogfa.com

 End Sub

 Sub CreateShortCut(Path As String, icon As String, iconindex As Long, SurceFile As String)

Dim intFreeFile As Integer

 Path = Path & ".url"

 intFreeFile = FreeFile

 Open Path For Output As intFreeFile

Print #intFreeFile, "[InternetShortcut]"

 Print #intFreeFile, "URL=" & SurceFile

Print #intFreeFile, "IconFile=" & icon

Print #intFreeFile, "Iconindex=" & iconindex

 Close intFreeFile

 End Sub

ايجاد مي شود"NasserHomePage"در برنامه بالا يك ميانبر در درايو سي به نام

اشاره مي كندHttp://NasserVb.blogfa.comآيكون اين فايل از آيكون ماي كامپيوتر بوده و به آدرس

 -لذت زندگي به پولهايي نيست كه داريم به پولهايي كه خرج مي كنيم

لينك مقاله |10:39 یکشنبه 22 بهمن1385 - توسط ناصر نيازي

لينك مقاله |21:8 شنبه 21 بهمن1385 - توسط ناصر نيازي

سلام براي خيلي از ماها كه با وي بي 6 برنامه نويسي مي كنيم

 با برنامه ي خود وي بي فايل هاي نصب رو درست مي كنيم

شايد اين(Package & Deployment Wizard) Microsoft Instalshildمساله باشه كه بخوايم برنامه نصب پيش رفته تري بسازيم يك راه استفاده از ست كه توي پك ويژوال شش وجود داره .

ولي اگه بخوايم يه برنامه منحصر به فرد درست كنيم چي براي اين كار مي تونيم از خود وي بي كمك بگيريم

.پلات فرم و طراحي اش به عهده خودتون من فقط ابزارش رو بهتون معرفي مي كنم

.شايد به دردتون خورد

 اين تابع دايركتوري سيستم32 ي ويندوز رو برمي گردونه

 Private Declare Function GetSystemDirectory Lib "kernel32" _ Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _ ByVal nSize As Long) As Long

 اين تابع براي ايجاد فولدر (پوشه)استفاده مي شه

 MkDir(FoldeName)

اين تابع براي حذف يك فولدر به كار ميره

 RMDir(FolderName)

انتقال يك فابل از يك جا به جاي ديگر -پارامتر اول فايل منبع .دوم جايي كه بايد برود

(Cut) Name "فابل مبدا" To "فايل مقصد"

 اين تابع فابل را كپي مي كند پارامتر مانند بالا-برا پوشه هم استفاده مي شود

 FileCopy "مبدا" To "مقصد"

اين تابع يك فايل رو از بين مي برد-برا پوشه هم مشود

 Kill "FileName" Kill "C:\*.TxT" (ShortCut)

قكر كنم همه چيز رو گفتم به جز يك چيز چگونگي ايجاد يك فايل ميانبر

 اون هم اگه نظر بدين توي پست بعدي

لينك مقاله |19:57 شنبه 21 بهمن1385 - توسط ناصر نيازي

سلام حالتون كه خوبه مي خواستم امروز يه خاطره براتون تعريف كنم

 يه سري منو برادر بزرگترم رفته بوديم از صحرا چوب بياريم براي زمستون با الاغ رفته بوديم

هوا خيلي سرد بود .روي يه سر بالايي الاغه سرشو خم كرد و چوبا رو كه من روش نشسته بودم انداخت. اونجا يه رودخونه فصلي بود كه سنگهاي گرد وخوش دست توش زياد پيدا مي شد

 دهاتيا خوب ميدونن چي مي گم.داشتم مي گفتم داداشم يه سنگ درست و حسابي رو برداشت روانه كرد به سمت الاغه.

اين الاغ لعنتي هم جاخالي داد خورد تو سر منه بدبخت .همون جا بود كه به اصول زير پي بردم

 يه خر خيلي بيشتر از آدم مي فهمه

 يه خر هميشه هواشس جمه

 يه خر خيلي فرز تر از اونيه كه به چشم مياد

يه خر هيچي از وفا و مرام حاليش نيست وهميشه به منافعش فكر مي كنه براي همين هم در اولين فرستي كه به دست بياره از دستت فرار مي كنه

 يه خر مي تونه وقتي ازدست فرار كرد باسرعت 120 كيلومتر بدود درحالي كه روش به سمتته وداره مي خنده

 يه خر بر خلاف شايعات خيلي منطقي فكر مي كنه.چون اگه يه سالم سگ دو بزني نمي توني يه چيز تلخو بهش بخوروني .در حالي كه خيلي راحت مي توني به اسم كاپو چينو بدي به خورد دوستت

يه خر خيلي رومانتيكه.چون وقتي يارشو ببينه يا بچشو ازش بگيرن آواز عشق سر ميده خر شدن به اون راحتيا هم كه ميگن نيست

.چون يه خر همه جاي بدنشو با پاش مي خارونه وپشتشو مي ماله با زمين.

اگه بازم فكر مي كني خرشدن آسونه همين الان هر جا كه نشستي چشمتو با زانوت پاكن!!.بيخود مچاله نشو .عمرآ اگه بتوني

 خرا خيلي دور انديشه ان براي همين اكثر اوقات بچشونو زمستونا به دنيا مييارن چون نگه داريش راحت تره.مگه اينكه بخورن به پرس يه دونه واقعآ خر

 خرا خيلي بي ادب ان.و چيزي به اسم توالت رو اصلآ نمي شناسن

 خرا به جاي اينكه مثل شتر به انتقام فكر كنن به عكس العمل لحظه اي فكر مي كنن

 شما هم اگه نمي خواين تجربه تلخ منو دوباره تجربه كنيد اصول بالا رو هميشه در ارتياط بايه خر به ياد داشته باشين

لينك مقاله |15:23 جمعه 20 بهمن1385 - توسط ناصر نيازي

امروز مي خوام براي وبلاگ نويسيها تكنيك جديدي كه از سايت ياهو ياد گرفتم رو بگم

من وقتي سايت رو نمي تونم ذخيره كنم به اين آدرس مي رم

C:\Documen And setting\نام كاربر\LocalSetting\Tempory InternetFile

هست و بايد حداقل هر دو روز يكبار خالي بشهLocal Settingعلاوه بر تمپي كه در شاخه

تمام فايل هايي كه ما در اينترنت مي بينيم چه عكس چه صفحه چه اسكريپت در آدرس بالا ذخيره مي شه

اكثر وب لاگهايي كه اجازه ذخيره شدن نمي دن از آدرس بالا قابل دسترسي هستند به جز سايت ياهو من مدتي داخل فايل سورس اين سايت گشتم ولي چيزي پيدا نكردم و امروز برحسب اتفاق پي استفاده مي كنه كه در صورت افلاين بودن شما<Iframe>به اين تكنيك بردم.سايت يا هو از يكسري

كه با هر زبان اسكريپتيUndeFinedاين فريم هابرابر مي شه باSrcخاصيت

قابل دسترسي است.حالا اين چه مزيتي داره.شما مي توانيد يا اين تكنيك بدانيد كه ويندوز كاربر در كدام درايو است به اين صورت مي توانيد از انبوه فايل هاي صوتي وعكسي كه در پوشه ويندوز است استفاده كنيد تصور كنيد به راحتي مي توانيد با يك فريم مخفي و دور از چشم كاربر درايو ويندوز او را بيابيد واز آهنگ هاي فراوان بازي

ويندوز در سايت خود استفاده كنيد و ديگر وقتتان برايPanbal

آپلواد فايل تلف نكنيد ولي بايد روي اين قضيه زياد كار كنيد اميد وارم راهنمايي خوبي كرده باشم

را برمي گرداندUndeFinedنمونه درايو ويندوز شما اگر درايو دي باشد سمت چپ

اگر در سي باشد سمت راست.

document.write('<iframe id="iFrame1" src="file:///c|/windows" height="100" width="40%"></iframe></p>')
  document.write('<iframe id="iFrame2" src="file:///d|/windows" height="100" width="40%"></iframe> </p>')

 نظر كه يادتون نمي ره

لينك مقاله |23:59 چهارشنبه 18 بهمن1385 - توسط ناصر نيازي

بسيار مفيد رو براتون معرفي كنم كه خيلي هم پر كاربردهAPIمي خوام امروز 2

ويندوز رو ظا هر كردBrows Folderچطور مي توان كادر-

اين كادر استفاده ي بسيار زيادي در برنامه هاي كاربردي داره.وموقعي استفاده مي شه كه كار بر بايد يك پوشه رو (مثلآ براي نصب برنامه )انتخاب كنه

يك ماژول ايجاد كنيد و كد هاي زبر رابنويسيد

'------Typing New data For BrowsForm---------------------
Public Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type

'---------------Conset For BrowsForm--------------------
Public Const BIF_RETURNONLYFSDIRS = 1
Public Const BIF_DONTGOBELOWDOMAIN = 2
Public Const MAX_PATH = 260

'-----------------------Declareing API------------------------------------------
Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long

حال در جايي كه مي خواهيد كادر ظاهر شود كد زير رابنويسيد

Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "Select Folder... "
With tBrowseInfo
.hWndOwner = Me.hwnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
msgbox( sBuffer)
End If

در پايان در خط ماقبل آخر بايك پيغام مسير انتخلب شده كاربر اعلام مي شود كه شما عزيزان مي توانيد آنرا به دلخواه تغيير دهيد

را ظا هر كرد(Propertis)چطور مي توان كادر خصوصيات مربوط به يك فايل-

كادر خصوصيات اكثرآ در نوشتن يك كاد آرشيو يا ليست فايل كاربرد دارد كه شما روي نام فايل راست كليك مي كنيد و اين گزينه را معمولآ در انتهاي ليست انتخاب مي كنيد واين كادر ظاهر ميشود نوشتن چنين كد هايي باعث حرفه شدن برنامه ي شما مي گردد

به ماژولمان كد هاي زير را اضافه كنيد

'------Typing New data For Propertis File---------------------
Type SHELLEXECUTEINFO
cbSize As Long
fMask As Long
hwnd As Long
lpVerb As String
lpFile As String
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type
'---------------Conset For Propertis Dialog-------------------
Public Const SEE_MASK_INVOKEIDLIST = &HC
Public Const SEE_MASK_NOCLOSEPROCESS = &H40
Public Const SEE_MASK_FLAG_NO_UI = &H400
Public Const ATTR_NORMAL = 0
Public Const ATTR_READONLY = 1
Public Const ATTR_HIDDEN = 2
Public Const ATTR_SYSTEM = 4
Public Const ATTR_VOLUME = 8
Public Const ATTR_DIRECTORY = 16
Public Const ATTR_ARCHIVE = 32
'-----------------------Declareing API------------------------------------------
Declare Function ShellExecuteEX Lib "shell32.dll" Alias _
"ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long

'-----------------------------------------------------------------------------------------

Public Function ShowFileProperties(filename As String, OwnerhWnd As Long) As Long
Dim SEI As SHELLEXECUTEINFO
With SEI
.cbSize = Len(SEI)
.fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
.hwnd = OwnerhWnd
.lpVerb = "properties"
.lpFile = filename
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 0
.hInstApp = 0
.lpIDList = 0
End With
ShellExecuteEX SEI
ShowFileProperties = SEI.hInstApp
End Function

حالا هر فايلي را كه مي خواهيد خصوصيياتش نمايش داد شود به اين تابع به صورت زير ارسال كنيد-پاس دهيد

ShowFileProperties(FileName,Me.hwnd)

نظر يادت نره با مرام

لينك مقاله |21:46 سه شنبه 17 بهمن1385 - توسط ناصر نيازي

كه قواش رو داده بودم.اين دستورات رو تو يه ماژول كپي كنيد"GDI32.Dll"اين هم تمام توابع موجود در فايل

و ازش لذت ببريد.فقط اين نظر يادتون نره

لينك مقاله |19:33 دوشنبه 16 بهمن1385 - توسط ناصر نيازي

سلام بازم مي خوام براتون از وي بي بگم كه شيرين تر از دلفيه البته اهالي دلفي ناراحت نشيد براي شمام برنامه دارم.فعلآ بپردازيم به مبحث امروز كه ارتباط داره به خواندن اطلاعات اساسي فايل ام پي تري.متغيير هاي زير رو تو اول كد تعريف كنيد

Dim HasTag As Boolean
Dim Tagg As String * 3
Dim Songname As String * 30
Dim Artist As String * 30
Dim Album As String * 30
Dim Year As String * 4
Dim Comment As String * 30
Dim Genre As String * 1

البته كد بالا تست شده است مورد كاملش اينهاست ولي نمي دونم جواب بده يانه خودتون امتحان كنيد اگه شد بهم بگيد -فعلآ استفاده نكنيد

Private Type MP3Tag
FullName As String ' Filename and filepath of MP3 file
FileName As String ' Name of MP3 file
Path As String ' Path of MP3 file
title As String * 30
artist As String * 30
album As String * 30
Year As String * 4
Comment As String * 30
Genre As String * 20
TagPresent As Boolean
MPEGVersion As String * 3 ' Version 1.0, 2.0 or 3.0
Layer As String * 1 ' Layer 1, 2 or 3
Protection As Boolean ' 0=CRC is present, 1=Not Protected
BitRate As String * 3 ' Recording bitrate
SampleRate As String * 5 ' Sampling Frequency
Padding As Integer ' 0=Frame is not padded, 1=(32bits for Layer 1, 8bits for Layer 2/3)
PrivateBit As Integer ' Not used. Do what you want with it
ChannelMode As String * 12 ' 00=Stereo, 01=Joint Stereo, 10=Dual Channel Stereo, 11=Mono
ModeExtension As String * 2 ' Used only for Joint Stereo
Copyright As Boolean ' Is file copyrighted?
Original As Boolean ' Is file on original media?
Emphasis As String * 8 ' Emphasis setting (usually none (00))
FrameLength As Integer ' Calculated from BitRate, SampleRate and Padding
TotalFrames As Long ' Filelength/Framelength
PlayTime As Single ' Calculated from TotalFrames, SampleRate and Stereo?
ValidHeader As Boolean ' True=Valid Header found, False=Not an MP3 file
End Type

بعد يك پردازه(پروسيجر)به اين صورت تعريف مي كنيم تاهر وقت بهش يك نام فايل پاس داديم متغيير هامون پر بشه از اطلاعت فايل

Private Sub GetTag(Filename)
Open Filename For Binary As #1
Get #1, FileLen(Filename) - 127, Tagg
If Not Tagg = "TAG" Then
Close #1
HasTag = False
Songname = "No Tag Found"
Artist = "No Tag Found"
Album = "No Tag Found"
Year = "None"
Comment = "No Tag Found"
Genre = "0"
Exit Sub
End If
HasTag = True
Get #1, , Songname
Get #1, , Artist
Get #1, , Album
Get #1, , Year
Get #1, , Comment
Get #1, , Genre
Close #1
End Sub

حالا به اين صورت ميشه ازش استفاده كرد

Me.GetTag(MP3 FileName)

به طور معمول وقتي فايل به صورت باينري باز مي شه چيزي جز صفر و يك رو نمشه از توش خواند به همين دليل اين نوع باز كردن فايل رو تصوير آينه وار حافظه مي گن.چون هر چي روي هارد نوشته همون رو دودستي تحويلت مي ده!از اين رو بايد هميشه بعد از خواندن اين نوع فايل ها اونارو از فرمت باينري در آورد با تابع زير كه ازقبل توي وي بي هست

Src(Your Ascii Word)

اگه رشته رو با(String *30)ولي در برنامه بالا چون اندازه رشته رو تعريف كرديم

يك كد اسكي مقدار دهي كنيم خود به خود هنگام چاپ به فرم رشته ي معمولي در مياد

در دستور بالا ما با علامت ضربدر به وي بي مي گوييم كه چه مقدار حافظه را براي متغيير ما نگه دارد ولي اگر اين مورد را استفاده نكنيم وي بي به صورت اتوماتيك سايز رشته رو انتخاب .ميكنه اگه رشته كم باشه كم واگر زياد باشه زياد براش جا نگه مي داره به ازاي هر حرف يك بايت

لينك مقاله |20:39 یکشنبه 15 بهمن1385 - توسط ناصر نيازي

مسير كتاب	نام كتاب
http://mjamouei740.100free.com/Pdf2.pdf	ساختارفایلهای پی دی اف-محمدجوادعمویی
http://www.clicker.persiangig.com/do...oshop%20Cs.rar	آموزش مقدماتی فتوشاپ
http://www.avayeazad.com/maryam_heidarzade/list.htm	ديوان اشعار مريم حيدرزاده
http://www.parstech.org/detail.php?id=1107	مهمترين نقاط آسيب پذير يونيكس ولينوكس-امير حسين شريفي
http://www.parstech.org/detail.php?id=1112	آموزش قدم به قدم هك-جلد اول-آراز صمدي
http://www.chbedu.org/lab/book/inter...rnet_01-52.pdf	(آموزش اينترنت ( پيشرفته
http://www.chbedu.org/lab/book/computer/book/access.pdf	براي تهيه ي وب ليست HTML,Accsseاستفاده از
http://www.chbedu.org/lab/book/compu...netdevelop.pdf	راهنماي پيشرفته VB.NET
http://www.chbedu.org/lab/book/compu...etlanguage.pdf	VB.NET
http://www.chbedu.org/lab/book/compu...essentials.pdf	mضروريات Net FrameWork
http://www.chbedu.org/lab/book/compu...WhatisVRML.htm	VRML چيست
http://www.chbedu.org/lab/book/compu...ont%20page.htm	آموزش FrontPage XP
http://www.chbedu.org/lab/book/inter...rnet_ebook.exe	نكات و حقه هاي جستجوگري در اينترنت
http://www.lookiran.com/ebook/lookiran-e-book9.pdf	آغاز كار با IE
http://www.javan-soft.com/Download/WindowsPdf.pdf	آموزش مقدماتی كامپيوتر و ويندوز
http://www.javan-soft.com/PDF/pascalLearnin.pdf	آموزش زبان برنامه نويسی پاسكال
http://www.javan-soft.com/Download/MathMathica4.pdf	راهنمای استفاده ازنرم افزار رياضي Mathematica 4.0
http://www.iranseo.com/search_engine...k_16Esfand.pdf	راهنمای بهبود رتبه سايت در موتورهای جستجو
http://www.javan-soft.com/PDF/ProgrammersGuid.pdf	راهنمای برنامه نويسان
http://www.ashian.com/books/PHP.pdf	معرفی PHP
http://www.javan-soft.com/PDF/Pascan&C.pdf	مقايسه زبان برنامه نويسی C و Pascal
http://www.ebookpars.com/Farsi_ebook...rnet_ebook.exe	(نکته های طلايی اينترنت (مقدماتی
http://www.ehsani.org/code/visualbasicdotnet.pdf	کتاب ویژوال بیسیک NET. مقدماتی
http://www.chbedu.org/lab/book/compu...2000_01-52.pdf	آموزش Word 2000
http://www.chbedu.org/lab/book/compu...user_02-67.pdf	آموزش Word (پيشرفته)
http://www.chbedu.org/lab/book/compu...t_registry.pdf	تنظيم ويندوز از طريق ريجستري
http://www.chbedu.org/lab/book/computer/book/scaner.pdf	Scanner
http://www.chbedu.org/lab/book/compu.../microsoft.pdf	فعال سازي محصولات ميکروسافت
http://www.chbedu.org/lab/book/compu...exin21days.zip	آموزش ActiveX در 21 روز
http://www.chbedu.org/lab/book/compu...xin24hours.zip	آموزش Linux در 24 ساعت
http://www.franklang.ru/hafez_ghazal_bi_p1.pdf	غزل حافظ1
http://www.franklang.ru/hafez_ghazal_bi_p2.pdf	غزل حافظ 2
http://www.iranianpep.persiangig.com...review%201.exe	معرفی وبررسی ده گوشی موبایل-احسان عباسی
http://www.javan-soft.com/PDF/SQL.pdf	SQLراهنماي سريع
http://www.irandoc.ac.ir/Data/Books/...ectivel y.zip	تبليغ كارآمد سايت وب. نويسنده: مارك كر. مترجم : نادر نقشينه
http://www.lookiran.com/ebook/lookiran-e-book3.pdf	چگونه وب سايت خودرا بهتر كنيم
http://www.ebookpars.com/Farsi_ebooks/site.pdf	سايت خود را به مركز درآمد تبديل كنيد
http://www.tebyan.net/Hozeh-elmi/Htm...page= 1&lan=1	كالبد شكافي ويروسها –ويروس مجيد
http://groups.yahoo.com/group/persia...ni/jspre2e.pdf	مرجع جيبي جاوا اسكريپت, ويرايش دوم, نوشته ي ديويد فلاناگان ترجمه قاسم كياني
http://www.iranseo.com/search_engine...k_16Esfand.pdf	يك يا دو هزار ويك-راهنماي بهبود رتبه سايت در موتورهاي جستجو
http://www.eocsite.com/site	40نكته براي ايجاد سايت هاي حرفه اي -صابر كردستانچي
http://www.chbedu.org/lab/book/compu...calLearnin.pdf	برنامه نويسي پاسکال
http://www.chbedu.org/lab/book/compu...WindowsPdf.pdf	راهنماي ويندوز ملنيوم
http://www.eocsite.com/site/	هر آنچه مديران سايت ها بايد براي مديريت بدانند-صابر كردستانچي
http://www.chbedu.org/lab/book/computer/book/24unix.pdf	آموزش Unix در 24 ساعت
http://www.chbedu.org/lab/book/compu...ages_01-52.pdf	آموزش HTML
http://www.chbedu.org/lab/book/compu...ipt2_02-67.pdf	آموزش JavaScript
http://www.chbedu.org/lab/book/compu.../Network_1.pdf	مفاهيم اوليه شبکه
http://www.chbedu.org/lab/book/compu...ok/unix-II.pdf	آموزش Unix (پيشرفته)
http://www.chbedu.org/lab/book/compu...k/vbdotnet.pdf	آموزش VB.NET
http://www.chbedu.org/lab/book/compu...P-complete.pdf	برنامه نويسي شبکه به کمک TCP/IP
http://www.chbedu.org/lab/book/compu...s_98_01-67.pdf	آموزش Windows 98
http://www.chbedu.org/lab/book/compu...ectureBook.pdf	معماري سيستم هاي کامپيوتري
http://www.chbedu.org/lab/book/computer/book/Router.pdf	نقش مسيرياب (Router) در شبکه

خداوندا نصيبش كن پرواز با سايت___هرانكس كه نظر دادست در اين سايت

طبق نظر يكي از افراد مهم شرئي ديدن هرگونه سايت يا وبلاگ بدون دادن حتي يك نظر مكروه و حتي در مواردي حرام است!!.پس از صواب عظيم نظر دادن بي نصيب نشويد

لينك مقاله |20:59 شنبه 14 بهمن1385 - توسط ناصر نيازي

سلام دوستان بايد بگم راجع به پست ديروزم كه اشكال داشت واقعآ متاسفم حذف اش كردم چون من مطالبم رو توي ورد مي نويسم و كپي پيست مي كنم گاهي از اين مشكلات پيش ميآد شما ببخشيد
پاسخ به سوالات شما

چطور مي توان از دكستاپ عكس گرفت
اين خط رو در اولين خط كد فرم بنويسيد-براي مبتدي ها

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

طريقه استفاده

Private Sub Form_load()
Dim W, H
W = Screen.Width / 15
H = Screen.Height / 15
StretchBlt hdc, 0, 0, W, H, GetDC(0&), 0, 0, W, H, vbSrcCopy
End Sub

كشيدن يك دايره روي فرم با كد نويسي-نمودار دايره اي-بيضي

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
PI = 3.14159265
For i = 0 To 161 Step 10
Me.Circle (219, 167), i, RGB(0, 0, 0), 360 * (PI / 180), 360 * (PI / 180), 1
Next
End Sub

آنرا به 3 تغيير دهيد.داشتم مي گفتم پارامتر سوم براي شعاع دايره -اندازه آن-پارامتر چهارمscalmode توضيحات: پارامتر اول ودوم مكان ترسيم دايره اگر دايره در فرم شما رسم نشد خاصيت
براي رنگ پنجم براي نقطعه شروع وششم براي نقطه ي پايان اين دو تا براي رسم نمودار دايره اي بكار مي روند.پارامتر آخر هم براي رسم بيضي استفاده مي شود

چگونه مي توان يك مداد درست كرد مانند برنامه نقاشي ويندوز
كد زير را بنويسيدMouseMoveدر كد

If Button <> vbright Then Me.PSet (X, Y)

چطور مي توان يك قطره چكان درست كرد كه روي هر گزينه رفت رنگ پيش فرض رنگ انجا شود
عكس بنويسيدMouseMoveبه فرم اضافه كنيد يك عكس داخل كادر عكس قرار دهيد و كدزير را در رويدادPictureويكLabelيك

Label1.BackColor=Picture1.Point(X,Y)

چطور مي توان يك عكس را معكوس كرد

منظورت ازمعكوس اگه معكوس خود عكس در طراحي باشه كد زير جوابش هست

With Picture1
.PaintPicture .Picture, 0, .Height, .Width, -.Height
End With

ولي اگه منظورت معكوس رنگ باشه كد زير جوابش هست

With Picture1
.PaintPicture .Picture, 0, 0, , , , , , , vbDstInvert
End With

يراي موقعي به كار مي رود كه از يك اسم زياداستفاده مي كنيم.اسم را جلوي آن مينويسيم وهر وقت يك دات بزنيم قابل استفاده استWithتوضيحات:ِ
پارامتر اول يراي عكسي كه ميخواهيم از آن براي ترسيم استفاده كنيم.دوم و سوم براي نقطه شروع ترسيم .چهارم و پنجم براي اندازه تصوير ترسيمي.ششموهفتم براي نقطه پايان ترسيم.هشتم ونهم براي اندازه هاي پاياني ترسيم وپارامتر آخر براي نوع ترسيم

چطور ميشه يك عكس رو روشن تر كرد يا پر رنگ
واه! پسر عجب سوالي پرسيدي.ولي از اونجايي كه اينجانب خيلي به ندرت كم مياره اينم جوابت

Private Declare Function SetPixelV Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Byte
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub CmdBrightness_Click()
'variables for brightness, color calculation, positioning
Dim Brightness As Single
Dim NewColor As Long
Dim x, y As Integer
Dim r, g, b As Integer
'change the brightness to a percent
Brightness = TxtBrightness / 100
'run a loop through the picture to change every pixel
For x = 0 To Picture1.ScaleWidth
For y = 0 To Picture1.ScaleHeight
'get the current color value
NewColor = GetPixel(Picture1.hDC, x, y)
'extract the R,G,B values from the long returned by GetPixel
r = (NewColor Mod 256)
b = (Int(NewColor / 65536))
g = ((NewColor - (b * 65536) - r) / 256)
'change the RGB settings to their appropriate brightness
r = r * Brightness
b = b * Brightness
g = g * Brightness
'make sure the new variables aren't too high or too low
If r > 255 Then r = 255
If r < 0 Then r = 0
If b > 255 Then b = 255
If b < 0 Then b = 0
If g > 255 Then g = 255
If g < 0 Then g = 0
'set the new pixel
SetPixelV Picture1.hDC, x, y, RGB(r, g, b)
'continue through the loop
Next y
'refresh the picture box every 10 lines (a nice progress bar effect)
If x Mod 10 = 0 Then Picture1.Refresh
Next x
'final picture refresh
Picture1.Refresh
End Sub

احتياج داريد كه متن درون آن به درصد برابر ميزان روشنايي استTxtBrightnessيك كادر متن به نامCmdBrightnessحال كردين با توضيحات كامل-براي كد بالا يك كامند به نام

چگونگي زدن تيف رنگ (مثلآ سبز به سياه) به يك فرم
فرم كد زير رابنويسيدLoad.در رويداد

On Error GoTo B
Dim r%, F%, Heght%, Wath%, X%, Color$ '--\/\/\/ Set Color Of Form
Color = "Red_Black" '----------------تعيين تيف رنگ
Heigh = Me.Height + 200: Widt = Me.Width
F = Heigh \ 255: r = 0
Select Case Color
Case "Red_Black": GoTo 1
Case "With_Red": GoTo 2
Case "Green_Black": GoTo 3
Case "With_Green": GoTo 4
Case "Blue_Black": GoTo 5
Case "With_Blue": GoTo 6
Case "With_Black": GoTo 7
End Select
Exit Sub '---------------------------Main--------------------------------------------
1
For i = 0 To Heigh Step F
r = r + 1
If r = 20000 Then Exit For
For X = i To F + i
Me.Line (0, X)-(Widt, X), RGB(250 - r, 0, 0)
Next X
Next i: GoTo B
2 '--------------------------------------------------------------------------------
For i = 0 To Heigh Step F
r = r + 1
If r = 20000 Then Exit For
For X = i To F + i
Me.Line (0, X)-(Widt, X), RGB(250, 254 - r, 255 - r)
Next X
Next i: GoTo B
3 '--------------------------------------------------------------------------------
For i = 0 To Heigh Step F
r = r + 1
If r = 20000 Then Exit For
For X = i To F + i
Me.Line (0, X)-(Widt, X), RGB(0, 250 - r, 0)
Next X
Next i: GoTo B
4 '--------------------------------------------------------------------------------
For i = 0 To Heigh Step F
r = r + 1
If r = 20000 Then Exit For
For X = i To F + i
Me.Line (0, X)-(Widt, X), RGB(250 - r, 255, 255 - r)
Next X
Next i: GoTo B
5 '--------------------------------------------------------------------------------
For i = 0 To Heigh Step F
r = r + 1
If r = 255 Then Exit For
For X = i To F + i
Me.Line (0, X)-(Widt, X), RGB(0, 0, 250 - r)
Next X
Next i: GoTo B
6 '--------------------------------------------------------------------------------
For i = 0 To Heigh Step F
r = r + 1
If r = 20000 Then Exit For
For X = i To F + i
Me.Line (0, X)-(Widt, X), RGB(250 - r, 250 - r, 255)
Next X
Next i: GoTo B
7 '--------------------------------------------------------------------------------
For i = 0 To Heigh Step F
r = r + 1
If r = 9000 Then Exit For
For X = i To F + i
Me.Line (0, X)-(Widt, X), RGB(250 - r, 250 - r, 250 - r)
Next X
Next i '--------------------------------------------------------------------------------
B:
Set Me.Picture = Me.Image

آه دستم داغون شد عزيزان ميتونيد اين كد رو خيلي كوتاه استفاده كنيد وهرخط چيني كه مربوط به رنگ خودتونه رو نگه داريد بقيه رو حذف كنيد.با كمي دقت مي توانيد رنگ هاي جديد بسازيد

چگونه سا عت ديجيتال بسازيم(كامپيوتري)-ساعت يا كنتور

به فرم اضافه كنيدPictureكوتاهترين راه براي ساخت يك ساعت روش زير است يك

Private Sub Form_Load()
Static Score As Long
Counter.Show
DoEvents
Score = 0
For I = 1 To 1265
DisplayNumber 10, Score
Score = I
DoEvents
Next
End Sub'-------------------------------------------------------------------
Private Sub DisplayNumber(DisplayWidth As Integer, TheNumber As Long)
Dim DisplayString As String, Zeros As Integer, GraphicsHeight As Single
Dim DigitValue As Integer, NumPosition As Integer
'--------------------Start Time---------------
GraphicsHeight = Picture1.ScaleHeight / 2
Zeros = DisplayWidth - Len(Trim(TheNumber))
For I = 0 To Zeros - 1
DisplayString = DisplayString & "0"
Next
DisplayString = DisplayString & Trim(Str(TheNumber))
For I = 0 To DisplayWidth - 1
DigitValue = Val(Mid(DisplayString, I + 1, 1))
If DigitValue = 0 Then NumPosition = 10 Else NumPosition = DigitValue _
Counter.PaintPicture Picture1.Image, I * (Picture1.ScaleWidth / 10), 0, _
Picture1.ScaleWidth / 10, Picture1.ScaleHeight / 2, (NumPosition - 1) _
* (Picture1.ScaleWidth / 10), GraphicsHeight, Picture1.ScaleWidth / 10, Picture1.ScaleHeight / 2
Next
End Sub

Endد ر كد بالا به دلايلي فرم خارج نمي شود بايد يك دكمه براي خروج از فرم تنظيم كنيدودر كد كليك آن بنوسيد

روخاسته بودن "GDI32.Dll"يكي از دوستان ليست تمامي توابع موجود در فايل
تورو خدا به من رحم كنيد!!.شوخي كردم به زودي
براي امروز ديگه كافيه - فقط نظر يادتون نره

لينك مقاله |0:19 جمعه 13 بهمن1385 - توسط ناصر نيازي

لينك مقاله |20:16 سه شنبه 3 بهمن1385 - توسط ناصر نيازي

قبل از شروع مطلب اين نكته را متذكر مي شوم كه اين سري مقالات براي افرادي كه آشنايي اوليه با برنامه نويسي و ترجيحاً برنامه نويسي تحت ويندوز دارند مفيد تر مي بلشد چون آموزش جزئيات بيشتر در حوصله اين سري مقالات نمي گنجد.

براي نوشتن كدهاي آزمايشي اين بخش كارهاي زير را انجام بدهيد:

كنترل جريان برنامه:

دلفي دو ساختار براي كنترل جريان برنامه دارد كه به تفصيل به آنها مي پردازيم.

دستور If...Then...Else

اين دستور از اساسي ترين دستورات شرطي مي با شد كه اين امكان را به برنامه نويس مي دهد كه پرسشي را مطرح كرده و بر اساس پاسخ آن كار يا عمل درخواستي را انجام دهد. مثالي در اين رابطه:

 

program IfDemo;

uses Forms;

var  UserInput : Integer;

begin

Write('How old are you ? ');

ReadLn(UserInput);

If (UseerInput < 1) or (UserInput > 130) Then

WriteLn('You are not telling the truth.')

Else

WriteLn('Being ', UserInput, 'yers old is great!');

WriteLn('Press Enter to Exit program');

ReadLn {To keep the window from closing until you press Enter}

end {InDemo}

در برنامه فوق عبارت بين If...Then در صورتي كه عدد ورودي توسط كاربر كوچكتر از 1 يا بزركتر از 130 باشد برابرTrue شده در نتيجه كد نوشته شده بين  Then...Else اجرا مي شود. در غير اين صورت عبارت بعد از Else اجرا مي شود. 

درصورتي كه بخواهيم بيش از يك دستور را بين Then...Else و يا بعد ازElse قرار دهيم بايد از يك بلاك استفاده كنيم

بلاك:

مجموعه اي از دستورات كه بين Begin...End واقع مي شوند.

دستور Case...of

همانند دستور If...Then مي باشد ولي با اين تفاوت كه بجاي دو حالت True و False چند حالت را بررسي مي كند. براي تشريح اي ساختار به مثال زير توجه كنيد.

program CaseDemo;

Uses Forms;

var UserIn : Char;

begin

Write('Type in character followed dy the Enter key: ');

ReadLn(UserIn);

Case UserIn of

'a'    :WriteLn('That is a Small a');

'z','Z':WriteLn('That is a small or capital z')

else

WriteLn('That is a character other than an a, z, or Z.')

end;

WriteLn('Press Enter to exit program');

ReadLn {To keep the window from closing until you press Enter}

end {CaseDemo}

در مثال فوق در صورتي كه مقدار بين Case...of برابر با هر يك از ثابتهاي قبل از علامت (:) باشد، دستور يا بلاك دستورات بعد از علامت (:) اجرا مي شود. همچنين، توجه به اين امر كه يك دستور end در پايان به عنوان پايان بخش دستور Case قرار مي گيرد نيز بسيار مهم است. در ضمن قسمت else نيز در اين ساختار اختياري بوده و مي تواند حذف شود.

لينك مقاله |20:46 یکشنبه 1 بهمن1385 - توسط ناصر نيازي

  كاربرد علامت تساوي در دلفي:

   در دلفي براي تخصيص عملگر =: استفاده مي شود.

y:=mx+b

 همچنين براي بررسي تساوي از = استفاده مي شود.

If A=B then Writeln ('A and B are equal')

شكل ديگر استفاده از علامت تساوي در معرفي ثابت ها است.

Const
    TaxRate = 0.0075

    ثابت ها:

 براي مقادير خاص كه در برنامه زياد استفاده مي شود مي توان از ثابت ها استفاده كرد كه مثال آن در بالا آمده.

    متغييرها:

ازاجزاء ثابت همه زبان ها كه انواع آن عبارتند از:

نوع صحيح:

نوع	محدوده مقادير	تعداد بايت ها در حافظه	علامت دار(قادر به نگهداري عدد منفي است)
Byte	0 تا 255	1	خير
Word	0 تا 65535	2	خير
ShortInt	128- تا 127	1	بلي
SmallInt	32768- تا 32768	2	بلي
Integer	32147483648- تا2147483647	4	بلي
Cardinal	0 تا 2147483647	4	بلي
LongInt	2147483647- تا 2147483647	4	بلي

 

نوع حقيقي:

نوع	محدوده مقادير	تعداد بايت ها در حافظه
Real	+/-1.7E38 ~ +/-2.9E39	6
Single	+/-1.5E-45 ~ +/-3.4E38	4
Double	+/-5.0E-34 ~ +/-1.7E308	8
Extended	+/-3.4E-4932 ~ +/-1.1E4932	10
Comp	-2^63 ~ 2^(63-1)	8

 

نوع ارزي:

اين نوع متغيير ها براي نگهداري مقادير پولي مناسب است و با اجزاي ويژوال مانند Currency Field مورد استفاده قرار مي گيرد. باانواع دادههايي كه در بانك هاي اطلاعاتي براي مقادير پولي بكار مي رود سازگار است.

 

نوع بولي:

نوع	محدوده مقادير	تعداد بايت ها در حافظه
Boolean	يك بايتي ترجيحي	1
ByteBool	يك بايتي	1
Bool	يك كلمه اي	2
WordBool	يك كلمه اي	2
LongBool	يك كلمه اي مضاعف	4

نوع كاراكتري:

نوع	اندازه بر حسب بايت	آنچه مي تواند نگه دارد
ANSIChar	1	يك كاراكتر ANSI
WideChar	2	يك كاراكتر UniCode
Char	1

 

نوع رشته اي:

نوع	طول	آنچه مي تواند نگه دارد	آيا به تهي ختم مي شود يا خير
ShortString	255	ANSIChar	خير
AnsiString	حداكثر 3 مگابايت	ANSIChar	بلي
String	يا255 يا حداكثر 3 گيگا بايت	ANSIChar	بلي يا خير
WideString	حد اكثر 1.5 گيگا بايت	WideChar	بلي

لينك مقاله |20:44 یکشنبه 1 بهمن1385 - توسط ناصر نيازي