การวาดรูป 3 เหลี่ยม VB.NET
Video"
Code"
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As Integer
Dim Col As Integer
Dim Row As Integer
A = (Rnd() * 10) + 5
Col = 1
Row = 1
TextBox1.Text = ""
While Row <= A
While Col <= Row
TextBox1.Text += A.ToString + ""
Col += 1
End While
TextBox1.Text += vbCrLf
Col = 1
Row += 1
End While
Row = A - 1
While Row >= 1
While Col <= Row
TextBox1.Text += A.ToString + ""
Col += 1
End While
TextBox1.Text += vbCrLf
Row += -1
Col = 1
End While
End Sub
End Class
Code"อธิบาย
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize() 'ให้รู้ว่าฟอร์มนี้มีการสุ่มตัวเลข
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As Integer 'ประกาศตัวแปร A เป็น Integer (ตัวเลข)
Dim Col As Integer 'ประกาศตัวแปร Col เป็น Integer (ตัวเลข)
Dim Row As Integer 'ประกาศตัวแปร Row เป็น Integer (ตัวเลข)
A = (Rnd() * 10) + 5 'ให้มีการสุ่มตัวเลขไม่เกิน 10 แล้วบอกด้วย 5 เก็บใน A
Col = 1 'กำหนดค่า 1 ให้กับ Col
Row = 1 'กำหนดค่า 1 ให้กับ Row
TextBox1.Text = "" 'กำหนดค่า "" (ค่าวาง) ให้กับ TextBox1.Text
While Row <= A 'ตรวจสอบ Row <= A
While Col <= Row 'ตรวจสอบ Col <= Row
TextBox1.Text += A.ToString + "" กำหนดค่าของ คือ'TextBox1.Text=TextBox1.Text+A.ToString + ""
Col += 1 'Col =Col +1
End While 'จบรูป While
TextBox1.Text += vbCrLf 'TextBox1.Text= TextBox1.Text+vbCrLf(ขึ้นบรรทัดใหม่)
Col = 1 'Col =Col +1
Row += 1 'Row = Row +1
End While 'จบรูป While
Row = A - 1 'การทำหนดให้ Row มีค่าเท่ากับ ตัวแปร A - 1
While Row >= 1 'ตรวจสอบ Row >= 1
While Col <= Row 'ตรวจสอบ Col <= Row 'กำหนดค่าของ
TextBox1.Text += A.ToString + ""
คือ'TextBox1.Text=TextBox1.Text+A.ToString + ""
Col += 1'Col =Col +1
End While'จบรูป While
TextBox1.Text += vbCrLf 'TextBox1.Text= TextBox1.Text+vbCrLf(ขึ้นบรรทัดใหม่)
Row += -1 Row += 1 'Row = Row - 1
Col = 1 'กำหนดค่าให้ Col = 1
End While 'จบรูป While
End Sub
End Class
ความคิดเห็น
แสดงความคิดเห็น