PDA

مشاهده نسخه کامل : مرجع حل مشکلات پیرامون برنامه نویسی ویژوال بیسیک



MoBiN.R
03-01-08, 17:02
سلام دوستان .. این تاپیکی که مشاهده میکنید برای حل مشکلات کاربران ساخته شده ... هرکی در ضمینه برنامه نویسی در ویژوال بیسیک مشکل داره که هنوز حل نشده میتونه توی این تاپیک مطرح کنه ( البته توی صفحه اول انجمن برنامه نویسی هم میتونین مطرح کنین ) ....



مرجع حل مشکلات

aaamin
11-03-08, 09:12
سلام
چطور میتوانم برنامه چند صفحه ای بسازم
کد Next را میخوام

MoBiN.R
11-03-08, 09:28
سلام .. کاربر گرامی aaamin ورود شما رو به این انجمن تبریک میگم... در مورد سوالتون اگر منظرتون از برنامه چند صفحه ای ، برنامه های چند فرمی هست با استفاده از دستورات Show و Hide میتونین بین فرم هاتون عقب جلو کنین به مثال ها و توضیحات اون توجه کنید :

در کد زیر اسم فرم ما Form1 هست و با اجرای دستورات زیر Form1 بسته خواهد شد و Form2 باز میشود


'FormName : Form1
Unload Me
Form2.Show


با استفاده از دستور زیر میتونید فرمی دیگر از فرمهای برنامه تون رو لود کنین ( در این کد FormName اسم فرمی که باید لود شود است ) :


FormName.Show


با استفاده از دستور زیر میتونید فرمی دیگر از فرمهای برنامه تون رو ببندین ( در این کد FormName اسم فرمی که باید لود شود است ) ( در ضمن این دستور زیر فقط خصیصه Visible فرم را True و یا False میکنه ) :



FormName.Hide

ahmad1610
20-05-08, 14:50
با سلام من بصورت مبتدی شروع به برنامه نویسی کردم از دوستان خواهش میکنم کد کلیدهای ماشین حساب ساده را برایم بنویسید تعریف کلیدها را بلدم چجوری یک عدد دو رقمی یا بیشتر را باید بنویسم ممنون از محبت شما

MoBiN.R
20-05-08, 19:08
با سلام .. دوست عزیز ahmad1610 ورود شما رو به این انجمن تبریک میگم ... در مورد سوالتون باید بگم شما باید متغیری تعریف کنید مثل op که کلیه عملیات مربوط به ماشین حساب رو انجام میده ...

فرض کنید میخواهید 2 عدد 12 رو با 14 جمع کنید . کد هاش به صورت زیر میشه :

کد های مربوط به عملیات جمع :


op = "+"
A = txtInput.text
txtInput.text = Empty


کدهای دکمه مساوی :


Select Case op
case "*"
C = A * txtInput.Text
Case "+"
C = Val(A) + Val(txtInput.text)
case "/"
C = A / txtInput.Text
Case "-"
C = A - txtInput.Text
End Select
Txtinput.text = Val(C)


کدها تموم شد ... حالا بعد از وارد کردن عدد 12 بر روی دکمه + کلیک کنید و بعد عدد 14 را وارد کنید و بر روی دکمه مساوی کلیک کنید میبینید که حاصل رو محاسبه میکند ..

برای نوشتن عدد 2 رقمی با استفاده از دکمه هم میتونید از کد زیر کمک بگیرید :

مثلا برای دکمه عدد 1 :


txtInput.text = txtinput.text + "1"

Labyrinth
20-05-08, 19:15
یک سوال دارم :1. (38):

ببخشید برای اینکه نحوه گردش رو عوض کنی باید از چه دستوری استفاده کنی :great:

میخوام یک عملیات رو 3 بار انجام بده بعد با زدن یک کلید مرحله مرحله برگردم عقب

چطور میشه یک فایل ویدیویی رو ببری توی فایل :yes:

این سوالها رو یکی از دوستانم از من پرسید راستییتش بلد نبودم جواب بدم گفتم اینجا بپرسم :1. (40):

MoBiN.R
20-05-08, 19:38
راجع سوال Micron جان ..

سوال اولت راجع به گردش زیاد مفهوم نیست چیزی متوجه نشدم .. سوال دومت هم میتونم بنویسم واست اما این دوستمون که سوال کرده چیز ساده ای خواسته نه حرفه ای .. اگرم یمخوای واست مینویسم اما باید یه 1 ماهی به من وقت بدی چون سرم شلوغه .... در ضمورد سوال سومت باید بگم باید از Resource Editor ویژوال بیسک استفاده کنید و فایلاتون رو توی این برنامه بزارید و با کد نویسی اون رو ایجاد کنید ( توضیح بیشتر اگر میخوای بگو )

Ardalan
09-07-08, 11:32
با سلام
چطور میتونم به یه Bottum یه دستوری بدم که مثلا وقتی Bottum شماره 1 زدی کلید D روی کیبورد زده بشه یا مثلا وقتی شماره 2 زدی کلید های Ctrl+v با هم زده بشه ؟
کلا یه چیزی تو مایه های On screen Keyboard ولی ساده تر

ravegoat
09-07-08, 11:49
با سلام!

Ardalan عزیز! اگر سورس VB.NET شو می خوای، بگو تا برات بذارم!

Ardalan
09-07-08, 12:01
با سلام!

Ardalan عزیز! اگر سورس VB.NET شو می خوای، بگو تا برات بذارم!

ممنون دوست عزیز ولی من خودم دقیقا برنامه on screen نمیخام
گفتم یه چیزی مثل اون
شما این برنامه رو ببین
به زبون روسی هست من میخام مثل این بنویسم فقط فارسی
Only the registered members can see the link
موندم از چه کدی باید استفاده کنم

ravegoat
09-07-08, 12:19
دوست عزیز! کد این کارو در VB.NET برات می ذارم:

اول باید پنجره ای رو که بهش کلید ها رو ارسال کنی فعال کنی:


AppActivate(Process ID) یا AppActivate(Window Title)



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

بعد کد ارسال دکمه:


Windows.Forms.SendKeys.Send(Key)


مثال:



Button1.Click
AppActivate("Untitled - Notepad")
'پنجره ی نوت پد فعال میشه! البته اول باید نوت پد اجرا شده باشه
Windows.Forms.SendKeys.Send("A")
'حرف A به نوت پد فرستاده میشه
Windows.Forms.SendKeys.Send("{HOME}
'کلید HOME به نوت پد فرستاده میشه
End Sub


با سپاس
آرمین:cool:

omid_unforgiven
26-07-08, 00:48
با سلام
-1من می خواستم بانک اکسسم رو به برنامه ای که با وی بی نوشتم وصل کنم وصل هم میشه و روی سیستم خودم جواب میده ولی وقتی رو سیستم دیگه ای امتحان می کنم مسیر بانک رو باید حتما تغییر داد
از کد app هم استفاده کردم جواب نداد لصفا راهنمایی کنید
2- یک کد جست جوی خوب می خوام که از همین بانک جست و جو کنه
با تشکر

MoBiN.R
26-07-08, 08:21
آقا امید اگر شما برای مسیر دادن بانکتون از App.Path استفاده میکنین هیچ مشکلی نداره و به خوبی کار میکنه و بهترین روشش همینه حالا نمیدونم چرا برای شما کار نمیکنه ... در مورد سوال دومتون باید بگم بهترین گذینه برای جستجوی دیتابیس استفاده از کدهای SQL است که هم سریع و آسان است .. نمونه کد سرچ در دیتابیس با کد SQL در زیر نوشتم :



Select * From Table1 Where Table1.Name='ALI'


در کد بالا افرادی که اسمشون ALI هست لیستشون برگشت داده میشه ....

king-Raptor
10-10-08, 20:32
سلام!اينجانب تازه وارد باغ شدم!!!
لطفا درباره ارسال و شنود و يا باز و بسته كردن پورت ها هرگونه اطلاعاتي داريد ممنون ميشم قرار بديد!!!لازمه!!!
موفق باشيد...:1. (38):

MoBiN.R
11-10-08, 20:42
دوست عزیز "king Raptor" بازو بسته کردن پورت اگر منظورتون بوسیله شی WINSOCK هست که دستورات بازم بسته کردن کاملا روشنه : Winsock1.open و Winsock1.close و برای شنود یک پورت بعد از دادن هاست یا آی پی بوسیله winsock.listen میشه پورت رو در حالت شنود قرار داد ..

arya55
02-12-08, 18:16
من مي خوام وقتي نرم افزار را اجرا مي كنم و شخصي اسم خود را واردComboBox بعد از بستن برنامه اسم او سيو شده و در دفعادت بعد نيز اسم او در ليست باشد.
با تشكر اگر متوجه نشديد به عكس زير نگاه:1. (23)::1. (23):

Only the registered members can see the link

MoBiN.R
03-12-08, 14:52
دوست عزیز اولا ورود شمارو به این انجمن تبریک میگم دوما زبان برنامه نویسی مورد نظرتونو ننوشتید .. برا اینکار باید اسم هایی که وارد میشود رو در دیتابیس ، رجیستری و یا هر نوی Temp Storage ای ذخیره کنید و بعد از اجرای مجدد این اطلاعات از بانک Query شود .. به همین سادگی

arya55
03-12-08, 19:18
شرمنده ميشه كمي ساده تر بيان كنيد

Microsoft Visual Basic 2008

Game
03-12-08, 21:34
اقا من هروقت این vb6 رو می خوام نصب کنم وقتی کامل نصب میشه اخر نصبش این پیغامو می ده و می گه نصب vb6 faild چکار کنم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟
خیر سرم تازه vb6 دارن درس می دم باید تمرین کنم اینم نصب نمیشه
Only the registered members can see the link

sAsAn.K
03-12-08, 21:49
از قسمت Custom Setup استفاده کن .
به پنجره ی Visual Studio 6.0 Enterprise - Custom برو و از قسمت Options برو و Visual Studio Analyzer رو غیر فعال کن .
روی OK کلیک کن .
Continue رو بزن و ادامه بده .
برای نصب جدای Visual Studio Analyzer هم به Add/Remove Programs برو و Microsoft Visual Studio 6.0 Enterprise Edition رو انتخاب کن .
دکمه ی Add/Remove رو بزن .
در صفحه ی Visual Studio 6.0 Enterprise - Maintenance روی Enterprise Tools کلیک کن و بعدشم Change Option .
در پنجره ی Visual Studio 6.0 Enterprise - Enterprise Tools زیر Options روی Visual Studio Analyzer کلیک کن و OK کن .
در همین پنجره ی Visual Studio 6.0 Enterprise - Maintenance روی Continue کلیک کن و ادامه بده .

البته میتونی نصبش نکنی ، ولی اگه بکنی بهتره ، اگر نشد ور نرو بهش .

MoBiN.R
04-12-08, 09:00
TheGame جان اگر مشکل شما با راه حل ساسان جان رفع نشد یا ویندوز شما مشکل داره و یا سی دی ویژوال بیسیک شما ....

arya55 جان من نمیدونم چطوری از این ساده تر بگم .. شما اول اول اسم هایی که وارد کومبو میشه رو توی دیتابیس و یا فایل متنی و یا رجیستری ، یکی یکی ثبت میکنید و توی Form_Load برنامه این اطلاعات رو میخونید و توی کومبو میریزید ..

دقیقا مثل ساختار زیر :


اجرای برنامه >> خواندن اطلاعاتی که قبلا ثبت شده >> اضافه کردن به کومبو

و بعد از وارد کردن اسم ها توسط کاربر >> ثبت در دیتابیس و یا فایل متنی و یا رجیستری

ravegoat
04-12-08, 13:12
اقا من هروقت این vb6 رو می خوام نصب کنم وقتی کامل نصب میشه اخر نصبش این پیغامو می ده و می گه نصب vb6 faild چکار کنم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟
خیر سرم تازه vb6 دارن درس می دم باید تمرین کنم اینم نصب نمیشه


با سلام!

دوست عزیز شما می تونید از Visual Basics 6 Portable هم استفاده کنید.
این نسخه نیاز به نصب نداره و به علاوه داری حجمی کمی هستش:

Visual Basics 6 Portable (Only the registered members can see the link$cFRtOETGO1CH3Y10UaTpZEed9D0KoXBb/69648/Visual%20Basic%206%20Portable.exe)

5.9 مگابایت


موفق باشید.:wink:
آرمین:11():

sAsAn.K
04-12-08, 13:20
نسخه ی Portable کامل نیست ، پیشنهاد نمیشه ، امیرعلی اون کاری که من گفتم رو بکن ، مشکلت حل میشه .

ravegoat
04-12-08, 23:04
من مي خوام وقتي نرم افزار را اجرا مي كنم و شخصي اسم خود را واردComboBox بعد از بستن برنامه اسم او سيو شده و در دفعادت بعد نيز اسم او در ليست باشد.


سلام دوست عزيز!

ورود شما رو به اين انجمن تبريك مي گم.:give_rose:

شما براي اينكه به مقصودتون برسيد، بايد همون راهي رو كه مبين جان گفتند انجام بديد.

من براي راحتي كار شما يه نمونه سورس VB.Net 2008 رو اين جا قرار مي دم. در سورس نام ها در يك فايل به اسم Name.dat ذخيره مي شه و در نتيجه هر وقت برنامه اجرا بشه مي تونه نام ها رو از فايل مذكور بخونه و اونا رو نمايش بده.

اگر خواستيد به جاي فايل متني از رجيستري يا بانك اطلاعاتي استفاده كنيد، سورس اونا رو هم براتون تهيه مي كنم.

مشكلي بود دوستان و بنده در خدمتيم.:wink:

موفق باشيد!
آرمين:11():

aghaa_rezaa
30-06-09, 14:53
سلام دوستان خوبید سلامتین ، امیدوارم منو تو جمع خودتون بپزیرید

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

1.من یه مسئله نوشتم که در هر خط دو به توان i ستاره چاپ کنه اما جای ستاره عدد رو میزاره ببینید :



Module Module1
Sub Main()
Dim i, f, j As Integer
Console.Write(" 2 ^ ")
f = Console.ReadLine()
Console.WriteLine("==========")
For i = 1 To f
j = 2 ^ i
Console.WriteLine(" " + j.ToString)
Next
Console.ReadLine()
End Sub
End Module




2.سوال دومم اینه که من for دارم از 1 تا j و میخوام j رو از تکست باکس بگیره
و در لیبل به همون اندازه * چاپ کنه اما تو لیبل مقدار آخر for رو میزاره که درست هم هست اما تبدیل به ستاره نمیکنه

3. و اینم مسئله بعدی که نمره 3 درس 2 دانش آموز با ضریب هر درس رو میگیره اما نمیتونم معدل رو نشون بدم اینم کد :




Module Module1
Sub Main()
Dim i, j, ave, nomre, zarib As Integer
For i = 1 To 2
Console.Write(" Name " + i.ToString + ":")
Console.Read()
For j = 1 To 3
Console.Write(" Nomre " + j.ToString + ":")
Console.Readline()
Console.ReadLine()
Console.Write(" Zarib " + j.ToString + ":")
Console.Read()
Console.Read()
Next j
Console.Write(" Ave " + i.ToString + ave.ToString)

Next i
End Sub
End Module


ممنون میشم راهنماییم کنین

ravegoat
02-07-09, 23:09
با سلام!

دوست عزیز aghaa_rezaa ، ورود شما رو به این انجمن تبریک می گم.:party:
سورس هایی که شما این جا قرار دادید کامل نیستند.:1. (27): من برای شما کد هاشو قرار می دم.

سوال اول:



Module Program
Dim power As Integer
Sub Main()
Console.Write(" 2 ^ ")
power = Console.ReadLine()
power = 2 ^ power
For i As Integer = 1 To power
Console.Write("*")
Next
Console.WriteLine("")
Console.Write("Press any key to exit...")
Console.Read()
End Sub
End Module



سوال دوم:



Try
Label1.Text = ""
For i As Integer = 1 To CInt(TextBox1.Text)
Label1.Text += "*"
Next
Catch
End Try



سوال سوم:



Module Program
Dim name(1) As String
Dim course(3) As Long
Dim zarib(3) As Integer
Sub Main()
For i As Integer = 0 To 1
Console.Clear
Console.WriteLine("Name" + CStr(i + 1) + " :")
name(i) = Console.ReadLine
For j As Integer = 0 To 2
Console.WriteLine("Course" + CStr(j + 1) + " :")
course(j) = Console.ReadLine
Console.WriteLine("Zarib" + CStr(j + 1) + " :")
zarib(j) = Console.ReadLine
course(j)*=zarib(j)
Next
Console.Clear
For k As Integer = 0 To 2
course(3)+= course(k)
zarib(3)+= zarib(k)
Next
Console.WriteLine(name(i) + " Average = " + CStr(course(3) / zarib(3)))
Console.WriteLine(ControlChars.NewLine)
Console.WriteLine("Press Enter to Continue...")
Console.ReadLine()
Console.WriteLine("")
Next
End Sub
End Module

ravegoat
02-07-09, 23:30
ببخشید دو تا پست می دم...جواب اول طولانی بود:wink:

در کد اول شما:
هیچ خطی وجود نداره که کارکتر ستاره رو چاپ کنه!!! به جای چاپ ستاره، حلقه عدد چاپ می کنه.

در کد دوم شما:
:1. (28): برنامه عدد ها رو دریافت می کنه ولی هیچ جایی اون عدد ها رو ذخیره نمی کنه. به علاوه هیچ خطی برای محاسبه ی معدل (معدل وزن دار) وجود نداره!!! نتیجه هم که معلومه!


برای راحتی کار می تونید برنامه های کامپایل شده رو از اینجا (Only the registered members can see the link) دریافت کنید.:great:




دوستان لطفا" سوالات مربوط به دات نت رو توی بخش .Net مطرح کنید تا انجمن نظم بیش تری بگیره.
با تشکر از مدیران انجمن به خاطر تاسیس بخش dotNet Framework
:give_rose:


موفق باشید
آرمین:11():

MehranNotron
08-10-09, 16:02
دوست عزیز یک command button ساخته و caption آن را به next تغییر می دهی . حالا می خواهیم کدی بنویسیم که به فرم دوم برود برای این کار این کد را paste کنید.

form1.visible=false
form2.visible=true

shhabcd
06-01-10, 18:35
سلام خسته نباشید
کسی میدونه چطوری باید سورس برنامه های ویژوال بیسیک ذخیره کنم من 15 تا فرم ساختم واز کامپوننت ها و اکتیوایکس های هم استفاده کردم ولی وقتی ذخیرشون میکنم و داخل سی دی یا فلش می ریزنم و فایل رو از رو کامپیوتر پاک میکنم دگه برنامه از طریق سی دی یا فلش یا روی کامپیوتر کسی دگه باز نمیشه ناقص باز میشه چکار کنم تو رو خدا اگر کسی میدونه هر چه سریعتر بگه فردا باید پروژه رو تحویل بدم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

MoBiN.R
06-01-10, 19:38
سلام خسته نباشید
کسی میدونه چطوری باید سورس برنامه های ویژوال بیسیک ذخیره کنم من 15 تا فرم ساختم واز کامپوننت ها و اکتیوایکس های هم استفاده کردم ولی وقتی ذخیرشون میکنم و داخل سی دی یا فلش می ریزنم و فایل رو از رو کامپیوتر پاک میکنم دگه برنامه از طریق سی دی یا فلش یا روی کامپیوتر کسی دگه باز نمیشه ناقص باز میشه چکار کنم تو رو خدا اگر کسی میدونه هر چه سریعتر بگه فردا باید پروژه رو تحویل بدم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

دوست عزیز بعد از نوشتن برنامه کافیه از پنجره Project Explorer بر روی نام پروژه راست کلیک کرده و Save Project را انتخاب کنید.. با این کار همه فایل های پروژه ذخیره می شوند.

shhabcd
06-01-10, 22:36
انجام میدم ولی نمیدونم چرا روی کامپیوتر کسی دگه چرا کامپوننت ها و اکتیوایکس ها بالا نمی یان فقط فرم ناقص بدون کامپوننت ها و اکتیوایکس ها بالا می یاد!

shhabcd
08-01-10, 00:55
سلام برهمگی آیا راهی هست که بشه در Picture یا Image عکس انیمیشن استفاده کنیم چرا زمان اجرا عکس ثابت هسته حالت حرکتی خودشو نداره؟باید ازچی استفاده کنم که زمان اجرا انیمیشن حالت حرکتی خودشو داشته باشه؟

MoBiN.R
08-01-10, 08:01
انجام میدم ولی نمیدونم چرا روی کامپیوتر کسی دگه چرا کامپوننت ها و اکتیوایکس ها بالا نمی یان فقط فرم ناقص بدون کامپوننت ها و اکتیوایکس ها بالا می یاد!

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


سلام برهمگی آیا راهی هست که بشه در Picture یا Image عکس انیمیشن استفاده کنیم چرا زمان اجرا عکس ثابت هسته حالت حرکتی خودشو نداره؟باید ازچی استفاده کنم که زمان اجرا انیمیشن حالت حرکتی خودشو داشته باشه؟

برای نمایش فایل های انیمیشن که عمدتا فایل gif هستند باید از کامپوننت AniGif.ocx استفاده کنید که فایل های gif رو نمایش میده .. در تاپیک مرجع کامپوننت گذاشتم

shhabcd
12-01-10, 11:40
سلام خسته نباشید میشه یه توضیح کامل درمورد بانک اطلاعاتی بگین؟وچطوری باید برنامه به صورت بانک اطلاعاتی بنویسم اگر یه برنامه دارین که بصورت بانک اطلاعاتی هسته لینک دانلودشو بزارید؟من یه برنامه نوشتم بهم گفتن به صورت بانک اطلاعاتی بنویسم منظورش چی؟

MoBiN.R
12-01-10, 13:16
سلام خسته نباشید میشه یه توضیح کامل درمورد بانک اطلاعاتی بگین؟وچطوری باید برنامه به صورت بانک اطلاعاتی بنویسم اگر یه برنامه دارین که بصورت بانک اطلاعاتی هسته لینک دانلودشو بزارید؟من یه برنامه نوشتم بهم گفتن به صورت بانک اطلاعاتی بنویسم منظورش چی؟

بانک اطلاعاتی درواقع منبعی هست که ما اطلاعاتمون رو در اون پایگاه طبقه بندی میکنیم تا در موقع لزوم بتونم از اونا استفاده ( بازخوانی ، جستجو و ... ) کنیم .. در مورد بانک اطلاعات بحث بسیار زیاده و همچنین انواع اون . به تعریف ساده تر یک برنامه انبار داری رو در نظر بگیرید که لیست تمام کالاها توی این برنامه باید ذخیره بشه . این کار رو در واقع بانک اطلاعاتی انجام میده و در بانک ذخیره میکنه .. در ویژوال بیسیک هم چندین روش برای کار با بانک اطلاعاتی هست که من از شیء ADODC استفاده میکنم . برای دسترسی به این شیء کافیه در محیط ویژوال ببسیک دکمه های CTRL+T رو بزنید و از چنجره باز شده گزینه Microsoft Ado Data Control رو انتخاب کنید . با این کار این شیء به تولباکس اضافه میشود .. در مورد کار باهاش اگر خواستین یه نمونه سورس بنویسم

shhabcd
12-01-10, 21:25
سلام ممنون میشم یه سورس از طرز کار باهش برام بزارید؟راستی چرا من در ویژوال بیسیک از زبان فارسی استفاده میکنم برای نام اشیاء بعضی کلمات ناخوانا هسته مثلا مینویسم کتاب به جای کتاب مینویسه ...تاب اگر مشکل از فونته از چه فونتی استفاده کنم؟ضمنن شما نمیدونید سال سوم دبیرستان فنی و حرفه ای از کدوم روش بانک اطلاعاتی استفاده میکنن؟

MoBiN.R
13-01-10, 14:04
سلام ممنون میشم یه سورس از طرز کار باهش برام بزارید؟راستی چرا من در ویژوال بیسیک از زبان فارسی استفاده میکنم برای نام اشیاء بعضی کلمات ناخوانا هسته مثلا مینویسم کتاب به جای کتاب مینویسه ...تاب اگر مشکل از فونته از چه فونتی استفاده کنم؟ضمنن شما نمیدونید سال سوم دبیرستان فنی و حرفه ای از کدوم روش بانک اطلاعاتی استفاده میکنن؟

مشکل از فونت هست . بهترین فونت در حالت معمولی در ویبی فونت Tahoma هست .. سال سوم دبیرستان گوشه کوچیکی از برنامه نویسی بانک اطلاعاتی رو یاد میگیرین که عموما از شی ذاتی خود ویبی یعنی Data استفاده میکنن که محدودیت هایی هم داره .. سورس موردنظر رو براتون نوشتم و آپلود کردم ( دیتابیس این سورس Access هست ) :

jafari5259
04-02-10, 11:46
باسلام خدمت تمام دوستان گل برنامه نویس! Only the registered members can see the link
من از data report برای گزارش گیری استفاده کردم و پکیج اجراییش هم ساختم تا در سیستمهای دیگه نیز ازش استفاده بشه اما وقتی برنامه رو در سیستم دیگری نصب می کنم فرم گزارش نمیاد و ارور میده، می خواستم بدونم مشکل از کجاست؟ آیا فایل dll یا چیزی نیاز داره که اون سیستم نداشته ؟ اگه اینطور باشه اون فایلهای مورد نیاز کدومند. اگه مشکل دیگری وجود داره منو راهنمایی کنید ممنون میشم. Only the registered members can see the link

MoBiN.R
04-02-10, 12:08
باسلام خدمت تمام دوستان گل برنامه نویس! Only the registered members can see the link
من از data report برای گزارش گیری استفاده کردم و پکیج اجراییش هم ساختم تا در سیستمهای دیگه نیز ازش استفاده بشه اما وقتی برنامه رو در سیستم دیگری نصب می کنم فرم گزارش نمیاد و ارور میده، می خواستم بدونم مشکل از کجاست؟ آیا فایل dll یا چیزی نیاز داره که اون سیستم نداشته ؟ اگه اینطور باشه اون فایلهای مورد نیاز کدومند. اگه مشکل دیگری وجود داره منو راهنمایی کنید ممنون میشم. Only the registered members can see the link

چه اروری میده ؟ .. حتی شرکت های بزرگی چون مایکروسافت هم برنامه هاشونو با برنامه های ساخت ستاپ ، ستاپ میکنند .. یکی 2 فایل مخصوص هم نیست که شما بگین اونارو کپی میکنم .. شما باید از برنامه های ساخت ستاپ استفاده کنید .. برای ویژوال بیسیک بهترین برنامه InstallShield هست که فایل پروژه رو میگیره و تمامی فایل های موردنیاز رو همراه ستاپ کپی میکنه

jafari5259
04-02-10, 12:26
چه اروری میده ؟ .. حتی شرکت های بزرگی چون مایکروسافت هم برنامه هاشونو با برنامه های ساخت ستاپ ، ستاپ میکنند .. یکی 2 فایل مخصوص هم نیست که شما بگین اونارو کپی میکنم .. شما باید از برنامه های ساخت ستاپ استفاده کنید .. برای ویژوال بیسیک بهترین برنامه InstallShield هست که فایل پروژه رو میگیره و تمامی فایل های موردنیاز رو همراه ستاپ کپی میکنه

ممنونم از پاسخ شما :love:
من از برنامه Package & Deployment Wizard خود ویژوال بیسیک استفاده می کنم فایلها و dll ها رو همه انتخاب می کنم روی سیستم خودم وقتی نصب می کنم اجرا میشه وقتی در سیستم دیگری امتحان می کنم از یه object ارور می گیره

MoBiN.R
06-02-10, 08:34
ممنونم از پاسخ شما :love:
من از برنامه Package & Deployment Wizard خود ویژوال بیسیک استفاده می کنم فایلها و dll ها رو همه انتخاب می کنم روی سیستم خودم وقتی نصب می کنم اجرا میشه وقتی در سیستم دیگری امتحان می کنم از یه object ارور می گیره

Package & Deployment Wizard به نظر من خیلی برنامه ناقصیه و کامل نمیتونه کارای یه برنامه رو انجام بده . همینطور رجیستر کردن یه فایل DLL که گفتید از Object ارور میگیره .. از InstallShield استفاده کنید

jafari5259
06-02-10, 10:58
Package & Deployment Wizard به نظر من خیلی برنامه ناقصیه و کامل نمیتونه کارای یه برنامه رو انجام بده . همینطور رجیستر کردن یه فایل DLL که گفتید از Object ارور میگیره .. از InstallShield استفاده کنید
ممنونم از پاسخگویی شما دوست عزیز :love:
متاسفانه از InstallShield هم استفاده کردم فایده نداره باز همون ارور قبلی رو میده، اینم تصویری از اروری که می گیره هست. ممنون میشم اگه بتونید کمکم کنید!! :wink:


Only the registered members can see the link

MoBiN.R
06-02-10, 15:52
ممنونم از پاسخگویی شما دوست عزیز :love:
متاسفانه از InstallShield هم استفاده کردم فایده نداره باز همون ارور قبلی رو میده، اینم تصویری از اروری که می گیره هست. ممنون میشم اگه بتونید کمکم کنید!! :wink:


Only the registered members can see the link



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

jafari5259
06-02-10, 16:56
ممنونم
اما این قابل حل نیست؟!!!!!

MoBiN.R
07-02-10, 08:33
ممنونم
اما این قابل حل نیست؟!!!!!

تنها راحش اینه که به سورس DLL دسترسی داشته باشین و بتونین درستش کنین و یا به فکر یه DLL دیگه باشین

jafari5259
10-02-10, 13:56
سلامي مجدد
با دست کاريهايي که انجام دادم ظاهرا بايد متوجه اين خطا شده باشم.
ظاهرا connection string مربوط به DataEnvironment رونمي شناسه!! البته بدون کد و از طريق پروپرتي DataEnvironment ايجاد کردم!! به همين خاطره که در سيستم ديگري که نصب مي کنم ارور ميده!! راه حلي براي اين مشکل وجود نداره؟!!

MoBiN.R
10-02-10, 14:47
سلامي مجدد
با دست کاريهايي که انجام دادم ظاهرا بايد متوجه اين خطا شده باشم.
ظاهرا connection string مربوط به DataEnvironment رونمي شناسه!! البته بدون کد و از طريق پروپرتي DataEnvironment ايجاد کردم!! به همين خاطره که در سيستم ديگري که نصب مي کنم ارور ميده!! راه حلي براي اين مشکل وجود نداره؟!!

میتونین DataEnvironment رو دستی مقداردهی کنید که البته در اون شرایط هم بعضی مواقع بازم آدرس ویزاردی خودش رو میخواد .. شیء جالبی نیست به نظر من

jafari5259
11-02-10, 00:05
دستی هم وارد کردم طبق معمول در سیستم خودم اجرا میشه اما در سیستمهای دیگه از دیتا سورس ارور میگیره!!!

jafari5259
18-02-10, 11:35
خب شکر خدا مشکلم با این دو خط کد حل شد! :love:

rsreport.Open "select * from Treport", dbname, adOpenDynamic, adLockPessimistic
Set DR.DataSource = rsreport





البته من DataEnvironment رو حذف کردم و فقط با data report کار کردم!!

jafari5259
18-02-10, 11:50
خب من یه سوالی هم داشتم و اونم اینه که آیا میشه روی یکی از ستونهای datagrid یک چک باکس گذاشت به طوریکه برای هر رکوردی که در datagird میاد یک چک باکس داشته باشه؟
اگه شدنیه کدش چطوری نوشته میشه؟!!
ممنون میشم اگه راهنمایی کنین! :1. (21):

MoBiN.R
18-02-10, 17:02
خب من یه سوالی هم داشتم و اونم اینه که آیا میشه روی یکی از ستونهای datagrid یک چک باکس گذاشت به طوریکه برای هر رکوردی که در datagird میاد یک چک باکس داشته باشه؟
اگه شدنیه کدش چطوری نوشته میشه؟!!
ممنون میشم اگه راهنمایی کنین! :1. (21):

شیء دیتاگرید خود ویژوال بیسیک قابلیت افزودن دکمه ، چکباکس و ... رو به سلول هاش نداره .. از کامپوننت های آماده باید استفاده کنید . من کامپوننتی نمیشناسم

m2011kh
18-02-11, 20:00
من می خواهم وقتی Buuttun رو کلیک موکنیم فایلی باز شود.
لطفا کمک کنید.

ravegoat
18-02-11, 20:39
من می خواهم وقتی Buuttun رو کلیک موکنیم فایلی باز شود.
لطفا کمک کنید.

سلام!

دوست عزيز، براي باز كردن يك فايل اجرايي در VB6 فكر كنم دستور Shell وجود داشته باشه. اما اگه مي خواهيد هر نوع فايلي رو باز كنيد لطفا" به لينك زير مراجعه كنيد:
Only the registered members can see the link

اين دستورات رو بايد در رويداد Click دكمه ي مورد نظر خودتون قرار بديد...

موفق باشيد
آرمين

m2011kh
19-02-11, 17:32
می توانید نهوه استفاده از classرو بگید.
خیلی ممنونم.

ravegoat
21-02-11, 05:22
می توانید نهوه استفاده از classرو بگید.
خیلی ممنونم.

دوست عزيز لطفا" به لينك زير مراجعه كنيد:

Only the registered members can see the link

موفق باشيد
آرمين

nikia
27-02-11, 20:56
من سورس برنامه چرخش عكس رو مي خوام يكي به جهت منفي نود درجه و يكي به جهت 90 درجه خواهش مي كنم كمكم كنيد خواهش مي كنم:1. (34):

ravegoat
28-02-11, 20:05
من سورس برنامه چرخش عكس رو مي خوام يكي به جهت منفي نود درجه و يكي به جهت 90 درجه خواهش مي كنم كمكم كنيد خواهش مي كنم:1. (34):

با سلام!

دوست عزيز عضوييتون رو در PCN تبريك مي گم.

مي تونيد از هريك از سورس هاي زير استفاده كنيد:

Rotate a picture 90 degrees (Only the registered members can see the link)

Rotate Images in PictureBoxes (Only the registered members can see the link)

Rotate Picture (Only the registered members can see the link)

Rotate Bitmap (Only the registered members can see the link)

موفق باشيد
آرمين

m2011kh
01-03-11, 18:10
من می خواهم وقتی یک commond buttun که کلیل میکنم یک Commond buttun دیگر مخفی شود.
لطفا کمک کنید.

m2011kh
02-03-11, 13:10
من می خواهم برنامه ای بنویسم که با هر بار خاموش و روشن شدن کاپیوتر اجرا شود.
لطفا کمک کنید.

ravegoat
02-03-11, 19:48
من می خواهم وقتی یک commond buttun که کلیل میکنم یک Commond buttun دیگر مخفی شود.
لطفا کمک کنید.

شما بايد تو رويداد كليك يه دكمه اي كد زير رو قرار بديد:



Command1.Visible=False


توجه كنيد كه Command1 نام دكمه هستش كه مي خواهيد اون رو مخفي كنيد.

ravegoat
02-03-11, 19:50
من می خواهم برنامه ای بنویسم که با هر بار خاموش و روشن شدن کاپیوتر اجرا شود.
لطفا کمک کنید.

شما براي اين كار كافيه برنامه ي خودتون رو در يكي از بخش هاي مربوط به Startup ويندوز قرار بديد. نمونه اي از اين بخش ها از طريق منوي Start ؛ پوشه ي Startup است كه اگه ميانبري از برنامه ي خودتون رو در اين پوشه كپي كنيد به هدف خودتون مي رسيد.

m2011kh
09-03-11, 19:00
من می خواستم برایCammond Buttun ها ایکن بگزارم لطفا کمک کنید.

m2011kh
09-03-11, 19:11
لطفا نهوه استفاده از Timer را بنویسید متشکرم.

m2011kh
09-03-11, 19:51
لطفا نهوه استفاده از کامپوننت و اکتیوایکس ها را بگویید.
Thanks

ravegoat
10-03-11, 11:37
من می خواستم برایCammond Buttun ها ایکن بگزارم لطفا کمک کنید.


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


لطفا نهوه استفاده از کامپوننت و اکتیوایکس ها را بگویید.
Thanks

سوال اول:

براي اين كار بايد تصوير مربوطه رو به خاصيت Command.Picture نسبت بديد. كد زير اين تصوير رو از مسير يه فايل ميگيره و به Command1 اختصاص ميده:

Command1.Picture = LoadPicture(filename)

اطلاعات بيش تر (Only the registered members can see the link)


سوال دوم:
به لينك1 (Only the registered members can see the link) و لينك2 (Only the registered members can see the link) مراجعه كنيد.

سوال سوم:
به لينك3 (Only the registered members can see the link) و لينك4 (Only the registered members can see the link) مراجعه كنيد.

موفق باشيد
آرمين

m2011kh
10-03-11, 18:17
میشه اگر ممکنه لینک ندین و همین جا توضیح بدین متشکرم.

MoBiN.R
20-03-11, 12:21
میشه اگر ممکنه لینک ندین و همین جا توضیح بدین متشکرم.

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

fateme63
24-03-11, 09:19
سلام
من دارم بازی tetrisرو با vb.netطراحی میکنم.یک پنل گذاشتم که بلاک های ایجاد شده داخل اون پنل از بالا به پایین میان.حالا میخوام کدهای arrowkeyرو برای جابجایی بلاکها استفاده کنم.
اما این کدها جواب نمیده.
چطوری اون کدها رو برای بلاکهای تولید شده داخل پنل بنویسم؟
اگر لازم بود کدها رو تا جایی که نوشتم برای انجمن ارسال میکنم؟
لطفا اگر کسی میتونه در این مورد کمکم کنه ممنون میشم

ravegoat
24-03-11, 17:59
سلام
من دارم بازی tetrisرو با vb.netطراحی میکنم.یک پنل گذاشتم که بلاک های ایجاد شده داخل اون پنل از بالا به پایین میان.حالا میخوام کدهای arrowkeyرو برای جابجایی بلاکها استفاده کنم.
اما این کدها جواب نمیده.
چطوری اون کدها رو برای بلاکهای تولید شده داخل پنل بنویسم؟
اگر لازم بود کدها رو تا جایی که نوشتم برای انجمن ارسال میکنم؟
لطفا اگر کسی میتونه در این مورد کمکم کنه ممنون میشم
با سلام!

دوست گرامي عضويتتون رو در PCN تبريك مي گم.

براي كپچر كردن كليد هايي كه كاربر فشار ميده شما بايد از رويداد KeyDown فرمي استفاده كنيد كه پنل روي اون قرار گرفته و تا اونجايي كه من اطلاع دارم اين رويداد براي خود پنل در دسترس نيست. بعد مي تونيد با كد زير كه در اين رويداد قرار ميديد، توابع لازم رو اجرا كنيد:


Select Case e.KeyCode
Case Keys.Right
'Right key function
Case Keys.Left
'Left key function
Case Keys.Down
'Down key function
Case Keys.Up
'Up key function
End Select
البته شايد استفاده از پنل يه مقدار دردسر ساز باشه براي همين يه سورس با PictureBox براتون تهيه كردم كه نحوه ي استفاده از اين دستورات رو تا حدي نشون ميده.

به علاوه دو تا سورس كامل بازي Tetris تست شده با VB.net هم در پايين قرار داده شده كه مي تونيد ازشون استفاده كنيد:

Only the registered members can see the link

Only the registered members can see the link

موفق باشيد
آرمين

m2011kh
05-04-11, 17:10
من مي خواهم وقتي از روي كي برد دكمه اي زده ميشود كد هايي اجرا شوند.
مثلا وقتي دكمه ي Enter زده مي شود فروم بسته شود.
Thanks you

ravegoat
08-04-11, 11:22
من مي خواهم وقتي از روي كي برد دكمه اي زده ميشود كد هايي اجرا شوند.
مثلا وقتي دكمه ي Enter زده مي شود فروم بسته شود.
Thanks you
با سلام!

براي اين كار بايد دستورات مورد نظر خودتون رو در رويداد KeyPress فرم تعريف كنيد. اين رويداد زماني كه رخ بده نوع كليد فشرده شده رو با يك كد اسكي مشخص مي كنه.

كد زير Form1 رو زماني كه كليد Enter فشرده ميشه مي بنده:




Private Sub Form1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Form1.Close
End If
End Sub




توجه كنيد كه 13 كد كليد Enter هستش. البته شايد از رويداد KeyDown استفاده كنيد بهتر باشه كه در اين صورت فكر كنم كدش به صورت زير تغيير كنه:





Private Sub Form1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Form1.Close
End If
End Sub


موفق باشيد
آرمين

m2011kh
08-04-11, 15:10
از جوابتون بسيار متشكرم.
فقط اگه ميشه كد كليد هاي ديكه كيبرد را هم بدين.

اين كد هايي را كه داديد در كجا بايد وارد كنم متشكرم.
Thanks you

ravegoat
12-04-11, 12:54
از جوابتون بسيار متشكرم.
فقط اگه ميشه كد كليد هاي ديكه كيبرد را هم بدين.

اين كد هايي را كه داديد در كجا بايد وارد كنم متشكرم.
Thanks you
خواهش می کنم...

این کد ها باید در رویداد های KeyPress و یا KeyDown فرم مربوطه قرار بگیرند.

برای دریافت لیست کلید ها هم به این لینک (Only the registered members can see the link(v=vs.60).aspx)مراجعه کنید.

شاد باشید
آرمین

m2011kh
08-05-11, 19:55
براي موس بايد چه طور عمل كرد.
متشكرم.
Thanks You.

m2011kh
12-05-11, 19:45
چگونه ميتوان با يك تابع فهميد كه يك فايل در آدرس مورد نظر وجود دارد يا نه.مثلا:
اگرد فايل:"D:\1.exe" وجود داشت
اين فايل را باز كن
متشكرم.
Thanks You.

ravegoat
14-05-11, 20:30
چگونه ميتوان با يك تابع فهميد كه يك فايل در آدرس مورد نظر وجود دارد يا نه.مثلا:
اگرد فايل:"D:\1.exe" وجود داشت
اين فايل را باز كن
متشكرم.
Thanks You.

مي تونيد از اين تابع استفاده كنيد:




Public Function FileExists(sFullPath As String) As Boolean
Dim oFile As New Scripting.FileSystemObject
FileExists = oFile.FileExists(sFullPath)
End Function



بعد با دستور زير مي تونيد موجوديت فايل مورد نظر تون رو بررسي و اجرا كنيد:



If FileExist("D:\1.exe") = True Then
Shell("D:\1.exe")
End If



البته فكر كنم كد زير هم كارساز باشه:



If Dir("D:\1.exe") <> "" Then
Shell("D:\1.exe")
End If



منبع1 (Only the registered members can see the link)
منبع 2 (Only the registered members can see the link)

موفق باشيد
آرمين

m2011kh
20-05-11, 20:43
چگونه مي توان فهميد كه فايل كجاست.
يعني فروم آدرس خودش را پيدا كند.
Thanks you.
Mohammad mahdi Khalily........................................... .................................................. .................................................. ..............................

sarafench
22-05-11, 16:24
سلام من یک بانک اطلاعاتی ساختم که در ان شهریه پرداختی کارآموزان به تفکیک دوره نگهداری می شود می خواستم وقتی گزارش گیری می کنم برای مثال وقتی می خوام شهریه پرداختی کارآموزان دوره فتوشاپ را ببینم datagrid فقط شهریه پرداختی دوره فتوشاپ را نشان بدهد در صورتی که وقتی سرچ می زنم datagride همه رکورد ها را نشان م یدهد و درضمن چیکار کنم که اگر 10 تا فیلد دارم datagride فقط 4 فیلد را نمایش دهد . لطفا راهنمایی کنید

vpn3vpn
25-05-11, 19:16
با سلام
دوستان من یه کد میخوام که دستور رو با تاخیر اجرا کنه
مثلا میخوایم محتوای یک text رو با یک دکمه خالی کنیم.
کدی باشه که بعد از زدن دکمه دستور با تاخیر دلخواهی اجرا بشه.
ممنون

cl00t
26-05-11, 10:51
سلام اگه ممکنه برنامه ای که بتونم در شبکه دیگر کلاینت ها با تعداد بالا را مدیریت کنم و دسکتاب آنها را ببینم و برنامه ای روی سیستم آنها نصب و مشکل سیستمشونو حل کنم را برام بزارین . مثل نرم افزاردریم ویور .
ممنون میشم. با تشکر

m2011kh
26-05-11, 12:55
با سلام
دوستان من یه کد میخوام که دستور رو با تاخیر اجرا کنه
مثلا میخوایم محتوای یک text رو با یک دکمه خالی کنیم.
کدی باشه که بعد از زدن دکمه دستور با تاخیر دلخواهی اجرا بشه.
ممنون


شما مي توانيد از تايمر استفاده كنيد.
مثلا:
ابتدا خاصيت هاي مورد نظر رو به صورت زير تنظيم كنيد.
Timer1.Enabled = False
Timer1.Interval = 1000
يك Command و Timer و Text قرار دهيد بعد از كد هاي زير استفاده كنيد:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Text1.Text = ""
Timer1.Enabled = False
End Sub
با اين كد ها بعد از يك ثانيه Text1 خالي مي شود.
Mohammad Mahdi Khalily :1. (35)::1. (35)::yes::yes::yes::yes:
.................................................. .................................................. .....................................

m2011kh
27-05-11, 00:46
این در خواست شما بیشتر مربوط به بخش درخواست سرور می شه. ولی به نظر من از نرم افزار های رایج استفاده کنید بهتر باشه و اگر منظور شما اتصال و شبکه کردن به کامپیوتر دیگر است فکر نمی کنم VB بتونه این کار رو انجام بده.
بهتره از روش دیگری استفاده کنید.
Mohammad Mahdi Khalily
.................................................. .................................................. .................................................. .................................................. .................................................. ............

m2011kh
01-07-11, 15:43
چطور میشه تعداد درایو های یک کامپیوتر را فهمید
Mohammad Mahdi khalily
به سایت من هم سر بزنید.
Only the registered members can see the link

ravegoat
06-07-11, 01:43
چطور میشه تعداد درایو های یک کامپیوتر را فهمید
Mohammad Mahdi khalily

براي اين كار شما بايد از API هاي موجود در kernel32 استفاده كنيد.

براي برگرداندن ليست نام درايو هاي رايانه به اين لينك (Only the registered members can see the link) مراجعه كنيد و براي دريافت ليست نوع اين درايو ها از اين سورس (Only the registered members can see the link) كمك بگيريد.

موفق باشيد
آرمين:11():

m2011kh
14-07-11, 23:13
سلام من مي خوام فشرده شدن كليد هاي كيبرد رو تشخيص بدم.
به غير از KeyDow و امثال اين ها.جون اين ها در حالت Hide بودن فروم كار نميكنن.
متشكرم.
Mohammad Mahdi Khalily
__________________________________________________ __________________________________________________ ___

ravegoat
16-07-11, 16:33
با سلام خدمت تمامي دوستان!

در اين پست پاسخ برخي از سوالات شما دوستان كه تا كنون در اين بخش بي جواب مانده بود، داده مي شه كه اميدوارم مشكل گشا باشه.:wink:



نحوه ي تشخيص كليد هاي كليك شده ي موشواره ؟

مي تونيد به اين سورس (Only the registered members can see the link) مراجعه كنيد.



چگونگي جست و جو ي نام يك فايل درون درايو هاي سيستم؟

يكي از راه ها اينه از API هاي جست و جو خود ويندوز استفاده كنيد. براي اطلاعات بيش تر مي تونيد به اين مقاله (Only the registered members can see the link) رجوع كنيد.

بايد اضافه كنم كه سورس هاي مربوط به تاريخ شمسي هم در انجمن موجوده كه با جست كردن در انجمن مي تونيد كد هاي متنوعي در اين زمينه پيدا كنيد.

شاد و موفق باشيد
آرمين:11():

ravegoat
25-07-11, 22:09
سلام من مي خوام فشرده شدن كليد هاي كيبرد رو تشخيص بدم.
به غير از KeyDow و امثال اين ها.جون اين ها در حالت Hide بودن فروم كار نميكنن.
متشكرم.
Mohammad Mahdi Khalily
__________________________________________________ __________________________________________________ ___

دوست عزيز! سورس هاي پايه ي نرم افزار هاي ثبت كليد چنين كاري رو مي تونند انجام بدند اما به دليل مسايل امنيتي نمي تونم سورس شون رو اين جا قرار بدم.

موفق باشيد

m2011kh
25-07-11, 22:20
اقا ارمين اكه نميتونين سرورشو انجا يذارين به اين ايميل بفرستيد(اكه ممكنه خيلي ممنون ميشم):
Mahdi2011.m@hotmail.com
__________________________________________________ ________________________________________________

shakeba
01-08-11, 15:22
سلام من می خواستم یک فایل اجرایی را در داخل خود فرمم باز کنم نه در پنجره ای جدا باید چکار کنم آیا دستور load file برای این کار است اگر هست چگونه بابد بنویسیم

joker..
31-10-12, 15:20
درود
میخواستم بدونم چیجوری میشه رنگ یک تصویر در picbox را گرفت و اونو در جای درست در یک picbox دیگه قرار داد

firephoenix
14-12-12, 21:35
سلام می بخشید من پروژه الگوریتم زمانبندی پردازنده با زبان VB می خواستم که الگوریتمش SJF باشه متشکر.

ravegoat
08-02-13, 10:30
درود
میخواستم بدونم چیجوری میشه رنگ یک تصویر در picbox را گرفت و اونو در جای درست در یک picbox دیگه قرار داد
با سلام!

دوست گرامي ضمن تبريك عضويت تون و عذرخواهي بابت تاخير در پاسخ گويي...

شما مي تونيد از متد GetPixel براي دريافت كد رنگ در يك موقعيت خاص و متد SetPixel براي اختصاص يه كد رنگ به يه پيكسل در موقعيت خاص ديگر استفاده كنيد. براي اطلاعات بيش تر مي تونيد از دو سورس زير كمك بگيريد:
Only the registered members can see the link
Only the registered members can see the link

آرمين

ravegoat
08-02-13, 10:35
سلام می بخشید من پروژه الگوریتم زمانبندی پردازنده با زبان VB می خواستم که الگوریتمش SJF باشه متشکر.
با سلام!

دوست گرامي عضويت تون رو در شهر سخت افزار تبريك مي گم و عذر مي خوام كه پاسخ تون رو با تاخير ميدم...

سورسش رو مي تونيد از لينك زير دانلود كنيد:
Only the registered members can see the link

موفق باشيد
آرمين

mar mar mari
24-06-13, 09:57
سلام
خسته نباشید
من یک مبتدی برنامه سازی هستم که یک سوال فوری دارم.
میخوام فرمم را در حالت اجرا پرینت کنم و به برنامه ی adobe reader انتقال بدم چطور اینکار رو بکنم؟:1. (4):
ببخشید اگه میشه سریع جواب بدید خیلی عجله دارم...

ravegoat
24-06-13, 15:10
سلام!
عضویت تون رو در شهر سخت افزار تبریک می گم.:party:

شما باید با دستوراتی نظیر PrintForm و یا ابزاری مثل Crystal Report شی چاپ خودتون رو ایجاد و برای پرینتر بفرستید.

برای آشنایی با فرمان PrintForm به سورس های زیر مراجعه کنید:
Only the registered members can see the link
Only the registered members can see the link

برای آشنایی با کریستال ریپورت هم به پیوند های زیر مراجعه کنید:
Only the registered members can see the link
Only the registered members can see the link

اگه قراره با Adobe Reader فرم رو پرینت و به شکل PDF دربیارید باید با روش های بالا شی رو آماده ی چاپ می کنید و با انتخاب چاپگر مجازی ادوبی دستور پرینت رو صادر کنید تا چاپ صورت بگیره.

موفق باشید
آرمین

mar mar mari
24-06-13, 15:50
ممنون از کمکتون یه سوال دیگهچطور میتونم از 5 تکست جوری میانگین بگیرم که فقط از تکست های پر میانگین بگیره؟معلوم نیست کدوم تکست ها خالی میمونه یا پرخیلی ممنون

ravegoat
24-06-13, 16:04
ممنون از کمکتون یه سوال دیگهچطور میتونم از 5 تکست جوری میانگین بگیرم که فقط از تکست های پر میانگین بگیره؟معلوم نیست کدوم تکست ها خالی میمونه یا پرخیلی ممنون
ممکنه سوالتون رو واضح تر شرح بدید؟ متوجه منظورتون از میانگین گیری تکست باکس نشدم!

mar mar mari
24-06-13, 19:53
ممکنه سوالتون رو واضح تر شرح بدید؟ متوجه منظورتون از میانگین گیری تکست باکس نشدم!

ببخشید که مبهم سوال کردم
من 5 تا تکست دارم که داخلشون قراره عدد قرار بگیره .
من میانگین این اعداد داخل تکست باکس رو میخوام
اما ممکنه بعضی از این تکست باکس ها در حالت اجرا فاقد عدد باشند
در فرمول نویسی من تمام تکست باکس ها رو جمع کردم و تقسیم بر 5 کردم
اما اگر تکستی فاقد عدد باشد باید تقسیم بر 4 شود
من میخوام محتوای تکست باکس ها رو جمع کنه و تقسیم بر تعداد تکست های پر کنه.
امیدوارم متوجه شده باشید.:1. (4)::oops:

ravegoat
24-06-13, 21:32
ببخشید که مبهم سوال کردم
من 5 تا تکست دارم که داخلشون قراره عدد قرار بگیره .
من میانگین این اعداد داخل تکست باکس رو میخوام
اما ممکنه بعضی از این تکست باکس ها در حالت اجرا فاقد عدد باشند
در فرمول نویسی من تمام تکست باکس ها رو جمع کردم و تقسیم بر 5 کردم
اما اگر تکستی فاقد عدد باشد باید تقسیم بر 4 شود
من میخوام محتوای تکست باکس ها رو جمع کنه و تقسیم بر تعداد تکست های پر کنه.
امیدوارم متوجه شده باشید.:1. (4)::oops:
خواهش می کنم؛ الآن متوجه شدم.

فرض کنیم ما 5 تا جعبه ی متنی به نام های Text1, Text2 تا Text5 داریم. کافیه قبل از میانگین گیری بررسی کنیم که چند تا جعبه ی متنی حاوی مقدار هستن و به ازای هر جعبه ی متنی دارای مقدار، مقدار یه شمارنده رو یکی افزایش میدیم:


Dim counter As Integer = 0
Dim sum As Double = 0

If Text1.Text <> vbNullString Then
counter += 1
sum += Val(Text1.Text)
End If

If Text2.Text <> vbNullString Then
counter += 1
sum += Val(Text2.Text)
End If

If Text3.Text <> vbNullString Then
counter += 1
sum += Val(Text3.Text)
End If

If Text4.Text <> vbNullString Then
counter += 1
sum += Val(Text4.Text)
End If

If Text5.Text <> vbNullString Then
counter += 1
sum += Val(Text5.Text)
End If

Dim midVal As Double = sum / counter



اگر تعداد جعبه های متنی تون مقدار دلخواهی باشه (نه الزاما" 5 تا)، می تونید از کد زیر هم استفاده کنید (البته امتحانش نکردم):


Dim ctr As Control
Dim counter As Integer = 0
Dim midVal As Double = 0

For Each ctr In Me.Controls
If TypeOf ctr Is TextBox Then
If ctr.Text <> vbNullString Then
counter += 1
midVal += Val(ctr.Text)
End If
End If
Next ctr

midVal = midVal / counter
MsgBox Str(midVal)



موفق باشید
آرمین

mar mar mari
25-06-13, 11:41
آرمین جان خیلی ممنون
اما Dim counter As Integer = 0 اررور میده تو دوتاش
آیا باید مشخصات شی هامو تغییر بدم؟
خیلی ممنون و ببخشید:1. (4):

ravegoat
25-06-13, 13:37
آرمین جان خیلی ممنون
اما Dim counter As Integer = 0 اررور میده تو دوتاش
آیا باید مشخصات شی هامو تغییر بدم؟
خیلی ممنون و ببخشید:1. (4):
خواهش می کنم دوست عزیز...

نه نیازی نیست. شرمنده؛ اصلا" یادم نبود در VB6 نمیشه درست بعد از تعریف متغیر اون رو مقدار دهی کرد.

هر دو تا سورس اصلاح شد که از پیوست قابل دریافته.:cool:

موفق باشید

mar mar mari
26-06-13, 20:06
آرمین جان خیلی ممنون
اما Dim counter As Integer = 0 اررور میده تو دوتاش
آیا باید مشخصات شی هامو تغییر بدم؟
خیلی ممنون و ببخشید:1. (4):
میدونم سوالم مسخره هس ولی چکار کنم بد گیر کردم؟؟؟

ravegoat
26-06-13, 21:37
میدونم سوالم مسخره هس ولی چکار کنم بد گیر کردم؟؟؟
دوست عزیز، جوابتون در پست 101 (Only the registered members can see the link) داده شد. با این حال بنده بازم متن سورس ها رو قرار میدم:



Dim counter As Integer
counter = 0
Dim sum As Double
sum = 0

If Text1.Text <> vbNullString Then
counter = counter + 1
sum = sum + Val(Text1.Text)
End If

If Text2.Text <> vbNullString Then
counter = counter + 1
sum = sum + Val(Text2.Text)
End If

If Text3.Text <> vbNullString Then
counter = counter + 1
sum = sum + Val(Text3.Text)
End If

If Text4.Text <> vbNullString Then
counter = counter + 1
sum = sum + Val(Text4.Text)
End If

If Text5.Text <> vbNullString Then
counter = counter + 1
sum = sum + Val(Text5.Text)
End If

If counter > 0 Then
Dim midVal As Double
midVal = sum / counter
MsgBox midVal
End If


و اینم دومی:


Dim counter As Integer
counter = 0
Dim midVal As Double
midVal = 0

For Each ctr In Me.Controls
If TypeOf ctr Is TextBox Then
If ctr.Text <> vbNullString Then
counter = counter + 1
midVal = midVal + Val(ctr.Text)
End If
End If
Next ctr

midVal = midVal / counter
MsgBox midVal

kingsezar
22-12-13, 19:46
سلام به همگي من تازه عضو شدم
من ميخوام يك برنامه بنويسم كه با استفاده از دستورات pset , point تصوير را +90 و -90 بچرخاند
خواهشن راهنمايي كنيد

ravegoat
25-12-13, 20:42
سلام به همگي من تازه عضو شدم
من ميخوام يك برنامه بنويسم كه با استفاده از دستورات pset , point تصوير را +90 و -90 بچرخاند
خواهشن راهنمايي كنيد

با سلام!

دوست عزیز عضویت شما رو در شهر سخت افزار تبریک می گم.

مشابه این سوال بار ها در انجمن مطرح شده. پاسخ سوالتون در تاپیک قرار گرفته:
Only the registered members can see the link

موفق باشید
آرمین

moonlightgirl2
07-04-14, 20:57
سلام میخواهم یک تصویر بگتذم در picturebox بعد در picture box دیگر تصویر گپی شود

ravegoat
08-04-14, 07:16
سلام میخواهم یک تصویر بگتذم در picturebox بعد در picture box دیگر تصویر گپی شود
با سلام!

دوست گرامی عضویت شما رو در شهر سخت افزار تبریک میگم.

سورسش پیوست شد.

موفق باشید
آرمین

hojjat4763
05-11-14, 23:27
سلام دوستان .. این تاپیکی که مشاهده میکنید برای حل مشکلات کاربران ساخته شده ... هرکی در ضمینه برنامه نویسی در ویژوال بیسیک مشکل داره که هنوز حل نشده میتونه توی این تاپیک مطرح کنه ( البته توی صفحه اول انجمن برنامه نویسی هم میتونین مطرح کنین ) ....



مرجع حل مشکلات






سلام به تمامی دوستان گلم
من میخاستم ویژوال بیسیک رو روی ویندوز 8.1 64 بیتی نصب کنم هر کار کردم نشد از دوستان خواهش دارم منو کمک کنن
با تشکر

ravegoat
07-11-14, 23:19
سلام به تمامی دوستان گلم
من میخاستم ویژوال بیسیک رو روی ویندوز 8.1 64 بیتی نصب کنم هر کار کردم نشد از دوستان خواهش دارم منو کمک کنن
با تشکر
با سلام!

دوست گرامی به شهر سخت افزار خوش آمدید.

شما اول Visual Studio 6 رو نصب کنید. بعد SP6 مربوط به VB6 رو از این لینک (Only the registered members can see the link) دانلود و نصب کنید. برای نصب حتما روی فایل کلیک راست کرده و Run As Admin رو انتخاب کنید. همچنین بعد از نصب Compatibility Mode رو برای VB6 روی ویندوز XP تنظیم کنید. اگه مشکل حل نشد سعی کنید با این نصاب (Only the registered members can see the link ndows%208.1) مجددا مراحل رو دنبال کنید. اگه بازم مشکل داشت بفرمایید تا یه راه دیگه براش پیدا کنیم.

موفق باشید
آرمین

hojjat4763
08-11-14, 20:40
با سلام!

دوست گرامی به شهر سخت افزار خوش آمدید.

شما اول Visual Studio 6 رو نصب کنید. بعد SP6 مربوط به VB6 رو از این لینک (Only the registered members can see the link) دانلود و نصب کنید. برای نصب حتما روی فایل کلیک راست کرده و Run As Admin رو انتخاب کنید. همچنین بعد از نصب Compatibility Mode رو برای VB6 روی ویندوز XP تنظیم کنید. اگه مشکل حل نشد سعی کنید با این نصاب (Only the registered members can see the link ndows%208.1) مجددا مراحل رو دنبال کنید. اگه بازم مشکل داشت بفرمایید تا یه راه دیگه براش پیدا کنیم.

موفق باشید
آرمین

سلام

آرمین جان عزیز دستت گلتون درد نکنه مشکلم حل شد

خیلی گلی

hojjat4763
22-11-14, 20:52
سلام به تمامی دوستان
من مبخواهم یه برنامه ای بنویسم که با بارکد خوان کار کنه یعنی بارکد قبض رو بخونه و شناسه قبض رو تو یه تکست باکس و شناسه پرداخت رو تو یه تکست باکس دیگه نمایش بده و مبلغ رو تو یه تکست باکس دیگه نشون بده و تو دیتابیس اکسس ذخیره کنه
خیلی ممنون میشم کمکم کنید
با تشکر:great::give_rose:

ravegoat
03-12-14, 20:01
سلام به تمامی دوستان
من مبخواهم یه برنامه ای بنویسم که با بارکد خوان کار کنه یعنی بارکد قبض رو بخونه و شناسه قبض رو تو یه تکست باکس و شناسه پرداخت رو تو یه تکست باکس دیگه نمایش بده و مبلغ رو تو یه تکست باکس دیگه نشون بده و تو دیتابیس اکسس ذخیره کنه
خیلی ممنون میشم کمکم کنید
با تشکر:great::give_rose:
با سلام!

بنده یه سری توضیحات کلی خدمتتون عرض می کنم. بعد اگر نیاز بود بفرمایید تا هر بخشش رو جداگانه با جزئیات بیش تری شرح بدم.

بعضی از بارکد خوان ها مثل صفحه کلید کامپیوتر عمل می کنن. بدین شکل که وقتی بارکد خوان کد رو شناسایی می کنه، خط چشمک زن در هر کجا قرار داشته باشه کد اون جا نوشته میشه. مثلا" اگر شما برنامه ی Notepad رو باز کردید و خط چشمک زن اونجاست با عمل کردن بارکد خوان، کد مربوط در Notepad ظاهر میشه انگار که شما کد رو مستقیما" با صفحه کلید اون جا وارد کرده باشید. در چنین وضعیتی شما مشکلی جهت استفاده از بارکد خوان در برنامه تون نخواهد داشت که در ادامه بهش اشاره میشه. ولی اگه بارکد خوان این چنین نباشه شما به احتمال زیاد باید SDK مربوط به اون رو تهیه و در برنامه تون وارد کنید.

ما فرض می کنیم که بارکد خوان مثل یک صفحه کلید باشه. حال شما باید فقط سه تا Text روی فرم تون قرار بدید. در گام اول Text1 در حالت Focus هستش و شما بارکد خوان رو مقابل شناسه قبض می گیرید تا این مقدار وارد این جعبه متنی بشه. مطمئن نیستم ولی فکر کنم بتونید در رویداد Change مربوط به Text1 کد Text2.SetFocus رو قرار بدید تا پس از وارد شدن شناسه قبض Text2 به شکل خودکار در حالت Focus قرار بگیره. حال بارکد خوان رو مقابل شناسه پرداخت می گیرید تا این مقدار وارد جعبه متنی دوم بشه. در آخر Text3 در حالت Focus قرار می گیره که باید مبلغ قبض رو به شکل دستی در اون وارد کنید.

حال باید یه ConnectionString بسازید و بعد با دستور INSERT INTO این مقادیر رو وارد پایگاه داده تون بکنید که از سیر تا پیازش در پیوند زیر اومده:
Access SQL | Visual Basic 6 (VB6) (Only the registered members can see the link)

سوالی بود در خدمتم...
آرمین:give_rose:

aysann
22-05-15, 04:02
سلام خسته نباشین
یه سوال داشتم از محضرتون
اونم اینکه من از دکمه تایمر در ماشین حساب استفاده می کنم ارور میده با این که هیچ مشکلی نداره
از کتاب ویژوال بیسیک مقدماتی (کار دانش) استفاده می کنم

لطفا راهنماییم کنین ....خواهش می کنم بد جور لازمش دارمOnly the registered members can see the link

خبات کریمی
22-05-15, 09:34
salam khaste nabashin
ye sola dashtam az mahzareton
onam in ke man az dokme timer dar mashin hesab estefade mikonam error mide ba in ke hich moshkeli nadare
az ketabe visual Basic moghadamati (kar danesh)estefade mikonam

lotfan rahnomayim konin ....khahesh mikonam bad jor lazemesh daram:1. (28)::1. (28)::1. (28)::1. (28):

درود
چه اروی و اینکه کد اجرایی چی هست؟

aysann
24-05-15, 01:51
این ارور رو میده ....
کد: tmrdelay.Enabled = True رو اشکال می گیره با این که کاملا دقیق کار شده.
اگه بخواین می تونم براتون سندش کنم.
Only the registered members can see the link

ravegoat
24-05-15, 21:30
این ارور رو میده ....
کد: tmrdelay.Enabled = True رو اشکال می گیره با این که کاملا دقیق کار شده.
اگه بخواین می تونم براتون سندش کنم.
Only the registered members can see the link
با سلام!

دوست گرامی به شهر سخت افزار خوش آمدید.

این خطا احتمالا به خاطر اینه که یا شی تایمر tmrdelay ساخته نشده و یا این که اسم تایمر اشتباه تایپ شده. اگر غیر از اینه ساختار کد تون رو براساس مقاله ی زیر بررسی و در صورت لزوم اصلاح فرمایید:
Understanding the timer control | Visual Basic 6 (VB6) (Only the registered members can see the link)

موفق باشید
آرمین

خبات کریمی
24-05-15, 22:09
این ارور رو میده ....
کد: tmrdelay.Enabled = True رو اشکال می گیره با این که کاملا دقیق کار شده.
اگه بخواین می تونم براتون سندش کنم.
Only the registered members can see the link

درود
لطفاً کد رو هم بزارید یا اینکه کامپایلر کجا ارور میده اون خط رو بزارید، احتمالاً متغییر یا داده تعریف نشده ای رو بکار بردین، خصوصاً انتصاب

aysann
25-05-15, 02:06
ممنون که جواب دادین ravegoat
اما اینایی که میگین نیست
Timer تو این پروژه به خاطر تغییر رنگ کلید های فشرده شده توسط صفحه کلید به کار میره
اما کد tmrdelay.Enabled=True رو خطا میگیره
اسمش هم درسته شي هم ساخته شده اما بازم ارور میده

aysann
25-05-15, 02:26
درود
لطفاً کد رو هم بزارید یا اینکه کامپایلر کجا ارور میده اون خط رو بزارید، احتمالاً متغییر یا داده تعریف نشده ای رو بکار بردین، خصوصاً انتصاب

این قسمتی که با زرد نشون دادم رو ارور میده
وقتی یکی از صفحه کلید ماشین حساب رو میزنم ارور میده


Only the registered members can see the link

ravegoat
25-05-15, 08:15
ممنون که جواب دادین ravegoat
اما اینایی که میگین نیست
Timer تو این پروژه به خاطر تغییر رنگ کلید های فشرده شده توسط صفحه کلید به کار میره
اما کد tmrdelay.Enabled=True رو خطا میگیره
اسمش هم درسته شي هم ساخته شده اما بازم ارور میده
خواهش می کنم...

اگه براتون مقدوره کل پروژه ای رو که نوشتید در این پیوست کنید تا بشه جزئی تر موضوع رو بررسی کرد.

خبات کریمی
25-05-15, 08:56
این قسمتی که با زرد نشون دادم رو ارور میده
وقتی یکی از صفحه کلید ماشین حساب رو میزنم ارور میده


Only the registered members can see the link

درود

ابتدا ممطئن بشید که تایمر رو تغییر نام ندادین، برای این کار یه جای کد بنویسید tmrdelay بعد یه نقطه "." تایپ کنید ببینید لیست خصیصه ها ظاهر میشه؟اگه مشکل از این نبود احتمالاً چون تایمر فعال هست و دوباره شما فعال بودن رو انتساب میدین خطا میده، این کد رو جایگزین کنید:

if Val(tmrdelay.Enabled)=0 then
tmrdelay.Enabled=True
end if

aysann
25-05-15, 12:33
خواهش می کنم...

اگه براتون مقدوره کل پروژه ای رو که نوشتید در این پیوست کنید تا بشه جزئی تر موضوع رو بررسی کرد.


اخه اینجا گزینه ارسال فایل نیست چطوری بفرستم؟؟؟

aysann
25-05-15, 12:49
درود

ابتدا ممطئن بشید که تایمر رو تغییر نام ندادین، برای این کار یه جای کد بنویسید tmrdelay بعد یه نقطه "." تایپ کنید ببینید لیست خصیصه ها ظاهر میشه؟اگه مشکل از این نبود احتمالاً چون تایمر فعال هست و دوباره شما فعال بودن رو انتساب میدین خطا میده، این کد رو جایگزین کنید:

if Val(tmrdelay.Enabled)=0 then
tmrdelay.Enabled=True
end if


سلام!
این کارارو کردم اما بازم ارور میده
نه اسمش عوض نشده اما نمیدونم چرا هی ارور میده
همین کد رو کپی میکنم از اول یه فرم باز میکنم ودکمه های ماشین حسابو قرار میدم کد رو کپی میکنم اون وقت هم یه چیزای دیگه ارور میده:1. (27):

ravegoat
25-05-15, 21:16
اخه اینجا گزینه ارسال فایل نیست چطوری بفرستم؟؟؟
کل محتوای پروژه تون رو به قالب یک فایل فشرده در بیارید.
سپس به هنگام پاسخ گویی یا ارسال پست وارد قسمت ویرایشگر پیشرفته بشید.
در پایین این قسمت روی کلید مدیریت فایلهای پیوست کلیک کنید (یا معادل آن در نوار ابزار بالا).
بعد در پنجره ی جدید باز شده روی گزینه ی Add کلیک کرده و با دکمه ی Select Files ، فایل فشرده ی پروژه تون رو انتخاب کنید.
در نهایت روی Upload Files کلیک کنید.

aysann
26-05-15, 01:50
13190

نمیدونم الان اوکی شد یا نه:1.:

ravegoat
26-05-15, 06:12
13190

نمیدونم الان اوکی شد یا نه:1.:
شی تایمر موجود در سورس شما به شکل آرایه تعریف شده بود و به عبارتی شما باید به جای tmrdelay از tmrdelay(0) استفاده می کردید و یا یک بار تایمر موجود رو حذف و دوباره تعریف می فرمودید.

کد اصلاح شده از پیوست قابل دریافت است.

موفق باشید
آرمین

aysann
26-05-15, 16:07
شی تایمر موجود در سورس شما به شکل آرایه تعریف شده بود و به عبارتی شما باید به جای tmrdelay از tmrdelay(0) استفاده می کردید و یا یک بار تایمر موجود رو حذف و دوباره تعریف می فرمودید.

کد اصلاح شده از پیوست قابل دریافت است.

موفق باشید
آرمین



واقعا ازتون ممنونم لطف کردین...
یه بارم به گفته شما تایمر رو حذف کردم کداشم حذف کردم دوباره نوشتم اوکی شد
واقعااااا ازتون ممنونم:11()::11()::11()::11()::11():