Membuat Program Sederhana Do While-Loop pada Visual Basic 6

-

























      

    




Membuat Program Sederhana Do While-Loop pada Visual Basic 6   





       



   

Pada postingan kali ini saya akan membahas tentang pembuatan program sederhana denga menggunakan kondisi Kontrol Perulangan Do While-Loop. pada VB dengan output bilangan asli namun angka 5 tidak akan dicetak pada output, Disini saya menggunakaan program Visual Basic 6.0.


Langkah Pembuatan Program :

1. Buka aplikasi Visual Basic 6.0, Klik Standard EXE.





2. Mendesain Form menggunakan  3 Label, 1 TextBox, 3 CommandButton, 1 ListBox. dengan format seperti dibawah ini.







3. Untuk Pembuatan kode program , berikut kode yang terdapat pada program tersebut.



Private Sub Command1_Click()
Dim awal As Integer
Dim akhir As Integer
awal = 1
akhir = Val(Text1.Text)
Do
If (awal <> 5) Then
   List1.AddItem (awal)
End If
awal = awal + 1
Loop While awal <= akhir
End Sub

Private Sub Command2_Click()
Text1.Text = ""
List1.Clear
End Sub

Private Sub Command3_Click()
If MsgBox("Anda Yakin?", vbYesNo, "EXIT") = vbYes Then
End
End If
End Sub


4. Untuk tampilan lain seperti font, back color dan lainnya dapat disesuaikan lewat menu yang ada di properties. sesuaikan posisi  ListBox dan juga command button.


5.  Setelah itu untuk menjalankan program klik f5 pada keyboard.

https://sap.gunadarma.ac.id/indexlama.php https://baak.gunadarma.ac.id/ http://staffsite.gunadarma.ac.id/index.php?go=search https://studentsite.gunadarma.ac.id/index.php/default/index https://seminar.gunadarma.ac.id

Komentar

Posting Komentar

Postingan populer dari blog ini

KASUS : PENYELESAIAN SENGKETA ADAT DI BALI (STUDI KASUS SENGKETA TANAH SETRA ANTARA DESA PAKRAMAN CEKIK DENGAN DESA PAKRAMAN GABLOGAN, KECAMATAN SELEMADEG, KABUPATEN TABANAN)

-
Terjadinya sengketa dari hari ke hari semakin bertambah banyak, baik yang sifatnya sederhana maupun yang sifatnya kompleks. Sengketa yang sekarang banyak terjadi antar desa pakraman di Bali adalah sengketa mengenai perebutan tanah setra. Pentingnya peran tanah setra bagi umat hindu di Bali dan juga tingginya nilai ekonomi tanah sekarang ini merupakan salah satu pemicu terjadinya sengketa. Sebagaimana yang kita ketahui, cara penyelesaian sengketa ada 2 (dua), yaitu secara litigasi dan non-litigasi (diluar pengadilan). Masyarakat Bali dewasa ini dalam menyelesaikan sengketa yang terjadi biasanya dengan cara non-litigasi. Apalagi jika sengketa itu melibatkan antar desa pakraman. Misalnya sengketa yang terjadi antara Desa Pakraman Cekik dengan Desa Pakraman Gablogan Kabupaten Tabanan dimana sengketa ini dipicu oleh berbagai faktor sehingga menjadi kompleks. Adakalanya proses penyelesaian sengketa secara non-litigasi ini tidak dapat langsung menuntaskan masalah. Dengan demikian maka penul...
Baca selengkapnya

Hukum Perjanjian Baku / Standar yang pasal - pasalnya ditentukan Perjanjian diatur dalam BW

-
PENGERTIAN UMUM PERJANJIAN BAKU   A.    Pengertian Perjanjian dan Syarat-Syarat Sah Suatu Perjanjian Menurut pasal 1313 KUHPerdata: “Suatu perjanjian adalah suatu perbuatan dengan mana satu orang atau lebih mengikatkan dirinya terhadap satu orang atau lebih”. Apabila diperhatikan, adapun unsur-unsur dari perjanjian itu adalah: a)      Terdapat para pihak sedikitnya 2 ( dua) orang b)      Ada persetujuan antara para pihak yang terkait c)      Memiliki tujuan yang akan dicapai d)      Memiliki prestasi yang akan dilaksanakan e)      Dapat berbentuk lisan maupun tulisan f)         Memiliki syarat-syarat tertentu sebagai isi dari perjanjian Sedangkan di dalam buku Yahya Harahap disebutkan menurut Sudikno Mertokusumo: “Perjanjian adalah hubungan hukum/ rechtshandeling dalam hal mana satu pihak atau lebih mengikat diri terhada...
Baca selengkapnya

Asas dan Tujuan Anti Monopoli dan Persaingan Usaha Tidak Sehat serta Kegiatan dan Perjanjian yang dilarang

-
Adapun tujuan dari Undang-Undang Nomor 5 Tahun 1999 tentang Larangan Praktek Monopoli dan Persaingan Usaha Tidak Sehat yaitu untuk menjaga kepentingan umum dan meningkatkan efisiensi ekonomi nasional dengan salah satu upaya untuk meningkatkan kesejahteraan rakyat, mewujudkan iklim usaha yang kondusif, mencegah praktek monopoli, dan mengupayakan agar terciptanya efektivitas dan efisiensi dalam kegiatan usaha. Dengan demikian, agar implementasi dan peraturan pelaksananya dapat berjalan efektif sesuai asas dan tujuannya, serta untuk mengawasi pelaksanaan Undang-Undang Nomor 5 Tahun 1999 tentang Larangan Praktik Monopoli dan Persaingan Usaha Tidak Sehat ini dibentuklah Komisi Pengawas Persaingan Usaha yaitu lembaga independen yang terlepas dari pengaruh pemerintah dan pihak lain, serta berwenang melakukan pengawasan persaingan usaha, dan bertanggung jawab kepada Presiden.   Secara umum, Undang-Undang Nomor 5 Tahun 1999 tentang Larangan Praktik Monopoli dan Persaingan Usaha Tidak Se...
Baca selengkapnya