زمان و لحظه تحویل سال عید نوروز ۱۳۹۶

لحظه  دقیق  تحویل سال نو هجری خورشیدی به ساعت رسمی جمهوری اسلامی ایران به شرح زیر می باشد:

لحظه تحویل سال ۹۶ هجری شمسی به ساعت رسمي جمهوري اسلامي ایران : عید نوروز

 

ساعت تحویل سال ۱۳۹۶

سال ۱۳۹۶ سال خروس خواهد بود و در روز دوشنبه سال نو آغاز خواهد شد.

اگر می خواهید بیشتر بدانید : سال ۹۶: طالع بینی سال خروس

ساعت ۱۳ و ۵۸ دقیقه و ۴۰ ثانیه روز دوشنبه ۳۰ اسفند ۱۳۹۵ هجری شمسی, مطابق با ۲۱ جمادی الثانیه ۱۴۳۸ هجری قمری و ۲۰ مارس ۲۰۱۷ میلادی سال ۱۳۹۶ آغاز خواهد شد.

لحظه تحویل  سال ۱۳۹۶ به وقت ساعت جهانی (UTC/GMT) :

۰۹:۴۳:۱۳ بامداد

لحظه تحویل سال ۱۳۹۶ در لس آنجلس :
 Tuesday, March 21, 2017, 02:43:13 am

سال ۹۶ هجری خورشیدی برابر است با سال های :

۱۴۰۹۶ اهورایی

۷۰۳۹ میترایی آریایی

۶۷۶۷/۶۷۶۸ آشوری

۵۷۷۷/۵۷۷۸ عبری

۳۷۵۵ زرتشتی

۲۵۷۶ هخامنشی (شاهنشاهی)

۲۰۱۷/۲۰۱۸ میلادی

۱۴۳۸/۱۴۳۹ هجری قمری

برچسب‌ها: لحظه, تحویل سال, ۱۳۹۶, هجری شمسی

چگونگي جست‌وجوي صحيح در گوگل

چگونگي جست‌وجوي صحيح در گوگل

گوگل براي تمام عباراتي يا كليدواژه‌هايي كه شما مشخص مي‌كنيد، جست‌وجو را انجام خواهد داد (به جز آن‌هايي كه با علامت – آن‌ها را ناديده گرفته‌ايد).

مسلم عزتي -كارشناس مهندسي نرم‌افزار - ، درباره چگونگي جست‌وجوي صحيح در گوگل، اظهار كرد: كلمات معيني وجود دارد كه گوگل آن‌ها را به دليل رواج زياد در جست‌وجو ناديده مي‌گيرد، اين لغات به شرح زير هستند كه لغات توقف ناميده مي‌شوند مانند "I", "a", "the", "of".

وي افزود: شما مي‌توانيد با اضافه كردن كاراكتر + گوگل را وادار كنيد كه كلمات توقف را نيز در نظر بگيرد؛

+the king هم‌چنين كلمات توقفي كه داخل عبارت كوتيشن‌دار نوشته مي‌شوند، ناديده گرفته نمي‌شوند مثل "the move" glam كه نتايجي دقيق‌تر از نتيجه زير دارد: the move glam اما طبعا به خاطر اين كه گوگل كلمه the را در جست‌وجوي اول در نظر گرفته است، اما در دومي آن ‌را ناديده گرفته است.

اين كارشناس، گفت: گاهي اوقات احساس مي‌كنيد كه شما از بعضي نتايج مفيد بي‌بهره مانده‌ايد، زيرا كي‌وردها يا كليدواژه‌اي كه شما انتخاب كرده‌ايد، تنها راه بيان آنچه كه به دنبالش هستيد، نيستند. اپراتور مترادف گوگل كاراكتر ~ است كه زماني كه هر تعداد كي‌ورد در جست‌وجوي شما بيايد از گوگل مي‌خواهد كه تنها معادل‌هاي دقيق را در نظر نگيرد، بلكه آنچه گوگل فكر مي‌كند كه هم‌معني و مترادف كي‌وردها هستند را نيز، در برگيرد. مانند جست‌وجو براي ~ape كه نتايجي را با كلماتي از قبيل ميمون، گوريل، شانپانزه و ... (چه به صورت مفرد و چه به صورت جمع) در بر خواهد داشت كه ميمون يا خويشاوندان متناسب با او را دربردارد چنانكه گويا شما سرچ كرده‌ايد براي: monkey gorilla chimpanzee.

وي افزود: گوگل به صورت الگوريتمي مترادف‌ها را مي‌شناسد، بنابراين شما از يافتن نتايجي از كلماتي نزديك كه حتي گنجينه لغات شما آن‌ها را دربرندارد، شگفت‌زده خواهيد شد. (مترادفات به‌صورت حروف ضخيم كه نزديك كلمه مورد نظر شما در صفحه نتايج است، نشان داده مي‌شوند. بنابراين به راحتي قابل تشخيص‌اند.)

عزتي تصريح كرد: يكي از مشكل‌ترين موارد براي نشان دادن در يك جست‌وجوي اينترنتي، مقادير تاريخ، پول، اندازه، وزن و ارتفاع يا هر جفت ارزش اختياري است. اپراتور مقادير عددي كه... است، نتايجي را كه در مقادير عددي معين شده جست‌وجو مي‌كند. آيا به دنبال يك جفت پمپ پرادا با سايز 5 يا 6 هستيد؟ اين يكي را براي سايز امتحان كنيد: prada pumps size 5..6، شايد شما به دنبال هزينه كردن 800 تا 1000 دلار براي يك دوربين ديجيتال قشنگ اس‌ال‌آر هستيد، سرچ كنيد براي: slr digital camera 3..5 megapixel $800..1000.

وي خاطرنشان كرد: چيزي كه بايد به خاطر داشت اين است كه هميشه يكسري راهنما را به‌عنوان معني مقادير تامين كنيد، مثل سايز يا مگاپيكسل يا كيلوگرم و... شما هم‌چنين مي‌توانيد دستور مقدار عددي را فقط با يك عدد به كار ببريد كه آن ‌را به مينيمم يا ماكزيمم عبارت تبديل مي‌كند.

عزتي درباره جست‌وجوي آسان و جست و جوي با بخت و اقبال در گوگل نيز، گفت: كليد جست‌وجوي با بخت و اقبال، يك ليست نتايج جست‌وجو كه انتخاب مي‌شوند، به شما داده مي‌شود. به عنوان مثال اگر كلمه واشنگتن پست را تايپ كنيد و دكمه جست‌وجو با بخت و اقبال را بزنيد، شما را مستقيم به washingtonpost.com مي‌برد و اگر كلمه پريزيدنت را تايپ كنيد شما را مستقيم به سايت whitehouse.gov مي‌برد.

اين كارشناس در پايان درباره حساسيت به وضعيت در گوگل، اظهار كرد: بعضي موتورهاي جست‌وجو نسبت به وضعيت حروف حساس هستند، اما گوگل حساس به آن نيست و حروف زير همگي براي گوگل يكسانند مانند Three, three, ThrEE, ThrEE

آنچه در مورد BIOS باید بدانید

نرم افزار BIOS دارای وظایف متعددی است...
ادامه مطلب

مادربرد MainBoard

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

تمامی قطعات در درون رایانه بنحوی با مادربرد در ارتباط هستند. که این ارتباط یا بطور مستقیم است و یا توسط کابلهای رابط.

ادامه مطلب

آموزش ویروس نویسی در وی بی 6

آموزش ویروس نویسی در وی بی 6

آموزش ویروس نویسی در وی بی 6

نحوه بدست آوردن عنوان یک پنجره در ویژوال بیسیک

نحوه بدست آوردن عنوان یک پنجره در ویژوال بیسیک | وی بی

Declarations

' 1 TextBox & 1 cmd Button
Dim blnChoose As Boolean

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

'Put this in a module/////////////////////////////////////////////////////////
Type POINTAPI
    x As Long
    y As Long
End Type
//////////////////////////////////////////////////////////////////////////////

Code

Private Sub Command1_Click()
    blnChoose = True
    intRetVal = SetCapture(hwnd)
End Sub

Private Sub Form_Load()
   
    blnChoose = False
   
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim window As Long
    Dim buffer As String * 1024
    Dim ptPoint As POINTAPI
  
    If blnChoose Then
   
        ptPoint.x = x
        ptPoint.y = y
        retval = ClientToScreen(hwnd, ptPoint)

        window = WindowFromPoint(ptPoint.x, ptPoint.y)
        lngRetVal = GetWindowText(window, buffer, 1024)
        Text1.Text = buffer
    End If
End Sub

منبع:www.cesblog.ir

مخفی کردن مکانمای موس در ویژوال بیسیک

مخفی کردن مکانمای  mouse در ویژوال بیسیک | وی بی | hiding the mouse cursor

Declarations

Public Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long

Code

'this code you can put in cammandbutton,timer,on form load...
ShowCursor False

منبع:www.cesblog.ir

آموزش کنترل DropDownExtender

آموزش ajax  :

آموزش کنترل Drop Down Extender

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

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

در کد بالا ما علاوه بر ScriptManager یک UpdatePanel هم داریم که ContentTemplate آن شامل کنترل های زیر است.

1- DropDownExtender که DropDownControlID=Panel1 و  TargetControlID="Image1" تنظیم شده است.

DropDownExtender ,

Image- 2

Panel -3

داخل Panel  ما سه تا LinkButton داریم.

خوب حالا کد زیر زو هم به فایل تون اضافه کنید.

خوب حالاپروژه رو اجرا کنید و نتیجه کار رو ببینید.

حجم فایل:15 کیلوبایت

دانلود سورس

رمز فایل :www.cesblog.ir

منبع:www.cesblog.ir

توجه:جهت کاهش حجم فایل سورس از الحاق پوشه BIN که شامل dll های اساسی ajax می باشد خودداری نموده ایم.لطفا AjaxControlToolkit.dll را به سورس ما اضافه نمایید.در غیر این صورت این سورس قابل اجرا نیست.اگر بلد نیستید   بخش سوم : برای شروع کار با کنترل های ajax رو مطالعه کنید

برنامه بانک

برنامه بانک در وی بی دات نت  | پروژه بانک در VB.net

حجم فایل: 500کیلوبایت

دانلود

رمز فایل :www.cesblog.ir

منبع:www.cesblog.ir

سورس برنامه چت

سورس برنامه چت  | chat source | ویژوال بیسیک

حجم فایل: 5کیلوبایت

دانلود

رمز فایل :www.cesblog.ir

منبع:www.cesblog.ir

نحوه گزارش گیری در ویژوال بیسیک

نحوه گزارش گیری  در ویژوال بیسیک | data report |Data Environment

در این آموزش قصد دارم نحوه گزارش گیری در ویژوال بیسیک رو برای شما توضیح دهم.

لطفا مراحل رو گام به گام انجام بدین.

1 - اضافه کردن Data Report به پروژه

2 - تنظیم data source  و  data member  در  data report

3- اضافه کردن یک  TextBox در بخش detail section  از Data Report

4- تنظیم DataMember و DataField برای textbox  ی که در بخش قبل اضافه کردین.

5- اضافه کردن textbox های دیگر مطابق با نیازتان و تنظیم بر اساس مراحل بالا

6- اضافه کردن یک دکمه با نان Cmdprint به فرم اصلی و  و اضافه کردن کد زیر به آن

Private Sub CmdPrint_Click()
    drCustomers.Show
End Sub

موفق باشید

حجم فایل:47کیلوبایت

دانلود

رمز فایل :www.cesblog.ir

منبع:www.cesblog.ir

ذخیره موقعیت فرم در رجیستری

کار با رجیستربی | ذخیره موقعیت فرم در رجیستری

Declarations

Dim c As New cRegistry

Code

With c
        .ClassKey = HKEY_CURRENT_USER
        ' You don't need to check if this key already exists
        ' - the class will create it for you
        .SectionKey = "Software\" & App.ExeName & "\" & frmThis.Name
        .ValueKey = "Maximized"
        .ValueType = REG_DWORD
        .Value = (frmThis.WindowState = vbMaximized)
        If (frmThis.WindowState <> vbMaximized)
            .ValueKey = "Left"
            .Value = frmThis.Left
            .ValueKey = "Top"
            .Value = frmThis.Top
            .ValueKey = "Width"
            .Value = frmThis.Width
            .ValueKey = "Height"
            .Value = frmThis.Height
        End If
    End With

منبع:www.cesblog.ir

خواندن مقادیر رشته ای از رجیستری

کار با رجیستری | خواندن مقادیر رشته ای از رجیستری 

Declarations

Code

  Dim c As New cRegistry
    With c
        .ClassKey = HKEY_LOCAL_MACHINE
        .SectionKey = "Software\MyApp\Tips"
        .ValueKey = "Tip1"
        .ValueType = REG_SZ
        sTip = .Value
    End With 

منبع:www.cesblog.ir

خواندن مقادیر عددی از رجیستری

کار با رجیستری | خواندن مقادیر عددی از رجیستری 

Declarations

 Dim c As New cRegistry

Code

  With c
        .ClassKey = HKEY_LOCAL_MACHINE
        .SectionKey = "Software\MyApp\Tips"
        .ValueKey = "TipCount"
        .ValueType = REG_DWORD
        lTipCount = .Value
    End With

منبع:www.cesblog.ir

خواندن مقادیر باینری از رجیستری

کار با رجیستری | خواندن مقادیر باینری از رجیستری 

Declarations

Dim cR As New cRegistry
Dim iByte As Long
Dim vR as Variant

Code

 With cR
        .ClassKey = HKEY_CURRENT_USER
        .SectionKey = "Control Panel\Appearance"
        .ValueKey = "CustomColors"
        vR = .Value

        If .ValueType = REG_BINARY Then
        ' Read through the byte array and output it as a series of hex values:
        For iByte = LBound(vR) To UBound(vR)
            sOut = sOut & "&H"
            If (iByte<&H10) Then
                sOut = sOut & "0"
            End If
            sOut = sOut & Hex$(vR(iByte)) & " "
            Next iByte
        Else
            sOut = vR
        End If

        Debug.Print sOut
    End With

منبع:www.cesblog.ir