Coretanku . . .

1. Buka Visual Basic, pilih new project dan standart exe 2. Tambah kan 3label, 3 textbox, 3 command 3. Atur Property kontrol : Kontrol Property Nilai Form 1 Name Caption Frmpangkat Form Bilangan Pangkat Text 1 Name Aligment text Text1 1 0 Text3 Name Aligment text Text 3 1 0 Command1 Name Caption Cmdhitung hitung Command 2 Name Caption Cmdbatal Batal Command Name Caption Cmdkeluar Keluar 4. Masukkan code program seperti dibawah ini : Private Sub cmdbatal_Click() Text1.Text = "0" Text2.Text = "0" Text3.Text = "0" Text1.SetFocus End Sub Private Sub cmdhitung_Click() Dim a, b, hasil As Integer a = Text1.Text b = Text2.Text Atur Propert

1. Buka visual basic, pilih new project dan pilih standart exe 2. Lalu tambahkan 1list, 3label, 4 textbox, 2 command Private Sub Command1_Click() Dim i, K, value As Integer Dim STDEV As Double Dim sigmakuadrat, var, atas, bawah, tbkuadrat, totalbilangan As Long K = 0 For i = 0 To List1.ListCount - 1       totalbilangan = totalbilangan + Val(List1.List(i))       sigmakuadrat = totalbilangan * totalbilangan       tbkuadrat = tbkuadrat + (Val(List1.List(i)) * Val(List1.List(i)))       K = K + 1       rata = totalbilangan / K    Next    atas = (K * tbkuadrat) - sigmakuadrat    bawah = K * (K - 1)    var = atas / bawah    STDEV = Sqr(var)    Label4.Caption = totalbilangan    Label5.Caption = rata    Label8.Caption = STDEV End Sub Private Sub Command2_Click() Text1.Text = "" List1.Clear Label4.Caption = "" Label5.Caption = "" Label8.Caption = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_keypress(keyascii As