หื่นทำไรอยู่

ทำเปงเขียนจาวา

แล้วอธิบายได้ป่าวที่เขียนอ่ะ

โห

หื่นไม่พอยังยร้าอิก

เฮ้อเพื่อนฉาน

แวะมาทักทาย

บาย

import javax.swing.*;

public class Array{
public static void main(String[] args){
final int NUM=10;
String strData;
int data[],n,newData;
data=new int[NUM];

strData=JOptionPane.showInputDialog("Number of Data");
n=Integer.parseInt(strData);


for(int i=0; i

import javax.swing.*;

public class Array{
public static void main(String[] args){
final int NUM=10;
String strData;
int data[],n,newData;
data=new int[NUM];

strData=JOptionPane.showInputDialog("Number of Data");
n=Integer.parseInt(strData);


for(int i=0; i

import javax.swing.*;

public class Array{
public static void main(String[] args){
final int NUM=10;
String strData;
int data[],n,newData;
data=new int[NUM];

strData=JOptionPane.showInputDialog("Number of Data");
n=Integer.parseInt(strData);


for(int i=0; i

ค
ค
ค
ค
ค
ค
ค
ค
ค
ค
ค
ค
ค
ค
ค
ค
ค
ค
................ควย

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

user = TextBox1.Text
prass = TextBox2.Text
If user = "Admin" And prass = "123" Then
MessageBox.Show("ยินดีต้อนรับ" + vbCrLf + "ภานุวัฒน์ ประวิสารัตน์ ้เลขที่ 51040249211", "Welcome", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf user <> "admin" Then
MessageBox.Show("ไม่มีUsername คนนี้" + vbCrLf + "กรุณาใส่หม่", "ข้อมูลผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
ElseIf prass <> "123" Then
MessageBox.Show("Prassword ไม่ถูกต้อง" + vbCrLf + "กรุณาใส่หม่", "ข้อมูลผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)

End If

End Sub

สู้ต่อไปขนม นมน้อย อิอิ

ทักทายตอนดึกจ้า

ฝานดีนะคืนนี้

หาย ปัย นาน เรย น่ะ คร้า เพ่ แซม!!

แกๆๆนอนยังวะ



รักแกจัง



ทำไงดีเนี้ย

ไอ้เพื่อนบ้า



ลอมรอบโดยสาวๆๆเลยนะแก



หาหนุ่มๆมาลอมรอบฉันทีดิ

ทักทายยามดึก

ฝันหวานนะเอ่อเหรอ

บาย*-*

Private Sub btnCheckAge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckAge.Click
Dim age As Integer
Dim strResp As String = Val(TextBox1.Text)
If IsNumeric(strResp) Then
age = CInt(strResp)
Select Case age
Case 1 To 12
MessageBox.Show("คุณยังเด็กมาก", "age=" & age.ToString)
Case 13 To 14
MessageBox.Show("คุณยังเป็นวัยรุ่น", "age=" & age.ToString)
Case 25
MessageBox.Show("คุณอยู่ในวัยเบญจเพส", "age=" & age.ToString)
Case 26 To 60
MessageBox.Show("คุณอยู่ในวัยทำงาน", "age=" & age.ToString)
Case 61 To 120
MessageBox.Show("คุณอยู่ในวัยชรา", "age=" & age.ToString)
Case Else
MessageBox.Show("ลองระบุอายุของคุณอีกครั้ง", "age=" & age.ToString)
End Select
End If
MessageBox.Show("ลองระบุอายุของคุณอีกครั้ง", "age=" & age.ToString)

Private Sub btnCheckDay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckDay.Click
Dim day As Integer = Now.DayOfWeek
Select Case day
Case 0
MessageBox.Show("วันนี้เป็นวันอาทิตย์", Now.Day.ToString)
Me.BackColor = Color.Red
Case 1
MessageBox.Show("วันนี้เป็นวันจันทร์", Now.Day.ToString)
Me.BackColor = Color.Yellow
Case 2
MessageBox.Show("วันนี้เป็นวันอังคาร", Now.Day.ToString)
Me.BackColor = Color.Pink
Case 3
MessageBox.Show("วันนี้เป็นวันพุธ", Now.Day.ToString)
Me.BackColor = Color.Green
Case 4
MessageBox.Show("วันนี้เป็นวันพฤหัสบดี", Now.Day.ToString)
Me.BackColor = Color.Orange
Case 5
MessageBox.Show("วันนี้เป็นวันศุกร์", Now.Day.ToString)
Me.BackColor = Color.SkyBlue
Case 6
MessageBox.Show("วันนี้เป็นวันเสาร์", Now.Day.ToString)
Me.BackColor = Color.Purple


End Select
End Sub

แวะมาทักทายจ้า

Private Sub btnGrade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrade.Click
Dim intMark As Integer
intMark = Val(TextBox1.Text)
If intMark < 50 Then
MessageBox.Show("คะแนน " & intMark.ToString & " :สอบตก")
ElseIf intMark < 60 Then
MessageBox.Show("คะแนน " & intMark.ToString & " :เกรด D")
ElseIf intMark < 70 Then
MessageBox.Show("คะแนน " & intMark.ToString & " :เกรด C")
ElseIf intMark < 80 Then
MessageBox.Show("คะแนน " & intMark.ToString & " :เกรด B")
ElseIf intMark <= 100 Then
MessageBox.Show("คะแนน " & intMark.ToString & " :เกรด A")
Else
MessageBox.Show("คะแนน " & intMark.ToString & " :กรอกคะแนนผิดพลาด")
End If
End Sub



'comment ที่TextBox1 แซมไม่ได้เปลี่ยนชื่อเหมือนอาจารย์ เอาตามที่มันตั้งให้เข้าใจ โชคดี

มาปกติ.,

ไอ้บร้าเอ้ยยย..

อยากฆ่าคน

ทักทาย

บาย*-*

ทักทายๆ

กลับมายังจ๊ะ

ทำรัยยุ

คิดถึงนะค่ะ...เอ๋อเหรออิอิ...555

เม้นๆคับผม

บาย*-*

อ้าวเม้นนนนนนนนน
เฮ็ดหยังอยู่
หนาวไป๋
แฟนคลับคือหลายแท้