STMIK PRINGSEWU

Huruf Mutu Mahasiswa STMIK Pringsewu31SabtuJan 2015PostedbyazmainiinTak Berkategori≈Tinggalkan komentarPrivate Sub cbonpm_Click()Dim nama, jurusan, hm As StringSelect Casecbonpm.TextCase “14100250”nama = “Azmaini”jurusan = “Sistem Informasi”Case “14201033”nama = “sariyanti”jurusan = “manajemen informasi”Case “14204457”nama = “Milda Destiana”jurusan = “Manajemen Informasi”Case “14100445”nama = “eka aprilia”jurusan = “sistem informasi”Case “14100570”nama = “sulasmi”jurusan = “sistem informatika”Case “14100404”nama = “inayatul karoma”jurusan = “Sistem Informasi”Case “14100211”nama = ” adelia yustika”jurusan = “Sistem Informasi”Case “14201052”nama = “tia alfiana”jurusan = “Manajemen Informatika”Case “14100412”nama = “heni kartika sari”jurusan = “sistem informasi”Case “14100421”nama = “dwi astuti”jurusan = “Sistem Informasi”End Selecttxtnama.Text= namatxtjur.Text= jurusantxtquis.SetFocusEnd SubPrivate Sub cmdbatal_Click()cbonpm.SetFocuscbonpm.Text= ” ”txtnama.Text= ” ”txtjur.Text= ” ”txtquis.Text= ” ”txttugas.Text= ” ”txtuts.Text= ” ”txtuas.Text= ” ”txtna.Text= ” ”txthm.Text= ” ”End SubPrivate Sub cmdkeluar_Click()p = MsgBox(“Anda yakin akan keluar??”, vbQuestion + vbOKCancel, “informasi”)If p = vbOK ThenEndEnd IfEnd SubPrivate Sub cmdproses_Click()Dim na As IntegerDim hm As Stringquis = Val(txtquis.Text)tugas = Val(txttugas.Text)uts = Val(txtuts.Text)uas = Val(txtuas.Text)na = (quis + tugas + uts + uas) / 4txtna.Text= naSelect Casetxtna.TextCase Is > 80hm = “A”Case Is > 70hm = “B”Case Is > 60hm = “C”Case Is > 50hm = “D”Case Is < 50hm = “E”End Selecttxthm.Text= hmEnd SubPrivate Sub Form_Load()cbonpm.AddItem “14100250”cbonpm.AddItem “14100070”cbonpm.AddItem “14204457”cbonpm.AddItem “14204457”cbonpm.AddItem “14204458”cbonpm.AddItem “14204567”cbonpm.AddItem “12100060”cbonpm.AddItem “12100083”cbonpm.AddItem “12201006”cbonpm.AddItem “12201008”cbonpm.AddItem “12100093”End SubPrivate Sub txtquis_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thentxttugas.SetFocusEnd IfEnd SubPrivate Sub txttugas_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thentxtuts.SetFocusEnd IfEnd SubPrivate Sub txtuas_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenDim na As IntegerDim hm As Stringquis = Val(txtquis.Text)tugas = Val(txttugas.Text)uts = Val(txtuts.Text)uas = Val(txtuas.Text)na = (quis + tugas + uts + uas) / 4txtna.Text= naSelect Casetxtna.TextCase Is > 80hm = “A”Case Is > 70hm = “B”Case Is > 60hm = “C”Case Is > 50hm = “D”Case Is < 50hm = “E”End Selecttxthm.Text= hmEnd IfEnd SubPrivate Sub txtuts_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thentxtuas.SetFocusEnd IfEnd Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

STMIK PRINGSEWU

BAKTI SOSIAL DAN PELATIHAN KETERAMPILANWritten byadmin|February 10, 2016|0STMIK Pringsewu– Minggu (7/2), Komunitasbernas (Berbagi Nasi) Kecamatan Tanjung Bintang Lampung Selatan merupakan gerakan komunitas yang bergerak di Bidang Sosial. Kegiatan ini fokus dengan kegiatan yang berhunbungan dengan sosial. Salah satu program kerja dari komunitas Bernas adalah bakti sosial. Kegiatan bakti sosial ini dengan tema “BAKTI SOSIAL DAN PELATIHAN KETERAMPILAN IBU-IBU RUMAH TANGGA SERTA STRATEGI PEMASARAN DENGAN MENGUNAKAN INTERNET” Bakti sosial ini meliputi sunatan massal dengan jumlah 25 anak, donor darah dengan jumlah 60 orang, pengobatan gratis 150 orang, pelatihan keterampilan ibu rumahtangga dengan jumlah 5 kelompok setiap kelompok berjumlah 5 orang. Tujuan dari kegiatan ini utuk membantu dan meringan kan bagi masyarakat yang memang membutuhkan. Kegiatan keterampilan di laksanakan bertujuan untuk mengembangkan kemampuan dan memberdayankan ibu-ibu rumah tangga dengan harapan dapat di kembangk
Baca selengkapnya

Teknologi

Macam - Macam Perkembangan Teknologi & Teknologi informasiSabtu, April 11, 2015 Bones CrewNo comments1. Komunikasi lisanKetika teknologi belum berkembang seperti sekarang, orang kesulitan berkomunikasi secara lisan dengan orang yang letaknya jauh. Mereka haruslah bertemu terlebih dahulu. Namun kini kita sangat mudah melakukan komunikasi lisan meskipun letaknya berjauhan. Kita dapat berbicara secara langsung kepadaorang yang letaknya jauh melalui pesawat telepon. Kemudian dengan kemajuan teknologi semakin banyak tercipta alat-alat komunikasi yang canggih seperti radio, televisi dan internet. Bahkan sekarang dengan teknologi satelit, komunikasi jarak jauh dapat dilakukan tanpa kabel. Yakni dengan alat yang dinamakan telepon seluler.2. Teknologi produksi makanan dan obat-obatanPadi (Nasi) Untuk dapat menikmati sepiring nasi ternyata prosesnya cukup panjang. Nasi berasal dari beras, beras berasal dari tanaman padi. Pernahkan kamu melihat orang menanam padi di sawah? Sebelum ditanami bi
Baca selengkapnya

STMIK PRINGSEWU

Profil STMIK PringsewuMarch 26, 2009 6:45 amA.Gambaran Umum Geografis Daerah Pringsewu TanggamusPringsewu adalah kota kecamatan di Kabupaten Tanggamus terletak 37 kilometer sebelah Barat Bandar Lampung Ibu kota Propinsi. Dari 28 Kecamatan, 371 Pekon/Kelurahan yang ada di Kabupaten Tanggamus dengan jumlah penduduk sebanyak 838.348 jiwa, luas wilayah 3.356,61 Km2dengan batas wilayah sebagai berikut:·Sebelah Barat berbatasan dengan Kabupaten Lampung Barat·Sebelah Selatan berbatasan dengan Samudera Indonesia·Sebelah Timur berbatasan dengan Kabupaten Pesawaran·Sebelah Utara berbatasan dengan Kabupaten Lampung TengahSarana Pendidikan Di Kabupaten TanggamusSarana Pendidikan yang tersedia di Kabupaten Tanggamus meliputi:·SD (Sekolah Dasar) sebanyak 781 unit·SLTP (Sekolah Lanjutan Tingkat Pertama) sebanyak 101 unit·SMU (Sekolah Menengah Umum) sebanyak 30 unit·SMK (Sekolah Menengah Kejuruan) sebanyak 29 unit·Perguruan Tinggi sebanyak 5 unitPertambangan:Kabupaten Tanggamus juga kaya akan potensi
Baca selengkapnya