نمودار عیب یابی [بایگانی]

ali190

جمعه 14 خرداد 1389, 17:19 عصر

باسلام و عرض خسته نباشید خدمت همگی دوستان
دوستان بنده قصد دارم یک نمودار عیب یابی بسازم
این کار رو هم تقریباً انجامش دادم
در واقع اشکالات محتملتر با روش رفع عیب اونها در قسمت بالاتر نمودار قرار میگیرند
حالا مشکلم اینجاست که من چطور میتونم اندازه یک فلش رو بین دو تکست باکس بصورت متغیر نسبته به فاصله دو تکست باکس متوالی تنظیم کنم؟
http://barnamenevis.org/forum/attachment.php?attachmentid=50461&stc=1&d=1277298724

منظورم فلش مشکی رنگ هست که بین دوتکست باکس قرار میگیره
من در واقع میخوام که :
فلش مشکی رنگ=فلش قرمز رنگ
ممنون

bitasoft.ir

جمعه 28 خرداد 1389, 10:23 صبح

سلام

Private Sub Form_Open(Cancel As Integer)
Image0.Width = Image1.Width
Image0.Height = Image1.Height
End Sub

ali190

جمعه 28 خرداد 1389, 15:18 عصر

سلام
دوست عزیز عکس محیطیئ که من قرار دادم محیط ریپورت است نه فرم
این کدها جواب نداد
ممنون

ali190

شنبه 06 شهریور 1389, 15:49 عصر

باسلام و عرض خسته نباشید
بنده این موضوع رو چند وقت پیش مطرح کرده بودم
میخواستم دوباره موضوع رو بالا بیارم تا احیاناً اسایتد و دوستان بتونن کمکم کنند
ممنون و متشکر.
یاعلی

ali190

یک شنبه 07 شهریور 1389, 17:00 عصر

باسلام
هیچ راهی وجود نداره که بشه فاصله دو text box متوالی در reportر و محاسبه نمود و اندازه فلش رو با این مقدار set نمود؟
ممنون

alirezabahrami

دوشنبه 08 شهریور 1389, 08:42 صبح

باسلام
هیچ راهی وجود نداره که بشه فاصله دو text box متوالی در reportر و محاسبه نمود و اندازه فلش رو با این مقدار set نمود؟
ممنون
سلام دوست عزيز!
راه كه بايد وجود داشته باشد ولي بنده نتوانستم بفهمم كه چكار ميخواهيد انجام بدهيد ؛ در صورت امكان توضيح بيشتري بده . راستش علي جان چند وقتي است كه مشغله هاي فكري و كاري حقير زياد شده و به همين خاطر نميتوانم همانند گذشته مرتب به تالار سر بزنم و يا با تمركز به سؤالات دوستان پاسخ بدهم .
ضمناً به تالار vb هم يه سر بزن فكر كنم جواب سؤال ديروزت كه در آنجا مطرح كرده بوديد را داده باشم
التماس دعا

smderfan

دوشنبه 08 شهریور 1389, 12:01 عصر

سلام
نمونه شما تكميل شد مي تونيد با اندك تغييراتي از آن استفاده كنيد.
موفق باشيد.

mazoolagh

دوشنبه 08 شهریور 1389, 12:43 عصر

شما چرا از visio استفاده نمیکنین؟

ali190

دوشنبه 08 شهریور 1389, 15:32 عصر

سلام
با آرزوی قبولی طاعات و عبادات همه دوستان
با عرض تشکر از جناب alirezabahrami و smderfan عزیز
جناب mazoolagh ممنون از پیشنهادتون ولی من میخوام اگر هم از visio استفاده کنم اطلاعات از اکسس ابتدا به visio ترانسفر بشه و چارت بصورت اتوماتیک توسط Visio ترسیم بشه.
آیا یه همچین امکانی هست؟
ممنون

mazoolagh

سه شنبه 09 شهریور 1389, 15:19 عصر

آگر دقت کرده باشین در محیط visio هم امکان کدنویسی vba فراهم هست:
tools-macro-visual basic editor

برای امتحان یک طرح خالی ایجاد کنین و در محیط vba این کد رو بنویسین:

private sub test
dim x as visio.shape
set x=activepage.drawline(1,2,7,4)
end sub

حالا اگر کد رو اجرا کنین (دکمه f5 رو بزنین) و به صفحه طراحی برین میبینین که خط رسم شده

برای دسترسی به دیتابیس هم کافی هست از امکانات ado که در visio هم وجود داره استفاده کنین:

dim con as adodb.connection
dim rs as adodb.recordset
...
...

ali190

سه شنبه 09 شهریور 1389, 15:29 عصر

سلام
ممنون از راهنماییتون جناب mazoolagh
میشه این متدی رو که لطف کردید و بیان فرمودید رو در نمونه ای که در پست اول گذاشتم اجرا کنید تا من بهتر متوجه بشم
ممنون از لطفتتون.

mazoolagh

شنبه 13 شهریور 1389, 11:56 صبح

سلام مجدد
این نمونه کد مربوط به VISIO هست و در همون محیط هم اجرا میشه و نه ACCESS

ali190

شنبه 13 شهریور 1389, 12:47 عصر

سلام
میشه لطف کنید و یک فایل viso حامل کدهای مورد نظر رو در اینجا برام آپ کنید؟
ممنون