Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
  1. Home
  2. Other Discussions
  3. The Weird and The Wonderful
  4. 5 in a 1 to 10 range

5 in a 1 to 10 range

Scheduled Pinned Locked Moved The Weird and The Wonderful
16 Posts 10 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • A adgonz

    If the worst horror you could find in my company is ranked 10 and a moderate horror is ranked 1, I think I could rank this with 5:

        Dim key As String
        key= "N"
        key= "linatipedi=" + "'" + key+ "'"
        Dim rR As DataRow() = t.Select(key)
        If rR.Length() = 0 Then
            i = 0
        Else
            Try
                For Each r In rR
                    i += 1
                Next r
            Catch
                If i = 0 Then
                    Return True
                Else
                    Return False
                End If
            End Try
        End If
        If i = 0 Then
            Return True
        Else
            Return False
        End If
    
    L Offline
    L Offline
    leppie
    wrote on last edited by
    #2

    adgonz wrote:

    I think I could rank this with 5

    That is because VB's scale starts at 5 ;P

    xacc.ide - now with TabsToSpaces support
    IronScheme - 1.0 beta 2 - out now!
    ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

    L 1 Reply Last reply
    0
    • A adgonz

      If the worst horror you could find in my company is ranked 10 and a moderate horror is ranked 1, I think I could rank this with 5:

          Dim key As String
          key= "N"
          key= "linatipedi=" + "'" + key+ "'"
          Dim rR As DataRow() = t.Select(key)
          If rR.Length() = 0 Then
              i = 0
          Else
              Try
                  For Each r In rR
                      i += 1
                  Next r
              Catch
                  If i = 0 Then
                      Return True
                  Else
                      Return False
                  End If
              End Try
          End If
          If i = 0 Then
              Return True
          Else
              Return False
          End If
      
      L Offline
      L Offline
      Luc 648011
      wrote on last edited by
      #3

      Ah the expressive powers of VB and its native speakers :-D

      1 Reply Last reply
      0
      • L leppie

        adgonz wrote:

        I think I could rank this with 5

        That is because VB's scale starts at 5 ;P

        xacc.ide - now with TabsToSpaces support
        IronScheme - 1.0 beta 2 - out now!
        ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

        L Offline
        L Offline
        Luc 648011
        wrote on last edited by
        #4

        so one couldn't do any better in VB? :)

        L 1 Reply Last reply
        0
        • L Luc 648011

          so one couldn't do any better in VB? :)

          L Offline
          L Offline
          leppie
          wrote on last edited by
          #5

          C#:

          string[] codes = { "bad", "good" };
          int rating = Array.IndexOf(codes, "bad") * 5; // use 5 star system

          Now do the VB one! :)

          xacc.ide - now with TabsToSpaces support
          IronScheme - 1.0 beta 2 - out now!
          ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

          modified on Wednesday, April 15, 2009 11:05 AM

          0 L P D V 5 Replies Last reply
          0
          • L leppie

            C#:

            string[] codes = { "bad", "good" };
            int rating = Array.IndexOf(codes, "bad") * 5; // use 5 star system

            Now do the VB one! :)

            xacc.ide - now with TabsToSpaces support
            IronScheme - 1.0 beta 2 - out now!
            ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

            modified on Wednesday, April 15, 2009 11:05 AM

            0 Offline
            0 Offline
            0x3c0
            wrote on last edited by
            #6

            Um, the Array.IndexOf method looks a little off. Shouldn't it be Array.IndexOf(codes, "bad")?

            L 1 Reply Last reply
            0
            • L leppie

              C#:

              string[] codes = { "bad", "good" };
              int rating = Array.IndexOf(codes, "bad") * 5; // use 5 star system

              Now do the VB one! :)

              xacc.ide - now with TabsToSpaces support
              IronScheme - 1.0 beta 2 - out now!
              ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

              modified on Wednesday, April 15, 2009 11:05 AM

              L Offline
              L Offline
              Luc 648011
              wrote on last edited by
              #7

              I wouldn't know where to start, except for tossing out all those fancy brackets and semi-colons... :)

              1 Reply Last reply
              0
              • L leppie

                C#:

                string[] codes = { "bad", "good" };
                int rating = Array.IndexOf(codes, "bad") * 5; // use 5 star system

                Now do the VB one! :)

                xacc.ide - now with TabsToSpaces support
                IronScheme - 1.0 beta 2 - out now!
                ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

                modified on Wednesday, April 15, 2009 11:05 AM

                P Offline
                P Offline
                PIEBALDconsult
                wrote on last edited by
                #8

                Leppie, I think you need to step away from the computer and get some rest.

                1 Reply Last reply
                0
                • 0 0x3c0

                  Um, the Array.IndexOf method looks a little off. Shouldn't it be Array.IndexOf(codes, "bad")?

                  L Offline
                  L Offline
                  leppie
                  wrote on last edited by
                  #9

                  Yeah, now fixed, my brain needs rest now! :sigh:

                  xacc.ide - now with TabsToSpaces support
                  IronScheme - 1.0 beta 2 - out now!
                  ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

                  N 1 Reply Last reply
                  0
                  • A adgonz

                    If the worst horror you could find in my company is ranked 10 and a moderate horror is ranked 1, I think I could rank this with 5:

                        Dim key As String
                        key= "N"
                        key= "linatipedi=" + "'" + key+ "'"
                        Dim rR As DataRow() = t.Select(key)
                        If rR.Length() = 0 Then
                            i = 0
                        Else
                            Try
                                For Each r In rR
                                    i += 1
                                Next r
                            Catch
                                If i = 0 Then
                                    Return True
                                Else
                                    Return False
                                End If
                            End Try
                        End If
                        If i = 0 Then
                            Return True
                        Else
                            Return False
                        End If
                    
                    I Offline
                    I Offline
                    Ian Shlasko
                    wrote on last edited by
                    #10

                    Oh, come on... Even VB can do this in one line plus exception handling...

                    Try
                    Return t.Select("linatipedi='N'").Length = 0 // *resists urge to type two ='s*
                    Catch
                    Return False
                    End Try

                    Man, if this is a 5, I'd really hate to see a 10... Translation: Post one of the 10's! Heheh

                    A R 2 Replies Last reply
                    0
                    • L leppie

                      Yeah, now fixed, my brain needs rest now! :sigh:

                      xacc.ide - now with TabsToSpaces support
                      IronScheme - 1.0 beta 2 - out now!
                      ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

                      N Offline
                      N Offline
                      notmasteryet
                      wrote on last edited by
                      #11

                      leppie wrote:

                      Yeah, now fixed, my brain needs rest now!

                      ...too much VB code for that one

                      1 Reply Last reply
                      0
                      • I Ian Shlasko

                        Oh, come on... Even VB can do this in one line plus exception handling...

                        Try
                        Return t.Select("linatipedi='N'").Length = 0 // *resists urge to type two ='s*
                        Catch
                        Return False
                        End Try

                        Man, if this is a 5, I'd really hate to see a 10... Translation: Post one of the 10's! Heheh

                        A Offline
                        A Offline
                        adgonz
                        wrote on last edited by
                        #12

                        Ian Shlasko wrote:

                        Translation: Post one of the 10's! Heheh

                        A 6 or 7 (I'm not sure) is this code is from a function that should never had been called / written, so your better implementation is useless.

                        1 Reply Last reply
                        0
                        • L leppie

                          C#:

                          string[] codes = { "bad", "good" };
                          int rating = Array.IndexOf(codes, "bad") * 5; // use 5 star system

                          Now do the VB one! :)

                          xacc.ide - now with TabsToSpaces support
                          IronScheme - 1.0 beta 2 - out now!
                          ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

                          modified on Wednesday, April 15, 2009 11:05 AM

                          D Offline
                          D Offline
                          dybs
                          wrote on last edited by
                          #13

                          Doesn't this actually gives a rating of 0 ("bad" is the first element, and 0 * anything = 0)? Dybs

                          1 Reply Last reply
                          0
                          • I Ian Shlasko

                            Oh, come on... Even VB can do this in one line plus exception handling...

                            Try
                            Return t.Select("linatipedi='N'").Length = 0 // *resists urge to type two ='s*
                            Catch
                            Return False
                            End Try

                            Man, if this is a 5, I'd really hate to see a 10... Translation: Post one of the 10's! Heheh

                            R Offline
                            R Offline
                            Rob Grainger
                            wrote on last edited by
                            #14

                            Ian Shlasko wrote:

                            // *resists urge to type two ='s*

                            'Couldn't resist the temptation to use C++-style comments though.

                            I 1 Reply Last reply
                            0
                            • R Rob Grainger

                              Ian Shlasko wrote:

                              // *resists urge to type two ='s*

                              'Couldn't resist the temptation to use C++-style comments though.

                              I Offline
                              I Offline
                              Ian Shlasko
                              wrote on last edited by
                              #15

                              Ack! I totally missed that... Well, shows how much I've tried to get away from VB.

                              1 Reply Last reply
                              0
                              • L leppie

                                C#:

                                string[] codes = { "bad", "good" };
                                int rating = Array.IndexOf(codes, "bad") * 5; // use 5 star system

                                Now do the VB one! :)

                                xacc.ide - now with TabsToSpaces support
                                IronScheme - 1.0 beta 2 - out now!
                                ((lambda (x) `((lambda (x) ,x) ',x)) '`((lambda (x) ,x) ',x))

                                modified on Wednesday, April 15, 2009 11:05 AM

                                V Offline
                                V Offline
                                Vozzie2
                                wrote on last edited by
                                #16

                                Looks like VB is scoring better,...

                                Dim codes() As String = New String(){"bad", "good"}
                                Dim rating As Integer = (Array.IndexOf(codes, "bad") + 1) * 5

                                It feels good to learn and achieve

                                1 Reply Last reply
                                0
                                Reply
                                • Reply as topic
                                Log in to reply
                                • Oldest to Newest
                                • Newest to Oldest
                                • Most Votes


                                • Login

                                • Don't have an account? Register

                                • Login or register to search.
                                • First post
                                  Last post
                                0
                                • Categories
                                • Recent
                                • Tags
                                • Popular
                                • World
                                • Users
                                • Groups