http://www.siam2dev.com >> ชุมชนนักพัฒนาซอฟต์แวร์ของไทยแห่งใหม่

คำสั่ง

     มาสายเกิน 30 นาทีไม่อนุญาติให้เข้าห้องสอบ
     การทุจริตถือเป็นความผิดร้ายแรง ปรับติด E ทันที
     ข้อสอบเป็น แบบ OPEN เปิดหนังสือ หรือ Sheet ได้
     เป็นข้อสอบแบบ ปฏิบัติ เขียนโปรแกรมด้วย VB.NET
     ห้ามใช้เครื่องมือในที่สามารถคำนวณ หรือ บันทึกข้อมูลได้ เช่น FlashDrive ,ThumpDrive etc.
     ข้อสอบมี 2 ข้อใหญ่
        1. เกี่ยวกับเรื่อง แปลงเลขฐาน ต่าง ๆ ต.ย. เช่น
                ฐานสอง >>> ฐานสิบ
                ฐานสิบ >>> ฐานสอง
                ฐานแปด >>> ฐานสิบ
                ฐานสิบ >>> ฐานแปด

        2. เกี่ยวกับเรื่อง โปรแกรมเครื่องคิดเลข

     ต.ย. หน้าจอ

     จาก ต.ย. หน้าจอ นี้ โปรแกรมต้องสามารถทำงานต่าง ๆ ได้ดังนี้
        1. กดที่ ตัวเลขใด ๆ ต้องมีตัวเลขปรากฏอยู่ เหมือนเครื่องคิดเลขทั่วไป
        2. กดปุ่ม คำนวณ + , - , * , / ต้องทำงานได้ เหมือนเครื่องคิดเลขทั่วไป
        3. กดปุ่ม เลขฐานใด ต้องแปลงเป็นเลขฐานนั้นได้ เช่น หากมี 18 เลขฐานสิบใน TextBox แล้วแปลงเป็นเลขฐานสอง จะได้ผลลัพธ์ดังนี้ 010100

     ต.ย. โค้ดในการแปลงเลขฐาน ต่าง ๆ

แปลงจากเลข ฐาน สิบ เป็น ฐานสอง

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim k As Int16
      Dim j As Int16
      Dim result As String
      Dim num1 As Int16
      num1 = TextBox1.Text
      Do
            j = num1 Mod 2
            num1 = Int(num1 / 2)
            result &= j
      Loop Until num1 = 0
      Label1.Text = StrReverse(result)

แปลงจากเลข ฐาน สอง เป็น ฐานสิบ

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

      Dim strlen As Int16
      Dim result As Int16
      Dim num1 As Int16
      Dim k As Int16 = 0
      num1 = TextBox1.Text
      strlen = Len(TextBox1.Text)

      For i As Int16 = 1 To strlen
            result = result + Mid(TextBox1.Text, strlen - k, 1) * (2 ^ (i - 1))
            k += 1
      Next i
      Label1.Text = result

End Sub