Dasar Komputer Pemrograman 2 B Contohcontoh Program Program

Dasar Komputer & Pemrograman 2 B Contoh-contoh Program

Program Hitung

tabel propeties

listing program Private Sub Cmd. Keluar_Click() End Sub Private Sub Hsc. Nilai 1_Change() Txt. Nilai 1. Text = Hsc. Nilai 1. Value End Sub Private Sub Hsc. Nilai 2_Change() txt. Nilai 2. Text = Hsc. Nilai 2. Value End Sub

listing program cont. . Private Sub Opt. Jumlah_Click() Txt. Hasil. Text = Val(Txt. Nilai 1. Text) + Val(txt. Nilai 2. Text) End Sub Private Sub Opt. Kurang_Click() Txt. Hasil. Text = Val(Txt. Nilai 1. Text) - Val(txt. Nilai 2. Text) End Sub Private Sub Opt. Kali_Click() Txt. Hasil. Text = Val(Txt. Nilai 1. Text) * Val(txt. Nilai 2. Text) End Sub Private Sub Optbagi_Click() Txt. Hasil. Text = Val(Txt. Nilai 1. Text) / Val(txt. Nilai 2. Text) End Sub

Program MENCETAK NAMA

tabel propeties

listing program Private Sub Cmdkeluar_Click() End Sub Private Sub Cmd. Cetak_Click() Lbl. Hasil. Caption = Txt. Hasil. Text = "" End Sub

listing program cont. . Private Sub Check. Bold_Click() Lbl. Hasil. Font. Bold = True End Sub Private Sub Check. Italic_Click() Lbl. Hasil. Font. Italic = True End Sub

listing program cont. . Private Sub Opt. Biru_Click() Lbl. Hasil. Fore. Color = vb. Blue End Sub Private Sub opt. Merah_Click() Lbl. Hasil. Fore. Color = vb. Red End Sub

Program nilai tukar kurs

tabel propeties

listing program Private Sub CMDEXIT_Click() End Sub Private Sub CMDOK_Click() Txt. Rupiah. Text = Txt. Dolar. Text * Txt. Tukar. Text End Sub

Program nama bilangan

tabel propeties

listing program Private Sub cmdclear_Click() Cls End Sub Private Sub cmdexit_Click() End Sub

listing program cont. . Private Sub Cmd. Bilangan. Asli_Click() Print i = 1 Do Until i > 10 Print " Bilangan Asli ="; i i = i + 1 If i = 6 Then Exit Do End If Loop End Sub

listing program cont. . Private Sub cmdbilangangenap_Click() Print For i = 0 To 10 Step 2 Print " Bilangan Genap ="; i If i = 6 Then Exit For End If Next i End Sub

listing program cont. . Private Sub cmdbilanganganjil_Click() Print i = 1 While i <= 10 Print " Bilangan Ganjil ="; i i = i + 2 Wend End Sub