تبلیغات
تبلیغات متنی
آموزشگاه آرایشگری مردانه شفیع رسالت
دکتر علی پرند فوق تخصص جراحی پلاستیک
بهترین دکتر پروتز سینه در تهران
محبوبترینها
راهنمای انتخاب شرکت‌های معتبر باربری برای حمل مایعات در ایران
چگونه اینورتر های صنعتی را عیب یابی و تعمیر کنیم؟
جاهای دیدنی قشم در شب که نباید از دست بدهید
سیگنال سهام چیست؟ مزایا و معایب استفاده از سیگنال خرید و فروش سهم
کاغذ دیواری از کجا بخرم؟ راهنمای جامع خرید کاغذ دیواری با کیفیت و قیمت مناسب
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
آفریقای جنوبی چگونه کشوری است؟
بهترین فروشگاه اینترنتی خرید کتاب زبان آلمانی: پیک زبان
با این روش ساده، فروش خود را چند برابر کنید (تست‌شده و 100٪ عملی)
خصوصیات نگین و سنگ های قیمتی از نگاه اسلام
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1869437555
درخواست نمونه سئوالات عملی امتحان ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: درخواست نمونه سئوالات عملی امتحان ویژوال بیسیک kemiaonline 23 فروردين 1387, 13:49سلام من چند روز دیگه امتحان عملی ویزوال بیسیک دارم :sad: خواهش میکنم چند تا نمونه سوال مهم امتحانی همراه با سورس کد و جواب (اگه امکان داشت با توضیح ) برام بزارید خیلی بهش نیاز دارم ممنون منتظرم i_lover3000 24 فروردين 1387, 03:57ببینم تو چه سطحی می خوای؟؟؟ من می تونم تو سطح دبیرستان و فنی حرفه ای برات بزارم اگه بدردت می خوره بهم خبر بده kemiaonline 25 فروردين 1387, 19:19سلام ممنون دوست عزیز دقیقا" من هم در همین سطح میخوام لطف کنین و کمکم کنید خیلی ممنون میشم در ضمن تاریخ امتحانم چهارشنبه 4 اردیبهشت ماه است خیلی برام حیاتیه این امتحان به هر حال بعد از خدا تنها امیدم همینجاست تنهام نذارید منتظر نمونه سوالاتم Peace Dove 25 فروردين 1387, 20:31ببین عزیز اصلا ناراحت نباش استرس هم به خودت نده من یک ماه پیش امتحان عملی برای فنی داشتم. من چون اولین بارم بود خیلی ترسیده بودم.اما وقتی نگاهی به سوالات کردم ترسم ریخت 4 تا سوال بیشتر نبود.اما سوال هایی بود که تا حالا ندیدم. مثلا یک سوال این بود: یک لیبل درست کنید که چشمک بزنه. یا یک توپ متحرک درست کنید زیاد نگران نباش آسونه kemiaonline 25 فروردين 1387, 22:23ممنونم سامان جون حالا میشه سورس کد همین لیبل چشمک زن و توپ متحرک رو برام بزاری ؟ :-? the_king 26 فروردين 1387, 00:36یک Label با نام پیشفرض Label1 روی فرم قرار دهید. حالا یک Timer با نام پیشفرض Timer1 را روی فرم قرار دهید. کد های زیر برای چشمک زدن Label1 کافیست : Private Sub Form_Load() Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() Label1.Visible = Not Label1.Visible End Sub برنامه توپ متحرک را هم بصورت انیمیشنی ساختم. توپ در حین حرکت و برخورد با زمین و دیواره های کادر اطرافش به دور خودش هم می گردد. () کد برنامه توپ متحرک به همراه فایل اجرایی exe ضمیمه این پست می باشد. kemiaonline 26 فروردين 1387, 07:42بسیار ممنون اما چند تا سوال برام پیش اومد 1---اگر بخوام لیبل یه بار به رنگ ابی چشمک بزنه و یک بار به رنگ قرمز چه کدی رو باید بهش اظافه کنم ؟ 2---اگر بخوام که لیبل یک رنگ تصادفی رو برای خودش انتخاب کنه یعنی یه بار مثلاگ قرمز بشه یه بار ابی یه بار زرد بعد قرمز دوباره ابی بعد مشکی و ...... چه کدی رو باید بهش اظافه کنم ؟ the_king 26 فروردين 1387, 18:11کد چشمک زدن Label1 با دو رنگ قرمز (vbRed) و آبی (vbBlue) بدین شکل خواهد بود : Private Sub Form_Load() Timer1.Interval = 500 Timer1_Timer End Sub Private Sub Timer1_Timer() Static State As Boolean State = Not State Label1.ForeColor = IIf(State, vbRed, vbBlue) End Sub کد چشمک زدن تصادفی Label1 با چندین رنگ متفاوت : Private Sub Form_Load() Timer1.Interval = 500 Timer1_Timer End Sub Private Sub Timer1_Timer() Static Index As Long Dim Colors As Variant, PrevIndex As Long Colors = Array(vbRed, vbBlue, vbYellow, vbBlack, vbGreen, vbMagenta) PrevIndex = Index Do Index = Int(Rnd * (UBound(Colors) + 1)) Loop While Index = PrevIndex Label1.ForeColor = Colors(Index) End Sub به دلیل استفاده از متغیر PrevIndex و یک حلقه Do / Loop امکان تکراری شدن رنگ در دو مرحله پیاپی وجود ندارد، مثل بعد از رنگ قرمز حتما باید رنگی جز قرمز انتخاب شود وگرنه دوباره مرحله انتخاب رنگ تکرار می شود. i_lover3000 27 فروردين 1387, 02:03سلام دست تمام دوستانی که کمک کردند درد نکنه :D منم سوالاتی که خودمون خوندیم رو می زارم :neutral: البته نسبت سوالات دوستان خیلی کم ارزش تر باشه فکر کنم ولی مطمئن باش که سوالات ساده ای میاد ، من که خودم همین چند وقت پیش امتحان دادم خیلی ساده بود 1. یک دایره بر روی فرم رسم شود و بعد از 1 ثانیه پاک شود و یک دایره کوچکتر رسم شود؟ Dim i As Long Private Sub Form_Load() i = 70 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Me.ForeColor = &H8000000F Circle (170, 170), i If i <> 10 Then i = i - 10 Me.ForeColor = vbBlack Circle (170, 170), i If i = 10 Then i = 70 Me.ForeColor = &H8000000F Circle (170, 170), 10 End Sub 2. برنامه ای بنویسید که 10 عدد (یا رشته) از ورودی گرفته و در لیست 1 قرار دهد، سپس آنها را به صورت یکی در میان در لیست 2 نمایش دهد؟ For i = 1 To 10 List1.AddItem InputBox("") Next For i = 0 To 11 Step 2 If i >= 10 Then Exit For List1.ListIndex = i List2.AddItem List1.Text Next 3. یک پروژه مانند شکل زیر بسازید ، که با زدن دکمه > یک کاراکتر از سمت راست به سمت چپ انتقال یابد و با زدن دکمه < یک کاراکتر از سمت چپ به سمت راست انتقال یابد؟ Private Sub Command 1_Click() Text1.Text = Replace(Text1.Text, Left(Text1.Text, 1), "") + Left(Text1.Text, 1) End Sub Private Sub Command 2_Click() Text1.Text = Right(Text1.Text, 1) + Replace(Text1.Text, Right(Text1.Text, 1), "") End Sub توجه : البته برنامه بالا يه مشكل داره ؟؟!!!! 4. برنامه ای بنویسید که جدول ضرب 10 در 10 را حساب و چاپ کند؟ توجه : Multiline تکست باکس را true کنید For i = 1 To 10 For j = 1 To 10 Text1.Text = Text1.Text & Str(i * j) + " " Next j Text1.Text = Text1.Text + vbCrLf Next 5. برنامه ای بنویسید که زمان لازم برای چاپ اعداد 1 تا 5000 درون لیست را به ما بگوید؟ a = Time For i = 1 To 5000 List1.AddItem i Next MsgBox Time - a 6. برنامه ای بنویسید که 5 رشته از کاربر دریافت کند ، اگر درون هر کدام از رشته ها حرف B , b بود به C تغییر دهد؟ For i = 1 To 5 a$ = InputBox("í˜ ÑÔÊå æÇÑÏ ˜äíÏ") List1.AddItem a For j = 1 To Len(a) If Mid(a, j, 1) = "b" Or Mid(a, j, 1) = "B" Then h = Replace(a, Mid(a, j, 1), "C") End If Next List2.AddItem h h = "" Next 7. برنامه ای بنویسید که یک رشته از کاربر دریافت کند، و درون یک combo اعداد 1 تا طول رشته را قرار دهد، سپس با کلیک روی هر کدام از اعداد combo همان حرف را به ما نشان دهد؟ Private Sub Command 1_Click() Dim a As String a = InputBox("") For i = 1 To Len(a) Combo1.AddItem i Next End Sub Private Sub Combo1_Click() MsgBox Mid(a, Combo1.Text, 1) End Sub 8. دو عدد از ورودی گرفته و بدون استفاده از عمل ضرب آنها را ضرب کند؟؟ Dim a As Integer, b As Integer, s As Integer Private Sub Command 1_Click() a = InputBox("") b = InputBox("") For i = 1 To a s = s + b Next MsgBox s End Sub kemiaonline 27 فروردين 1387, 17:35تو نیکی کن و در دجله انداز که ایزد در بیابان میدهد باز از همه ممنونم من هم سعی میکنم سوالاتی که برام اومد بزارم اگه میشه چند تا دیگه سورس برام بزارید ممنون kemiaonline 27 فروردين 1387, 18:37راستی یه سوال دیگه کدی رو میشناسید که مولتی لان و اسکرول بار رو فعلل کنه این کدتوی کامند یک قابل نوشتن باشه i_lover3000 29 فروردين 1387, 02:02سلام یه سوال دیگه هم یادم اومد سوال : n عدد بوسیله inputbox از کاربر گرفته و میانگین آنها را حساب کنید ؟؟ یکم خودت فکر کن روش ،، حتما جوابش رو پیدا می کنی. Nokhodi 07 خرداد 1387, 22:32سلام بر اساتیدو برنامه نویسان محترم...:) خوب و خوش باشین... من تو یکی فروم هایی که عضو بودم یه سورس گرفتم اونم آزمون تستی الکترونیک در vb... آزمون قلم چی فک کنم بود... دوستان از این نوع سورس ها دارین؟ شدیدا احتیاج دارم...:sad: سپاس فراوان...:) helpnp 25 خرداد 1389, 09:28من هم سی ام همین ماه امتحان داشتم ! ممنون که کمک کردین ... :oops::cool::snap::lol: helpnp 25 خرداد 1389, 16:50:tavajoh: :-<واقعا ممنون کیمیای عزیز :oops:
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 5136]
-
گوناگون
پربازدیدترینها