هاتف - پی سی آنلاین

امروز قلبم درد گرفته بود ... فکر کنم یه کم تپل شدی جات تنگ شده

پی سی آنلاین

برنامه برای رمز گذاری پوشه ها

هاتف ( پنج شنبه 86/12/2 :: ساعت 6:43 عصر )

با این سورس برنامه شما قادر خواهید بود بروی پوشه ها در Windows Xp رمز بگذارید

اندازه: 60 کیلوبایت

نوشته های دیگران ()

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

هاتف ( پنج شنبه 86/12/2 :: ساعت 6:35 عصر )

این سورس یک برنامه است که کاربرد آن جستجوی فایل در هارد دیسک کامپیوتر است

اندازه: 66 کیلوبایت

نوشته های دیگران ()

کد اتصال ویژوال بیسیک با کریستال ریپورت 10

هاتف ( سه شنبه 86/11/30 :: ساعت 9:34 عصر )

امروز کد اتصال کریستال ریپورت 10 با ویژوال بیسک رو باریتان گذاشتم

< Dim strRecordsFormula As String Private Sub Command1_Click() crview.SearchForText (Text1.Text) End Sub Private Sub Form_Load() Dim CRReport As CRAXDRT.Report Dim CRApp As New CRAXDRT.Application Set CRReport = CRApp.OpenReport(App.Path & "\RptFilename") CRReport.database.Tables(Tableindex).Location = App.Path & "\DbFilename" With crview .ReportSource = CRReport .ViewReport While .IsBusy DoEvents Wend .Visible = False .Refresh End With Set CRApp = Nothing Set CRReport = Nothing End Sub Private Sub Form_Resize() crview.Height = Me.ScaleHeight - 100 crview.Width = Me.ScaleWidth End Sub

بجای RptFilename نامه گزارش کریستال ریپورت را بنویسید بجای tableindex شماره جدول موجود در بانک اطلاعاتی را بنویسید بجای Dbfilename نام بانک اطلاعاتی را بنویسید و از منوی componets گزینه Crystal viewer را پدا کرده و انتخاب کنید و از منوی ابزار آن را با نام Crview در فرم قرار دهید

دانلود کد بصورت فایل Text

نمونه ی پروژه را از با کلیک بر اینجا می توانید دریافت کنید

توجه: برای استفاده از این پروژه و این کدها نرم افزار کریستال ریپورت 10 حتما باید نصب باشد

نوشته های دیگران ()

ساختارهای تصمیم گیری 2

هاتف ( دوشنبه 86/11/22 :: ساعت 2:54 عصر )

شکل دیگری از دستور if ، if تودرتو می باشد

If [condition] then

[commands1]

[commandsn]

Elseif [condition] then

[commands1]

[commandsn]

Else

[Command]

End if

شما با این دستور می توانید چندین شرط را برای یک عمل اعمال کنید

برای درک:

اگر بخواهیم موفق شویم پس

باید تلاش کنیم تا موفق شویم

مگرنه بخواهیم نمره خوبی بگیریم پس

باید درس بخوانیم

مگرنه

بیخیالش

پایان اگر

و اما می رسیم به دستور select case

از این هم می توانیم مانند دستور if استفاده کنیم

بشکل زیر:

Select case [variable]

Case [value1]

[command]

Case [value2]

[command2]

End select

برای درک:

انتخاب مورد ]متغیر[

مورد ]مقدار1[

]دستور[

مورد ]مقدار2[

]دستور[

پایان انتخاب

مثال 1:

این مثال یک عدد را از ورودی می گیرد و می گوید تعداد ارقامش کمتر 3 است یا بیشتر

If Len(Text1.Text) > 3 Then

MsgBox "Its more than 3"

ElseIf Len(Text1.Text) = 3 Then

MsgBox "its =3"

Else

MsgBox "its less than 3"

End If

برای دانلود مثال آماده اینجا کلیک نمایید

مثال 2:

این مثال از ورود روز را گرفته و روز آن را بر می گرداند

Select case text1.text

Case 1

Msgbox “shanbe”

Case 2

Msgbox “1shanbe”

Case 3

Msgbox “2shanbe”

Case 4

Msgbox “3shanbe”

Case 5

Msgbox “4shanbe”

Case 6

Msgbox “5shanbe”

Case 7

Msgbox “jome”

End select

برای دانلود مثال آماده اینجا کلیک نمایید

نوشته های دیگران ()

کار با فایل (نوشتن در فایل) 1

هاتف ( یکشنبه 86/11/21 :: ساعت 4:41 عصر )

برای نوشتن در فایل دو روش وجود دارد

1- ترتیبی

2-تصادفی

در روش اول به این صورت عمل می نماییم

مرحله اول تعیین شماره فایل

برای اینکار از تابع freefile() استفاده می کنیم

مرحله دوم باز کردن فایل

برا اینکار از دستور زیر استفاده می شود

open "filename" for output as #freefile()

open برای باز کردن فایل بکارمی رود

filename نام فایل است در صورت نبود فایل آن را ایجاد می کند

for برای نسبت دادن به عملی بکارمی رود

output عمل خروجی را انجاممی دهد

مرحله سوم نوشتن در فایل

برای اینکار از دو تابع می توان استفاده کرد

1- print

2-write

در تابع اولی اطلاعات را بصورت عادی در فایل می نویسد

در تابع دومی اعداد را با (،) از هم جدا می کند و رشته را در بین ("") قرار می دهد

مرحله چهارم بستن فایل

برای بستن فایل به شکل زیر عمل می کنیم

برای اینکار از تابع close استفاده می کنیم

حال برای استفاده از آنها اینگونه عمل میکنیم

مثال1:

در این مثال قصد داریم نوشته "This is a my First File Project" را در فایل "Example.txt" بنویسیم (این کد را بدلخواه در یک شئ بنویسید)

f=freefile()

Open "Example.txt" for output as #f

Print #f,"This is a My First File Project"

Close #f

در این مثال ما برای راحتی بیشتر کار تابع freefile() را در متغیر f قرار دادیم

و در این مثال متن "this is a my first file Project" را در فایل "example.txt" می نویسد

و تابع close فایل شماره f را بست و برای استفاده از تابع write آن را جای تابع print قرار دهید

فایل از لینک زیر قابل دریافت است

دانلود

مثال 2:

در این مثال قصد داریم متنی که در کادر متن نوشته می شوند را در فایل "example1" بنویسیم

در ویژوال بیسیک در فرم یکه کادر متن (textbox) ایجاد کنید

(این کد را بدلخواه در یک شئ بنویسید)

f=freefile()

open "example1.txt" for output as #F

print #f,text1.text

close #f

در این مثال متن نوشته شده در کادر متن را در فایل (example1.txt) می نویسد

این برنامه به صورت آماده از لینک زیر قابل دریافت است

دانلود

نوشته های دیگران ()

< 1 2 3 >

لیست کل یادداشت های این وبلاگ

مقدمات زبان پی اچ پی
دعوتنامه سایت دوره
دعوتنامه جی میل
دعوتنامه کلوب
دعوتنامه پرشین گیگ
[عناوین آرشیوشده]