خواهش می کنم دوست عزیز...برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط mar mar mari برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
نه نیازی نیست. شرمنده؛ اصلا" یادم نبود در VB6 نمیشه درست بعد از تعریف متغیر اون رو مقدار دهی کرد.
هر دو تا سورس اصلاح شد که از پیوست قابل دریافته.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
موفق باشید
آخرین ویرایش توسط ravegoat در تاریخ 25-06-13 انجام شده است
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
میدونم سوالم مسخره هس ولی چکار کنم بد گیر کردم؟؟؟برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط mar mar mari برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
دوست عزیز، جوابتون در پست 101 داده شد. با این حال بنده بازم متن سورس ها رو قرار میدم:برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط mar mar mari برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
و اینم دومی:کد: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
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
سلام به همگي من تازه عضو شدم
من ميخوام يك برنامه بنويسم كه با استفاده از دستورات pset , point تصوير را +90 و -90 بچرخاند
خواهشن راهنمايي كنيد
با سلام!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط kingsezar برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
دوست عزیز عضویت شما رو در شهر سخت افزار تبریک می گم.
مشابه این سوال بار ها در انجمن مطرح شده. پاسخ سوالتون در تاپیک قرار گرفته:
http://www.shahrsakhtafzar.com/forum...ulletin-44324/
موفق باشید
آرمین
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
سلام میخواهم یک تصویر بگتذم در picturebox بعد در picture box دیگر تصویر گپی شود
با سلام!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط moonlightgirl2 برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
دوست گرامی عضویت شما رو در شهر سخت افزار تبریک میگم.
سورسش پیوست شد.
موفق باشید
آرمین
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط MoBiN.R برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
سلام به تمامی دوستان گلم
من میخاستم ویژوال بیسیک رو روی ویندوز 8.1 64 بیتی نصب کنم هر کار کردم نشد از دوستان خواهش دارم منو کمک کنن
با تشکر
|
با سلام!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hojjat4763 برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
دوست گرامی به شهر سخت افزار خوش آمدید.
شما اول Visual Studio 6 رو نصب کنید. بعد SP6 مربوط به VB6 رو از این لینک دانلود و نصب کنید. برای نصب حتما روی فایل کلیک راست کرده و Run As Admin رو انتخاب کنید. همچنین بعد از نصب Compatibility Mode رو برای VB6 روی ویندوز XP تنظیم کنید. اگه مشکل حل نشد سعی کنید با این نصاب مجددا مراحل رو دنبال کنید. اگه بازم مشکل داشت بفرمایید تا یه راه دیگه براش پیدا کنیم.
موفق باشید
آرمین
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
*MoJtAbA* (08-11-14), AMD>INTEL (07-11-14), hojjat4763 (08-11-14), M A H R A D (08-11-14), mehrdad_ab (08-11-14), nima_hl (08-11-14), Rezasam1 (07-11-14), SajjadKhati (08-11-14), مهدی بهادرفر (08-11-14)
سلامبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط ravegoat برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
آرمین جان عزیز دستت گلتون درد نکنه مشکلم حل شد
خیلی گلی
ravegoat (10-11-14), SajjadKhati (08-11-14)
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks