Assalamualaikum Wr.Wb.
Saya Sulthan Alawy Shihab, salam
sejahtera bagi kita semua, semoga kita selalu dilindungi Tuhan Yang Maha Esa.
Oke sebelumnya saya sudah
memposting tugas teori 1 ya, pada
kesempatan kali ini saya memposting tugas praktik 1 nya.
OPERATOR
·
Suatu tanda yang digunakan untuk menghubungkan satu
variabel lain dengan tujuan melakukan berbagai manipulasi dan pengolahan data.
·
Operator adalah simbol dan karakter khusus (matematika) yang
digunakan dalam suatu ekspresi.
JENIS-JENIS OPERATOR
Operator Penugasan
·
Operator Aritmatika
·
Operator Pembanding
·
Operator Logika
LATIHAN 1
Code:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
'textbox hanya bisa diisi dengan angka
'tekan enter untuk pindah ke textbox selanjutnya
If (e.KeyChar = Chr(13)) Then
TextBox2.Focus()
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[0-9]" _
OrElse keyascii = Keys.Back) Then
keyascii = 0
End If
e.Handled = CBool(keyascii)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim alas, tinggi As Integer
Dim hasil As Double
alas = TextBox1.Text
tinggi = TextBox2.Text
hasil = (alas * tinggi) / 2
TextBox3.Text = hasil
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
Close()
End
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub
End Class
LATIHAN 2
Code:
Public Class Form2
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
e.Handled = CBool(keyascii) 'Sulthan Alawy Shihab
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
e.Handled = CBool(keyascii) 'Sulthan Alawy Shihab
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim depan, belakang As String
depan = TextBox1.Text
belakang = TextBox2.Text
If (TextBox1.Text = "" And TextBox2.Text = "") Then
MessageBox.Show("ANDA BELUM MEMASUKKAN NAMA DEPAN DAN BELAKANG")
ElseIf (TextBox1.Text = "" Or TextBox2.Text = "") Then
MessageBox.Show("ANDA BELUM MEMASUKKAN NAMA DEPAN ATAU BELAKANG")
Else : MessageBox.Show("Nama lengkap anda adalah " + depan + " " + belakang)
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
KASUS 1
Code:
Public Class Form3
Public jari As Integer
Public luas, keliling As Double
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'Validasi textbox panjang hanya bisa diisi oleh angka
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Const phi = 3.14
jari = Val(TextBox1.Text)
luas = phi * jari * jari
keliling = 2 * phi * jari
TextBox2.Text = luas
TextBox3.Text = keliling
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
KASUS 2
Code:
Public Class Form4
Dim kode, jumlah As Integer
Dim nama As String
Dim harga, total, bayar, kembali As Double
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
TextBox2.Focus()
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus()
End If
e.Handled = CBool(keyascii) 'Sulthan Alawy Shihab
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
TextBox4.Focus()
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
harga = Val(TextBox3.Text)
jumlah = Val(TextBox4.Text)
total = harga * jumlah
TextBox5.Text = total
TextBox6.Focus()
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
total = Val(TextBox5.Text)
bayar = Val(TextBox6.Text)
kembali = bayar - total
TextBox7.Text = kembali
End If
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.TextBox3.Focus()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox1.Text = ""
TextBox7.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
KASUS 3
Code:
Public Class Form5
Dim kode, jumlah As Integer
Dim nama As String
Dim harga, total, bayar, kembali As Double
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
TextBox2.Focus()
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus()
End If
e.Handled = CBool(keyascii) 'Sulthan Alawy Shihab
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.TextBox3.Focus()
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
TextBox4.Focus()
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
harga = Val(TextBox3.Text)
jumlah = Val(TextBox4.Text)
total = harga * jumlah
TextBox5.Text = total
TextBox6.Focus()
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
total = Val(TextBox5.Text)
bayar = Val(TextBox6.Text)
kembali = bayar - total
TextBox7.Text = kembali
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox1.Text = ""
TextBox7.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Tidak ada komentar:
Posting Komentar