آموزش ویژوال بیسیک و اصول برنامه نویسی
آموزش ویژوال بیسیک - چگونگی نوشتن الگوریتم - طرح ریزی برنامه نویسی - برنامه نویسی - ویژوال بیسیک - برنامه نویسی هنرستان - برنامه نویسی کاردانش - برنامه نویسی فنی و حرفه ای - آموزش ویژوال بیسیک 6- آموزش ICDL
آموزش ویژوال بیسیک و اصول برنامه نویسی
آموزش ویژوال بیسیک - چگونگی نوشتن الگوریتم - طرح ریزی برنامه نویسی - برنامه نویسی - ویژوال بیسیک - برنامه نویسی هنرستان - برنامه نویسی کاردانش - برنامه نویسی فنی و حرفه ای - آموزش ویژوال بیسیک 6- آموزش ICDLپرسش و پاسخ ها
سوالات مطرح شده و پاسخ داده شده به آنها:
سوال شماره 1: برنامه ای که شعاع قاعده و ارتفاع یک استوانه را دریافت و مساحت جانبی, مساحت کل و حجم استوانه را محاسبه کند:
پاسخ:
mesahat dayereh: 3.14*R^2
Mohit dayereh: 2*3.14*R
ارتفاع×مساحت قاعده(دایره) = حجم استوانه
ارتفاع×محیط قاعده(دایره) = مساحت جانبی استوانه
مساحت دو قاعده + مساحت جانبی = مساحت کل استوانه
---------------------------------------------------------------------------
Dim Radius, H As Single
Dim MesahatD, MohitD As Single
Dim Hajm, MesahatJ, MesahatK As Single
Radius = Val(Text1.Text) 'شعاع قاعده
H = Val(Text2.Text) 'ارتفاع
MesahatD = 3.14 * Radius ^ 2
MohitD = 2 * 3.14 * Radius
Hajm = MesahatD * H
MesahatJ = MohitD * H
MesahatK = MesahatJ + (Hajm * 2)
Print Hajm, MesahatJ, MesahatK
سوال شماره 2: آقای مهندس ملاابراهیمی
سلام از کلیپهای آموزش VB خیلی بهره بردم خواهشمندم اگه امکان داشت کلیپ آموزش ارتباط با دیتابیس SQL با یک مثال برام بفرستید.
پاسخ:
ابتدا بر روی جعبه ابزار راست کلیک کرده و Components را انتخاب می کنیم. در لیست تیک گزینه ی Microsoft ADO Data Control 6.0 را گذاشته و آن را به جعبه ابزار اضافه می کنیم.
پس از اضافه کردن آن به صفحه علامت سه نقطه ی خاصیت Connection String را می زنیم... در پنجره ی باز شده گزینه ی Build را زده و نوع اتصال SQL را انتخاب می کنیم. در قسمت بعد باید نوع اتصال به بانک و نام دیتا بیس انتخاب شود. با انتخاب Test Connection می توان از اتصال به بانک مطلع شد.
پس از ست کردن دیتا بیس در خاصیت RecordSource می توانیم یک جدول یا یک Query به کنترل اختصاص داد.
سوال شماره 3: میشه با پروژه ویژوال کاری کرد که یک ویدیو پخش کنه؟
پاسخ:
ابتدا در لیست Component ها گزینه ی Windows media player را به پروژه اضافه کنید و سپس با کد زیر می توانید یک فایل به آن نسبت داده و آن را پخش کنید. البته تنظیمات و کنترل های بیشتری را نیز می توانید بر روی آن اعمال کنید که در صورت توفیق آنها را در ویدئوها قرار خواهم داد.
WindowsMediaPlayer1.URL="آدرس به همراه پسوند فایل"
سوال شماره 4: چطور و با چه کدی می توان محل نصب پروژه را به دست آورد؟
پاسخ:
برای بدست آوردن مسیر جاری (مسیری که برنامه اجرا شده است) از شئ App استفاده می کنیم. بدین شکل:
App.Path
App.Path
مثلا برای آوردن عکسی با نام "1" که کنار فایل Exe برنامه است:
Picture1.Picture=LoadPicture(app.path & "\1.jpg")
سوال شماره 5: در کد های saveوopen چطور میشه کاری کرد که خودمون یک آدرس به عنوان پیش فرض گذاشت؟
پاسخ:
CommonDialog1.InitDir = "d:\"
CommonDialog1.ShowOpen
CommonDialog1.ShowOpen
اگر مسیر داده شده وجود نداشته باشد error نخواهد داد و مسیر پیش فرض انتخاب خواهد شد.
سوال شماره 6: فرمول محاسبه رادیکال در ماشین حساب چیست؟
پاسخ:
با تابع sqr
سوال: ساختار تابع sqr چیست؟
پاسخ:
یک آرگومان بیشتر ندارد و آن عدد مورد نظر برای جذر گرفتن است و خروجی آن جذر ورودی است.
مثلا: print sqr(4)=====>2
مثلا: print sqr(4)=====>2
سوال: -سلام درباره تابع sqr که توضیح دادید می تونید یک کد بنویسید که عدد رو از text بگیره و جذرو در همون text نشون بده؟
پاسخ:
text1.text=sqr(val(text1.text))===>'square of text
سوال شماره 7:
سلام. ممنون ویدئو های پر ارزش و مفیدتان. اگر بخواهیم تصویری را در زمینه ی فرم بیاندازیم و اندازه ی تصویر با اندازه ی فرم تغییر کند، چه باید بکنیم؟
پاسخ:
ابتدا تصویر مورد نظر را درون یک کنترل تصویر (PictureBox) قرار می دهیم و Visible آن را False قرار می دهیم که در خروجی دیده نشود و سپس در رویداد Resize مربوط به فرم این کد را می نویسیم تا با تغییر ابعاد فرم، تصویر از درون کادر تصویر بر روی فرم نقاشی شود:
Private Sub Form_Resize()
Me.PaintPicture Picture1.Picture, 0, 0, ScaleWidth, ScaleHeight
End Sub
اگر در مورد آرگومان های تابع PaintPicture مشکل داشتید مطرح کنید. شاید در ویدئوهای آینده این تابع را مطرح کنم.
سوال شماره 8:
ما مثلا در ویژوال بیسیک یه پروژه ساخته ایم ما چطور اون را ذخیره کنیم و چیکار کنیم تا در سیستم دیگری که ویژوال بیسیک نصب نیس باز شود بدون مشکل. لطفا اگه بشه جواب بدهید.
پاسخ:
برای ساخت فایل خروجی (EXE) از منوی File گزینه ی Make را انتخاب می کنیم. برای پروژه هایی که از هیچ Component اضافی و یا ActiveX اضافی استفاده نکرده باشیم، فایل خروجی بدون نصب در تمامی سیستم عامل های ویندوز قابل اجراست.
اما اگر از Component خاصی استفاده کرده باشیم و یا فونت خاصی در سیستم مقصد نیاز است و یا Reference ی به پروژه اضافه کرده باشیم باید فایل نصبی برای پروژه خود بسازیم. شما برای این کار می توانید از برنامه Package & Deployment Wizard موجود در برنامه های ویژوال استودیو 6 استفاده کنید و یک برنامه نصب برای پروژه خود بسازید. اما این برنامه خیلی قدیمی است و در برخی سیستم ها با Error های نامتعارفی همراه است. برای راحتی کار شما از نرم افزار SetupFactory استفاده کنید؛ که کار کردن با آن خیلی ساده است. در ضمن فایل های مورد نیاز در سیستم مقصد را می توانید در پوشه Support مشاهده کنید. فیلم آموزشی آن در بخش حرفه ای آموزش هایم قرار دارد. موفق باشید
سوال شماره 9:
من یه فرم درست کردم
من یه open گذاشتم.
در open نوشته ام که فرمتهای txt را نشان دهد.
و الان میخوام که وقتی یک txt را انتخاب میکنم.در textbox بریزه.
و کد اینو نمیدونم.از شما یه خواهش میتونید بگید
من یه open گذاشتم.
در open نوشته ام که فرمتهای txt را نشان دهد.
و الان میخوام که وقتی یک txt را انتخاب میکنم.در textbox بریزه.
و کد اینو نمیدونم.از شما یه خواهش میتونید بگید
---------------------------------------------------------------
پاسخ:
برای انتخاب فایل توسط کاربر از کنترل CommonDialog استفاده می کنیم.
کد Open: ابتدا برای اینکه فقط فایل های txt را انتخاب کند مشخصه ی Filter را تنظیم می کنیم و سپس آن را باز می کنیم:
CommonDialog1.Filter="Text File (*.txt)|*.txt"
CommonDialog1.ShowOpen
برای خواندن یک فایل متنی و ریختن داخل جعبه متن باید از اول فایل تا آخر به صورت خط به خط خوانده شده و درون TextBox بریزیم. برای اینکار باید TextBox خاصیت MultiLine آن True باشد تا بتواند محتوا را در چند خط نمایش دهد.
if CommonDialog1.FileName<>"" Then
dim S as string
open CommonDialog1.FileName for input as 1
do while not(eof(#1))
line input #1,s
text1.text=text1.text & s & vbcrlf
loop
close #1
end if
سوال شماره 10:
فایل های Dll چی هستند و به چه دردی می خورند؟
---------------------------------------------------------------
پاسخ:
Dll فایلی نیست که به کاربران معمولی بدید و از آن استفاده کند بلکه فایلی است که برنامه نویسان دیگر از آن استفاده می کنند. در Dll یکسری توابع و مشخصات نوشته می شود و یکسری کارها انجام می شود. که کار برنامه نویس را راحت تر می کند. شاید بگویید تابع چیست؟ توابع یکسری زیربرنامه هستند که ممکن است ورودی بگیرند و یک خروجی برای کاربر توالید می کنند. به عنوان مثال تابع sqrt یک تابعی است که عدد را می گیرد و جذر آن را تحویل می دهد. یک برنامه نویس بدون درگیری با چگونگی جذر گرفتن از عدد فقط از آن استفاده می کند. شما در فایل Dll می توانید انواع کارها را انجام بدهید و در اختیار برنامه نویسان مبتدی قرار دهید تا از آن استفاده کنند. مثلا در Dll کدهای مربوط به اتصال به بانک اطلاعاتی را قرار دهید و چند تابع برای استخراج داده و یا انجام کارهای دیکر (Query) را به صورت تابع تعریف کنید و در انتها یک فایل Dll از آن بسازید و به یک برنامه نویس بدهید. برنامه نویس بدون درگیری با چگونگی اتصال به بانک اطلاعاتی و گرفتن اطلاعات فقط از آن استفاده کند و در واقع کارش ساده و آسان خواهد بود.
یا مثلا فایل Dll ای بسازید که تاریخ میلادی را به شمسی تبدیل کند و ...
سوال شماره 11:
نحوه جمع یک ستون در دیتابیس؟
---------------------------------------
پاسخ: دانلود
سوال شماره 12:
برنامه ای که لیست اشخاص را در بانک اطلاعاتی ثبت کرده و علاوه بر امکان جستجو بتوان جمع مقادیر دریاقتی و پرداختی آنها را نمایش داد.
---------------------------------------
سوال شماره 13:
میشه یک کدی بگید که نام چند شهر رو به توی یک label به صورت رندوم بگه؟
یعنی هر دفعه که برنامه اجرا شد یک شهر به صورت رندوم توی label نمایش داده بشه...
-----------------------------------------------------
پاسخ: بستگی دارد لیست شهرهای شما در کجا قرار گرفته باشد (ذخیره شده باشد.) این مثال ساده ای که نوشتم پیش فرض یکسری لیست ها را در خود برنامه وارد کردم.
Dim S(5) As String
Private Sub Form_Load()
S(0) = "Kerman"
S(1) = "Tehran"
S(2) = "Shiraz"
S(3) = "Mashhad"
S(4) = "Tabriz"
S(5) = "Ahvaz"
Randomize Time
Dim i As Integer
i = Fix(Rnd * 6)
LblCityName.Caption = S(i)
End Sub
سوال شماره 14: توی یک فرم 20 label دارم.
میخوام 5تا از label ها به صورت رندوم یک شهر از لیستی که تعریف کردم رو نمایش بدن.
5تا label دیگه یک شهر از لیست جدیدی که تعریف کردم نمایش بدن.
و 10 label دیگه هم به همین شکل باشه.
امیدوارم این عکس بتونه کمک کنه:
http://setfa.net/images/avos4sd0tsjf3amlnvll.jpg
-----------------------------------------------------
پاسخ: برای دانلود برنامه بر روی لینک زیر کلیک کنید.
رمز فایل: www.f1farsi.ir (با حروف کوچک)
سوال شماره 15:
سلام علیکم
بعضی وقت ها لازم می شود شئ مورد نظر را درون یک شئ دیگر ساخت. مثلا یک لیبل درون یک پیکچر باکس. اگر بخواهیم در حین اجرای برنامه این اتفاق بیافتد چه باید بکنیم؟
-------------------------------------
پاسخ: سلام: این پاسخ شما
رمز فایل: www.f1farsi.ir
سلام من این کد رو نوشتم اما فقط خط آخر فایل تکست رو وارد فرم میکنه و عمل لوپ رو برای خط های اول تا آخر فایل تکست انجام نمیده
Dim fieldname As String
fieldname = "G:\11-20.txt"
Dim strLineInput As String
Dim tekst1 As String
Dim tekst2 As String
Dim tekst3 As String
Dim strLineArray As Variant
Dim FileNum As Integer
FileNum = FreeFile()
Open fieldname For Input As #FileNum
Do While Not EOF(FileNum)
Line Input #FileNum, strLineInput
strLineArray = Split(strLineInput, ",")
tekst1 = strLineArray(0)
tekst2 = strLineArray(1)
tekst3 = strLineArray(2)
Loop
Me.percode = tekst1
Me.timeinOUT = tekst2
Me.dateinOUT = tekst3
Close #FileNum
سلام. شما داخل حلقه باید مقادیر task را بگیرید و درون یک شی قرار دهید. وقتی خارج از حلقه این کار را میکنید فقط آخرین مقدار فایل متنی را دریافت کردید.
Do While Not EOF(FileNum)
Line Input #FileNum, strLineInput
strLineArray = Split(strLineInput, ",")
tekst1 = strLineArray(0)
tekst2 = strLineArray(1)
tekst3 = strLineArray(2)
text1.text=text1.text & task1 & vbcrlf
text2.text=text2.text & task2 & vbcrlf
text3.text=text3.text & task3 & vbcrlf
Loop
سلام مجدد
تشکر از پاسختون
من سینتکس هاش رو برای زبان vb پیدا نکردم
اکثر آموزش ها برای #C یا VB.net بود.
لطف می کنید اگر منبعی معرفی کنید.
تشکر از شما
با سلام پاسخ شما بارگذاری شد.
https://myprogrammingvb.blogsky.com/1400/10/10/post-60/%d8%a8%d8%ae%d8%b4%db%8c-%d8%a7%d8%b2-%d9%be%d8%b1%d9%88%da%98%d9%87-%d9%88%db%8c%da%98%d9%88%d8%a7%d9%84-%d8%a8%db%8c%d8%b3%db%8c%da%a9
سلام
یه راهنمایی
من تو ویژوال استادیو کد ویژوال بیسیک می زنم
معمولا وقتی کوئری می دم جواب کوئری یک سطر هست و فیلد ها رو می فرستم به لیبل های مشخض
حالا اگر کوئری دادم و جوابش چند سطر شد چطور می تونم سطر ها رو در قالب یه جدول اسکرول دار به نمایش بزارم
با دیتا گرید ویو همچین کاری نتونستم بکنم، یعنی کاربر تو نام بتویسه رضا ، هرکی اسمش رضا بود نمایش داده بشه
با سلام. شما خروجی data خود را به datagrid نسبت داده و در آن نمایش دهید با این کار تعداد سطرهای خروجی در datagrid نمایش داده شده و اگر تعداد آنها زیاد باشه خودش اسکرول کرده و مدیریت می کند.
درودبرشما
من در محیط اکسل کدی نوشته ام که VB فونت فارسی را میشناسد ولی همون برنامه اکسل در رایانه ای دیگر فونت فارسی را نمیشناسد که باعث دردسر شده است.
در رایانه ی دوم کدوم بخش را باید تغییر دهم تا برنامه VB هنگام اجرا فونتهای فارسی را شناخته و عمل نماید
با سلام و تشکر:
شما باید اول زبان فارسی رو در رایانه ی دوم اضافه نمایید.
بعد از این کار باید تنظیمات Syste,m local رو نیز بر روی Persian قرار دهید.
جای این تنظیم رو می تونی در عکس زیر مشاهده کنی:
http://s7.picofile.com/file/8381250834/lang.png
سلام
اگه چند عکس داشته باشم و بخوام اسم اونو در textbox وارد کنم و اونو برام لود کنه باید چیکار کنم
ممنون میشم جواب بدین با یک مثال بفرستید به ایمیلم
picture1.picture=loadpicture(text1.text)
سلام استاد عزیز.خسته نباشید.من یه گزارش برای چاپ ساختم ولی وقتی میزنم چاپ کل اطلاعات مشتریها رو میاره برای چاپ.حالا اگه بخوام اون مشتری که میخوام براش به نوعی فقط اطلاعات ثبت شده خودش رو چاپ بدم باید چیکار کنم.ممنون میشم اگه راهنمایی بکنید
با سلام، سوال شما خیلی کلی است و جزئیات مشخص نیست. مثلا اگر با بانک اطلاعاتی کار می کنید خوب باید دستور فرستادن اطلاعات به گزارش را اصلاح کنید تا فقط اطلاعات مورد نظر به چاپ برود. ولی اگر پروژه شما دیتابیس (بانک اطلاعاتی) نیست باید بدونم نحوه چاپتون چگونه است. برای اصلاح پروژه شما و توضیحات کامل کدهای اضافه شده یک ایمیل به شما فرستاده شده است.لطفا ایمیل خود را چک کنید.
با سلام ببخشید من 2 تا سوال به ایمیلتون فرستادم میشه لطف کنید جوابمو بدید
سلام سوالی داشتم در مورد برنامه نویسی.برنامه ای بنویسید که جمله اول یک تصاعد هندسی aو قدر نسبت تصاعد r و شماره جمله n را در ورودی دریافت کند سپس جمله nام تصاعد هندسی را چاپ کند. جوابشو بفرستین به ایمیلم ممنون میشم.
فک کنم آموزش طریقه ذخیره سازی توی فایل های متنی به این صورته که میشه با نرم افزار فقط یک اطلاعات ذخیره کرد. (فقط اطلاعات یک شخص رو ذخیره کرد)
میشه برنامه بنویسید که اطلاعات چندین نفر رو ذخیره کنه؟؟
در کلیپ های آموزشی اطلاعات چند نفر رو ذخیره می کند.
وقتی جدول رو شبیه سازی می کنید یعنی مثل بانک های اطلاعاتی دارید عمل می کنید
کلیپی که گذاشتین رو قبلا یاد گرفته بودم
ولی
میخوام برنامه جامع باشه
اما خب فکر ساده تری به ذهنم رسید.
برنامه ای میخوام که داخلش یه قسمت ثبت نام داشته باشه
بعد از کلیک روی اون صفحه ای باز شه که این موارد رو بخواد:
نام
نام خانوادگی
کد ملی
تاریخ تولد
نام پدر
محل تولد
شغل
تحصیلات
بعد از این که موارد خواسته شده رو وارد نرم افزار کردم اطلاعات رو توی یک فایل .txt ذخیره کنه...
حالا من داخل نرم افزار مشخصات یک شخص رو میخوام
نام و نام خانوادگی رو وارد میکنم و فایل txt که اطلاعات داخلش ذخیره شده باز میشه!!
اینجوری میتونم بی نهایت اطلاعات ذخیره کنم ولی حجم بالایی رو میگیره که مشکلی نیست...
میشه همچین برنامه ای رو ساخت؟؟؟
با استفاده از فایل های متنی هم می توان ساخت
از کلیپ 73 به بعد در مورد نحوه ی ذخیره در فایل ها متنی توضیح داده شده است.
و همچنین نحوه ی ذخیره سازی به صورت جدول و مدیریت اطلاعات کلیپ 91 را مشاهده کنید.
سلام آقای ابراهیمی
توی دوره دبیرستان در درس ویژوال بیسیک ما برنامه ای رو یاد گرفتیم که مثلا میشد اسم شخص و مشخصاتش رو داخل کدهای نرم افزار بنویسیم و بعد از کد نویسی و اجرا با نوشتن اسم شخص مشخصاتش نمایش پیدا کنه...
الان برنامه ای میخوام که مشخصات شخص رو بگیره و بعد از ثبت با نوشتن نام و نام خانوادگی شخص مشخصاتش رو نمایش بده
مثلا من در نرم افزار شخصی رو ثبت کردم
بعد از زدن نام و نام خانوادگی این موارد نمایش داده بشه：
نام
نام خانوادگی
کد ملی
تاریخ تولد
نام پدر
محل تولد
شغل
تحصیلات
سلام،
بستگی داره این برنامه کاربری باشه و بصورت جامع ساخته بشه یا خیر.
اگر بصورت اجمالی میخواهید با گرفتن یک مشخصه ، مشخصات دیگر را نمایش دهد و تعدادشان محدود است میتوانید به این شماره کلیپ در همین سایت با آدرس زیر مراجعه کنید:
آموزش مقدماتی کلیپ های 32 و 33 - آدرس:
http://f1farsi.ir/page/3
-----------------------------------
اگر بصورت جامع تر و گسترده تر بخواهید که یک برنامه کاربردی و قابل استفاده باشد باید از بانک های اطلاعاتی استفاده کنید که در آموزش پیشرفته هست.
پاسخ به این سوالات را میخواستم بی زحمت
1.برنامه ای بنویسد که تعداد ده جمله از کاربر دریافت کرده و تعداد جمله هایی که با حرف b شروع میشود را نمایش دهد.
2.برنامه ای بنویسید که یک رشته از کاربر دریافت کتد و ان را به ترتیب صعودی مرتب کند.
دانلود پاسخ:
http://s6.picofile.com/file/8241552842/pro.txt.html
سلام مهندس اموزش هات خیلی خیلی عالی بودن
ولی تو راحل پایانی نصب در همه ی ورژ ن های اس کیو ال خطای
database engine رو میده و بعد که نصب شد (local) که بهش میدم یک کادر خطا میاره و مینویسه
can not to local
a network-related or instance- spicific error occurred while stablishing to connection sql server
ایا ویندوز سرور می خواد یا باید به اینترنت وصل بشیم
و ........
نیازی به ویندوز سرور نیست.
مهندس عزیز سلام
به مشکلی برخوردم که بدون کمک شما مشکلم حل نمیشه
به هر صورتی که برنامه اس کیو ال با هر نسخه ای که نصب وی کنم موقهع اجرا برای اضافه کردن دیتا بیس رمز و اسمی که تو نصب بهش دادم امتحان می کنم قبول نمیکنه و یک پنجزه خطا میده تو رو خدا اگه براتون امکان داره یک فیلم اموزش مراحل نصب و اجرای نرم افزار sql برام بزارید به خدا دیوانم کرد اینقدر به هزار روش امتحان کردم
((از صمیم قلب سپاسگزارم امیدوارم همیشه تو کارت موفق باشید))
http://s3.picofile.com/file/8232055450/Setup_sql_server.rar.html
سلام مهندس وقت به خیر
1-خواستم ببینم برنامه sql server که تو برنامه اموزشی استفاده کردی برای مثال دستورات پیشرفته چه نسخه ای بود هر نسخه ای نصب می کنم شبیه مال شما نیست تا بتونم جداول و .... درست کنم ممنون میشم منو راهنمایی کنید
2- راستی برنامه نویسی اندروید هم آموزش میدی تا منتظر صدای شیرین شما باشیم
سلام. نسخه 2008
قصد دارم آموزش کاربردی c# و CORELDraw را در آینده ان شاءالله بگذارم.
سلام علیکم
وقت بخیر استاد محترم
((شرمنده بیشتر وقت ها سئوال می پرسم به خدا خیلی به vb علاقه دارم دست خودم نیست))
سئوال؟
چجوری پروژه ای که درست می کنم و فایل نصبی براش درست می کنم وقتی کاربر نرم افزار رو نصب کرد فایل های فرم و سورس پروژه قابل روئیت یا ویرایش نباشند یا مثلآ یک دیکشنری درست کردم دیتابیسش معلوم نباشه
با تشکر از (ملا ابراهیمی گل)
سلام
وقتی شما یک برنامه نصب برای پروژه ایجاد کردید؛ فقط فایل های مورد نیاز پروژه برای شما تولید خواهد کرد. مگر اینکه شما به صورت دستی فرم های برنامه را نیز جزو فایل های نصبی برنامه به آن بدهید. (در صورتی که بسته پیشرفته را خریداری کرده باشید در مورد ساخت برنامه نصب آموزش کامل دارد)
در مورد دیتابیس هم راهی ندارد جز اینکه شما برای دیتابیس خود یک رمز عبور قرار دهید.
سلام مهندس جان
برنامه ی حسابداری که با هم درست کردیم وقتی دکمه پرینت رو می زنم وارد صفحه گزارش میشه اما وقتی دوباره دکمه پرینت رو می زنم خطا میده
این خطا invalid data source
با عرض سلام و خسته نباشید خدمت استاد عزیز
استاد اگر بخواهیم یک برنامه حسابداری با دیتابیس(sql یا acces) بنویسیم حتماآ باید نرم افزار آنها روی سیستم مقصد نصب بشه راهی داره که خلاصه تر و راحت تر این کار انجام بشه
سلام. اگر sql و یا access 2007 به بعد باشه حتما باید نصب باشند. ولی access 2003 نیازی نیست در سیستم مقصد نصب شود.
سلام خسته نباشید مهندس جان
خواستم ببینم چجوری میشه یه خط بکشیم تو اجرا بعد ان خط را بگیریم و ببریم جایی دیگه و چجوری به کنترل پیکچر باکس متصلش کنیم اصلاً دستور متصل شدن خط که خودمان می کشیم به یک کنترلی متصل می کنیم چیه مثل همان بازی که تو اموزش داشتی که چندتا مانع خط بودن که کنترل نمی تونست از روی ان ها حرکت کنه چجور اینکارو کردید
لطفاً تمام دستورات مخصوص یه کار بر رو ی کشیدن خط - جابجایی و اتصال آن به کنترلی رو بگید می خوام وقتی خط رو به کنترل وصل می کنم لامپی روشن بشه و قتی در میارم لامپ خاموش بشه
با سپاس فراوان
سلام،
در بازی که اشاره کرده بودید کنترل Line بود. نحوه عبور نکردن مانع هم با کد نویسی کنترل می شود.
برنامه ای که شما می خواهید رو قبلا برای شما ارسال کردم لطفا خودتان هم یکم صبوری بخرج دهید و فعالیت و تلاش بیشتری کنید تا مطابق میلتان برنامه ساخته شود. قبلا نمونه کاری که شما نیاز دارید را برایتان قرار دادم که می توانید آن را دانلود کنید.
استاد عزیز سلام وقت به خیر
استاد آن برنامه ای که گفتم یک نسخه پرتابل ازش درست کردم که اجرا شد و دیگه مشکل نداشت ولی برای نسخه نصبی تو سیستم دیگران نصب میشه ولی اجرا نمیشه
1-=راستی تو برنامه ای از یک کنترل غیر از خود ویژوال بیسیک استفاده کردم و فایل نصب براش درست کردم اجرا شد و مشکل نداشت ولی دفعه ی بعد که برنامه رو ساختم همان کنترل تو اجرا ارور داد به نظر شما علت چی میتونه باشه که بار اول مشکل نداشت ولی بار دوم ارور داد
2- آیا عکس های پس زمینه یا کنترل های نرم افزار توی کامپیوتر های لمسی بزرگ هم به همان اندازه که من درست کردم نمایش داده میشن یا باید نرم افزار رو با توجه به کامپیوتر با صفحه ی بزرگ بهینه کرد؟
1- ;کنترل باید در مسیر C:\windows\system32 کپی شده باشد
2- در مورد عکس زمینه هم باید کد نویسی شود تا با تغییر اندازه فرم ، هم اندازه فرم شود.
با سلام و خسته نباشید خدمت استاد عزیزم ملا ابراهیمی
استاد به یک مشکل برخوردم
یک برنامه در مورد جنگلها برای برادرزادم درست کردم فایل نصبی هم براش درست کردم حالا هم رو سیستم خودم هم رو سیستم برادرزادم نصب و اجرا میشه
اما رو سیستم مدرسه و لبتاب انتحان کردن نصب شده ولی اجرا نمیشه به نظر شما علت چی می تونه باشه
1- از دستور send message برای جابجایی صفحه استفاده کردم api
2- ایا نرم افزار به عنوان ویروس شناسایی شده
3- فایل یا دستور خاصی می خواد که رو سیستم دیگران اجرا بشه
4- در نرم افزار فکتوری ست اپ بخش حافظه رم تنظیم خاصی می خواد
تو رو خدا کمکم کنید خیلی مهمه
نوکرتم به خدا
سلام
هر برنامه ای برای اجرا باید فایل های مورد نظرش در سیستم وجود داشته باشد. با استفاده از زبان ویژوال بیسیک می توان خروجی ساخت که بر روی تمام سیستم عامل های ویندوز اجرا شود. اگر برنامه شما مشکل دارد به احتمال زیاد از یک ocx خارج از ابزارهای خود ویژوال بیسیک استفاده کردید و یا فایلهای dll ای که نیاز دارد و یا فایل هایی که برنامه به آنها لینک شده است در سیستم مقصد وجود ندارد که اجرا نمی شود. در ضمن مشکل ram نیست.
احتمال اینکه به عنوان ویروس سیستم جلوی اجرای نرم افزار را بگیرد هم هست. که این مشکل اگر وجود داشته باشد تابلو است.
سلام علیکم (خیلی عذر میخوام)
من نمیدونم چجوری عکس یا فایل بفرستم
منظورم اینه مثلآ تو برنامه نقاشی چجوری با مداد خط می کشیم حالا من می خوام تو اجرا یک عکس را با عکس دیگری با کشیدن خط مثل مداد ارتباط بدم وقتی ارتباط برقرار شد یه پیغام بده وقتی ارتباط قظع شد پیغام دیگه حالا دستور ارتباط برقرار شدن هردو با لاین چیه
http://s3.picofile.com/file/8222362368/Link_by_line.rar.html
سلام وقت به خیر استاد عزیز
منظور من این بو که چجوری دو عنصر را به هم وصل کنم که اگر وصل شد یه کاری انجام بده تو اجرا
و دستور وصل بودن ان ها چیه
منظور شما از اتصال چند عنصر چیه؟ اگر می توانید نام کنترل و نحوه ی اتصال را با عکس برای من بفرستید.
با سلام خدمت مهندس ملاابراهیمی عزیز
خواستم ببینم چجوری میشه یک عنصر را با عنصر دیگر به وسیله کشیدن خط به هم وصل کرد و دستور وصل بودن هردو چیست برای یک پروژه اموزش برق کاری می خوام بدونم با چه دستوری میشه مثلآ یک لامپ را با استفاده از ترسیم خط به عنوان سیم به ولتاژ وصل کرد و روشن بشه
لطفآ اگه راهی هست بگید
خیلی خیلی ممنونم
با سلام، پاسخ شما در یک برنامه ساده:
http://s3.picofile.com/file/8222030468/Link_F1Farsi_ir_.rar.html
سلام علیکم استاد گرامی
چند تا سئوال داشتم خدمتتون
1-لطفآ در مورد انتقال عناصر روی فرم با انواع مختلف توضیحی بدید هر کاری می کنم درست حسابی انتقال نمیده
2- ایا راهی هست که تو برنامه اماده کامپوننت های شرکت کامپوننت وان رو رجیستر کنم که زمان اجرا در سیستم دیگران رجیستر نخواد
3- چجوری ocx با شکل دلخواه درست کنم که اکتیوایکس در فرم به شکل دلخواه من دربیاد مثلآ همان my textbox رو با شکل دلخواه دربیاد
4- برنامه ای که درست کردم چجوری میشه به شبکه یا اینترنت وصل بشه که جند کاربر از ان استفاده کنند
بسیار بسیار تشکر
(شرمنده این همه سئوال پرسیدم)
با سلام
1- با یک پروژه کوچک که لینک دانلود آن را در زیر گذاشتم مشکل شما حل خواهد شد.
http://s3.picofile.com/file/8219830684/Internet_Move_object_www_f1farsi_ir_.rar.html
2- نحوه ی رجیستر کردن در آموزش ها وجود دارد. ولی برنامه ای که سورس آن را در اختیار نداریم رو نمی شود خود برنامه رو تغییر داد. باید با یک برنامه دیگر کامپوننت خود را رجیستر کنی.
3- نحوه ی ایجاد ocx هم در آموزش ها وجود دارد. شما هر طوری که در قسمت طراحی ocx ، طراحی کنی و در ضمن از کد نویسی مطلوب استفاده کنی در موقع استفاده به همان شکل در خواهد آمد.
4- نحوه ی استفاده از شبکه و اینترنت در تخصص من نیست.
با سلام
من یک بانک اطلاعاتی درست کردم که نام و مشخصات اشخاص را ذخیره می کند حالا میخواستم که عکس اشخاص را هم به آن اضافه کنم اگر می شود کمک کنید.
در ضمن بانک اطلاعاتی من اکسس است و از طریق adodc وصل شدم
سلام، می توانید یک فیلد معمولی متنی در جدول قرار دهید و در برنامه آدرس تصویر را در آن فیلد ذحیره کنید.
با سلام
میخواستم بپرسم که چگونه می شود header دیتا گرید را فارسی کرد
داخل propertise هیدر فقط می شود دو تا از هیدرها را فارسی کرد فقط دو تا column موجود است column 0 و column 1
متشکرم
با سلام، ابتدا DataSource آن را به یک Adodc وصل می کنیم و سپس بر روی DataGrid راست کلیک می کنیم و گزینه ی Retrieve fields را انتخاب می کنیم. و بعد نام ستون های مورد نظر را به فارسی تغییر می دهیم.
با سلام و درود خدمت استاد گرامی
من ویژوال بیسک رو خیلی خیلی دوست دارم خیلی چیزها هم ازش یاد گرفتم اما به نظر شما برای کسب درامد و نیازهای امروزه مثلآ در اداره جات و ...... چه زبانی مناسب تر از همه هست که در کنار ویژوال بیسیک یاد بگیرم و در اینده به دردم بخوره
متشکر
خود ویژوال بیسیک هم اکنون کاربردی است و خیلی از برنامه های کوچک رو من با ویژوال بیسیک می نویسم. ولی برای کارهای بزرگ و شبکه ای بهتر است از .net استفاده کنید. که در آن می توانید با زبان های ویژوال بیسیک.نت و سی شارپ.نت استفاده کنید. که ان شاء الله در آینده آموزش سی شارپ.نت را هم قرار خواهم داد.
با سلام خدمت ابراهیمی عزیز
فیلم اموزش تبدیل اعداد به حروف می تونی بزاری خیلی ممنون
با سلام و احترام؛ به روی چشم در صورت فرصت قرار خواهم داد.
سلام وقت به خیر استاد گرامی
استاد چجوری موتونم با ویژوال بیسک تسلط کامل به رجیستری داشته باشم
یعنی گزینه هایی تغییر بدم اضافه کنم و یا حذف کنم
شما می توانید از توابع API هم برای دسترسی به رجیستری استفاده کنید. یکسری pdf های مخصوص کار با رجیستری هستند که می توانند به شما کمک کنند.
سلام علیکم
اقای مهندس چجوری و با چه عنصری می تونم پوشه ها و فایل ها رو مثل مای کامپیوتر روی صفحه بیارم برای این کار چه ابزارهایی لازم است
ممنونم
سلام ، باید از ابزارهای آماده که برخی شرکت ها تولید می کنند استفاده کنید
با سلام خدمت استاد عزیزم اقای ملا ابراهیمی
تو رو خدا اگه براتون ممکنه فیلم اموزش تابع تبدیل اعداد یه حروف را با ان صدای شیرینتون بزارید تابع توی سی دی گذاشتی ولی تحلیلش برام مهمه
بسیار بسیار تشکر
متشکر حاج ابراهیمی همان کاری که گفتی انجام دادم علت mytextbox که شخصی که تو اموزش گذاشتی بود هیچ مقادیری رو انتقال نمی داد از تکست معمولی استفاده کردم درست شد
باز هم تشکر
سلام اقای ابراهیمی گل
در بخش دستورات sql به مشکل برخوردم طبق اموزش شما این دستورو نوشتم اما وقتی برای کالای جدید دکمه تایید می زنم این پیام میاد
Dim da As New DataAccess
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdok_Click()
Dim sql As String
sql = "INSERT INTO tblkala(kcode,kname,kinput,koutput,ktbox,ktitleo,ktitlekh,kprice,kbarcode)"
sql = sql + "values(1,' " & txtkalaname.Text & " '," & Val(txtomde.Text) * Val(txttbox.Text) + Val(txtkh.Text) & ",0," & txttbox.Text & ",' " & comboomde.Text & " ',' " & combokh.Text & " ' ,' " & txtprice.Text & " ',' " & txtbarcode.Text & " ')"
da.docommand (sql)
End Sub
Private Sub Form_Load()
da.connect
End Sub
Private Sub Form_Unload(Cancel As Integer)
da.disconnect
End Sub
syntax error in insert into statement پیام خطا
با سلام، دستور sql شما از لحاظ تایپی هیچ مشکلی ندارد. مشکل شما می تواند از مقادیر ارسال شده باشد و یا اصلا اتصال به دیتابیس برقرار نمی شود که احتمالش کمتر است.
شما برای رفع این مشکل یک BreakPoint بر روی دکمه ی CmdOK قرار دهید و در زمان اجرا با زدن این دکمه و رسیدن به خط da.docommand مقدار موجود در متغیر sql را در حافظه کپی کنید( برای این کار از منوی view گزینه ی watch و بعد از اضافه کردن sql مقدار آن را در حافظه کپی کنید) بعد از کپی بانک اطلاعاتی خود را در ویندوز باز کرده و در بخش query دستور را paste کنید که مطمئنا در آنجا خطای خود را خواهید دید.
با سلام و احترام
من به برنامه نویسی با اکسس علاقمند هستم
و یک برنامه شروع کردم
خوشبختانه پیشرفت قابل ملاحظه ای هم داشتم
ولی سوالاتی دارم که اگر لطف کنید پاسخ بدید سپاسگزارم
1- چگونه کاربران متعدد با سطح دسترسی مختلف ایجاد کنم؟
2- در ریپورت چگونه کومبو چکباکس استفاده کنم؟
با تقدیم احترام
با سلام. 1- در اکسس امکان تعریف کاربر تا آنجایی که من میدانم وجود ندارد. مگر اینکه از ویندوز استفاده کنی. باز نیاز به تحقیقات بیشتر دارد که اگر برایم امکان داشت برای شما تحقیق خواهم کرد.
2- اول اینکه منظورتون از کومبو چکباکس چه نوع کنترلیه و بعد از اون در ریپورت این گونه کنترل ها برای نمایش گزارش فکر نکنم کاربردی داشته باشند.
سلام.روزتون بخیر .
ممنون از آموزش های بسیار عالی و موثرتون.......
فقط به خواهشی دارم......بنده در حال یادگیری و دانلود کلیپ های آموزش ++C بودم و 10 پارت رو دانلود کردم....الان اومدم بقیشو دانلود کنم میبینم نیست......راهنماییم کنید لطفا"....ممنون....پیشاپیش سال نو هم تبریک میگم.......
سلام .خیلی ممنون از اینکه جواب سوالم را دادید.شما گفتید باید فایل نصبی بسازیم.
وقتی فایل نصبی میسازیم در نرم افزار که از فونت هایی استفاده کرده ایم ساخته میشود؟
میتوانید جواب این را به وبلاگم بفرستید
ممنون
http://alirezayeganeh15.blogfa.com
اگر منظور شما را درست فهمیده باشم: برای ساخت فایل نصب چه در نرم افزار SetupFactory و چه با خود ویژوال استودیو ، در قسمتی که می توان فایل هایی را به پروژه نصب اضافه کرد ، فونت های خود را به لیست فایل ها اضافه می کنیم. خود برنامه نصب در سیستم مقصد فونت ها را در لیست فونت های ویندوز نصب می کند.
استاد این sql
select
com_111 as شماره کارمندی ,
com_112 as کد شعبه,
com_post as کد پست ,
com_119 as تاریخ
from prs_com
اگر منظور سوال شما را درست فهمیده باشم:
select PersonalCode,Max(Date) From TblKarmand
group by PersonalCode
استاد جواب با sql نمیشه بدست آورد
جناب مهندس وقت بخیر
سوال من در خصوص گزارش گیری از جداول sql می باشد
یه جدول از اطلاعات پرسنلی داریم که شامل شماره پرسنلی - کد شعبه - تاریخ- و کد سمت می باشد
سوال اینکه می خواهیم مدت سابقه هر فرد در آخرین شعبه را بدست اوریم
این گزارش با sql میشه بدست اورد فقط برای برخی از شماره کارمندی که در طول خدمت چندین بار در یک شعبه جابجا شده اند تاریخ اشتباه بدست می آیید.
بدین صورت که جواب اولین تاریخ در شعبه برمی گرداند در صورتی که برخی همکاران در یک شعبه چندین بار جابحا شده اند : مثلا فردی در سال 80 در شعبه x بوده بعد در سال 85به شعبه y منتقل شده و دوباره در سال 90 به شعبه x برگشته که در این صورت با این روش تاریخ سال 80 به ما میده اما جواب درست باید سال 90 بشه چون چون آخرین شعبه ملاک می باشد.
مثال:
کارمندی کد شعبه کد سمت تاریخ
111 1010 123 801112
111 1212 123 850918
111 1010 142 900427
222 3321 123 891220
222 3321 234 900616
222 4444 234 910615
222 4444 675 920823
222 4444 987 931018
333 5555 321 861112
333 5555 675 901113
333 5555 379 930505
استاد می خوام جواب از طریق vb باشه
با تشکر مسلمی 09125505912
لطفا دستور Sql و یا query که این خروجی را به شما می دهد، برام بنویسید. تا من دستور شما را اصلاح کنم.
مرسی
مرسی . . .
.
فقط این خط کد ارور میده
FileCopy App.Path & "\temp.jpg", CommonDialog1.Filename
کد اصلاح شد:
http://s5.picofile.com/file/8134415876/Answer_to_1.rar.html
سلام
.
یه سوال در مورد برنامم داشتم
.
ممنون میشم اگه جواب بدین . . .
.
میخوام وقتی روی دکمه Save کلیک میکنم به جای ذخیره پیش فرض کنار برنامه جایی که کاربر میخواد ذخیره بشه ...
.
هر کار میکنم جایی که کاربر میخواد ذخیره بشه ، اونوقت حجمش کم نمیشه . . .
.
http://barnamenevis.org/attachment.php?attachmentid=122113&d=1407597201
.
اگه میشه با توجه به برنامه کمکم کنید . . .
.
ممنون
دانلود پاسخ برنامه در لینک زیر:
http://s5.picofile.com/file/8134403300/Answer_to_1.rar.html
استاد عزیز جناب آقای ملا ابراهیمی . با سلام .
احتراماً فایل مربوطه حضورتان ارسال شد . از قبول زحمتتان صمیمانه سپاسگزارم .
با تشکر مجدد _ عباسی
سلام . متشکرم . بله بانک من در یک فایل اکسس هست . برنامه نویسیش هم باید توی همون اکسس باشه .
البته من که خیلی وارد نیستم ولی غکر کنم با vb اکسس باید کووری بنویسم .
ممنون می شم اگه راهنمایی بفرمایید . اگر صلاح دونستید من شماره همراهم را ایمیل می کنم براتون بفرمایید هر موقع فرصت کردید تا من بهتون زنگ بزنم کامل قضیه اش را توضیح بدم .
دوست گرامی من داخل خود اکسس هنوز برنامه نویسی نکردم کاری که شما می خواهید انجام دهید با vb به راحتی انجام می شود البته داخل اکسس هم همینگونه است ولی متاسفانه من کار نکردم؛ با این حال فایل را برام بفرستید تا با یکسری ترفندهای اکسس بتونم براتون درستش کنم ولی قول 100% نمی دهم.
لطفا فایل را ارسال کنید به:
hr86m[atsign]yahoo[dot]com
سلام . اگه امکان داره لطفا راهنماییم کنید . من یه بانک اکسس دارم که دارای یک فرم هستش و توی این فرم حدود 7000 رکورد با بارکد اسکنر اسکن می شه و توی جدول مربوطه اش می شینه . یک گزارش هم داره که اینا را با فونت بارکدی به صورت یک صفحه a4 خروجی پرینت میده . تا اینجاش مشکلی نیست . اما من می خوام این اکسس یه کاری برای من بکنه و اون اینه که به محض اینکه بارکد توسط کاربر وارد فرم شد ، اکسس این بارکد ورودی را که 26 رقمی هست از سمت چپ 6 رقمشو حذف کنه و با یک فیلد مشخص در یکی دیگه از جدولا مقایسش کنه و به محض اینکه این معادل 20 رقمی اش را توی اون یکی جدول پیدا کرد اونوقت در متن گزارشی که قراره پرینت بشه سایر اطلاعات مربوط به این رکورد مثل نام و نام خانوادگی و تلفن و ... از روی جدول دوم دربیاره و توی این فرم جلوی بارکد 26 رقمیه چاپ کنه .
خیلی بد عنوانش کردم نه ؟ حالا اگه خواستید بیشتر توضیح می دم و بانک را هم براتون می فرستم فقط یکی باشه کمکم کنه . مرسی .
سلام دوست گرامی؛ سوالتون رو کامل متوجه شدم فقط یه سوال در مورد کلیت برنامه شما داشتم:
کل برنامه شما فقط در Access است و کاری به ویژوال بیسیک ندارد؟
یعنی اون فرمی که گفته بودید فرم برنامه نویسی است یا فرم های Access است؟ و می خواهید در Access کد نویسی کنید؟
سلام
1-در CommonDialog که توضیح دادید که صفحه open باز میشه چه طور باید چیزی رو که انتخاب شده به داخل فرم آورد؟
مثلا در WindowsMediaPlayer برای اجرای فیلم پنجره open باز شده چطور باید فیلم را به WindowsMediaPlayer آورد؟
2-لطفا زود تر در مورد save توضیحی دهید.
ممنون
مشخصه FileName در CommonDialog فایل انتخاب شده را به صورت آدرس بر می گرداند:
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL=CommonDialog1.FileName
---------------------------
کدهای Save در جلسه هفدهم است و ان شاءالله به زودی بر روی وبلاگ قرار خواهد گرفت