آموزش ویژوال بیسیک - پی سی آنلاین

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

پی سی آنلاین

کد اتصال ویژوال بیسیک با کریستال ریپورت 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) می نویسد

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

دانلود

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

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

هاتف ( جمعه 86/11/19 :: ساعت 8:52 عصر )

دستور if با این دستور می توانید برای یک عمل شرط گذاری کنید

شیوه استفاده :

if [condition] then [Command1] else [command1]

در اینجا condition شرط دستور می باشد command دستوارتی که باید انجام شود و دستور else در صورتی آن شرط برقرار نبود دستوراتی که برایش تعریف می کنیم را اجرا می کند

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

شکل دیگر دستور if

if [condition] then

[commands1]

[commands n]

else

[commands2]

end if

در این دستور بجای commands دستورات را می نویسیم

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

اگر (فردا باران نبارید) پس (میریم کوه) مگرنه (نمیریم کوه)

یا