برنامه نمایش تعداد و مجموع اعداد زوج دریافتی

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

          دریافت فلوچارت
          حجم: 194 کیلوبایت

فلوچارت های منطقی AND, OR , XOR

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 کیلوبایت

فلوچارت های تبدیل عدد به مبناهای دیگر - مبنای 2 و... سطح متوسط

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 کیلوبایت

جدول کد اسکی بهمراه مبنای اعداد و توضیحات اینجا

فایل تبدیل مبناهای مختلف عددی به یکدیگر بصورت تمرین اینجا

دفترچه تماس با استفاده از اکسل و برنامه سازی VBA

TabasTel

شروع پروژه: 29 بهمن 1395 مشهد

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

     1- هر ورودی تماس اعتبار داشته باشد و بعد از مدت اعتبار سیستم بصورت اتومات حذف نماید. 

          (مثلاً خیلی از افراد می خواهند شماره پیک را تا مدت زمانی خاص داشته باشند ولی وقتی غذا یا وسیله را از پیک دریافت نمودند، آن شماره و مشخصات ثبت شده را لازم ندارند!)

     2- بتوان به تعداد دلخواه شماره تماس برای یک شخص ثبت کرد.

          (محدودیت ثبت تعداد تماس نداشته باشد)

. به یاری پروردگار بزودی اولین نسخه را آپلود می کنیم.

نمونه برنامه برای برنامه سازی- مقدمانی سطح یک و دو

فلوچارت برنامه با فایل جواب بصورت PDF می توانید آن ها را دریافت نمایید: (تعداد 20 عدد فلوچارت با جواب)

1-  دو عدد دریافت نموده و عدد بزرگتر را نمایش دهد.

     دریافت فلوچارت
     حجم: 175 کیلوبایت

2- سه عدد دریافت نموده و عدد بزرگتر را نمایش دهد.

     دریافت فلوچارت
     حجم: 190 کیلوبایت

3- دو عدد دریافت نموده و آن ها را به ترتیب از بزرگ به کوچک نمایش دهد.

     دریافت فلوچارت
     حجم: 182 کیلوبایت

تعداد 250 میانبر صفحه کلید در اکسل

 دریافت فایل اکسل
عنوان: 250 میانبر اکسل
حجم: 17.3 کیلوبایت
توضیحات: تعداد 250 میانبر صفحه کلید در اکسل

اتصال به MySQL بوسیله اکسل

اکسل به سادگی می تواند به پایگاه داده 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"