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

Soal Latihan Pengantar Probabilitas

1.     Misalkan antrian penumpang mau masuk bus. a.     Misalkan banyaknya penumpang tersebut 5, ada berapa cara dapat dibuat antrian masuk bus tersebut. b.     Bila dua orang tidak saling mengikuti, ada berapa cara antrian yang dapat dibuat?   2.     Misalnya dilakukan pengundian dua buah dadu yang seimbang secara sekaligus, yaitu dadu merah dan dadu hijau. a.     Berapa peluang bahwa kedua mata dadu itu mempunyai nilai yang sama? b.       Berapa peluang bahwa mata dadu merah merupakan kuadrat dari mata dadu hijau? c.       Berapa peluang bahwa selisih kedua mata dadu itu positif? 3.     Misalnya dua buah kotak berisi sejumlah bola tenis, yaitu kotak I berisi 8 bola kuning dan 6 bola hitam, dan kotak II berisi 5 bola kuning dan 10 bola hitam. Bila sebuah bola diambil secara acak dari masing-masing kotak. Hitung peluang bahwa kedua bola yang terambil itu: a.     berwarna kuning. b.     berwarna bukan hitam dari kotak A dan berwarna hitam dari kotak B. c.
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 karya atau laporan tertulis yang memaparkan hasil penelitian atau
Baca selengkapnya