امكانات

مطالب موجود در وب

پيوند ها

نويسندگان

چگونه می توانیم دستورات Dos را از طریق ویژوال بیسیک اجرا کنیم ؟  

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b یکشنبه هشتم مهر 1386 7:52 بعد از ظهر

ابتدا Command Prompt را فراخوانی می کنیم , خوب برای فراخوانی از تابع Shell استفاده میکنیم که قبلا در مورد این تابع توضیح داده ام :

Shell "cmd.exe"

:: اکنون یک شیء ایجاد می کنیم تا بتوانیم از طیق آن به هسته Dos دسترسی داشته باشیم :

Dim WinShell
Set WinShell = CreateObject("Wscript.shell")

خوب حالا می توانید به راحتی هر دستوری که دارید میتوانید اجرا کنید در آخر هم دستور تابع Sendkeys کلید Enter را اجرا کرده و دستور اجرا میشود:

WinShell.SendKeys " Dos دستور مورد نظر برای اجرا در "
WinShell.SendKeys "{ENTER}"

به مثاهای زیر توجه کنید که به ترتیب اولی برای ایجاد پوشه ای به نام Visual Basic در درایو C و دستور دوم برای نمایش پوشه های موجود در درایو C و دستور سوم برای Format فلاپی دیسک می باشد .

'For Create Folder With Dos Prompt :
WinShell.SendKeys "MD C:\Visual" & " Basic"
WinShell.SendKeys "{ENTER}"

'For Showing C Directory :
WinShell.SendKeys "Dir C:\"
WinShell.SendKeys "{ENTER}"

'For Format Floppy Disk Of Dos :
WinShell.SendKeys "format A:"
WinShell.SendKeys "{ENTER}"

نکته شماره 9 : کار با فایلها در php ( بخش چهارم ) 

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b چهارشنبه بیست و هشتم شهریور 1386 10:19 قبل از ظهر

در این بخش تصمیم دارم نحوه ساختن فولدر , از بین بردن فولدر و برخی عملیات دیگر مربوط به فایلها و فولدرها را برای شما تشریح کنم .

ایجاد و حذف فولدر :

با استفاده از تابع mkdir میتونید فولدر ایجاد کنید :

Mkdir("test",0744);

با این دستور شما یک فولدر به نام test در مسیری که فایل رو فراخونی میکنید با سطح دسترسی 744 ایجاد کرده اید . این سطوح دسترسی فقط در لینوکس دارای اعتبار است .

با استفاده از تابع rmdir  نیز میتونید فولدری را پاک کنید .

در ضمن با استفاده از تابع chmod نیز میتونید سطح دسترسی یک فولدر رو تغییر بدهید :

Chmod("/htdocs/test/",777);

با استفاده از تابع chown میتوان مالک یک فولدر را مشخص و یا تغییر بدهید .

چند تابع دیگر نیز وجود داره که با استفاده از اونها میتونید تاریخ , ساعت و ثانیه آخرین تغییرات انجام شده برروی فایل را به دست بیاورید . این توابع عبارتند از : filectime  و filemtime   که همراه با نام فایل به کار میروند . برای نمایش تاریخ مورد نظر از تابع date  استفاده کنید :

$filename = 'somefile.txt';

if (file_exists($filename))

{

  echo "$filename was last modified: " . date ("F d Y H:i:s.", filemtime($filename));

}

?>

نکته شماره 8 : کار با فایلها در php (بخش سوم )  

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b چهارشنبه بیست و هشتم شهریور 1386 10:17 قبل از ظهر

نکته شماره 7 : کار با فایلها در php (بخش دوم )  

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b یکشنبه چهارم شهریور 1386 9:32 قبل از ظهر

در این بخش میخواهم روشهای خواندن محتویات یک فایل رو شرح بدم . از دو تابع fgets و fread  برای خواندن فایلها استفاده میشود . هر دو تابع فوق با دو پارامتر قابل دسترسی هستند . پارامتر اول نام فایل مورد نظر است و پارامتر دوم حجم بایتی از فایل که میخواهید فراخوانی کنید .

در مثال زیر یک فایل با نام test.txt  خوانده شده و به صورت خط به خط نمایش داده میشود :

<?php

$handle = fopen('test.txt',"rb");

while(!feof($handle))
{
  $buffer = fgets($handle, 4000);

  echo $buffer."<br>";

}
fclose($handle);

?>

در این مثال از تابع جدیدی به نام feof نیز استفاده شده است که بررسی میکند عملیات خواندن یا نوشتن در فایل به انتها رسیده است یا خیر .

همان طور که در مثال فوق مشاهده میکنید با استفاده از تابع fgets  خط به خط فایل خوانده شده است . اما تابع fread میتواند کل فایل را تا محدوده ای که مشخص میکنید بخواند مثلا :

$Get_Text = fread ('$FileName',1000);

فکر میکنم تفاوت دو تابع رو متوجه شدید . تابع fgets بر روی کرسر خط جاری تمرکز داره اما تابع fread کل فایل را در نظر میگیرد .

پس بنابراین با دستور زیر میتوان کل فایل را خواند :

$Get_Text = fread ('$FileName',filesize('$FileName'));

فقط نکته ای که در مورد مثالها باقی میمونه اینه که در تمامی اونها منظورم از متغیر $FileName نام فایل همراه با متغیر fopen  هست مثلا :

$FileName = fopen('test.txt',"rb");

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

نکته شماره 6 : کار با فایلها در php 

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b یکشنبه چهارم شهریور 1386 9:30 قبل از ظهر

نکته شماره 5 : فراخوانی توابع از مرجع 

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b یکشنبه چهارم شهریور 1386 9:27 قبل از ظهر

همانطور که در مباحث قبلی در مورد روش مقدار دهی بر اساس مرجع توضیح دادم در اینجا میخوام در خصوس روش فراخوانی توابع از طریق مرجع برایتون توضیح بدم .

اول به این تابع توجه کنید :

Function addnumber($num1, $num2)
{
  $num1=$num1*2;

  $num2=$num2 / 3;

  Return($num1+$num2);

}


$a1=12;

$a2=6;

echo "Value Return as Function addnumber is : ".addnumber($a1,$a2)."
"; // retun 26

echo 'a1='.$a1.'  , a2='.$a2; // return num1=12 , num2=6

در این مثال همانطور که مشاهده مینمائید دو مقدار a1  و a2  مقدار دهی شده بعد به تابع  addnumber ارسال گردیده است . تابع بعد از چند عمل ریاضی ساده مقدار خروجی را ارسال نموده . با نمایش مقادیر اولیه مشاهده میکنید که آنها ( یعنی a1  و a2  ) تغییر نیافته اند .

اما حالا فرض کنید که میخواهید با ارسال پارامتر به تابع مقادیر ارسالیتون هم تغییر کنند .  برای این کار شما میتونید با استفاده از علامت & قبل از مقادیر دریافتی تابع این کار رو انجام بدید . این تغییراتو همراه با خروجی اون میتونید در این مثال ببیند :

Function addnumber(&$num1, &$num2)
{
  $num1=$num1*2;

  $num2=$num2 / 3;

  Return($num1+$num2);

}


$a1=12;

$a2=6;

echo "Value Return as Function addnumber is : ".addnumber($a1,$a2)."
"; // retun 26

echo 'num1='.$a1.'  , num2='.$a2; // return num1=12 , num2=6

همانطور که مشاهده میکنید بعد از فراخوانی تابع مقادیر ارسالی به تابع یعنی a1  و a2  نیز تغییر کرده اند .

نکته شماره 4 : کار با داده ها در php 

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b جمعه دوم شهریور 1386 10:48 قبل از ظهر

نکته شماره 3 : تفاوت دستور های echo و print 

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b جمعه دوم شهریور 1386 10:47 قبل از ظهر

نکته شماره 2 : روش مقدار دهی بر اساس مرجع  

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b جمعه دوم شهریور 1386 10:44 قبل از ظهر

نکته شماره 1 : قرار دادن عکس در فیلد blob با استفاده از php و MySql 

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b جمعه دوم شهریور 1386 10:39 قبل از ظهر

دکمه Exit غیر فعال شده  

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b پنجشنبه یکم شهریور 1386 9:55 قبل از ظهر

Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0

Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

این کد رو هم در Form_load کپی کنید .

Dim hMenu As Long

hMenu = GetSystemMenu(Me.hwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (Me.hwnd)
End If

یک برنامه واسه پیدا کردن اطلاعاتی در مورد درایوها(Partitions) 

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b پنجشنبه یکم شهریور 1386 9:54 قبل از ظهر

لینک دانلود : VB Drives Information 

ScreenShot برنامه :

امنیت برنامه+بانک اطلاعاتی  

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b پنجشنبه یکم شهریور 1386 9:47 قبل از ظهر

امروز با استفاده از شی adodc و با استفاده از 3 خط برنامه برنامه user , password رو نوشتم ببینید

 نظر هم بدید 

دانلود کنید

استفاده از شی ء File System Object در ویژوال بیسیک  

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b پنجشنبه بیست و پنجم مرداد 1386 10:47 قبل از ظهر

تاریخچه ویژال بیسیک 

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b چهارشنبه هفدهم مرداد 1386 1:0 بعد از ظهر

جعبه پیام ها جعبه گفتگو و کنترل تایمر 

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b سه شنبه شانزدهم مرداد 1386 12:18 بعد از ظهر

جعبه پیام ها در ویژوال بیسیک بسیار کاربرد دارند به طوری که تمامی برنامه هایی که شما در سیستم عاملتان از آن استفاده میکنید دارای جعبه پیام های متعددی هستند و باعث میشوند که برنامه با کاربر بیشتر ارتباط برقرار کند و باعث حرفه ای تر شدن برنامه ما شود.

در ویژوال بیسیک جعبه پیام ها به دو دسته تقسیم میشوند که عبارتند از:

۱- جعبه پیام هایی که فقط پیام را به کاربر نشان میدهند و یک فرمان از کاربر میگیرند.(MsgBox).

۲- جعبه پیام هایی که علاوه بر نشان دادن پیام یک رشته و یک فرمان از کاربر دریافت میکند.(InputBox).

1- MsgBox

MsgBox خود یک تابع است که یک جعبه پیام به کاربر نشان میدهد.شکل پایین.

در شکل بالا شما مشاهده می کنید که جعبه پیام ما یک عنوان(Title) و یک آیکون و تعدادی دکمه فرمان است.

ساختار کلی تابع MsgBox به صورت زیر است.

 به این صورت: (MsgBox (Prompt,IntStyle,Title

که در شکل بالا Prompt همون جمله ای است که به پیام را میرساند.در شکل بالا(Do You WantTo Exit)

در تابع MsgBox ; دکمه فرمان ها آیکون جعبه پیام و تعداد دکمه فرمان ها توسط IntStyle مشخص میشود در زیر در مورد آرگومان IntStyle بیشتر صحبت میکنیم.

vbOkOnly                  دکمه OK

vbOKCancel              دکمه های OK و Cancel

vbAbortRetryIgnore   دکمه های Abort,Retry,Ignore

vbYesNoCancel         دکمه های Yes,No,Cancel

vbYesNo                   دکمه های Yes,No

vbRetryCancel           دکمه های Retry,Cancel

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

vbCritical               

vbQuestion            

vbExclamation       

vbInformation       

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

برای بهتر یادگرفتن شما یک مثال ساده میزنیم.

مثال: یک دکمه فرمان روی فرمتون قرار بدین(CommandButton) سپس روی اون دوبارکلیک کنید تا پنچره کد باز شود سپس در روال رویداد Command1_click  کدهای زیر را بنویسید.

MsgBox "Do you want to Exit" , VBQuestion + vbYesNo , "Question

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

شما برای یادگیری بهتر میتونید در مثال بالا به جای VBQuestion , vbYesNo  مقادیر دیگری را قرار دهید.

توجه داشته باشید که اگر فقط (MsgBox (Prompt را بنویسید و آرگومان های دیگر را مقدار دهی نکنید جعبه پیام نمایش داده میشود ولی آیکون و عنوان ندارد و فقط یک دکمه فرمان دارد.امتحانش ضرر نداره.

مثال : در مثال یک به جای اینکه کل کد رو بنویسید فقط این رو بنویسید:

MsgBox "Do You Want To Exit

در تابع MsgBox می توان فهمید که کاربر کدام دکمه فرمان را کلیک کرده برای فهمیدن اینکه کاربر کدام دکمه فرمان جعبه پیام را زده است باید به صورت زیر عمل کنیم.

ابتدا باید یک متغیر از نوع عدد صحیح تعریف کنیم.سپس متغیر را برابر با تابع MsgBox قرار دهیم و با استفاده از یکی از دستورات شرطی If یا Select Case دستوراتی را که باید اجرا شوند  بنویسیم.

مثال ۱: ابتدا یک Command Button روی فرم قرار دهید سپس کدهای زیر را بنویسید:

Dim X as Integer

Private Sub Command1_Click

("X = MsgBox ("Do You Want To Exit" , vbQuestion + VbYesNo , "Question

If X =  6 then

End

Else

Exit Sub

End If

End Sub

تذکر اگر با کپی کردن کدها دچار مشکلی شدید خودتان آنها را بنویسید.

۲- InputBox

جعبه پیام InputBox جعبه پیامی است که از کاربر سوالی میکند و جواب را دریافت میکند.شکل زیر.

همان طور که در شکل میبینید جعبه پیام سوال کرده که اسم شما چیست و در قسمت پایین جعبه پیام محلی برای دریافت جواب سوال وجود دارد.

شکل کلی تابع InputBox به صورت زیر است:

(مقدار پیش فرض تکست جعبه پیام , عنوان , سوال) InputBox

مثال ۲: ابتدا یک CommandButton روی فرم قرار دهید سپس کدهای زیر را بنویسید.

Dim X as String

Private Sub Command1_Click

("X = InputBox("What is your name?","Question

MsgBox "Welcome:" + X ,vbInformation

End Sub

جعبه گفتگو ها در ویژوال بیسیک باعث می شود برنامه های شما پیشرفته تر شود و کاربران از کار کردن با برنامه شما لذت ببرند.

جعبه گفتگو ها در ویژوال بیسیک به شش(۶) دسته تقسیم میشوند که عبارتند از:

۱- جعبه گفتگوی انتخاب رنگ : گفتگویی که به کاربر امکان انتخاب رنگ مورد نظر و حتی دستکاری آن ها رامی دهد.

۲- انتخاب فونت: گفتگویی برای انتخاب فونت ونوع و اندازه و سبک آنها.

۳- باز کردن فایل: گفتگویی برای باز کردن فایل از پوشه ها و درایوها حتی درایو های شبکه.

۴- سیو(ذخیره کردن) فایل: گفتگویی برای ذخیره کردن فایل در پوشه ها و درایوها.

۵- چاپ: گفتگویی برای انتخاب چاپگر و سایر تنظیمات آن.

۶- کمک ویندوز: سیستم کمک ویندوز را فعال میکند و اگر برنامه شما دارای کمک باشد امکان استفاده از آن را برای کاربران فراهم می آورد.

برای اضافه کردن کنترل جعبه گفتگو به برنامه خود باید:

۱- بازدن کلیدهای ترکیبی Ctrl + T (از منوی Project گزینه Components را می زنیم) گفتگوی  Components را باز کنید .

۲- کنترل Microsoft Common Dialog Control 6.0 را پیدا کنید و آن را تیک بزنید.

۳- دکمه OK را بزنید تا این کنترل به جعبه ابزارتان اضافه شود.

----------------------------------------------------------------------------------------------------------->>

متدهای کنترل جعبه گفتگو عبارتند از:

۱- Show Open گفتگوی باز کردن فایل را نمایش خواهد داد.

۲- Show Save گفتگوی ذخیره کردن فایل را نمایش میدهد.

۳- Show Printer گفتگوی انتخاب چاپگر را نمایش میدهد.

۴- Show Color گفتگوی انتخاب رنگ را نمایش میدهد.

۵- Show Font گفتگوی انتخاب فونت را نمایش میدهد.

۶- Show Help گفتگوی کمک ویندوز را نمایش میدهد.

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

CommonDialog1.ShowOpen

CommonDialog1.ShowSave

CommonDialog1.ShowFont

و غیره به همین سادگی.

نمونه برنامه ۱ :

ابتدا یک کنترل جعبه گفتگو با نام CommonDialog1 روی فرم خود قرار دهید. یک دکمه فرمان به نام Command1 روی فرم خود قرار دهید روی دکمه فرمان خود دوبار کلیک کنید تا پنجره کد باز شود. سپس کدهای زیر را در روال رویداد Command1_Click بنویسید.

Private Sub Command1_Click

CommonDialog1.ShowColor

Form1.BackColor = CommonDialog1.Color

End Sub

تحلیل کد برنامه: در خط دوم ما گفتیم که کنترل جعبه گفتگو  گفتگوی رنگ را باز کند.در خط سوم نیز گفتیم که رنگ پس زمینه فرم را برابر رنگ انتخابی جعبه گفتگوی رنگ کند.

کنترل تایمر به شما این امکان را میدهد که از ساعت داخل PC استفاده کنید.کنترل تایمر نیز یکی از مهمترین کنترل های مورد استفاده در برنامه های گوناگون اهم از مقدماتی و پیشرفته است.ساعت کامپیوتر در هر ثانیه ۱۸ رویداد تایمر تولید می کند. برای روال رویداد تایمر نیز میتوان کد نوشت.

تایمر کنترلی است که به مقدار فاصله زمانی که شما میخواهید یک کار را(که همان کدی است که داخل روال رویداد تایمر نوشته میشود)تکرار میکند.

مهمترین خاصیت کنترل تایمر Interval است که فاصله زمانی رویدادهای تایمر را مشخص میکند و بر حسب میلی ثانیه است.(هر ۱۰۰۰ میلی ثانیه یک ثانیه است.)

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

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

نمونه برنامه ۲:

ابتدا یک پروژه استاندارد بازکنید سپس روی فرم خود  ۱ عدد کنترل تایمر بگذارید وبعد از آن نیز یک تکست بوکس (TextBox) روی فرم قرار دهیدو کدهای زیر را در پنجره کد (ViewCode) بنویسید.

()Private Sub Form1_Load

Text1.Text = "0

Timer1.Interval = 1000

End sub

Private sub Timer1_Timer

Text1.Text = Time

end sub

تحلیل کد برنامه: در خط دوم در روال رویداد لود فرم گفته شد که مقدار Text1 را برابر ۰ کند سپس در خط بعدی خاصیت Interval تایمر بابر با ۱۰۰۰ که معادل یک ثانیه میشود شد. در خط ششم نیز مقدار تکست باکس ما در هر ثانیه تغییر میکند و برابر با ساعت جاری سیستم میشود.

دمتغيرهای ايستا در ASP.NET  

موضوع ارائه شده در مورد: آموزش های وژوال بیسیک ( دو ) v.b دوشنبه هشتم مرداد 1386 10:53 قبل از ظهر

دمتغيرهای ايستا در ASP.NET
ر ASP همواره از شئ Application برای ذخيره متغيرهای سراسری استفاده می شد. اين عمل از لحاظ اختصاص فضای حافظه چندان مناسب نبود. در دات نت می توانيم با سود بردن از خواص متغيرهای ايستا در اکثر موارد نتيجه بهتری بدست آوريم. اين روش در اکثر موارد سريعتر از استفاده از شئ Application خواهد بود.
در دات نت اکثر اشياء به صورت کلاس در نظر گرفته می شوند که فايل global.asax نيز از اين قائده پيروی می کند. برای استفاده از اين روش در ابتدا بايد به اين فايل نام يک کلا س را اختصاص دهيم. دقت کنيد که هميشه سعی می کنيم در نامگذاری از اسامی که راهنمای ما باشند استفاده کنيم. برای مثال در اينجا از نام myglobal استفاده می کنيم. به منظور انجام اين کار از کد زير استفاده می شود.
< %@ Application Classname="MyGlobals" %>
سپس با استفاده از تگ Script متغيرهای خود را تعريف می نماييم. دقت کنيد که بايد از کلمات کليدی Public و Shared هم استفاده نماييد.

< Script language="vb" runat="server ">
Public Shared sAli as String = "This is just a test"
< /Script>

با کد بالا ما متغير خود را به نام sAli تعريف نموديم. حال با استفاده از نام کلاس و اين نام می توا نيم آن را در تمام صفحات خود به صورت مستقيم صدا کنيم.

x = MyGlobals.sAli
کدهای نمونه را می توانيد مشاهده کنيد.
< %@ Application Classname="MyGlobals" %>

< Script language="vb" runat="server" >

Public Shared sGreeting as String = " This is just a test"

< /Script >
< % @Page Language="VB" % >

< HEAD >
< script Language='vb' runat=server >
Private Sub Page_Load( ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles MyBase.Load
Label1.Text = MyGlobals.sGreeting
End Sub
< /script >
< /HEAD >

< asp:label runat=server id=Label1 >< /asp:label >
< / body>
< /HTML >

و سپس در نظرات وبلاگ لطف کنید نظری هم بدهید با تشکر مدیر وبلاگ 

آماروب

تبلیغات