برنامه نویسی

مهر- مجله "فوربس" داستان شگفت انگیزی از تلاش بی ثمر "استیو جابز" برای خرید شرکتی که یک جوان ایرانی بنیانگذار آن است منتشر کرد. شرکتی که امروز یکی از مهمترین رقبای سرویس 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 سال وارد کرد.

سلام

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

موفق باشید

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

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 این پروژه برای خیلیا خیلی میتونه مفید باشه :)

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