Tugas visual basic 1.1





Komentar

Posting Komentar

Postingan populer dari blog ini

TUGAS PROGRAM F

Gambar
Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt.SetFocus txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttp = "" End Sub Private Sub cmdproses_Click() txttp = Val(txtht) * Val(txtjt) End Sub Private Sub txtkt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtjt.SetFocus End If Dim k As String k = txtkt If k = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf k = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf k = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf k = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If End Sub
Baca selengkapnya

TUGAS PROGRAM E

Gambar
Private Sub cbokode_Click() Dim j, h As String Select Case cbokode Case "P205" j = "Pentium II 500 Mega Hz" h = "1500000" Case "P308" j = "Pentium III 800 Mega Hz" h = "2100000" Case "P310" j = "Pentium III 1.0 Giga Hz" h = "3500000" Case "P415" j = "Pentium IV 1.5 Giga Hz" h = "4000000" Case "P417" j = "Pentium IV 1.7 Giga Hz" h = "4200000" Case "P419" j = "Pentium IV 1.9 Giga Hz" h = "5500000" End Select txtjk = j txths = h txtjj.SetFocus End Sub Private Sub cmdhl_Click() cbokode.SetFocus cbokode = "Pilih Kode Komputer" txtjj = "" txtjk = "" txths = "" txthp = "" txtdis = "" txttb = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() txthp = Val(txths) * Val(txtjj)...
Baca selengkapnya

MEMBANGUN BUDAYA TERTIB LALULINTAS

Gambar
STMIK Pringsewu  – Sabtu (11/6), “Membangun Budaya Tertib Lalu Lintas” merupakan salah satu materi di program orientasi studi pendidikan tinggi (POSDIKTI) STMIK Pringsewu diisi langsung oleh Bripka Yuliansyah Idrus selaku Banit Pendidikkan dan rekayasa Satlantas Polres Tanggamus. Beliau sangat bahagia diberikan kesempatan untuk memberikan materi “membangun budaya tertib lalu lintas” dan menyampaikan ucapan terima kasih kepada STMIK Pringsewu yang sudah memberikan kesempatan kepada Satuan Lalu Lintas Polres Tanggamus. Yuliansyah mengatakan, membangun budaya tertib lalu lintas dari mahasiswa dapat menjadi contoh bagi masyarakat bagaimana berlalulintas yang baik dan terhindar dari kecelakaan. Selaku mahasiswa STMIK Pringsewu harus selalu mendukung keselamatan berlalulintas khususnya bagaimana berkendaraan yang baik dan memperhatikan rambu-rambu dan aturan lalulintas. Mari kita bersama-sama meningkatkan kesadaran masyarakat dalam berlalu lintas, dan kita tidak bosan-bosan membe...
Baca selengkapnya