در ورژنهای قبلی یاهو مسنجر امکانی وجود داشت که با استفاده از آن میتوانستید بفمهمید که دوست شما در کدام یک از چت روم های یاهو حاضر است. این قابلیت در ورژنهای بعدی از یاهو مسنجر حذف شد. همینک قصد داریم یک ترفند جدید را به شما معرفی کنیم که با استفاده از آن میتوانید به سادگی پی ببرید که ID مورد نظر شما در سایت یاهو در کدام روم مشغول چت کردن است.
ادامه مطلب
+ نوشته شده در ساعت توسط حسن سامی نسب
|
با این ترفند ساده شما باعث میشود که قابلیت shutdown از منوي start غير فعال شود.
برای خواندن ترفند روی ادامه متن کلیک کنید
ادامه مطلب
+ نوشته شده در ساعت توسط حسن سامی نسب
|
نرم افزار فتوشاپ چیست؟
نرم افزار فتوشاپ از دسته نرم افزارهایImaqe Editor می باشد به این معنا كه به كمك این نرم افزار می توان بر روی تصاویر ویرایش نمود و حتی تصاویری در درون این نرم افزار خلق نمود این نرم افزار كه توسط شركتAdobe ساخته شده است به كمك چند نرم افزار دیگر كه تحت همین نرم افزار كار می كنند می توانند برروی فیلم ها نیز ویرایش های را داشته باشند ولی اصل حوزه فعالیت فتوشاپ برروی تصاویر می باشد ما دراین آموزش ها قصد كردیم كه این آموزش ها را در دو سطح مبتدی برای دوستانی كه تا به حال با نرم افزار آشنایی نداشته اند و پیشرفته برای دوستانی كه با نرم افزار كاركرده ولی كامل با آن آشنا نیستن را ارائه نماییم امید است كه بعد از این آموزش ها شما را جزء آن دسته از كاربران حرفه ای این نرم افزار ببینیم و همچنین ما هم به هدف خود كه ترویج علم و مخصوصا علوم كامپیوتر می باشد رسیده باشیم.
ادامه مطلب
+ نوشته شده در ساعت توسط حسن سامی نسب
|
+ نوشته شده در ساعت توسط حسن سامی نسب
|
شرکت طرفه نگار از سال 1376 با تکیه برتجارب و توان فنی مهندسی و تخصصی پرسنل آفریننده آن با سرمایه جزیی تاسیس گردید که با مشارکت کارشناسان نرم افزار مالی و هوشیاری از دگرگونی جهانی ویندوز 32 بیتی در گام نخست اقدام به تولید اولین نرم افزار مالی تحت ویندوز در ایران نمود . هر چند عدم شناخت جامعه از محیط ویندوز در بدو امر باعث سنگینی مسئولیت مدیران مجموعه شد ولی با پشتکار و تعهد در انجام رسالت به زودی اقبال مکان داری نرم افزارهای مالی را عهده دار شد تا با مدیریت علمی و مناسب افتخار داشتن بزرگترین طیف مصرف کننده کشور را در نرم افزارهای مالی داشته باشد که استمرار این مهم جز با تعهد و صداقت به مشتریان و رضایت ایشان میسر نخواهد بود. بنابراین از ابتدا با قوت ارائه خدمات پس از فروش، همگام و دوش به دوش مشتریان حرکت نمود تا شاهد رضایت اکثریت مشترکین باشد و در این راستا فعالیتهای ذیل را حاصل نماید. تولید مجموعه یکپارچه نرم افزارهای مالی/ اداری متخص به شرکتهای تولیدی، بازرگانی ، خدماتی و ... تولید نرم افزارهای سفارش مشتری و تخصصی، تولید بیش از 80 نوع محصول مطابق با اصناف و مراکز خاص ( کتابخانه ها، پذیرش و ... ) تحلیل، طراحی و مشاوره مهندسی سیستم های اطلاعات مدیریت، آموزش، استقرار و مشاوره نظامهای مالی، مشاوره، پیاده سازی و نگهداری شبکه های کامپیوتری و سخت افزار.
تقویم الكترونیكی اشانتیون طرفه نگار (سال 1387)
امکانات عمومی نرم افزار تقویم الکترونیکی طرفه نگار :
- دفترچه تلفن با امکانات کاربردی متنوع
- تقویم سالیانه (شمسی و قمری و میلادی)
- گزارش اوقات شرعی
- نمایش تقویم ماهیانه برروی تصویر صفحه اصلی ویندوز (دسکتاپ)
- نمایش تقویم 6 ماهه یا کل سال در یک نگاه
- نمایش اوقات شرعی روی صفحه دسکتاپ
- اعلام زمان اذان به افق تهران و شهرهای مختلف ایران
- نمایش مناسبت روز روی صفحه دسکتاپ (شمسی و قمری و میلادی)
- نمایش تعطیلات رسمی کشور
- امکان انتخاب یکی از تقویم های شمسی و قمری و میلادی
- دفترچه یادداشت و اعلام خبرکار مربوطه در زمان تعیین شده
- تلفن های ضروری و کد شهرها و کشورها
- مقیم در حافظه نمودن نرم افزار
- و ...
امکانات قابل افزودن به نرم افزارتقویم الکترونیکی طرفه نگار :
- نقشه ایران
- بخش بازی ( بیش از 70 بازی متنوع )
- نرم افزار پخش موسیقی
- و ...
ادامه مطلب+ نوشته شده در ساعت توسط حسن سامی نسب
|
+ نوشته شده در ساعت توسط حسن سامی نسب
|
+ نوشته شده در ساعت توسط حسن سامی نسب
|
چگونه می توان برنامه ای ساخت که فایلهای صوتی و تصویری را اجرا کند؟
MainMenu , TMediaPlayer و OpenDialog بر روی فرم قرار بدهید
سپس منوهای (
File -->New-Open-Sepratotr-Exit) را در MainMenu اضافه کنید و بعد هم کد زیر را قرار دهید :
unit av;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Menus, MPlayer;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
N2: TMenuItem;
New1: TMenuItem;
Open1: TMenuItem;
Help1: TMenuItem;
About1: TMenuItem;
OpenDialog1: TOpenDialog;
MediaPlayer1: TMediaPlayer;
procedure New1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure File1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
filename: string;
modified: bool;
public
{
Public declarations }
end;
var
Form1: TForm1;
implementation
{$
R *.DFM}
procedure TForm1.New1Click(Sender: TObject
);
var
Volume: LongInt
;
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.Filename := OpenDialog1.Filename
;
MediaPlayer1.Open
;
MediaPlayer1.Notify := True
;
end
;
end
;
procedure TForm1.Open1Click(Sender: TObject
);
var
Volume: LongInt
;
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.Filename := OpenDialog1.Filename
;
MediaPlayer1.Open
;
MediaPlayer1.Notify := True
;
end
;
end
;
procedure TForm1.File1Click(Sender: TObject
);
begin
if MediaPlayer1.Filename = '' then
begin
New1.Enabled := False
;
end
else
begin
New1.Enabled := True
;
end
;
end
;
procedure TForm1.Exit1Click(Sender: TObject
);
begin
Close
;
end
;
procedure TForm1.About1Click(Sender: TObject
);
begin
if(Application.MessageBox('Audio Video Created By Andrew Carter', 'About Audio/Video?', MB_OK) = IDOK) then
begin
end
;
end
;
procedure TForm1.FormCreate(Sender: TObject
);
begin
MediaPlayer1.Filename
:= '';
end
;
end
.
+ نوشته شده در ساعت توسط حسن سامی نسب
|
تو به شفافي شبنم روی برگا
من مثل يه برگ زردي که مي افته از درختا
تو مثل طراوت گل هاي نرگس
روي قلبم من نوشتم بي تو هرگز
تو مثل ستاره اي که ، توي شبهاي سياهم
مي درخشي و ميشي جان پناهم
تو مثل طراوت گل هاي پونه
چرا رفتي از برم اي ديوونه
تو مثل يه تيکه ابري توي آسمون آبي
پاک و ساده مثل رويا مثل خوابي
بگو يکبار ، آره يکبار برمي گردي
يا هنوزم بي تفاوت يخ سردي
----------------------------------------------------
بين من و تو فاصله غوغا مي کنه
ياد حرفاي قشنگت منو رها نمي کنه
تو منو گذاشتي رفتي توي روزگار وحشي
توي کوچه هاي غربت دنبالم حتي نگشتي
+ نوشته شده در ساعت توسط حسن سامی نسب
|
+ نوشته شده در ساعت توسط حسن سامی نسب
|
موضوع : بدست آوردن مشخصات و تواناييهاي گرافيکي يک سيستم توسط DirectX-Graphic
1 - شمارش تعداد آداپتورهاي گرافيکي يک سيستم : فرض کنيد متغير nAdapters متغيري از نوع long باشد . همچنين شي D3DADAPTER_IDENTIFIER8 يک ساختار است که اطلاعات مربوط به آداپتور را نگه مي دارد . در اينصورت روتين enumerateAdapters بصورت زير خواهد بود :
Dim adapterinfo as D3DADAPTER_IDENTIFIER8
Private Sub EnumerateAdapters
Dim i as integer
nadapters=D3D.Getadaptercount
براي بدست آوردن جزئيات آداپبورها بصورت زير عمل مي کنيم :
for i=0 to nadapters-1
D3D.GetadapterIdentifier i ,0,adapterinfo
نام اين آداپتور بصورت ليستي از کدهاي اسکي است که بايستي آنها را درون يک string قرار دهيم :
for j=0 to 511
name=name & chr$(adapterinfo.description(j)) x
next j
name=replace(name,chr$(0)," ") x
end sub
بنابراين در متغير name نام آداپتور قرار خواهد گرفت .
۲ - مشخص کردن نوع Rendering : فرض کنيد شي D3DCAPS8 توانايي rendering آداپتور را نشان دهد . در اينصورت روتين EnumerateDevices بصورت زير خواهد بود :
Private EnumerateDevices
On Local Error resume next
Dim Caps as D3DCAPS8
deviceindex=0 'For Example
D3D.Getdevicecaps deviceindex,D3DDEVTYPE_HAL,caps
if err.number=D3DERR_NOTAVAILABLE then
اگر آداپتور امکان رندر سخت افزاري نداشته باشد در اينصورت :
MsgBox("Reference Rasterizer(REF)") x
else
MsgBox("Hardware Acceleration(HAL)+Reference
Rasterizer(REF)") x
end if
end sub
3 - شمارش تعداد Mode نمايشي آداپتور :
فرض کنيد در صورت REF بودن امکان رندر ، متغير r=2 و در غيراينصورت
r=1 باشد . همچنين شي D3DDISPLAYMODE اطلاعات مدهاي نمايشي را در خود دارد . همچنين فرض کنيد متغير nModes از نوع longباشد . در اينصورت روتين enumeratedispmodes بصورت زير خواهد بود :
Private Sub EnumerateDispModes(r as Long,n as Long) x
Dim i as integer
Dim mode_tmp as D3DDISPLAYMODE
deviceindex=0 'For Example
nModes=D3D.Getadaptermodecount(deviceindex) x
for i=0 to nModes-1
D3D.EnumAdapterModes(deviceindex,i,mode_tmp) x
ابتدا Mode ها را به دو گروه ۱۶ بيتي و ۳۲ بيتي تقسيم مي کنيم :
if mode_tmp.format=D3DFMT_R8G8B8 or
mode_tmp=D3DFMT_X8R8G8B8 or
mode_tmp=D3DFMT_A8R8G8B8 then
حال چک مي کنيم که device قابل پذيرش و معتبر است يا نه :
if
D3D.checkdevicetype(deviceindex,r,mode_tmp.format,mode_tm
p.format,Flase)>=0 then
MsgBox(mode_tmp.width & "X" & mode_tmp.height & "32 Bit
FMT:" & mode_tmp.format ) x & "
end if
else
if D3D.checkdevicetype(deviceindex,r,mode_tmp.format,mode_tm
p.format,Flase)>=0 then
MsgBox(mode_tmp.width & "X" & mode_tmp.height & "16 BitFMT:" & mode_tmp.format ) x &
end if
end if
next i
4 - مشخص کردن توانايي هاي آداپتور گرافيکي : فرض کنيد در صورت REF بودن امکان رندر ، متغير r=2 و در غيراينصورت r=1 باشد :
Private Sub EnumerateHardware(r as long) x
Dim caps as D3DCAPS8
D3D.Getdevicecaps deviceindex,r,caps
If Caps.MaxActiveLights = -1 Then
MsgBox "Maximum Active Lights: Unlimited" x
Else
MsgBox "Maximum Active Lights: " & Caps.MaxActiveLights
End If
MsgBox "Maximum Point Vertex size: " & Caps.MaxPointSize
MsgBox "Maximum Texture Size: " & Caps.MaxTextureWidth
& "X" & Caps.MaxTextureHeight
MsgBox "Maximum Primatives in one call: " &
Caps.MaxPrimitiveCount
If Caps.TextureCaps And
D3DPTEXTURECAPS_SQUAREONLY Then
MsgBox "Textures must always be square" x
End If
If Caps.TextureCaps And D3DPTEXTURECAPS_CUBEMAP
Then
MsgBox "Device Supports Cube Mapping" x
End If
If Caps.TextureCaps And
D3DPTEXTURECAPS_VOLUMEMAP Then
MsgBox "Device Supports Volume Mapping" x
End If
If Caps.DevCaps And D3DDEVCAPS_PUREDEVICE Then
MsgBox "Device supports the Pure Device Option" x
End If
If Caps.DevCaps And
D3DDEVCAPS_HWTRANSFORMANDLIGHT Then
MsgBox "Device supports hardware transform and lighting" x
End If
If Caps.DevCaps And D3DDEVCAPS_HWRASTERIZATION
Then
MsgBox "Device can use Hardware Rasterization" x
End If
If Caps.Caps2 And D3DCAPS2_CANCALIBRATEGAMMA
Then
MsgBox "Device can Calibrate Gamma" x
End If
If Caps.Caps2 And D3DCAPS2_CANRENDERWINDOWED Then
MsgBox "Device can Render in Windowed Mode" x
End If
If Caps.Caps2 And D3DCAPS2_FULLSCREENGAMMA Then
MsgBox "Device can calibrate gamma in fullscreen mode" x
End If
If Caps.RasterCaps And D3DPRASTERCAPS_FOGRANGE
Then
MsgBox "Device supports range based fog calculations" x
End If
If Caps.RasterCaps And D3DPRASTERCAPS_ANISOTROPY
Then
MsgBox "Device supports Anisotropic Filtering" x
End If
If Caps.RasterCaps And
D3DPRASTERCAPS_ZBUFFERLESSHSR Then
MsgBox "Device does not require a Z-Buffer/Depth Buffer" x
End If
+ نوشته شده در ساعت توسط حسن سامی نسب
|
كاربران با استفاده از نامهي الكترونيكي سخنگو ميتوانند به وسيلهي يك صداي موزون از ورود نامهي جديد خود با خبر شوند.
اگر از ويندوز ٩٨ يا نسخهي جديدتري استفاده ميكنيد، نسخهي سفارش نامهي الكترونيك سخنگو كه توسط Talking E-mail و ٤Developers ( نامه هاي سخنگو) ساخته شده، نرم افزاري است، كه از تكنولوژي پيشرفته TexT To speech، متعلق به مايكرو سافت استفاده ميكند و كاربران مي توانند يك شخصيت كارتوني انيميشن را براي خواندن نامهها و با خبر شدن از ورود نامه هاي جديد و خواندن آنها انتخاب كنند.
به جز يك كارت صوتي به هيچ سخت افزار به خصوص ديگري احتياج نيست و اين نامه الكترونيك سخنگو، از آدرس
http://www.4developers.com/talkmail/index.htm قابل دريافت است.
+ نوشته شده در ساعت توسط حسن سامی نسب
|
موضوع : ساخت يک واسط direct3D
DirectX8 ابزاري براي ساخت تصاوير ثابت و متحرک دو بعدي و سه بعدي مي باشد .
براي کار با DirectX8 ابتدا بايستي آنرا روي سيستم خود نصب کنيد . سپس در محيط vb از منوي project گزينه References را انتخاب کنيد . در فرمي که ظاهر مي شود اطمينان حاصل کنيد که گزينه DirectX8 for VB type library فعال باشد .
براي کار با DirectX8 بايستي از تعريف نمودن شي پايه DirectX8 شروع نمود:
Dim Dx as DirectX8
شي Direct3D8 براي کنترل اشيا سه بعدي بکار مي رود :
Dim D3D as Direct3D8
شي Direct3DDevice8 ، سخت افزار مربوط به رندر تصاوير را مشخص مي کند :
Dim D3DDevice as Direct3DDevice8
حال براي شروع کار با Direct3D ، تابع ( ) initialise را تعريف مي کنيم . اگر اينکار درست انجام شود تابع ، مقدار true را برمي گرداند :
public function initialise () as Boolean
Dim DispMode as D3DISPLAYMODE
شي D3DISPLAYMODE حالت نمايش را مشخص مي نمايد .
Dim D3Dwindow as D3DPRESENT_PARAMETERS
شي فوق مشخص مي کند که viewport شما چگونه باشد .
حال شي اصلي DirectX8 را مي سازيم : Set Dx=New DirectX8
سپس شي اصلي ساخت واسط سه بعدي را مي سازيم :
()set D3D.Dx.Direct3Dcreate
سپس حالت فعلي نمايش را با دستور زير استخراج مي کنيم :
D3D.getadapterdisplaymode D3DADAPTER_DEFAULT,dispmode
حال دو حالت براي کار با DirectX داريم :
1 - windowed mode
2 - fullscrean mode
1 - براي کار با حالت پنجره اي ابتدا اين موضوع را به DirectX اطلاع مي دهيم:
D3Dwindow.windowed=1
سپس نوع referesh تصوير را مشخص مي کنيم:
D3Dwindow.swapeffect=D3DSWAPEFFECT_COPY_VSYNC
سپس بايستي فرمت بافر نگهدارنده تصاوير را مشخص کنيم :
D3Dwindow.backbufferformat=dispmode.format
2 - براي کار با حالت تمام صفحه ، ابتدا نوع refresh را مشخص کرده سپس تعداد بافر هاي تصوير و سرانجام نوع و سايز بافر را مشخص مي نمائيم :
D3Dwindow.swapeffect=D3DSWAPEFFECT_DISCARD
D3Dwindow.backbuffercount=1
D3Dwindow.backbufferformat=dispmode.format
D3Dwindow.backbufferheight=dispmode.height
D3Dwindow.backbufferwidth=dispmode.width
سپس پنجره نمايش مشخص مي گردد :
D3Dwindow.hdevicewindow=frmMain.hwnd
@حال بايستی يک device ساخته شود که يا از طريق سخت افزار و يا نرم افزار تصاوير را رندر نمايد :
Set D3DDevice=D3Dcreatedevice(D3DADAPTER_DEFAULT
,D3DDEVTYPE_HAL,
frmMain.hwnd,D3DCREATE_SOFTWARE_VERTEXPROCESSING,
D3Dwindow)x,
end sub
درصورتي که کارت گرافيک شما امکانات رندر سخت افزاري تصاوير را ندارد از D3DDEVTYPE_REF بجاي D3DDEVTYPE_HAL استفاده کنيد .
حال بايستي روتين render را بنويسيم . البته در اين درس تصويري براي رندر نداريم و تنها چگونگي نوشتن اين روتين را بيان خواهم کرد :
۱ - ابتدا بايستي device مربوط به رندر ، قبل از کشيدن تصوير در آن پاک شود :
D3DDevice.clear 0,byval 0,D3DCLEAR_TARGET,&H0,1#,0
عدد hex اي که در دستور فوق آمده رنگ زمينه صفحه را مشخص مي کند
۲ - سپس بايستي تصاوير مورد نظر را رندر کنيم . اينکار توسط دستورات زير انجام مي شود :
D3DDevice.beginscence
all rendering calls go between these two lines '
D3DDEvice.endscence
3 - در پايان بايستي صفحه را update کنيد :
D3DDevice.present byval 0,byval 0,0,byval 0
+ نوشته شده در ساعت توسط حسن سامی نسب
|
