اموزش ویژوال بیسیک

توجه:مشکل دانلود سورس های زیر برطرف شد اکنون می توانید دانلود کنید.

در این پست دو عدد سورس برنامه قرار می دهم که اگه مایل باشید می توانید
دانلود کنید خوب بریم برای اولین سورس .سورس مدیا پلیر ورژن 0.0000001
می باشد که قبلا اموزش داده بودم ولی تعدادی از دوستان گفته بودند که برنامه
اشکال دارد خوب من هم این سورس را می گذارم تا بدانند که باید چه کار کنند
تصویر این برنامه را میتوانید در زیر ببینیدبرای دانلود  اینجارا کلیک کنید

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

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

 

میتونید برام کدهای یک ماشین حساب ساده با 4 عمل اصلی بعلاوه ی سینوس کسینوس و Tan و Cot و رادیکال بنویسید
ماشین حساب ساده را در اینجا آموزش داده بودم اما این چند عملی را که خواسته بودی به صورت زبر است
برای سینوس کد زیر را وارد می کنی که جواب را برحسب رادیان میدهد
 (Text1.Text = Sin(Text1.Text
 توجه:این کد ها را کپی پست نکنید بلکه انها را بنویسید
اگر سینوس را بر حسب درجه می خواهی (که به نظرم منظورت همین باشد )به جای
کد بالا از کد زیر استفاده کن

 ("Text1.Text = ("pi" * Text1.Text) / Val("180 
 (Text1.Text = Sin(Text1.Text
 به جای piباید عدد پی را که در زیر نوشته ام بنویسی سعی کنید همه را بنویسی
تا جوابها دقیق تر باشند
3.1415926535897932384626433832795
خوب برای کسینوس و بقیه به صورت زیر عمل می کنی
برای کسینوی کد زیر

 ("Text1.Text = ("pi" * Text1.Text) / Val("180 
 (Text1.Text = cos(Text1.Text
 برای tan کد زیر

 ("Text1.Text = ("pi" * Text1.Text) / Val("180 
 (Text1.Text = tan(Text1.Text
 برای cot کد زیر

 ("Text1.Text = ("pi" * Text1.Text) / Val("180 
 (Text1.Text =1/ tan(Text1.Text
برای رادیکال کد زیر
Dim a As Integer
 (a = Text1.Text ^ (1 / 2
Text1.Text = a
 خوب این هم از این امیدوارم که موفق باشید تا پست بعدی فعلا خدا حافظ

 

پاسخ به سوالات دوستان
1.پروژه ای بنویسید که کاربر نام یک کشور را text1 وارد کند وبا کلیک رو command1 پایتخت ان کشور  در text2 نوشته شود.
روش: بعد از این که سه ابزار textbox1 وtextbox2 و command1 را به برنامه اضافه کردید روی command1 دابل کلیک کنید و دستور زیر را در ان تایپ کنید
توجه: کد زیر را کپی پست نکید ان را خودتان کامل بنویسید

 "If Text1.Text = "iran" Then Text2.Text = "tehran
و به همین ترتیب می توانید کد را دو باره بنویسید و به جای ایران کشور دیگری را وارد کنید

2.فرمی تهیه کنید که عکسی از سمت چپ به سمت راست بیایدبه کلیک دکمه ای به اسم Run
یک command1 و یک timer1 و یک Picture1 به فرم اضافه کنید و خاصیت Enabled
مربوط به timer1 را در پنجره properties برابر False قرار دهید و خاصیت Intervalرا نیز برابر یک قرار دهید  حال روی timer1دابل کلیک کنید و کد زیر را وارد کنید

 (Picture1.Left = Val(Picture1.Left) + Val(10 
سپس روی command1 دابل کلیک کنید و فرمان زیر را تایپ کنید
Timer1.Enabled = True
می توانید برنامه را اجرا کنید.
3. برنامه ای بنویسید که پول و نرخ بهره و روز را دریافت کند و سود حاصل را به صورت زیر نمایش دهد.
سود : پول × نرخ بهره × روز
 ابزار های زیر را به برنامه اضافه کنید
text1 برای وارد کردن پول
text2برای وارد کردن نرخ بهره
text3 برای وارد کردن روز
text4 برای نشان دادن سود حاصل  و command1
حال روی command1 دابل کلیک کرده و دستور زبر را تایپ نمایید
Text4.Text = Text1.Text * Text2.Text * Text3.Text
 ادامه سوالات را برای جلسه !

سال نو میلادی را تبریک میگم

 

دوستمون وحید پرسیده:
چطوري ميشه دستورات و کارهايي را که درون يک فرم نوشته ايم بصورت يک فايل اجرائي ذخيره نمائيم
اول باید بگم ببخشید که اینقدر زود(!) جواب سوالت را دادم!

روشی که می خواهم بگم با استفاده از ویژوال بیسیک و c++ می باشد همراه ویژوال بیسک c++ نصب می شود البته ما کد نویسی ها را تمامی در ویژوال مینویسیم و c++ را به عنوان کمک کننده میگیریم
ابتدا باید برنامه را بسازیم که میخواهیم با کلیک روی یک button ان برنامه در مکانی
ذخیره شود به طور مثال برنامه shutdown را که اموزش داده بودم درست کنید
و در جایی save کردید بعد   به طریق زیر عمل کنید
start\programs\microsoft visual basic 6\microsoft visual c++ 6
بعداز این که صفحه باز شد روی کیبرد Ctrl+1 را بزنید در پنجره Script1گزینه
IDD_DIALOG1 را انتخاب و سپس روی کیبرد Delete را فشار دهید حال در پنجره
Script1 کلیک راست کنیدو Import را بزنید پنجره ای باز میشود متن روبه روی
Files of type را برابر All Files  دهید و در انتها برنامه shutdown را که درست کرده بودید انتخاب کنید و Import را بزنیددر پنجره باز شده کلمه shutdown را وارد کنید
(البته این کلمه دلخواه است اما بعدا می فهمید)
سپس file را بزنید و save as را کلیک کنید و به اسم shutdown.res سیو کنید
حتما فرمت ان را Res بگزاریدحال c++ را ببندید
به جایی که برنامه را گذاشتید بروید و shutdown.RES را باز کنید در پنجره script1.res روی + گزینه shutdown کلیک کنید تا زیر مجموعه ها باز شود حال یک عدد می بینید ان را به خاطر بسپارید از این به یعد هر وقت گفتم ID بدانید منظورم
این است حال باز c++ را ببندید و ویژوال بیسیک را اجرا کنید standard EXE
را انتخاب و open را بزنید
حال در سمت راست در پنجره project-project1 در داخل ان کلیک راست کنید و
Add و Add File را بزنید برنامه shutdown.RES  را انتخاب و open را بزنید
سپس یک command Button به فرم یک اضافه کنید و در پنجره کد نویسی مربوط
به ان دستورات زیر را وارد کنید

Open "c:\asd.exe" For Output As #1
  (Print #1, StrConv(LoadResData(ID, "shutdown"), vbUnicode
    Close #1
در کد بالا به جای ID همان شماره را که گفتم به خاطر بسپارید بگذارید
تمام شد برنامه را اجرا کنید می بینید با کلیک بروی Button برنامه shutdown
در درایو c با اسم asd.exe ذخیره میشود
اگر جایی نتوانستی بگو تا کمکت کنم
.....................................................................
در ضمن ویژوال بیسیک 6 را در ابن وبلاگ امورش میدهم دوست عزیزM.A.B و
ویژوال بیسیک دات نت را در وبلاگ زیر به زودی اموزش می دهم
               http:\\amozeshhp3.blogfa.com

بزودی شروع میکنم اما این بار با

 

visual Basic.NET

 

کاری از خودم اینم کد هاش

<div align="left" style="BORDER-RIGHT:#ffffff 1px solid; PADDING-RIGHT:3px; BORDER-TOP:#ffffff 1px solid; PADDING-LEFT:3px; FONT-SIZE:9pt; PADDING-BOTTOM:2px; BORDER-LEFT:#ffffff 1px solid; WIDTH:15%; CURSOR:hand; COLOR:#ffffff; LINE-HEIGHT:100%; PADDING-TOP:2px; BORDER-BOTTOM:#b0d6ff 1px solid; FONT-FAMILY:Tahoma; BACKGROUND-COLOR:#000000" ><SCRIPT language=JavaScript> var NS4 = (document.layers); var IE4 = (document.all); var win = window; var n = 0; function findInPage(str) { var txt, i, found; if (str == "") return false; if (NS4) { if (!win.find(str)) while(win.find(str, false, true)) n++; else n++; if (n == 0) alert("Not found."); } if (IE4) { txt = win.document.body.createTextRange(); for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) { txt.moveStart("character", 1); txt.moveEnd("textedit"); } if (found) { txt.moveStart("character", -1); txt.findText(str); txt.select(); txt.scrollIntoView(); n++; } else { if (n > 0) { n = 0; findInPage(str); } else alert("این کلمه یافت نشد "); } } return false; } </SCRIPT> <FORM name=search onsubmit="return findInPage(this.string.value);"> <P align=center><FONT size=3><INPUT style="BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 1px solid" onchange="n = 0;" size=10 name=string></FONT><BR></br><INPUT style="BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 1px solid; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: #aaaaaa" type=submit value=جستجو در وبلاگ ><center></br><font size=1.4pt;><font family=Times New Roman;><b><A title=www.parvizh.blogfa.com href="http://www.parvizh.blogfa.com">powered by parvizh </A><BR></BR>

سلام
دوست خوبمون M.A.B پرسیدن طور ميشه save اصلاعات جديد كرد و به بقيه برنامه اضافه كرد و همچنين برنامه اون رو به بقيه اضافه كنه .حوب من با یه مثال میگم
توضیح:در این برنامه با کلیک یک command متنی را که در یک textنوشتیم به طور خودکار save شده و در صورت بستن برنامه و اجرای مجدد می بینیم که متن نوشته شده ما هنوز در text قرار دارد (با این کدها  یک فایل txtرا در درایو D قرار می دهیم و با استفاده از ان برنامه save می شود شما می توانید از این روش ساده استفاده کنید )
ویژوال بیسیک را اجرا کنید standard EXE را انتخاب و open را بزنید حال یک کنترل
command button به فرم اضافه کنید حال در منوی project گزینه components...
را بزنید (Ctrl+t)  در پنجره باز شده Microsoft Rich textbox control 6 را تیک و ok
را بزنید هما طور که می بینید کنترل Richtextbox به بقیه کنترل ها اضافه میشود
در پنجره سمت چپ یک کنترل Richtextbox به فرم اضافه کنید
روی کنترل command دابل کلیک کنید و متن زیر را تایپ کنید

Open "D:\vb.txt" For Output As #1
     Print #1, RichTextBox1.Text
Close #1
حال روی فرم دابل کلیک کنید و تایپ کنید
 On Error Resume Next
 RichTextBox1.FileName = "d:\vb.txt"
Command1.Caption = RichTextBox1.Text
خاصیت text مربوط به Richtextbox را در پنجره properties برابر خالی کنید
حال برنامه را در ویندوزتون قرار بدید و اجرا کنید

در ضمن برای اجرای خودکار  برنامه می تونید در قسمت load  فرم بنویسید
بقیه سوالات را هم نمی دونم
.....................................................................
این را هم بابک گفته
در مورد سوال قبلی
 وقتی یه نگاهی به کدها انداختم دیدم اگه بجای Mouse Move از activate استفاده کنیم بهتره.
با این کار برنامه بدون اینکه موس روی فرم بره اجرا میشه .
درسته که زیاد فرق نداره ولی اگه این برنامه را بخواهیم بعنوان ویروس استفاده کنیم باید کمترین وابستگی رو به اراده قربانی داشته باشه و خودکار اجرا بشه در ضمن اگه برنامه هم مخفی باشه کد مورد نظر بدون استفاده میشه
درست میگه
................................................................................
اقای صادق هم گفته:اگر ممکنه اموزش ساخت ویروس های خطر ناک را بدهید
این کار مه نیست کار بابکه ادرس وبلاگش اینه
http://irvirus.blogfa.com
این ادرس هم جدیدا می خواد شروع به کار کنه
http://hakeranehp3.blogfa.com
.............................................
یه وقت این را کلیک نکنید
شکست خورده هم گفته:
http://noroozi.250free.com/font.exe
لطفا درباره این فایل توضیح دهید
با تشکر
جواب : می  شه اول این را روی کامپیوتر خودت امتحان کنی .اگه ترو جان
 باشه چی؟(...خودتی نه ما)
...................................................................

اقا جلال در مورد کدهای جاوا پرسیده بود من با این کدها تا حدودی کار کردم وخوشحال می شم بتونم کمکتان کنم
...........................

اقا بابک از ما خواسته بود برنامه ای بگیم که اگه موس(موشواره)روش رفت دیگه قادر به حرکت نباشه
اموزش برنامه:در این برنامه اگه موس را روی یک کنترل lable1 ببریم موس به گوشه سمت راست بالای صفحه میره و دیگه نمی تونه حرکت کنه
ویژوال بیسیک را اجرا کنید estandard EXE را انتخاب و ok را بزنید حال یک کنترل timerو یک کنترل Label به فرم اضافه کنید حال در قسمت جنرال (قبلا توضیح داده
شده :دابل کلیک روی فرم و رفتن به بالای صفخه)می نویسیم
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
بعد روی timer1 دابل کلیک کرده و در پنجره کد نویسی مربوط به ان تایپ می کنیم
a = 0
b = 0
 (temp = SetCursorPos(a, b
در اینجا می تونید مختصاتی را که موس انجا قرار گیرد را میتوانید تعیین کنید ما در اینجا همان طور که می بینید صفروصفر قرار دادیم حال روی کنترل label1 دابل کلیک کنید و پنجره کد نویسی مر بوط به ان را باز کنید
 بعد  در سمت راست خاصیت click را عوض میکنیم وبه Mouse Move تغییر میدهیم
حال عبارت زیر را تایپ میکنیم
Timer1.Enabled = True
در آخر هم خاصیت Enabled مر بوط به کنترل timer1 را برابر false بگیرید.و خاصیت
Interval را برابر یک قرار دهید.برنامه را در ویندوز قرار دهید.بعد اجراش کنید
...........................................

یکی ازدوستان هم از ما خواسته بود  که برنامه ای اموزش بدم که بتونیم فایل باز کنیم در این قسمت می خواهیم با کلیک بر روی یک command button یک فولدر به
اسم vb در درایو c باز کند
ویژوال بیسیک را اجرا کنید estandard EXE را انتخاب و ok را بزنیداز منوی
project گزینه References  را انتخاب کنید بعد Microsoft Scripting runtime ا پیدا
و ان را تیک بزنید و ok را بزنید .......................................حال روی form1
دابل کلیک کنید و در بالای صفحه در قسمت جنرال عبارت زیر را تایپ کنید
dim a as New FileSystemObject
 بعد یک کنترل commandbutton به فرم اضافه کنید وروی ان دابل کلیک کنید و در پنجره کدنویسی مربوط به ان تایپ کنید
" a.CreateFolder "C:\vb
برنامه را در ویندوز قرار دهید و اجرا کنید اگه مشکلی داشتید بگویید

سوال های بقیه دوستان را بعدا جواب می دهم.

 

دوست عزیز علی رضا وقتی برنامه را اجرا می کنی ایا اخطار زیر می اید

این اخطار برای این است که یک کنترل را نگرفتی یا نام کنترل را در پنجره کد نویسی اشتباه نوشتی

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

 دوست خوبم ع میر شفیعی
برنامه هایی که در ویندوز xp اجرا نمیشه کافیه روی ایکون برنامه کلیک راست کرده و
گزینه properties را بزنید حال در پنجره باز شده در قسمت بالا compatibilityرا انتخاب
کنید گزینه Run this program in compatibility modefor را تیک بزنید حالا میتونید 
ویندوزی را انتخاب کنید مثلا برای شما دوست عزیز windows98 را انتخاب کنید و ok
را بزنید

برنامه ای که قرار بگم با استفاده از یک کلیک به ادرس اینترنتی مورد نطر شما برود
این برنامه برای افرادی مناسب است که برنامه ای ساخته باشند و بخواهند در برنامه
ادرس سایت یا وبلاگ خود را بگذارند .
ویژوال بییک را اجرا کنید Standard EXE را انتخاب و open را بزنید حال در منوی projectدر بالای صفحه گزینه References را بزنید گزینه  microsoft shell contros and automation را پیدا کنید وتیک بزنید و در آخر ok کنید حال روی form1 دابل کلیک کنید ودر قسمت بالای صفحه(general نام دارد) عبارت زیر را تایپ کنید
Dim a As New Shell
حال یک کنترل command button را به form1 اضافه کنید وخاصیت caption ان را برابر go to web کنید و enter را بزنید روی command button دابل کلیک کنید
و در پنجره کدنویسی ان فرمتن زیر را تایپ کنید
  " a.Open "http://parvizh.blogfa.com 
به جای http://parvizh.blogfa.com  هر ادرسی را که دوست دارید بنویسیدحال برنامه را امتحان ودر ویندوز قرار دهید. 

توجه:دوستانی که می خواهند آموزش ساخت ویروس ببینند به وبلاگ دوست خوبم
بابک مراجعه کنند ادرس وبلاگ http://irvirus.blogfa.com