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

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