ابتدا از کاربر تعداد اعداد دریافتی را سوال نموده و به همان تعداد دریافت کرده، در انتها مجموع و تعداد اعداد زوج دریافتی را نمایش دهد.
دریافت فلوچارت
حجم: 194 کیلوبایت
ابتدا از کاربر تعداد اعداد دریافتی را سوال نموده و به همان تعداد دریافت کرده، در انتها مجموع و تعداد اعداد زوج دریافتی را نمایش دهد.
دریافت فلوچارت
حجم: 194 کیلوبایت
1- دو مقدار منطقی (True یا False) را دریافت نموده و AND نماید و نتیجه را بصورت (True یا False) نمایش دهد.
دریافت فلوچارت
حجم: 180 کیلوبایت
2- دو مقدار منطقی (True یا False) را دریافت نموده و OR نماید و نتیجه را بصورت (True یا False) نمایش دهد.
دریافت فلوچارت
حجم: 180 کیلوبایت
3- دو مقدار منطقی (True یا False) را دریافت نموده و XOR نماید و نتیجه را بصورت (True یا False) نمایش دهد.
دریافت فلوچارت
حجم: 187 کیلوبایت
تمرین هایی برای محاسبه عدد اول
(اگر تمرین ها را از ابتدا تا انتها انجام دهید، با محاسبه عدد اول بهتر آشنا خواهید شد)
1- دو عدد دریافت نموده و باقیمانده ی تقسیم آن دوعدد را نمایش دهد.
دریافت فلوچارت
حجم: 186 کیلوبایت
2- عددی دریافت نموده و نمایش دهد عدد زوج یا فرد است.
دریافت فلوچارت
حجم: 221 کیلوبایت
3- عددی دریافت نماید و نمایش دهد آیا آن عدد بر 7 بخش پذیر است.
دریافت فلوچارت
حجم: 229 کیلوبایت
1- یک عدد (مبنای ده) دریافت نموده و به مبنای 2 تبدیل می نماید
دریافت فلوچارت
حجم: 163 کیلوبایت
2- یک عدد در مبنای 10 (دسیمال) دریافت نموده و آن عدد را به عددی در مبنای 16 (هگزادسیمال) تبدیل نماید.
دریافت فلوچارت
حجم: 256 کیلوبایت
3- یک عدد در مبنای 10 (دسیمال) دریافت نموده و به هر مبنایی که کاربر خواست تبدیل نماید
مثلاً مبنای 2 یا 8 یا 16 و دیگر مبناها که کم کاربرد هستند مانند مبنای 3و4و5و6و7و9و11و ...
دریافت فلوچارت
حجم: 274 کیلوبایت
4- یک عدد در مبنای دو(باینری) دریافت نموده و به مبناهای 10 و 8 و 16 تبدیل نماید.
دریافت فلوچارت
حجم: 327 کیلوبایت
جدول کد اسکی بهمراه مبنای اعداد و توضیحات اینجا
TabasTel
شروع پروژه: 29 بهمن 1395 مشهد
در این پست سعی می کنیم یک دفترچه تماس با قابلیت های جدید بگذاریم. دو تا از قابلیت های جدید در این برنامه به شرح زیر است. امیدواریم بتوانیم در نسخه های جدیدتر این برنامه آن را بهینه تر نماییم.
1- هر ورودی تماس اعتبار داشته باشد و بعد از مدت اعتبار سیستم بصورت اتومات حذف نماید.
(مثلاً خیلی از افراد می خواهند شماره پیک را تا مدت زمانی خاص داشته باشند ولی وقتی غذا یا وسیله را از پیک دریافت نمودند، آن شماره و مشخصات ثبت شده را لازم ندارند!)
2- بتوان به تعداد دلخواه شماره تماس برای یک شخص ثبت کرد.
(محدودیت ثبت تعداد تماس نداشته باشد)
. به یاری پروردگار بزودی اولین نسخه را آپلود می کنیم.
فلوچارت برنامه با فایل جواب بصورت PDF می توانید آن ها را دریافت نمایید: (تعداد 20 عدد فلوچارت با جواب)
1- دو عدد دریافت نموده و عدد بزرگتر را نمایش دهد.
دریافت فلوچارت
حجم: 175 کیلوبایت
2- سه عدد دریافت نموده و عدد بزرگتر را نمایش دهد.
دریافت فلوچارت
حجم: 190 کیلوبایت
3- دو عدد دریافت نموده و آن ها را به ترتیب از بزرگ به کوچک نمایش دهد.
دریافت فلوچارت
حجم: 182 کیلوبایت
دریافت فایل اکسل
عنوان: 250 میانبر اکسل
حجم: 17.3 کیلوبایت
توضیحات: تعداد 250 میانبر صفحه کلید در اکسل
اکسل به سادگی می تواند به پایگاه داده MySQL دسترسی داشته و عملیات های مختلف را برای خواندن، ایجاد، تغییر و حذف داده ها انجام دهد.
بدین منظور لازم است که ابتدا برنامه به پایگاه داده متصل شود و دستورات تراکنشی برای دسترسی و ویرایش اطلاعات ارسال شود.
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public strSql As String
'Connection module:
Public Function connectDB()
Dim strServer_Name As String
Dim strDB_Name As String
Dim strUser_ID As String
Dim strPassword As String
With Sheet2
strServer_Name = .Range("B2").Value
strDB_Name = .Range("B3").Value
strUser_ID = .Range("B4").Value
strPassword = .Range("B5").Value
End With
Set cn = New ADODB.Connection
Set rs = CreateObject("ADODB.Recordset") 'EBGen-Daily
Server_Name = strServer_Name
Database_Name = strDB_Name ' Name of database
User_ID = strUser_ID 'id user or username
Password = strPassword 'Password
Port = "3306"
conStr = "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=" & _
Server_Name & ";PORT=" & Port & ";DATABASE=" & Database_Name & _
";UID=" & User_ID & "; PWD=" & Password & "; Option=3"
cn.Open conStr
End Function
'
'Sub module():
خواندن از دیتابیس
Sub request()
Dim fTimeEnd As Date
Dim fTimeStart As Date
Call connectDB
fTimeStart = Timer
strSql = "SELECT * FROM tb1" ' tb1 نام جدول
Set rs = New ADODB.Recordset
rs.Open strSql, cn, adOpenDynamic
With Sheet1.Range("A1")
.ClearContents
.CopyFromRecordset rs
End With
fTimeEnd = Timer
Sheet1.Cells(1, 3) = Format$((fTimeEnd - fTimeStart) * 100!, "0.00 "" Centiseconds Elapsed""")
cn.Close
Set cn = Nothing
End Sub
سروری که از آن استفاده می کنید لازم است پورت 3306 باز باشد
و اجازه دسترسی ریموت به دیتابیس را در پنل هاست بدهید
ابتدا درایور اتصال به MySQL را بر روی ویندوز نصب نمایید
درایور X64 را از دریافت کنید
عنوان: درایور اتصال به mysql
حجم: 4.21 مگابایت
توضیحات: درایور اتصال به mysql
لطفا سوالات خود را ارسال نمایید تا پاسخ لازم را بفرستیم
در مثال فوق زمان خواندن را هم محاسبه می کند تا بتوانید با مقایسه سرورهای مختلف، بهترین انتخاب را داشته باشید.
سرور پیشنهادی ما که پورت 3306 باز دارد، mashhadhost.com می باشد.
دریافت فایل اکسل
عنوان: کدهای صفحه کلید
حجم: 134 کیلوبایت
توضیحات: کدهای صفحه کلید
اگه قصد دارید نام صفحه ها یا شیت های اکسل دیده نشود یا نتوانند صفحه ای اضافه کنند.
ActiveWindow.DisplayWorkbookTabs = False
اگه قصد دارید منو های اکسل دیده نشود.
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
اگه قصد دارید اسکرول افقی اکسل دیده نشود.
ActiveWindow.DisplayHorizontalScrollBar = False
اگه قصد دارید اسکرول عمودی اکسل دیده نشود.
ActiveWindow.DisplayVerticalScrollBar = False
اگه قصد دارید شماره های عمودی و حروف افقی اکسل دیده نشود.
ActiveWindow.DisplayHeadings = False
اگه قصد دارید خطوط پیش فرض خانه های یک صفحه از اکسل دیده نشود.
ActiveWindow.DisplayGridlines = False
اگه قصد دارید اکسل به صورت تمام صفحه دیده شود.
Application.DisplayFullScreen = True
اگه قصد دارید نوار وضعیت افقی پایین اکسل دیده نشود.
Application.DisplayStatusBar = Not Application.DisplayStatusBar
اگه قصد دارید پنجره بصورت حداکثر دیده شود.
Application.WindowState = xlMaximized
اگه قصد دارید در این فایل اکسل پنجره بصورت حداکثر دیده شود.
ActiveWindow.WindowState = xlMaximized
اگه قصد دارید نوار فرمول اکسل دیده نشود.
Application.DisplayFormulaBar = False
اگه قصد دارید نوار زوم پایین دیده نشود و کاربر نتواند زوم را تغییر دهد.
ActiveWindow.Zoom = 100
اگه قصد دارید در نوار عنوان نام اکسل دیده نشود و بجای آن متن دلخواه خود را بنویسید.
Application.Caption = "DayaAfzar.ir"