KODE
Private Sub cbokode_Click()
Dim kode, merk, hs As String
Select Case cbokode.Text
Case “Asus A43SA”
txtmerk.Text = “Asus A43SA-VX090D”
txths.Text = “5500000″
Case “Asus A43SD”
txtmerk.Text = “Asus A43SD-VX052D”
txths.Text = “4500000″
Case “Asus A43SJ”
txtmerk.Text = “Asus A43SJ-VX792D”
txths.Text = “4300000″
Case “Asus A43TA”
txtmerk.Text = “Asus A43TA-VX034D”
txths.Text = “4900000″
Case “Asus N43SJ”
txtmerk.Text = “Asus N43SJ-VX264D”
txths.Text = “4300000″
Case “Asus U36SD”
txtmerk.Text = “Asus U36SD-VX090D”
txths.Text = “6600000″
Case “Apple MC965″
txtmerk.Text = “Apple Macbook Air MC965″
txths.Text = “12800000″
Case “Apple MC966″
txtmerk.Text = “Apple Macbook Air MC966″
txths.Text = “15800000″
Case “Apple MC969″
txtmerk.Text = “Apple Macbook Pro MC969″
txths.Text = “11900000″
Case “Apple MC700″
txtmerk.Text = “Apple Macbook Pro MC700″
txths.Text = “10800000″
Case “Apple MC723″
txtmerk.Text = “Apple Macbook Pro MC723″
txths.Text = “19300000″
Case “Apple MD311″
txtmerk.Text = “Apple Macbook Pro MD311″
txths.Text = “24200000″
Case “Apple MD313″
txtmerk.Text =…
View original post 600 more words
saifudinmuhamad 