๐๐ฆโ๐๐๐๐๐ 4
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim i, j As Integer Label1.Text = "" For i = 1 To 5 Step 1 For j = 1 To i Step 1 Label1.Text = Label1.Text & ("*") โฆ
ูุฐุง ุงุนูุงู ูุงุฌุจ ุทูู ููุจู ุจูุณุช
ุจุนุฏ ุงูู ุบูุฑูุ ุฏุฒููู ุจููู
ุจุนุฏ ุงูู ุบูุฑูุ ุฏุฒููู ุจููู
ุงูุฒูููู
ุณูุงูู ู
ุฑุฆูู ุชุณุชูุงุฏูู ู
ููู (ุนู
ูู)ูขู ูขู
Anonymous Poll
95%
ุงู ุงู๐คญ
5%
ูุง ูุง๐คจ
โค2
ุงูุชุธุฑ ุชุตููุชูู
ุจููู๐๐
๐2
ุจุณู
ุงููู ูุจูุด ู
ุฑุฆูู ๐
๐4
๐๐ป๐๐ป๐๐ป๐๐ป๐๐ป๐๐ป
Public Class Form1
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
End Sub
Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Len(TextBox1.Text) = 0 And Len(TextBox2.Text) = 0 Then
MsgBox("enter num in text1 and tow ")
Else
Dim i As Integer = TextBox1.Text
Dim j As Integer = TextBox2.Text
If RadioButton1.Checked Then
Label1.Text = i + j
ElseIf RadioButton4.Checked Then
Label1.Text = i - j
ElseIf RadioButton2.Checked Then
Label1.Text = i * j
ElseIf RadioButton3.Checked Then
Label1.Text = i / j
End If
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim i As Integer = TextBox1.Text
Dim j As Integer = TextBox2.Text
Select Case True
Case RadioButton1.Checked
Label1.Text = i + j
Case RadioButton2.Checked
Label1.Text = i * j
Case RadioButton3.Checked
Label1.Text = i / j
Case RadioButton4.Checked
Label1.Text = i - j
End Select
End Sub
Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
End Sub
End Class
Public Class Form1
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
End Sub
Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Len(TextBox1.Text) = 0 And Len(TextBox2.Text) = 0 Then
MsgBox("enter num in text1 and tow ")
Else
Dim i As Integer = TextBox1.Text
Dim j As Integer = TextBox2.Text
If RadioButton1.Checked Then
Label1.Text = i + j
ElseIf RadioButton4.Checked Then
Label1.Text = i - j
ElseIf RadioButton2.Checked Then
Label1.Text = i * j
ElseIf RadioButton3.Checked Then
Label1.Text = i / j
End If
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim i As Integer = TextBox1.Text
Dim j As Integer = TextBox2.Text
Select Case True
Case RadioButton1.Checked
Label1.Text = i + j
Case RadioButton2.Checked
Label1.Text = i * j
Case RadioButton3.Checked
Label1.Text = i / j
Case RadioButton4.Checked
Label1.Text = i - j
End Select
End Sub
Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
End Sub
End Class
๐คฏ1
ุญููู (1).pdf
613.3 KB
ู
ุฑุฆูุฉ ุนุฏุฉ ูุงุฌุจุงุช๐ูููุงูู ุญู
ุงูู
ุณุงุฆู ู
ู ุชุฎูุตูู ุณููููู ู
ูู ุจุฃุณุฃูุชูู
ุฎู ูุณุชูุงุฏ๐
๐คฌ7
ุฌู
ุงุนุฉ ูุฐุง ๐คฌ
ูููู ู ุณุงุฆู ๐ฅฒ๐
ูููู ู ุณุงุฆู ๐ฅฒ๐
๐3
ุชูุฎูุต_ุงุฏูุงุช_ุงูุงุฏุฎุงู_ูุงูุงุฎุฑุงุฌ.pdf
432.9 KB
ุดุบูุงุช ุชููุฏ ููู
ุฑุฆูุฉ
๐2
ูุงุฌุจ ููุงูู ุงูุจูุงูุงุช
ูู ุงูุดุงุก ููุฏ ูุงุงููุฏ ุงูู ุตูููุงุช...
ููุฏ ูุญุชูู ุน
1/ Sll
2/ Dll
3/ Cll
ุนูุฏู ุง ูุฎุชุงุฑ Sll ูุธูุฑ ููุง ุฎู ุณุฉ
ุฎูุงุฑุงุช ุงูู ุฐููุฑุฉ ูู ุตูุฑุฉ ุงุนูุง
ูุนูุฏู ุง ูุฎุชุงุฑ ุงุญุฏ ุงูุฎูุงุฑุงุช ุงูุฎู ุณู ุชุธูุฑ ููุง ุซูุงุซ ุฎูุงุฑุงุช ุธุงูุฑุฉ ููุฎูุงุฑ ุงูุงูู
ุจุนุฏูู ูุฎุชุงุฑ ูุญุฏู ู ู ุซูุงุซู ููููุฐ ุงูุนู ููู
ูู ุงูุดุงุก ููุฏ ูุงุงููุฏ ุงูู ุตูููุงุช...
ููุฏ ูุญุชูู ุน
1/ Sll
2/ Dll
3/ Cll
ุนูุฏู ุง ูุฎุชุงุฑ Sll ูุธูุฑ ููุง ุฎู ุณุฉ
ุฎูุงุฑุงุช ุงูู ุฐููุฑุฉ ูู ุตูุฑุฉ ุงุนูุง
ูุนูุฏู ุง ูุฎุชุงุฑ ุงุญุฏ ุงูุฎูุงุฑุงุช ุงูุฎู ุณู ุชุธูุฑ ููุง ุซูุงุซ ุฎูุงุฑุงุช ุธุงูุฑุฉ ููุฎูุงุฑ ุงูุงูู
ุจุนุฏูู ูุฎุชุงุฑ ูุญุฏู ู ู ุซูุงุซู ููููุฐ ุงูุนู ููู
๐ข2
๐๐ฆโ๐๐๐๐๐ 4
ูุงุฌุจ ููุงูู ุงูุจูุงูุงุช ูู ุงูุดุงุก ููุฏ ูุงุงููุฏ ุงูู
ุตูููุงุช... ููุฏ ูุญุชูู ุน 1/ Sll 2/ Dll 3/ Cll ุนูุฏู
ุง ูุฎุชุงุฑ Sll ูุธูุฑ ููุง ุฎู
ุณุฉ ุฎูุงุฑุงุช ุงูู
ุฐููุฑุฉ ูู ุตูุฑุฉ ุงุนูุง ูุนูุฏู
ุง ูุฎุชุงุฑ ุงุญุฏ ุงูุฎูุงุฑุงุช ุงูุฎู
ุณู ุชุธูุฑ ููุง ุซูุงุซ ุฎูุงุฑุงุช ุธุงูุฑุฉ ููุฎูุงุฑ ุงูุงูู ุจุนุฏูู ูุฎุชุงุฑ ูุญุฏู ู
ู ุซูุงุซูโฆ
๐ข3
ุทุฑู ุนุฏุฏูู:
ุชู ุชุนุฏูู ุนูู ุทุฑููุฉ ุงูุซุงููุฉ ุตุงุฑุช
ุงูุซุฑ ู ุดุงุจู ูู ูุทุฑููุฉ ุงูุงููู๐๐ค
ุงููุงุฆู: ุงูู ุณุงุฆู
ุชู ุชุนุฏูู ุนูู ุทุฑููุฉ ุงูุซุงููุฉ ุตุงุฑุช
ุงูุซุฑ ู ุดุงุจู ูู ูุทุฑููุฉ ุงูุงููู๐๐ค
ุงููุงุฆู: ุงูู ุณุงุฆู
๐4