有關閣下投訴LG 電子香港有限公司之個案，本會已與該公司跟進協商個案，
“此個案如客人不同意有關維修人員判斷 - 可安排為更換同款電視。但如相同問題(即收唔到台)仍然持續 , 本公司不會再作出任何跟進。”
本會明白有關問題或未能完滿解決，仍希望先行將該公司的回應轉告
2016年9月24日 星期六
2016年9月9日 星期五
LG保養服務真差 (上)
小弟已去信消委會，內容如下︰
本人在2016年2月29日購買LG電視22MT57D。使用半年後該電視只收到低清台，一個高清台都收不到。在鄰居家測試過都一樣收不到。8月17日LG師父到我家檢查，聲清這台電視收不到高清台是因為我家天線訊號弱，CH46、CH48和CH50的DBUV只有30。唯房署職員在8月30日帶同儀器和一台電視來我家作測試，CH46、CH48和CH50的DBUV都超過60，他們帶來的電視能清楚收看所有高清台。
本人家中另一台電視亦能收看高清台，LG的師父說這不代本人家中天線訊號沒有問題，每個品牌對訊號要求不同。
當本人再次預約LG師父上門檢查時，LG表示要收300元上門檢查費，唯購買該電視時LG說有36個月保用的 (詳情請看http://www.lg.com/hk/support/support-product/lg-22MT57D)
本人希望LG能再次派員檢查電視，如這台電視仍收不到高清台，請他們把這件垃圾拿走，謝謝。
2016年8月2日 星期二
[學英文] 不雅行為
Booger = 鼻屎
Wax = earwax = 耳屎
Sleep = 眼屎
Snot = 鼻涕
Phlegm = 痰
Saliva = 口水
Sweat = 汗水
Pick your nose = 挖鼻子
Have a runny nose = 流鼻涕
Clean your ears = 掏耳朵
Barf = vomit = 嘔吐
Sneeze = 打噴嚏
Cough = 咳嗽
Drool = slobber = 流口水
Vomiting = 嘔吐物
Pus = 膿
Body odour = 體味重
Bad breath = 口臭
Smelly armpits = 狐臭
Smelly feet = 腳臭
Louse = 蝨子（複數是lice）
Corn = 雞眼
Diarrhea (美式) = diarrhoea (英式) = 拉肚子
Fart = pass gas = break wind = (動詞) 放屁
Pee your pants = 尿褲子
Wax = earwax = 耳屎
Sleep = 眼屎
Snot = 鼻涕
Phlegm = 痰
Saliva = 口水
Sweat = 汗水
Pick your nose = 挖鼻子
Have a runny nose = 流鼻涕
Clean your ears = 掏耳朵
Barf = vomit = 嘔吐
Sneeze = 打噴嚏
Cough = 咳嗽
Drool = slobber = 流口水
Vomiting = 嘔吐物
Pus = 膿
Body odour = 體味重
Bad breath = 口臭
Smelly armpits = 狐臭
Smelly feet = 腳臭
Louse = 蝨子（複數是lice）
Corn = 雞眼
Diarrhea (美式) = diarrhoea (英式) = 拉肚子
Fart = pass gas = break wind = (動詞) 放屁
Pee your pants = 尿褲子
2016年7月9日 星期六
[VBA] Remove duplicate items in array without using Scripting.Dictionary
P.S
If you want to sort the array in descending order, reserve the direction of the "red arrows" of the following two lines:
While (vArray(tmpLow) < pivot And tmpLow < inHi)
and
While (pivot < vArray(tmpHi) And tmpHi > inLow)
Private Sub abc()
Dim s(6) As String
Dim s2() As String
Dim i As Integer
Dim tmp As Integer
Dim nItem As Long
Dim nItem2 As Long
s(0) = "9"
s(1) = "9"
s(2) = "9"
s(3) = "8"
s(4) = "8"
s(5) = "7"
nItem = UBound(s)
QuickSort s, 0, nItem
For i = 1 To nItem
'MsgBox "s " & s(i)
Next
nItem2 = 1
For i = 2 To nItem - 1
If s(i) <> s(i - 1) Then
nItem2 = nItem2 + 1
End If
Next
ReDim s2(nItem2) As String
s2(1) = s(1)
tmp = 2
For i = 2 To nItem
If s(i) <> s(i - 1) Then
s2(tmp) = s(i)
tmp = tmp + 1
End If
Next
For i = 1 To nItem2
MsgBox s2(i)
Next
End Sub
Public Sub QuickSort(vArray As Variant, inLow As Long, inHi As Long)
Dim pivot As Variant
Dim tmpSwap As Variant
Dim tmpLow As Long
Dim tmpHi As Long
tmpLow = inLow
tmpHi = inHi
pivot = vArray((inLow + inHi) \ 2)
While (tmpLow <= tmpHi)
While (vArray(tmpLow) < pivot And tmpLow < inHi)
tmpLow = tmpLow + 1
Wend
While (pivot < vArray(tmpHi) And tmpHi > inLow)
tmpHi = tmpHi - 1
Wend
If (tmpLow <= tmpHi) Then
tmpSwap = vArray(tmpLow)
vArray(tmpLow) = vArray(tmpHi)
vArray(tmpHi) = tmpSwap
tmpLow = tmpLow + 1
tmpHi = tmpHi - 1
End If
Wend
If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi
If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi
End Sub
If you want to sort the array in descending order, reserve the direction of the "red arrows" of the following two lines:
While (vArray(tmpLow) < pivot And tmpLow < inHi)
and
While (pivot < vArray(tmpHi) And tmpHi > inLow)
Private Sub abc()
Dim s(6) As String
Dim s2() As String
Dim i As Integer
Dim tmp As Integer
Dim nItem As Long
Dim nItem2 As Long
s(0) = "9"
s(1) = "9"
s(2) = "9"
s(3) = "8"
s(4) = "8"
s(5) = "7"
nItem = UBound(s)
QuickSort s, 0, nItem
For i = 1 To nItem
'MsgBox "s " & s(i)
Next
nItem2 = 1
For i = 2 To nItem - 1
If s(i) <> s(i - 1) Then
nItem2 = nItem2 + 1
End If
Next
ReDim s2(nItem2) As String
s2(1) = s(1)
tmp = 2
For i = 2 To nItem
If s(i) <> s(i - 1) Then
s2(tmp) = s(i)
tmp = tmp + 1
End If
Next
For i = 1 To nItem2
MsgBox s2(i)
Next
End Sub
Public Sub QuickSort(vArray As Variant, inLow As Long, inHi As Long)
Dim pivot As Variant
Dim tmpSwap As Variant
Dim tmpLow As Long
Dim tmpHi As Long
tmpLow = inLow
tmpHi = inHi
pivot = vArray((inLow + inHi) \ 2)
While (tmpLow <= tmpHi)
While (vArray(tmpLow) < pivot And tmpLow < inHi)
tmpLow = tmpLow + 1
Wend
While (pivot < vArray(tmpHi) And tmpHi > inLow)
tmpHi = tmpHi - 1
Wend
If (tmpLow <= tmpHi) Then
tmpSwap = vArray(tmpLow)
vArray(tmpLow) = vArray(tmpHi)
vArray(tmpHi) = tmpSwap
tmpLow = tmpLow + 1
tmpHi = tmpHi - 1
End If
Wend
If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi
If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi
End Sub
2016年6月13日 星期一
[韓國之旅] 釡山機張市場食帝王蟹
交通
從南浦洞乘1003號巴士到16536機張市場기장시장站下車，下車後向前行幾步會發現右方有條街是賣海鮮的。
回程時可到對面巴士站16552候車。
美食
我們在기장대박대게點了一隻帝王蟹。
點菜後到樓上食堂等候，可以先吃點泡菜。
帝王蟹煮熟後店員會把它剪開一件一件，客人可以很輕鬆的大口大口品嚐蟹肉。
蟹蓋裡有很多蟹汁，店員最後會用那些汁炒飯。
埋單共1280000圜。
從南浦洞乘1003號巴士到16536機張市場기장시장站下車，下車後向前行幾步會發現右方有條街是賣海鮮的。
回程時可到對面巴士站16552候車。
美食
我們在기장대박대게點了一隻帝王蟹。
點菜後到樓上食堂等候，可以先吃點泡菜。
帝王蟹煮熟後店員會把它剪開一件一件，客人可以很輕鬆的大口大口品嚐蟹肉。
蟹蓋裡有很多蟹汁，店員最後會用那些汁炒飯。
埋單共1280000圜。
2016年6月9日 星期四
[韓國之旅] 香港國際機場環亞機場貴賓室（非禁區）
今天開始南韓釡山加首爾之旅。
早上六時正到達機場禁區外的環亞機場貴賓室食早餐，人不多。
食物方面中式有雞粥和炒麵；西式有牛角包、多士、奶茶咖啡、捷榮BREAKFAST TEA等等，款式不算多，沒所謂反正不用錢。
現在有幾家銀行的銀聯信用卡都提供首年免費享用環亞貴賓室兩次，且沒有簽帳要求。初時還以為貴賓室會大排長龍，結果到達時都沒什麼人，真好。
機場網頁寫著環亞貴賓室有按摩椅的，但禁區外那個我就找不到。職員表示按摩服務早上十時才開始，按摩椅則沒有。不知禁區內的貴賓室有沒有按摩椅呢？
入場時職員會檢查旅客的機票和銀聯信用卡的，要享用就要留意啊。
2016年2月3日 星期三
新加坡之旅
Airport terminal 2 > Mrt >
HarbourFront > SBS 61 > Opp Keppel Blk 519
Buy singtel sim card $7 1g, ezlink $12
文東記海南雞 NE9 boon keng exit B
Little india NE7
印度餐館老爺拉茶 NE7 Exit C > Bukit Timah >
Serangoon Road > Cambell Lane > Clive St
義安城 烏節路Orchard NS22 Exit C
魚尾獅像Raffles Place NS26 Exit H > Bonham
Street
Sentosa station > Vivo city 3/F
荷蘭村 CC21
雙螺旋橋 CC4 EXIT A
新達城 CC3
牛車水 NE4 CHINATOWN
訂閱：
文章 (Atom)