sriwahyuni

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim SISI1, SISI2, HASIL As Integer         SISI1 = TextBox1.Text         SISI2 = TextBox2.Text         HASIL = 6 * TextBox1.Text * TextBox2.Text         TextBox3.Text = HASIL     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim Waktu, Debit, Hasil As Integer         Waktu = TextBox1.Text         Debit = TextBox2.Text         Hasil = TextBox1.Text * TextBox2.Text         TextBox3.Text = Hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim VOLUME, DEBIT, HASIL As Integer         VOLUME = TextBox1.Text         DEBIT = TextBox2.Text         HASIL = TextBox1.Text / TextBox2.Text         TextBox3.Text = HASIL     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim VOLUME, WAKTU, HASIL As Integer         VOLUME = TextBox1.Text         WAKTU = TextBox2.Text         HASIL = TextBox1.Text / TextBox2.Text         TextBox3.Text = HASIL     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim Alas, Tinggi, Hasil As Integer         Alas = TextBox1.Text         Tinggi = TextBox2.Text         Hasil = Val(TextBox1.Text) * Val(TextBox2.Text)         TextBox3.Text = Hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim S1, S2, S3, S4, HASIL As Integer         S1 = TextBox1.Text         S2 = TextBox2.Text         S3 = TextBox3.Text         S4 = TextBox4.Text         HASIL = S1 * S2 * S3 * S4         TextBox5.Text = HASIL     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim a, b, tinggi, hasil As Integer         a = TextBox1.Text         b = TextBox2.Text         tinggi = TextBox3.Text         hasil = a + b / 2 * tinggi         TextBox4.Text = hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim D1, D2, HASIL As Integer         D1 = TextBox1.Text         D2 = TextBox2.Text         HASIL = 1 / 2 * D1 * D2         TextBox3.Text = HASIL     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim D1, D2, HASIL As Integer         D1 = TextBox1.Text         D2 = TextBox2.Text         HASIL = 1 / 2 * D1 * D2         TextBox3.Text = HASIL     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim sisi1, sisi2, hasil As Integer         sisi1 = TextBox1.Text         sisi2 = TextBox2.Text         hasil = Val(TextBox1.Text) * Val(TextBox2.Text)         TextBox3.Text = hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim a, b, hasil As Integer         a = TextBox1.Text         b = TextBox2.Text         hasil = 2 * (a + b)         TextBox3.Text = hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If TextBox1.Text = " " Then             MsgBox(" Seilahkan Isi Bilangan")         Else             If TextBox1.Text Mod 2 = 0 Then                 LBLHasil.Text = TextBox1.Text + " Adalah Bilangan Genap"             Else                 LBLHasil.Text = TextBox1.Text + " Adalah Bilangan Ganjil"             End If         End If     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim bil, akar, kuadrat As Double         bil = Int(TextBox1.Text)         akar = Math.Sqrt(bil)         kuadrat = bil * bil         TextBox2.Text = akar         TextBox3.Text = kuadrat     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click         Close()     End Sub     Private Sub btnhitungl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitungl.Click         Dim p, l As New Integer         Dim h As New Double         If tbpanjang.Text = "" Then             MsgBox("Masukkan Panjangnya!", MsgBoxStyle.Critical, "Peringatan")         ElseIf tbluas.Text = "" Then             MsgBox("Masukkan Lebarnya!", MsgBoxStyle.Critical, "Peringatan")         Else             p = Val(tbpanjang.Text)             l = Val(tbluas.Text)             h = p * l             tbhasil.Text = h         End If     End Sub     Private Sub btnhitungk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitungk.Click         Dim p, l As New Integer         Dim h As New Double  

Nama : SRIWAHYUNI NIM : 19010020 Public Class Formpangkat     Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click         txtX.Text = "0"         txtY.Text = "0"         txtXY.Text = "0"         txtX.Focus()     End Sub     Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click         Dim a, b, hasil As Integer         a = txtX.Text         b = txtY.Text         hasil = 1         For i = 1 To b             hasil = hasil * a         Next i         txtXY.Text = hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click         Dim var_a, var_b, var_c, var_D, var_x1, var_x2 As Single         var_a = TextBox1.Text         var_b = TextBox2.Text         var_c = TextBox3.Text         var_D = var_b ^ 2 - (4 * var_a * var_c)         If var_D > 0 Then             var_x1 = (-var_b + Math.Sqrt(var_D)) / 2 * var_a             var_x2 = (-var_b - Math.Sqrt(var_D)) / 2 * var_a             TextBox4.Text = var_x1             TextBox5.Text = var_x2         ElseIf var_D = 0 Then             var_x1 = -var_b / 2 * var_a             var_x2 = -var_b / 2 * var_a             TextBox4.Text = var_x1             TextBox5.Text = var_x2         Else             TextBox4.Text = "Akar tidak real"             TextBox5.Text = "Akar tidak real"         End If     End Sub     Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As Sy

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Dim Variabel1 As Integer     Dim Variabel2 As Integer     Dim hasil As VariantType     Dim HasilPerbandingan As Boolean     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Text1.Text = ""         Text2.Text = ""         LblHasil.Text = 0     End Sub     Private Sub OptTambah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptTambah.CheckedChanged         Variabel1 = Text1.Text         Variabel2 = Text2.Text         hasil = Variabel1 + Variabel2         LblHasil.Text = hasil     End Sub     Private Sub OptKurang_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptKurang.CheckedChanged         Variabel1 = Text1.Text         Variabel2 = Text2.Text         hasil = Variabel1 - Variabel2         LblHasil.Text = hasil     End Sub     Private Sub OptKali_CheckedChanged(ByVal sender As Syst

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub btnluas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnluas.Click         Dim Panjang, Lebar, Tinggi, Hasil As Integer         Panjang = Val(txtpanjang.Text)         Lebar = Val(txtlebar.Text)         Tinggi = Val(txttinggi.Text)         Hasil = Val(2 * txtpanjang.Text * txtlebar.Text + 2 * txtpanjang.Text * txttinggi.Text + 2 * txtlebar.Text * txttinggi.Text)         txthasil.Text = Hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         lblSRI.Text = "SRI WAHYUNI STIKOM MUHAMMADIYAH BATAM"     End Sub     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblSRI.Click         lblSRI.Text = "SRI WAHYUNI STIKOM MUHAMMADIYAH BATAM"     End Sub     Private Sub BtnBlack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBlack.Click         lblSRI.ForeColor = System.Drawing.Color.Black     End Sub     Private Sub BtnGreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGreen.Click         lblSRI.ForeColor = System.Drawing.Color.Green     End Sub     Private Sub BtnBlue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBlue.Click         lblSRI.ForeColor = System.Drawing.Color.Blue     End Sub     Private Sub BtnYellow_

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub btnvolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvolume.Click         Dim Luas, Tinggi, hasil As Integer         Luas = Val(txtluas.Text)         Tinggi = Val(txttinggi.Text)         hasil = Val(txtluas.Text * txttinggi.Text)         txthasil.Text = hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Timer1.Enabled = True         TextBox1.Text = ""         TextBox2.Text = ""         TextBox3.Text = ""         TextBox4.Text = ""     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Timer1.Enabled = False         TextBox5.Text = TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         End     End Sub     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         Tex

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         End     End Sub     Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged         If Val(TextBox3.Text) >= 100 Then             TextBox4.Text = 0.3         ElseIf Val(TextBox3.Text) >= 50 Then             TextBox4.Text = 0.2         ElseIf Val(TextBox3.Text) >= 25 Then             TextBox4.Text = 0.1         Else             TextBox4.Text = 0         End If     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         TextBox5.Text = (TextBox2.Text * TextBox3.Text) - (TextBox2.Text * TextBox3.Text * TextBox4.Text)     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Frmlat_17     Dim matrika(20, 20), matrikb(20, 20), barisA, kolomA, barisB, kolomB As Integer     Dim hasila_matrika, hasila_matrikb, hasil_matrix As String     'proses input matrik     Sub input_matrik()         Dim b, k As Integer         barisA = Val(Me.TxtbarisA.Text)         kolomA = Val(Me.TxtkolomA.Text)         For b = 0 To barisA - 1             For k = 0 To kolomA - 1                 matrika(b, k) = InputBox("masukan nilai matrix A untuk posisi" & b + 1 & " x " & k & " : ")             Next         Next     End Sub     Sub cetak_matrika()         Dim b, k As Integer         barisA = Val(Me.TxtbarisA.Text)         kolomA = Val(Me.TxtkolomA.Text)         For b = 0 To barisA - 1             For k = 0 To kolomA - 1                 hasila_matrika = hasila_matrika & matrika(b, k) & " "             Next             hasila_matrika = hasila_matrika & Chr(13)         Ne

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim angka1, angka2, hasil As Integer         angka1 = TextBox1.Text         angka2 = TextBox2.Text         hasil = angka1 / angka2         TextBox3.Text = hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         cbtujuan.Items.Clear()         cbtujuan.Items.Add("JAKARTA")         cbtujuan.Items.Add("SURABAYA")         cbtujuan.Items.Add("MAKASSAR")         cbtujuan.Items.Add("BALI")     End Sub     Private Sub cbtujuan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbtujuan.SelectedIndexChanged         If cbtujuan.Text = "JAKARTA" Then             txtharga.Text = 1500000         ElseIf cbtujuan.Text = " SURABAYA" Then             txtharga.Text = 1700000         ElseIf cbtujuan.Text = "MAKASSAR" Then             txtharga.Text = 1900000         ElseIf cbtujuan.Text = "BALI" Then             txtharga.Text = 2000000         Else             MsgBox("MASUKKAN TUJUAN")         End If     End Sub     Private

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim dataangka As String() = New String() {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text}         Array.Sort(dataangka)         URUTAN.Items.Clear()         For Each str As String In dataangka             URUTAN.Items.Add(str)         Next     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim angka1, angka2, hasil, JUMLAH As Integer         angka1 = TextBox1.Text         angka2 = TextBox2.Text         JUMLAH = angka1 * angka2         Label5.Text = JUMLAH     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         TextBox1.Text = " "         TextBox2.Text = " "         Label5.Text = " "     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         ProgressBar1.Increment(1)     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Timer1.Start()         If ProgressBar1.Value = (100) Then             Form2.Show()         End If     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Timer1.Stop()         ProgressBar1.Value = (0)     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         End     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     End Sub End Class Public Class Form2     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         TextBox1.Text = DateDiff(DateInterval.Hour, DateTimePicker1.Value, DateTimePicker2.Value)     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         TextBox1.Text = DateDiff(DateInterval.Minute, DateTimePicker1.Value, DateTimePicker2.Value)     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         TextBox1.Text = DateDiff(DateInterval.Second, DateTimePicker1.Value, DateTimePicker2.Value)     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim str As String         str = "SRI WAHYUNI"         MsgBox(str.Length())     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub btnluas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnluas.Click         Dim Jari1, Jari2, Hasil As Integer         Jari1 = Val(txtjari1.Text)         Jari2 = Val(txtjari2.Text)         Hasil = Val(3.14 * txtjari1.Text * txtjari2.Text)         txthasil.Text = Hasil     End Sub     Private Sub btnvolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvolume.Click         Dim Jari1, Jari2, Tinggi, Hasil As Integer         Jari1 = Val(txtjari1.Text)         Jari2 = Val(txtjari2.Text)         Tinggi = Val(txttinggi.Text)         Hasil = Val(3.14 * txtjari1.Text * txtjari2.Text * txttinggi.Text)         txthasil.Text = Hasil     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click         Dim pilihan As String = ComboBox1.Text         Dim besar_sudut As Double = TextBox1.Text         Dim radian As Double = besar_sudut / 180 * Math.PI         Dim sin As Double = Math.Sin(radian)         Dim cos As String = Math.Cos(radian)         Dim tan As String = Math.Tan(radian)         If pilihan = "Sinus" Then             ListBox1.Items.Add("Nilai Radian = " & radian & "   maka hasil Sinus = " & sin)         ElseIf pilihan = "Cosinus" Then             ListBox1.Items.Add("Nilai Radian = " & radian & "   maka hasil Cosinus = " & cos)         ElseIf pilihan = "Tangen" Then             ListBox1.Items.Add("Nilai Radian = " & radian & "   maka hasil Tangen = " & tan)         End If     End

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim p As Decimal = TextBox1.Text         Dim l As Decimal = TextBox2.Text         Dim t As Decimal = TextBox3.Text         TextBox4.Text = p * l * t     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click         Dim Jarijari, Tinggi, LuasKerucut As Integer         Jarijari = Val(txt.Text)         Tinggi = Val(txttinggi.Text)         LuasKerucut = Val(22 / 7 * Jarijari * Jarijari * Tinggi / 3)         TextBox1.Text = LuasKerucut     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim S1, S2, S3, Hasil As Integer         S1 = TextBox1.Text         S2 = TextBox2.Text         S3 = TextBox3.Text         Hasil = S1 * S2 * S3         TextBox4.Text = Hasil     End Sub End Class     

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim angkaTerbesar As Single         If (CSng(TextBox1.Text) > CSng(TextBox2.Text)) Then             angkaTerbesar = CSng(TextBox1.Text)         Else             angkaTerbesar = CSng(TextBox2.Text)         End If         TextBox3.Text = "Angka terbesar adalah: " & angkaTerbesar     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         My.Computer.FileSystem.WriteAllText("D:\file.txt", TextBox1.Text, True)         MsgBox("File berhasil disimpan")     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Close()     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         TextBox1.Text = ""         TextBox2.Text = ""         TextBox3.Text = ""     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         TextBox3.Enabled = False         TextBox3.Text = Val(0.5) * Val(TextBox1.Text) * Val(TextBox2.Text)     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim phi As Integer         Dim Luas As Integer         Dim keliling As Integer         phi = 22 / 7         Luas = phi * (TextBox1.Text * TextBox1.Text)         keliling = 2 * phi * TextBox1.Text         TextBox2.Text = Luas         TextBox3.Text = keliling     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         TextBox1.Text = " "         TextBox2.Text = " "         TextBox3.Text = " "     End Sub End Class

Nama : SRIWAHYUNI NIM : 19010020 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click         Hide()         Login.Show()         If txtID.Text = "sriwahyuni" And                 txtPassword.Text = "1234567" Then             Login.Show()         Else             MessageBox.Show("ID atau Password salah", "Konvirmasi",                       MessageBoxButtons.OK, MessageBoxIcon.Information)         End If     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         MsgBox("Apakah anda yakin mau keluar?", MsgBoxStyle.YesNo, "Peringatan!")     End Sub     Private Sub txtPassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPassword.TextChanged         Login.Show()     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System