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
    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