جمعه یازدهم آذر 1384

کار با کنترل MSCommunication

امروز می خوام در مورد یکی از ActiveX ها توضیح بدم

نام ActiveX : MSCommunication

وظیفه : ارتباط با مودم

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

private sub command1_click

dim number$

number=cstr(inputbox("enter the number"))

mscomm1.portopen=true

mscomm1.comport=3

mscomm1.output="ATDT" & number & ";" & vbcr

end sub

private sub command2_click

if mscomm1.portopen=true then mscomm1.portopen=false

end sub

البته من این کد رو خیلی خلاصه و خیلی ساده توضیح دادم شما می تونید مثالی که خود MSDN Visual Studio6 در مورد این کنترل زده بود رو بصورت کامل دانلود کنید

نوشته شده توسط حمید در 15:26 | | لینک به این مطلب

دوشنبه شانزدهم آبان 1384

تبدیل شمسی به میلادی

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

دانلود 21KB

نوشته شده توسط حمید در 16:58 | | لینک به این مطلب

جمعه سیزدهم آبان 1384

تابع Environ

سلام

شاید در بعض اوقات مجبور باشد که مسیر ریشه ویندوز یا My Documents و یا ProgramFiles کامپیوتر مورد نظر خود را پیدا کنید به غیر از توابع API می تونید از تابع زیر هم استفاده کنید:

Private sub command1_click()

dim path as string

path=Environ("windir")    'این کد مسیر ویندوز رو در متغیر قرار می ده

end sub

 

و همین طور بجای Windir می تونید از :

Programfiles : که مسیر programfiles رو بر می گردونه

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

 

نوشته شده توسط حمید در 16:19 | | لینک به این مطلب