Tugas 3.3 ENTRI PENJUALAN LAPTOP APPLE
Private Sub cbokode_Click() Dim Penjualan, discount, kode, merk, bayar As String Dim Harga As Variant merk = Mid(cbokode.Text, 7, 5) If merk = "MC965" Then txtmerk = "Apple MacBook Air MC965?" Harga = "12800000" ElseIf merk = "MC966" Then txtmerk = "Apple MacBook Air MC966?" Harga = "15800000" ElseIf merk = "MC968" Then txtmerk = "Apple MacBook Air MC968" Harga = "9900000" ElseIf merk = "MC969" Then txtmerk = "Apple MacBook Air MC969?" Harga = "11900000?" ElseIf merk = "MC700" Then txtmerk = "Apple MacBook Air MC700" Harga = "10800000" ElseIf merk = "MC721" Then txtmerk = "Apple MacBook Air MC721?" Harga = "15900000?" ElseIf merk = "MC723" Then txtmerk = "Apple MacBook Air MC723" Harga = "19300000" ElseIf merk = "MC724" Then txtmerk = ...