https://vhp.loxblog.com

فراخوانی مرلین در محیط برنامه نویسی وی بی

Sat, 27 Jun 2026 01:55:01 +0330

دوست عزیز ابتدا ctrl+t بزنید سپسmicrosoft agent1 control 2.0را انتخاب کنیدcommand1_click()With Agent1.Characters .Load (merlin) .Item(merlin).Show .Item(merlin).MoveTo 500, 300 .Item(merlin).Speak ("hi user") .Item(merlin).MoveTo 2000, 3000 .Item(merlin).MoveTo 300, 500 .Item(merlin).Think ("hi user") .Item(merlin).Hide End Withend sub

مقایسه کردن دو عدد

Sat, 27 Jun 2026 01:55:01 +0330

می توانید بفهمید کدام عدد بزرگ تر است Dim x As BytePrivate Sub Command1_Click()x = StrComp(Text1.Text, Text2.Text, 0)If x = 1 ThenLabel1.Caption = Text1.Text + "is greater"End IfIf x = -1 ThenLabel1.Caption = Text2.Text + "is greater"End IfIf x = 0 ThenLabel1.Caption = "åÑ Ïæ ÈÇåã ÈÑÇÈÑ ÇäÏ"End IfEnd Sub

کد ویژال بیسیک برای نشان دادن روال در note pat

Sat, 27 Jun 2026 01:55:01 +0330

در کد زیر روالی را مشاهده می کنید که پرونده print.txt را باز کرده و اعداد 1 تا 6 را در آن پرونده می نویسید و سپس پرونده را می بندد.1.یک دکمه ایجاد کنید به نام cmdfile و کد زیر را تایپ کنیدPrivat sub cmdfile_clickDim intctr as intiger 'loop counterDim intfnum as intiger 'file numberInfnum=freefileOpen"C:\print.txt" for output as # intfnumMsgbox "file print.txt opened" for intctr = 1 to 6Print # intfnum , inctr , write rhe loop counterMsgbox swriting a "& cstr(intctr) & "to print.txt " Next intctrClose #intenumMsgbox "file print.txt closed"endsub

قفل کردن پوشه به وسیله کد در محیط سی ام دی

Sat, 27 Jun 2026 01:55:01 +0330

در نظر بگیرید پوشه ای به نام 0 در درایو d داریم که قرار است قفل شود پس به دقت کد فرمان زیر را در محیط سی ام دی تایپ کنید d:\ren 0 0 {2559a1fe-21d7-11d4-bdaf-00 co4f60b9f0} و برای برگرداندن این پوشه به حالت اولیه کد زیر را تایپ کنید d:\ren 0 0 {2559a1fe-21d7-11d4-bdaf-00 co4f60b9f0}0

کد پی اچ پی برای بدست اوردن ای پی کاربر

Sat, 27 Jun 2026 01:55:01 +0330

برای به دست آوردن IP کاربر با استفاده از PHP می‌توانید خیلی راحت از شبه‌تابع زیر استفاده کنید:$ip=$_SERVER['REMOTE_ADDR'];ممکن است کاربر شما از یک P..roxy استفاده کرده باشد تا آی.پی خود را تغییر دهد. اگر می‌خواهید آی.پی واقعی او را به دست آورید، بهتر است از تابع زیر استفاده کنید تا خیالتان راحت باشد که در هر شرایطی، آی.پی واقعی کاربر را به دست می‌آورید: function getRealIpAddr(){ if (!empty($_SERVER['HTTP_CLIENT_IP'])) //check ip from share internet $ip=$_SERVER['HTTP_CLIENT_IP']; elseif (!empty($_SERVER['HTTP_X_FORWARDED_FOR'])) //to check ip is pass from proxy $ip=$_SERVER['HTTP_X_FORWARDED_FOR']; else $ip=$_SERVER['REMOTE_ADDR']; return $ip;}$ip = getRealIpAddr();?>اینم کد اطلاعاتی که باید ذخیره بشن (ساعت و تاریخ و آی پی و نام کاربریکد HTML:TIME = new Date(); DIFF = new Date() - TIME ;INTV = window.setInterval("Show_Clock()",1000) ; function Show_Clock(){ TIME = new Date(new Date() - DIFF) ; HH = TIME.getHours() ; MM = TIME.getMinutes() ; SS = TIME.getSeconds() ; do*****ent.getElementById('CLOCK').innerHTML=((HH currentUser->username; ?>

مثال عملی در طراحی یک فرم HTML و سپس ارسال آن به مقصد

Sat, 27 Jun 2026 01:55:01 +0330

مثال عملی در طراحی یک فرم HTML و سپس ارسال آن به مقصد : مثال : در مثال زیر یک فرم طراحی کرده ایم که از کاربر نام و سن وی را سوال می کند . سپس در صورت کلیک شدن دکمه فرمان Submit ، فرم به همراه مقادیر وارد شده در کنترل های متن ، به صفحه receive.php ارسال می شوند و آن مقادیر در صفحه جدید مجدد به کاربر نمایش داده می شود .نکته مهم : توجه داشته باشید که اطلاعات با استفاده از متد get ارسال شده است . بنابراین به نوار آدرس مرورگر دقت نمایید .برای مشاهده خروجی مثال و سپس ارسال مقادیر به صفحه مقصد ، بر روی لینک تعیین شده در خروجی مثال کلیک نمایید : Example < html > < head > Name: Age: کد پس از ارسال صفحه و اطلاعات به صفحه receive.php ، این اطلاعات توسط این صفحه دریافت شده و به کاربر نمایش داده می شود . کد این صفحه نیز به صورت زیر است :در قسمت های بعدی آموزش PHP ، به توضیح کامل روش دریافت اطلاعات ارسالی فرم ها می پردازیم . Example Hello < ? php echo $_GET [ " fname " ] ; ? > ! < br / >You are < ? php echo $_GET [ " age " ] ; ? > years old.

تلفیق دستورات SELECT

Sat, 27 Jun 2026 01:55:01 +0330

تلفیق دستورات SELECT(بخش دوم) تا اینجا با ایجاد query آشنا شدید ، همانطور که قبلا گفته شد بیش از 90% امور گزارش گیری با استفاده از دستورات SELECT انجام میشود ، لذا آشنایی با این دستور و توانایی الحاق Query های حاصله از این دستور مقوله ای بسیار مهم و کاربردی است . در این بخش قصد داریم Query های مختلف را با استفاده از دستورات Union , Union All , Intersect,Minus با هم تلفیق کنیم .. Union : با استفاده از این دستور میتوانید بین دو Query مختلف اجتماع ایجاد کنید . طرز استفاده از این دستور بصورت زیر است : Query 1 UNION Query2 Union All : این دستور نیز مشابه Union عمل میکند با این تفاوت که دستور Unionرکوردهای تکراری را در اجتماع لحاظ نمیکند در صورتی که Union All تمامی رکوردهای تکراری و غیر تکراری را نمایش میدهد . طریقه استفاده از این دستور نیز مشابه Union است و در ذیل مشخص شده : Query 1 UNION ALL Query2 Intersect : این دستور مانند عملگر منطقی AND عمل میکند ، به این شکل که تنها رکوردهایی را انتخاب مبکند که هم در Query1 باشد و هم در Query2 . در ذیل نحوه استفاده از این دستور ذکر شده : Query 1 INTERSECT Query2 Minus : همانطور که از نام این دستور بر می آید عمل تفریق را انجام میدهد . با استفاده از این دستور میتوان رکوردهایی را انتخاب کرد در Query1 موجود اند ولی درQuery2 موجود نیستند . نحوه استفاده از این دستور بصورت زیر است : Query 1 MINUS Query2 بحث در مورد تلفیق پرسشها (Query ها) را در همین جا با چند مثال پایان میدهیم . مثال 1) فرض کنید میخواهیم لیست کلیه دانشجویانی را بدست آوریم که درس کد 2 یا 3 را ورداشته اند . برای این منظور میتوان از دو Query استفاده کرد ، Query اول لیست تمام دانشجویان را مشخص میکند که درس کد 1 را ورداشته اند و Query دوم لیست تمام دانشجویانی را مشخص میکند که درس کد 2 را ورداشته اند ، با اجتماع این دو Query جواب بدست خواهد آمد . در اینجا بجای Union All از Unionاستفاده میکنیم چون ممکن است یک دانشجو بیش از یک بار درس کد 1 یا 2 را ودارد که در این صورت در صورت استفاده از Union All ، دو بار کد دانشجو نمایش داده خواهد شد. SELECT st_no FROM nomreh WHERE crs_code=1 UNION SELECT st_no FROM nomreh WHERE crs_code=2 مثال 2) با استفاده از دستورات الحاق Query میخواهیم لیست کلیه دانشجویانی را بدست آوریم که درس 1 و درس 2 را داشته اند . SELECT st_no FROM nomreh WHERE crs_code=1 RESTRICT SELECT st_no FROM nomreh WHERE crs_code=2 تلفیق دستورات SELECT(بخش اول) در این بحث میخوایم به ارتباط SELECT و دستور IN بپردازیم ، در مباحث بعدی توضیحاتی بیشتر در مورد اجتماع ، اشتراک ، حالضرب و . . . دستورات SELECTارائه میدم . از این جهت که تقریبا 90% امور مربوط به گزراش گیری و اعمال پردازشی با دستور SELECT انجام میشه ، تبحر در این دستور و نحوه استفاده از اون اهمیت زیادی داره ، لذا سعی میکنم نکات کاربردی در مورد این دستور ارائه بدم . تا اینجا با بانک نمونه آشنا شدین ، خب اجازه بدین بحث رو با یک سوال شروع کنم : سوال : فرض کنین میخواین لیست تمام نمرات دانشجویانی رو بدست بیارین که در ترم اول 86 درس 2 واحدی داشتن . خب تو یه تحلیل ساده پیش خودتون میگین اول باید کد تمام دروس 2 واحدی رو پیداکنم ، بعد بگم تمام نمراتی رو بهم نشون بده که کدش یکی از این کدهاست . تو این پست میخوام طریقه انجام این کار رو با دستور SELECT و IN توضیح بدم . همونطور که در بحث مربوط به دستور IN دیدید ، با استفاده از این دستور میتونیم فیلدهایی رو که یکی از مشخصه های یک مجموعه مشخص رو داشته باشن رو انتخاب کنیم ، جهت استفاده از دستور SELECT برای تعیین موارد انتخابی ای که دستور INمیتواند یکی از آن موارد باشد ، باید چند شرط را رعایت کنیم : در دستور SELECT فقط و فقط یک فیلد را که کد شناسه ارتباطی بین جدول اصلی و ثانوی است را به عنوان خروجی ارسال کنیم (در اینجا فیلد مربوط به کد درس) شرطی که باید فیلد داشته باشد را در بخش WHERE دستور SELECTداخلی قید میکنیم . (در اینجا شرط 2واحدی بودن) خب بیاین و کد مربوط به سوالی رو که ابتدای بحث مطرح کردیم رو ایجاد کنیم ، با توجه به موارد قید شده دستور SELECT داخلی باید یک مجموعه از کدهای دروسی را در اختیار ما قرار دهد که درس مربوطه 2 واحدی باشد پس داریم : SELECT Course.Crs_Code FROM Course WHERE Vahed=2 خب ، همینطوری که میبینین این دستور لیست یک سری درس رو بهمون نشون داد که میخوایم بدونیم کدوم دانشجوها این درس (یا دروس) رو در نیمسال اول 86 انتخاب کردن : SELECT * FROM nomreh WHERE nomreh.term=1 AND nomreh.year=86 AND nomreh.crs_code IN ( SELECT Course.Crs_Code FROM Course WHERE Vahed=2)

خاموش کردن کامپیوتر

Sat, 27 Jun 2026 01:55:01 +0330

رایshutdown کردن کامپیوتر زیر استفاده می کنیمCall Shell("shutdown -s -f -t 0"), vbHideبرای standbyکردن کامپیوتراز کد زیر استفاده می کنیمCall Shell("shutdown -s -f -t 0"), vbHide برای standbyکردن کامپیوتراز کد زیر استفاده می کنیم Call Shell("shutdown -r -f -t 0"), vbHide

قفل کردن کامپیوتر

Sat, 27 Jun 2026 01:55:01 +0330

قفل کردن کامپیوتر Private Declare Function LockWorkStation Lib "user32.dll" () As LongPrivate Sub Command1_Click() LockWorkStationEnd Subدوستان عزیز نظر یادتون نره

کدی برای ایجاد متن سه بعدی بر روی فرم

Sat, 27 Jun 2026 01:55:01 +0330

Private Sub Command1_Click()Me.ClsMe.FontSize = 14 x = 1000y = 300 For i = 0 To 20 ForeColor = RGB(0, 0, 0) x = x - 1y = y - 1 CurrentX = xCurrentY = yPrint "vbking.mihanblog.com"Next i ForeColor = RGB(123, 90, 24)x = x + 1CurrentX = x - 120CurrentY = y - 150Print "vbking.mihanblog.com"End Sub