Visual Basic Part 12 ( Mencari Akar-akar Persamaan Kuadrat )

Private Sub CMDC_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim D As Double

Dim r As Double
Dim z As Double
Dim z1 As Double

a = Val(TXT1.Text)
b = Val(TXT2.Text)
c = Val(TXT3.Text)
D = (b * b) - (4 * a * c)

    If D = 0 Then
    LBL1.Caption = -b / (2 * a)
    LBL2.Caption = -b / (2 * a)
    Else
        If D > 0 Then
        LBL1.Caption = (-b + Sqr(D)) / 2 * a
        LBL2.Caption = (-b - Sqr(D)) / 2 * a
        Else
            z = Sqr(-D) / (2 * a)
            r = -b / (2 * a)
            LBL1.Caption = Format(Format(r, "##.##") & " + " & Format(z, "##.##") & "i")
            LBL2.Caption = Format(Format(r, "##.##") & " - " & Format(z, "##.##") & "i")
          
    End If
    End If
   
End Sub

Private Sub CMDE_Click()
End
End Sub

Private Sub CMDS_Click()
TXT1.Text = ""
TXT2.Text = ""
TXT3.Text = ""
LBL1.Caption = ""
LBL2.Caption = ""
TXT1.SetFocus
End Sub

Read more >>

Visual Basic Part 11 ( Kue Bandung --> Array )

Option Explicit
Dim ukurankue As String
Dim ketebalankue As String
Dim tempat As String

Private Sub Cmdk_Click()
    End
End Sub

Private Sub Cmdkue_Click()
    Dim pesan As String
    Dim I As Integer
    pesan = "Kue Bandung" + vbCr + "Ukuran"
    pesan = pesan + ukurankue + ketebalankue + vbCr
    pesan = pesan + tempat + vbCr
    pesan = pesan + "Isi kue terdiri dari :" + vbCr
    For I = 0 To 2
        If Chkisi(I).Value = vbChecked Then
        pesan = pesan + Chkisi(I).Caption + vbCr
        End If
    Next I
    MsgBox pesan, vbOKOnly, "Pesanan Anda"
End Sub


Private Sub Form_Load()
    ukurankue = "Besar"
    ketebalankue = "Tebal"
    tempat = "Dimakan di tempat"
End Sub

Private Sub OptKetebalan_Click(Index As Integer)
    ketebalankue = Optketebalan(Index).Caption
End Sub

Private Sub Opttempat_Click(Index As Integer)
    tempat = Opttempat(Index).Caption
End Sub

Private Sub OptUkuran_Click(Index As Integer)
    ukurankue = OptUkuran(Index).Caption
End Sub

Read more >>

Visual Basic Part 10 ( Mencari Deret Suku n-Kuadrat )

Dim bil, cetakbil, indek1, indek2, i, j As Integer
Private Sub cmdclear_Click()
    txtsuku.Text = ""
    Form1.Cls
    txtsuku.SetFocus
End Sub

Private Sub cmdexit_Click()
    End
End Sub

Private Sub cmdmaju_Click()
    Form1.Cls
    Print
    Print
    Print
    Print
    bil = Val(txtsuku.Text)
    cetakbil = 0
    Form1.ScaleTop = 5
    For i = 1 To bil
        For j = 1 To i
            cetakbil = j * j
            Print cetakbil;
            If cetakbil = (i * i) Then
                GoTo 2
            Else
                Print ",";
            End If
        Next j
2         Print
Next i
End Sub

Private Sub cmdmundur_Click()
    Form1.Cls
    Print
    Print
    Print
    Print
    bil = Val(txtsuku.Text)
    indek1 = bil
    indek2 = bil + 1
    jml_bil = 0
    For i = bil To 1 Step -1
        indek2 = indek2 - i
        For j = 1 To i
            Print indek1 * indek1;
            jml_bil = jml_bil + (indek1 * indek1)
            If indek1 = indek2 Then
                Print "=";
                Print jml_bil
            Else
                Print "+";
            End If
            indek1 = indek1 - 1
        Next j
        jml_bil = 0
        indek1 = bil
        indek2 = bil + 1
    Next i
End Sub

Read more >>

Visual Basic Part 9 ( Menghitung Tarif PDAM --> If statement )

Private Sub CMDH_Click()
    If Option1 Then LBLT.Caption = 5000 + Val(TXTJ.Text) * 400
    If Option2 Then LBLT.Caption = 3500 + Val(TXTJ.Text) * 300
    If Option3 Then LBLT.Caption = 2500 + Val(TXTJ.Text) * 200
End Sub

Private Sub CMDS_Click()
    End
End Sub

Private Sub CMDU_Click()
    TXTN.Text = " "
    TXTA.Text = " "
    TXTJ.Text = " "
    LBLT.Caption = " "
    Option1.Value = False
    Option2.Value = False
    Option3.Value = False
End Sub

Read more >>

Visual basic Part 8 (Diskon --> If statement )

Private Sub CMDH_Click()
    Dim bayar As Currency
    bayar = Val(TXTB.Text)
    Dim discount1 As Currency
    discount1 = 15 / 100 * bayar
    Dim discount2 As Currency
    discount2 = 25 / 100 * bayar
   
    If 10000 < bayar <= 50000 Then LBLTOT.Caption = bayar - discount1
    If 10000 < bayar <= 50000 Then LBLD.Caption = 15
    If bayar > 50000 Then LBLTOT.Caption = bayar - discount2
    If bayar > 50000 Then LBLD.Caption = 25
    If bayar <= 10000 Then LBLTOT.Caption = bayar
    If bayar <= 10000 Then LBLD.Caption = 0
End Sub


Private Sub CMDHPS_Click()
    TXTB.Text = " "
    LBLTOT.Caption = " "
    LBLD.Caption = " "
End Sub

Private Sub CMDS_Click()
    End
End Sub

Read more >>

Visual Basic Part 7 (Kalkulator Sederhana )

Dim A1 As Double
Dim A2 As Double

Private Sub CMD2_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 ^ 2
End Sub

Private Sub CMDB_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 / A2
   
End Sub

Private Sub CMDK_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 * A2
End Sub

Private Sub CMDKR_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 - A2
End Sub

Private Sub CMDM_Click()
   TXT1.Text = ""
   TXT2.Text = ""
   LBLH.Caption = ""
   TXT1.SetFocus
End Sub

Private Sub CMDT_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 + A2
End Sub

Private Sub CMDY_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 ^ A2
End Sub

Private Sub Timer1_Timer()
    Dim JAM As Variant
    Dim hari_ini As Variant
    JAM = Now
    LBLJAM.Caption = Format(JAM, "HH:MM:SS")
    hari_ini = Now
    Label2.Caption = Format(hari_ini, "dddd,d-mmmm-yyyy")
End Sub

Read more >>

Visual Basic Part 6 ( Hasil Belajar Siswa -> statement if )

Private Sub Command1_Click()
    Dim tugas As Integer
    tugas = Val(Text1.Text)
    Dim uts As Integer
    uts = Val(Text2.Text)
    Dim uas As Integer
    uas = Val(Text3.Text)
    Dim hadir As Integer
    hadir = Val(Text4.Text)
    Dim na As Integer
    na = (35 / 100 * uas) + (25 / 100 * uts) + (25 / 100 * tugas) + (15 / 100 * hadir)
    If na >= 86 Then Label8.Caption = "A"
    If na >= 71 And na <= 85 Then Label8.Caption = "B"
    If na >= 61 And na <= 70 Then Label8.Caption = "C"
    If na >= 55 And na <= 60 Then Label8.Caption = "D"
    If na < 55 Then Label8.Caption = "E"
End Sub

Private Sub Command2_Click()
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Text4.Text = " "
    Label8.Caption = " "
End Sub

Private Sub Command3_Click()
    End
End Sub

Read more >>

Visual Basic Part 5 ( Keliling dan Luas Persegi Panjang )

Dim P As Integer
Dim L As Integer

Private Sub CMDK_Click()
    P = Val(TXTP.Text)
    L = Val(TXTL.Text)
    LBLK.Caption = 2 * (P + L)
End Sub

Private Sub CMDL_Click()
    LBLL.Caption = P * L
End Sub

Private Sub CMDR_Click()
    End
End Sub

Private Sub CMDU_Click()
    TXTP.Text = ""
    TXTL.Text = ""
    LBLK.Caption = ""
    LBLL.Caption = ""
    TXTP.SetFocus
End Sub

Private Sub Timer1_Timer()
    If Label1.Visible = True Then
        Label1.Visible = False
    Else
        Label1.Visible = True
    End If
        Label1.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
        TXTP.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
        TXTL.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
        LBLK.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
        LBLL.BackColor = RGB(250 * Rnd, 300 * Rnd, 200 * Rnd)
End Sub

Read more >>

Visual basic Part 4 ( Konversi Suhu )

Dim f As Integer
Dim C As Integer

Private Sub CMDK_Click()
    End
End Sub

Private Sub VSB_Change()
    f = VSB.Value
    LBLF.Caption = Str(f)
    C = Int((f - 32) * 5 / 9)
    LBLC.Caption = Str(C)
End Sub

Private Sub VSB_Scroll()
   f = VSB.Value
   LBLF.Caption = Str(f)
   C = Int((f - 32) * 5 / 9)
   LBL.Caption = Str(C)
End Sub

Read more >>

Visual Basic Part 3 ( Kombinasi warna )

Private Sub WARNA()
    txtwarna.BackColor = RGB(HSM.Value, HSH.Value, HSB.Value)
End Sub

Private Sub HSB_Change()
    WARNA
    LBLBIRU.Caption = HSB.Value
End Sub

Private Sub HSB_Scroll()
    WARNA
    LBLBIRU.Caption = HSB.Value
End Sub

Private Sub HSH_Change()
    WARNA
    LBLHIJAU.Caption = HSH.Value
End Sub

Private Sub HSH_Scroll()
    WARNA
    LBLHIJAU.Caption = HSH.Value
End Sub

Private Sub HSM_Change()
    WARNA
    LBLMRH.Caption = HSM.Value
End Sub

Private Sub HSM_Scroll()
    WARNA
    LBLMRH.Caption = HSM.Value
End Sub

Read more >>

Visual Basic Part 2 ( Menghitung Luas & Volume Bola )

Dim J As Integer
Dim L As Double
Dim V As Double

Private Sub CMDK_Click()
    End
End Sub

Private Sub CMDL_Click()
    J = Val(TXTJ.Text)
    L = 4 * 3.14 * J ^ 2
    LBLLUAS.Caption = Format(L, "####.##,00")
    End Sub

Private Sub CMDU_Click()
    TXTJ.Text = ""
    LBLLUAS.Text = ""
    LBLVOL.Text = ""
    TXTJ.SetFocus
End Sub

Private Sub CMDV_Click()
    J = Val(TXTJ.Text)
    V = (4 / 3) * 3.14 * J ^ 3
    LBLVOL.Caption = Format(V, "####.##,00")
End Sub

Read more >>

Visual Basic Part 1 ( Menjumlahkan Dua Bilangan )

Dim BIL1
Dim BIL2
Dim JUMLAH

Private Sub CMDHITUNG_Click()
    BIL1 = Val(TXTBIL1.Text)
    BIL2 = Val(TXTBIL2.Text)
    JUMLAH = BIL1 + BIL2
    LBLJUMLAH.Caption = Format(JUMLAH, "#.####,0")
End Sub

Private Sub CMDKELUAR_Click()
    End
End Sub

Private Sub CMDLANJUT_Click()
    TXTBIL1.Text = ""
    TXTBIL2.Text = ""
    LBLJUMLAH.Caption = ""
    TXTBIL1.SetFocus
End Sub

Read more >>