Cara Membuat Program Simpangan Baku

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 Integer)
Dim i As Integer
i = Val(Text1.Text)
If keyascii = 13 Then
List1.AddItem i
Text1.Text = ""
End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Cara Membuat Program Pangkat dengan Visual Basic

Gambar
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...
Baca selengkapnya

PAPER KARYA ILMIAH

Semua Tentang Karya Ilmiah            Karya ilmiah merupakan salah satu kompetensi dasar yang harus dikuasai oleh mahasiswa yang dapat dicapai melalui tujuh kompetensi dasar secara bertahap. Kompetensi dasar ini selanjutnya dijabarkan menjadi lima indikator, yakni (1) menjelaskan pengertian penulisan karya ilmiah, (2) menjelaskan ciri-ciri karya ilmiah, (3) menjelaskan jenis-jenis karya ilmiah, (4) menjelaskan bentuk karya ilmiah, dan (5) menjelaskan kerangka umum karya ilmiah. Akan tetapi dalam pokok pembahasan pertama ini hanya akan memberikan penjelasan tentang   pengertiaan karya ilmiah, ciri-ciri karya ilmiah,   jenis-jenis karya ilmiah, manfaat karya ilmiah, hal-hal harus ada dalam karya ilmiah dan sikap ilmiah.   Materi ini bersifat teoritis oleh karena itu dapat dipahami dengan membaca, mendengarkan penjelasan, atau mendiskusikannya. A. Pengertian Karya Ilmiah Karya Ilmiah atau tulisan ilmiah adalah k...
Baca selengkapnya

Pengalaman Tes Seleksi Penerimaan Calon Pegawai Bank Indonesia “PCS”

Sebelumnya saya minta maaf, jika tulisan saya kurang rapi. Setelah lama tidak menulis, kali ini saya tertarik untuk menulis pengalaman tes Bank Indonesia jalur staff atau biasa disebut PCS. Kenapa saya tertarik menulis tentang ini? Karena ketika saya browsing tidak banyak yang menginformasikan tentang PCS kebanyakan mereka menuliskan tentang PCPM (Penerimaan Calon Pegawai Muda). Seleksi Bank Indonesia jalur PCS itu sendiri merupakan rekrutmen pegawai setingkat staff. Pada Tahun 2017 ini BI membuka lowongan pekerjan untuk putra putri terbaik Indonesia untuk menjadi bagian dari mereka. Seleksi Bank Indonesia jalur staff memiliki beberapa posisi yang berbeda dan memiliki persyarat yang berbeda disetiap posisi. Jabatan yang dilamar antara lain: 1.        Operational and Admin Staff (Pelaksana Junior) 2.        Junior IT Staff (Pelksana IT Yunior) 3.        Junior Cashier (Kasir Yunior) 4. ...
Baca selengkapnya