سورس مقاسیه عدد
#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 987 24-01-2015 ساعت 18:30
آخرین ارسال: xMAN
Note سوال سورس برنامه افزایش ولتاژ قطعات موردنظر moeinmq 0 752 25-11-2014 ساعت 18:30
آخرین ارسال: moeinmq
Note سورس قطع کردن اتصال به اینترنت با رفرش کردن moeinmq 3 1,010 14-08-2014 ساعت 20:23
آخرین ارسال: vc3000
Note آدرس یاب رایگان + سورس amirali 7 1,837 10-04-2014 ساعت 08:45
آخرین ارسال: AppDev
Note سورس وصل شدن به اینترنت بصورت مخفی moeinmq 1 567 03-12-2013 ساعت 22:18
آخرین ارسال: VBProgrammer
Note سورس کدهای ویژوال بیسیک 6 Daniel 136 22,455 18-11-2013 ساعت 10:38
آخرین ارسال: Daniel
Note سوال: نمایش ایمیل دریافت شده در VB6 moeinmq 4 1,025 23-09-2013 ساعت 09:36
آخرین ارسال: C0der
Note سورس دفترچه تلفن به زبان ویژوال بیسیک Daniel 4 2,832 14-01-2013 ساعت 14:12
آخرین ارسال: Stack OverFlow
Note سورس برنامه کار با رجیستری به زبان وبژوال بیسیک Daniel 0 926 19-09-2012 ساعت 17:55
آخرین ارسال: Daniel
Note سورس برنامه Screen effect SOFTAFZAR 0 427 14-09-2012 ساعت 17:38
آخرین ارسال: SOFTAFZAR

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