سورس مقاسیه عدد
#1
Note 
تکه کدی برای مقایسه اعداد
[VB]Dim C As Integer
Private Sub cmdComp_Click()
C = StrComp(Text1.Text, Text2.Text)
Select Case C
Case 0: List1.AddItem Text1.Text + "=" + Text2.Text
Case 1: List1.AddItem Text1.Text + ">" + Text2.Text
Case -1: List1.AddItem Text1.Text + "<" + Text2.Text
End Select
End Sub

Private Sub cmdExit_Click()
End
End Sub[/VB]

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Note سوال سورس حذف ایمیل و نمایش آی پی و مک آدرس کامپیوتر moeinmq 1 818 24-01-2015 ساعت 18:30
آخرین ارسال: xMAN
Note سوال سورس برنامه افزایش ولتاژ قطعات موردنظر moeinmq 0 699 25-11-2014 ساعت 18:30
آخرین ارسال: moeinmq
Note سورس قطع کردن اتصال به اینترنت با رفرش کردن moeinmq 3 957 14-08-2014 ساعت 20:23
آخرین ارسال: vc3000
Note آدرس یاب رایگان + سورس amirali 7 1,744 10-04-2014 ساعت 08:45
آخرین ارسال: AppDev
Note سورس وصل شدن به اینترنت بصورت مخفی moeinmq 1 545 03-12-2013 ساعت 22:18
آخرین ارسال: VBProgrammer
Note سورس کدهای ویژوال بیسیک 6 Daniel 136 20,168 18-11-2013 ساعت 10:38
آخرین ارسال: Daniel
Note سوال: نمایش ایمیل دریافت شده در VB6 moeinmq 4 981 23-09-2013 ساعت 09:36
آخرین ارسال: C0der
Note سورس دفترچه تلفن به زبان ویژوال بیسیک Daniel 4 2,708 14-01-2013 ساعت 14:12
آخرین ارسال: Stack OverFlow
Note سورس برنامه کار با رجیستری به زبان وبژوال بیسیک Daniel 0 886 19-09-2012 ساعت 17:55
آخرین ارسال: Daniel
Note سورس برنامه Screen effect SOFTAFZAR 0 395 14-09-2012 ساعت 17:38
آخرین ارسال: SOFTAFZAR

کاربرانِ درحال بازدید از این موضوع:   1 مهمان