(¯´•۞۩windyboy۩۞•`¯)

که براتون بذارم

شيشه ي دل را شکستن احتياجش سنگ نيست اين دل با نگاهي سرد پرپر مي شود

آنجا ، بر فراز قلهء کوه دو پایم خسته از رنج دویدن بخود گفتم : که در این اوج دیگر صدایم را خدا خواهد شنیدن؟ به سوی ابرهای تیره پَر زد نگاه روشن امیدوارم ز دل فریاد کردم : کای خداوند من او را دوست دارم دوست دارم .......

اشتقاق وقتی جهان از ریشۀ جهنم و آدم از عدم وسعی از ریشه های یأس می آید وقتی یک تفاوت ساده در حرف کفتار را به کفتر تبدیل می کند باید به بی تفاوتی واژه ها و واژه های بی طرفی مثل نان دل بست نان را از هر طرف که بخوانی نان است! « قیصر امین پور»

گر بميرد پسري از قبر او رويد گلي گر بميرند پسران دنيا گلستان مي شود گر بميرد دختري يک بي وفا کم ميشود گر بميرند دختران دنيا وفادار مي شود

درباران گوش كن تو تنها مونس من دراين شبهاى بهارى رعد تو فرياد من درين لحظه هايى بلند تر شو تا دلم آرام گيرد پاييز كجاست؟! تا همه رنگ مرا ببينند: زرد و غمناك ابرها هيچگاه نرويد با باد شما چشمهاى منيد بهار است من گلى پژمرده در آنم بيا تا رنگم سبز و بهارى شود تو تنها تولدى براى زمين من

سلام خدا . خدا امشب می خوام فقط با خودت درد دل کنم . از دست بندت سیر شدم . خدا جون بندتو دوست دارم ولی ... ولی ازییتم میکنه هر چقدر بهش نزدیک میشم اون از من دور میشه من یه قدم نزدیک میشم اون ده قدم دور میشه . آخه خدا این رسمش نیست من که نتونستم به بندت رسم وفاداری یاد بدم خدایا خواهش می کنم تو یادش بده بهش بگو دوسش دارم بهش بگو وفا کنه بهش بگو عاشق بشه او نم عاشق من نه رغیب من . خدایا ایندفعه به تو رو انداختم کمکم کن نظار اینجا بمون تا بپوسم

هرگز به كسي كه دوست داريد مواد ندهيد به او مربا يا نان بدهيد و به او آرزو و آسمان بدهيد اما هرگز به كسي كه دوست داريد مواد ندهيد چون هر چه كه به او بدهيد روزي به شما باز خواهد گرداند .....

با تو همه رنگ هاي اين سرزمين را اشنا مي بينم با تو من در عطر ياس ها پخش مي شوم با تو من در هر شكوفه مي شكفم با تو من در طلوع لبخند مي زنم با تو من در روح طبيعت پنهانم با تو من بودن را زندگي را شوق را عشق را زيبايي را دوست داشتن را مهرباني پاك خداوندي را مي نوشم.(دكتر شريعتي)

شب مهتاب و ابر پاره پاره به دور از چشم تبدار ستاره گل یاسم مکن نامهربانی بگو از درد و غم هایت دو باره

فرق تو يا عزاييل مي دوني چيه؟ عزراييل رو يه روز ببينم مي ميرم تو رو يه روز نبينم مي ميرم

ما دو دريچه روبروي هم اگاه ز هر بگو مگوي هم هر روز سلام و پرسش و خنده هر روز قرار روز اينده اكنون دل من شكسته و خسته است زيرا يكي از دريچه ها بسته است نه مهر فسون نه ماه جادوگر نفرين به سفر كه هر چه كرد او كرد ............

-

دختره از پسره پرسید من خوشگلم ؟ گفت نه گفت دوستم داری ؟ گفت نوچ ؟ گفت اگه بمیرم برام گریه میکنی ؟ گفت اصلا دختره چشماش پر از اشک شد .

هیچی نگفت : پسره بغلش کرد گفت : تو خوشگل نیستی زیبا ترین هستی . تورودوست ندارم چون عاشقتم اگه تو بمیری برات گریه نمیکنم چون من هم میمیرم

-

مهربان من باز دوباره دست نیازم را به سویت دراز می کنم باز هم به امید مددت ،بر حلقه استجابتت می کوبم. نیک می دانم که می دانی تا نیازم نباشد ، نمی توانم چنین بر درت زار زنم ، سوگند به عظمتت که خود نیز دوست دارم ای تنها امید من ! در این ماه که عطر پاک بخشایشت فضای دلم را روشن کرده است ، از جاذبه های دلفریب دنیا رهایم کن و تا بی نهایت قرب خود ، به خود بخوان ای همه خوبی ! چشم اجابتم به راه مدار <<ملتمس دعای شما هستم در این شب و...

گفتم دوستت دارم اخم كرد، گفتم عاشقت هستم خودش را گرفت، گفتم همه ي زندگي من هستي ناز كرد و رفت داشت ميرفت كه درآخر گفتم از تو بيزارم، برگشت مهربان نگاهم كرد و عاشقم شد

تو گلی مثل گلای قشنگه قالی . تو به ظرافت تار و پود فرشای زیبای ایرانی ……اصلا تو خود فرش پاتریسی ………همون که یه تختش کمه!!!

هميشه براي کسي بخند که ميدوني به خاطر تو شاد ميشه… واسه کسي گريه کن که ميدوني وقتي غصه داري و اشک ميريزي برات اشک ميريزه… براي کسي غمگين باش که در غمت شريکه… عاشقه کسي باش که دوستت داشته باش

پروردگارا به من آرامش ده تا بپذيرم آنچه را که نمي توانم تغيير دهم دليري ده تا تغيير دهم آنچه را مي توانم تغيير دهم بينش ده تا تفاوت اين دو را بدانم مرا فهم ده تا متوقع نباشم دنيا و مردم آن مطابق ميل من رفتار کنند . « جبران خليل جبران »

روزي دروغ به حقيقت گفت : مــــيل داري با هم به دريـــا برويم و شنـــا کنيم ، حقيقــت ساده لــوح پذيرفت و گول خورد . آن دو با هم به کنار ساحل رفتند ، وقتي به ساحل رسيدند حقيقت لباسهايش را در آورد . دروغ حيلــــه گـــر لباسهاي او را پوشيد و رفت . از آن روز هميشه حقيقت عــــريان و زشت است ، اما دروغ در لبــــــاس حقيقت با ظاهري آراسته نمايان مي شود

روی دفتر هایم روی میز تحریرم,روی درختان روی ماسه,روی برف روی همه صفحه های خوانده شده روی صفحه های سفید نام تو را می نویسم روی مرداب,این آفتاب پوسیده روی رودخانه,این ماه زنده نام تورا می نویسم و به نیروی یک واژه, زندگی را از سر می گیرم من برای شناختن و نامیدن تو پا به جهان گذاشتم ای آزادی

تو قلب منو کشتي و رفتي اما ميدونم که حتما يه روز بر ميگردي ، چون هميشه قاتل به محل جنايت بر ميگرده

تابع Cos کسینوس:
خروجی این تابع عددی از نوع double است که برابر کسینوس زاویه ورودی است.

تابع Exp توان نمانی:
خروجی این تابع عددی از نوع double است که برابر e به توان ورودی تابع است.

تابع Int تابع کف یا تابع جزء صحیح:
نزدیکترین عدد صحیح مساوی یا کوچکتر نسبت به عدد ورودی را برمی‌گرداند.

تابع Log لگاریتم:
خروجی این تابع عددی از نوع double است که برابر لگاریم طبیعی عدد ورودی است لگاریتم بر مبنای عدد e یا همان Ln .

تابع Round گرد کردن :
خروجی این تابع عددی از نوع double است که برابر نزدیکترین عدد صحیح به مقدار عدد ورودی است.

تابع Sgn علامت :
خروجی این تابع عددی از نوع صحیح است که نشان دهنده علامت عدد ورودی است.

تابع Sin سینوس :
خروجی این تابع عددی از نوع double است که برابر سینوس زاویه ورودی است.

تابع Sqr جذر :
خروجی این تابع عددی از نوع double است که برابر ریشه دوم یا جذر عدد ورودی است.

تابع Tan تانژانت :
خروجی این تابع عددی از نوع double است که برابر با تانژانت زاویه ورودی برحسب رادیان می‌باشد.

اول یه ماژول به پروژه اضافه کنید و این کد رو توش بنویسید
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
حالا یه دکمه به فرم اضافه کنید چون می خایم با زدن این دکمه نشانگر موس مثلا
به ستون 30 و سطر 40 بره
Private Sub Command1_Click()
SetCursorPos 30, 40
End Sub
تموم شد حالا وقتی کاربر این کلید رو بزنه اشاره گر موس به طور خودکار به جایی که ما گفتیم میره
حالا میتونین یه تایمر رو فرم بزارین و با یه کمی کد نویسی حال اون کاربر بیچاره رو بگیرین!!!!!

اول یه ماژول به پروژه اضافه کنید و این کد رو توش بنویسید
Declare Function GetCursorPos& Lib "user32" (lpPoint As PointAPI)
Type PointAPI
x As Long
y As Long
End Type
حالا یه تایمر رو فرم بزارین و خاصیت interval اون رو 10 قرار بدین
دوتا لیبل هم به نام های lblXpos و lblYpos رو فرم بزارین

این کد مربوط به تایمرتونه
Private Sub Timer1_Timer()
Dim dl&
Dim pt As PointAPI

dl& = GetCursorPos(pt)

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

براي قرار دادن آيکون برنامه در system tray اول يک ماژول تعريف کنین و کد های زير رو توش بنویسید
اول ثابتهایی رو که لازم داریم می نویسیم
Public Const WM_RBUTTONUP = &H205
Global Const WM_MOUSEMOVE = &H200
Global Const NIM_ADD = 0
Global Const NIM_DELETE = 2
Global Const NIM_MODIFY = 1
Global Const NIF_ICON = 2
Global Const NIF_MESSAGE = 1
Global Const ABM_GETTASKBARPOS = &H5

بعد تعريف يه type با نام RECT براي نشون دادن يه مستطيل :
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
بعد یه type با نام NOTIFYICONDATA براي توصيف آيکون مینویسیم :
Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
حالا تعريف يه type با نام APPBARDATA براي توصيف اطلاعات application bar :
Type APPBARDATA
cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc As RECT
lParam As Long
End Type

دو تا متغير رو بصورت زير تعريف مي کنيم :

Global Notify As NOTIFYICONDATA
Global BarData As APPBARDATA

حالا نياز به declare کردن توابع Shell_NotifyIcon و SHAppBarMessage از کتابخانه shell32 داريم :

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long

روتين قراردادن آيکون بصورت زيره :

Sub AddIcon(Form1 As Form, IconID As Long, Icon As Object, ToolTip As String)
Dim Result As Long
BarData.cbSize = 36&
Result = SHAppBarMessage(ABM_GETTASKBARPOS, BarData)
Notify.cbSize = 88&
Notify.hwnd = Form1.hwnd
Notify.uID = IconID
Notify.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
Notify.uCallbackMessage = WM_MOUSEMOVE
Notify.hIcon = Icon
Notify.szTip = ToolTip & Chr$(0)
Result = Shell_NotifyIcon(NIM_ADD, Notify)
End Sub

روتين حذف آيکون بصورا زيره :
Sub delIcon(IconID As Long)
Dim Result As Long
Notify.uID = IconID
Result = Shell_NotifyIcon(NIM_DELETE, Notify)
End Sub

در فرم مورد نظرتون ابتدا يه متغير از نوع object تعريف کنيد :

در Form load عبارات زير رو بنويسيد :

در Form unload عبارات زير رو بنويسيد :
delIcon IconObject.Handle
delIcon Form1.Icon.Handle

فرض کنين يه منو با نام popmenu در فرم دارين و مي خواین با کليک راست روي آيکون برنامه در system tray ، اون منو باز بشه . اول visible اين منو رو false کنيد بعد متد زير رو براي mousemove بنويسيد :

اول یه ماژول به پروژه اضافه کنید و این کد رو توش بنویسید

Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
بعد هم این تابع رو توش بنویسید
Sub FormOnTop(frm As Form, condition As Boolean)
Dim SetOnTop As Long
Select Case condition
Case True:
SetOnTop = SetWindowPos(frm.hWnd, -1, 0, 0, 0, 0, 3)
Case False:
SetOnTop = SetWindowPos(frm.hWnd, -2, 0, 0, 0, 0, 3)
End Select

End Sub
حالا با یه دکمه فرم رو در وضعیت ontop قرار میدیم

Private Sub Command1_Click()
FormOnTop Form1, True
End Sub
با این دکمه هم اونو از این وضعیت خارج می کنیم
Private Sub Command2_Click()
FormOnTop Form1, False
End Sub

اینا رو تو یه ماژول بنویسید
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
این تابع برای مخفی کردن دسکتاپ به کار میره
Sub HideDeskTopIcons(ByVal Hide As Boolean)
c = FindWindow("Progman", vbNullString)
a = FindWindowEx(c, 0, "SHELLDLL_DefView", vbNullString)
b = FindWindowEx(a, 0, "SysListView32", vbNullString)
If Hide = True Then ShowWindow c, 0 Else ShowWindow c, 1
End Sub

برای مخفی کردن :
Private Sub Command1_Click()
HideDeskTopIcons True
End Sub
برای برگردوندن به حالت قبل :
Private Sub Command2_Click()
HideDeskTopIcons False
End Sub

این یکی هم برای مخفی کردن task bar به کار می ره داخل ماژول بنویسین :
Sub ShowTaskbar(ByVal Hide As Boolean)
a = FindWindow("Shell_TrayWnd", vbNullString)
If Hide = True Then ShowWindow a, 0 Else ShowWindow a, 1
End Sub
برای مخفی کردن
Private Sub Command1_Click()
ShowTaskbar True
End Sub
برای برگردوندن به حالت قبل
Private Sub Command2_Click()
ShowTaskbar False
End Sub

اول اینا رو بنویس

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

و سپس با اضافه يک تايمر و مدت زمان 1 اين کدهاي زير را وارد کنيد.
Private Sub Timer1_Timer()

هر پایگاه داده از تعدادی جدول تشکیل شده که هر جدول از تعدادی فیلد تشکیل شده و هر فیلد هم از تعدادی رکورد فیلد : فیلد کوچکترین عنصر داده ای است که می توان در پایگاه داده ذخیره کرد هر فیلد فقط میتواند یک عنصر داده ای را در خود جای دهد . در روی جدول داده ; فیلد به هر ستون از جدول اطلاق میشود و اصطلاحا به آن ستون داده گویند رکورد : هر رکورد داده شامل چند فیلد مرتبط به هم می باشد و در حقیقت یک رکورد سطری از جدول دادها می باشد

هر پایگاه داده از تعدادی جدول تشکیل شده که هر جدول از تعدادی فیلد تشکیل شده و هر فیلد هم از تعدادی رکورد فیلد : فیلد کوچکترین عنصر داده ای است که می توان در پایگاه داده ذخیره کرد هر فیلد فقط میتواند یک عنصر داده ای را در خود جای دهد . در روی جدول داده ; فیلد به هر ستون از جدول اطلاق میشود و اصطلاحا به آن ستون داده گویند رکورد : هر رکورد داده شامل چند فیلد مرتبط به هم می باشد و در حقیقت یک رکورد سطری از جدول دادها می باشد

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

متشکرم