خواهش می کنم دوست عزیز...نقل قول:
نه نیازی نیست. شرمنده؛ اصلا" یادم نبود در VB6 نمیشه درست بعد از تعریف متغیر اون رو مقدار دهی کرد.
هر دو تا سورس اصلاح شد که از پیوست قابل دریافته.:cool:
موفق باشید
Printable View
خواهش می کنم دوست عزیز...نقل قول:
نه نیازی نیست. شرمنده؛ اصلا" یادم نبود در VB6 نمیشه درست بعد از تعریف متغیر اون رو مقدار دهی کرد.
هر دو تا سورس اصلاح شد که از پیوست قابل دریافته.:cool:
موفق باشید
میدونم سوالم مسخره هس ولی چکار کنم بد گیر کردم؟؟؟نقل قول:
دوست عزیز، جوابتون در برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ] داده شد. با این حال بنده بازم متن سورس ها رو قرار میدم:نقل قول:
و اینم دومی:کد:
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
کد:
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
سلام به همگي من تازه عضو شدم
من ميخوام يك برنامه بنويسم كه با استفاده از دستورات pset , point تصوير را +90 و -90 بچرخاند
خواهشن راهنمايي كنيد
با سلام!نقل قول:
دوست عزیز عضویت شما رو در شهر سخت افزار تبریک می گم.
مشابه این سوال بار ها در انجمن مطرح شده. پاسخ سوالتون در تاپیک قرار گرفته:
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
موفق باشید
آرمین
سلام میخواهم یک تصویر بگتذم در picturebox بعد در picture box دیگر تصویر گپی شود
با سلام!نقل قول:
دوست گرامی عضویت شما رو در شهر سخت افزار تبریک میگم.
سورسش پیوست شد.
موفق باشید
آرمین
نقل قول:
سلام به تمامی دوستان گلم
من میخاستم ویژوال بیسیک رو روی ویندوز 8.1 64 بیتی نصب کنم هر کار کردم نشد از دوستان خواهش دارم منو کمک کنن
با تشکر
با سلام!نقل قول:
دوست گرامی به شهر سخت افزار خوش آمدید.
شما اول Visual Studio 6 رو نصب کنید. بعد SP6 مربوط به VB6 رو از برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ] دانلود و نصب کنید. برای نصب حتما روی فایل کلیک راست کرده و Run As Admin رو انتخاب کنید. همچنین بعد از نصب Compatibility Mode رو برای VB6 روی ویندوز XP تنظیم کنید. اگه مشکل حل نشد سعی کنید با برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ] مجددا مراحل رو دنبال کنید. اگه بازم مشکل داشت بفرمایید تا یه راه دیگه براش پیدا کنیم.
موفق باشید
آرمین
سلامنقل قول:
آرمین جان عزیز دستت گلتون درد نکنه مشکلم حل شد
خیلی گلی