Smart Watch Pertama

Assalamualaikum,

Semalam aku order smart watch pertama aku dari Lazada.

Harga RM90 sahaja.

Spesifikasi :

Data synchronization:  Connected, 5 minutes automatically synchronized once

Historical data:  Store 7 days

Trend Analysis :  Day, week, month, year, (all day and sleep)

Day data details:  Number of steps, calories, intensity

Chart Analysis:  Steps curve

Degree of completion:  Percentage

Motion data details:  Duration, number of steps, calories, optional heart rate (average, maximum)

Chart Analysis:  Step curve, heart rate curve, heart rate zones

Motion data comparison:  The same type of motion Contrast

Sleep data details :  Sleep long, deep sleep, light sleep, waking statistics 

Curve analysis:  Sleep curve, heart rate curve

Real-time heart rate monitor:  Real-time measurements in the mobile phone side, with the type of movement

Fatigue monitoring:  Irregular automatic measurements

Family friendly:   Share fatigue data and the weekly trend to relatives

Movement Goal Setting:  Target number of steps

Equipment Management:   Add or cancel equipment

Remote Upgrade:  Firmware and sensor algorithm optimization and upgrading

Boleh baca selanjutnya dari ni.
https://www.aliexpress.com/store/product/Makibes-JW018-BT4-0-Smart-band-bracelet-Heart-Rate-Monitor-Activity-fitness-Tracker-Wristband-for-IOS/1086467_32526884395.html


Nanti dah sampai, aku akan tuliskan review.

Kabinet Dapur DIY

Assalamualaikum
Petang ni nak kongsikan kabinet dapur DIY.

Beli rak dari Giant.
Harga dah lupa. Anggaran RM50
Besi RM6.50 x 2set = RM13
Masa 2jam

Posted via Blogaway

Rumah umpama...

*Hari ini* ramai suami tidak mampu pergi solat dan belajar agama di masjid-masjid. Akibatnya, ada *suami tidak mengajar* anak isteri memahami Islam. Maka wujudlah *tiga suasana* di rumah2 di seluruh dunia:

1) Suasana *Pawagam*

TV dan Audio yang besar2.. karaoke2.. video2 games. Anak2 dibesarkan dalam suasana kelalaian.. sehingga rasa terkilan bila terlepas drama di TV...menangis bila tengok drama2... ada juga ibu bapa yang bersyukur bila anak2 terpilih jadi penyanyi buat maksiat di pentas2.

2) Suasana *Hotel*

Rumah yang dihias mewah2 seperti Hotel, berhawa dingin...setiap tahun tukar sofa baharu.. tilam2 mewah.. bilik air mewah..sehingga menjadi tempat rehat yang lebih merehatkan diri daripada berada di rumah Allah.

3) Suasana *Restoran*

Rumah yang dipenuhi dengan makanan seperti restoran...mewah...setiap saat dalam kekenyangan....fikiran hanya fikir makan dan minum sahaja.. fikir untuk penuhkan. perut.. peti ais penuh dengan makanan....aiskrim...dan pembaziran berlaku dengan begitu banyak).

Kita perlu berubah kepada *Kefahaman Agama* agar suasana rumah berubah.

_Suasana rumah seperti *rumah Baginda SAW dan Sahabat2 di Madinah* tidak wujud lagi.._ iaitu Suasana Rumah seperti Madrasah.

Hidupkan *suasana bacaan al-Quran dan Hadis*di rumah. 

Hidupkan *suasana dakwah*. Bercakap mengenai kebesaran ALLAH dan suasana Ilmu di rumah.

Hidupkan *suasana zikir dan solat2 sunat* di rumah..

Rumah penuh dengan *Nur al-Quran-Hadis*.. ALLAH turunkan Rahmat.. Keberkatan.. dan Sakinah ... keluarga hidup bahagia.

Lahirkan anak2  *Alim-Alimah, Hafiz-Hafizah dan Daie- Daieyah* yang memperjuangkan Islam di seluruh alam.

Suasana ini yang perlu kita wujudkan di rumah2 kita. Hari ini anak2 kita makan makanan penyihat otak dan penguat ingatan, kismis dan macam2 lagi tapi pencapaian exam tak cemerlang. Belajar tak pandai2.. rupanya bukan salah makanan kesihatan tapi sebenarnya *hati anak2 gelap sebab tak dengar Hadis*.

Wujudkan amalan bacaan *taklim Hadis Nabawi di rumah2* kita. Cari satu masa kumpul keluarga baca Hadis2 Nabi SAW dan baca kisah2 para sahabat dalam kitab Hayatus Sahabah agar isteri dan anak2 kita mengenali kehidupan sahabat2 Nabi SAW, insan2 yang telah berjaya.

*Barulah ahli keluarga  hidup secara sederhana dan tidak berhajat kepada mewah2 sehingga kadangkala melebihi kemampuan bapa dan suami.*

Semoga kita semua  *berazam untuk hidupkan suasana rumah seperti Madrasah* di rumah kita In shaa Allah..

Wallahu a'lam.

Posted via Blogaway

26 Dec 2016

Selfie Kot?

Posted via Blogaway

22 Dec 2016 Penang Youth Park

Assalamualaikum,
Hari ni bawa famili dengan anak beranak Kak Biah pi Penang Youth Park atau juga dikenali dengan Taman Perbandaran.

Taman ini digunakan oleh penduduk Pulau Pinang untuk beriadah.
Antara aktiviti yang dapat dilakukan adalah seperti mandi kolam, berkelah(tidak digalakkan kerana ada banyak monyet), berbasikal, padang bola, skateboard, taman kanak kanak, dan juga berjoging.

Posted via Blogaway

MEMTEQ Bluetooth Mouse Setup

Hello gais,
Malam ni nak kongsikan cara sambungan Bluetooth Mouse jenama MEMTEQ kepada Windows 7.

1. Tekan butang kanan + butang kiri + butang tengah secara serentak.
LED akan bertukar dari merah kepada kelip merah dan biru. Bluetooth Mouse sudah bersedia untuk di pair dengan PC atau Laptop.

2. Di PC atau Laptop, pilih Add a Device.
Tunggu sehingga PC atau Laptop selesai mencari Mouse. Klik Mouse berkenaan.

Selesai.

Tips : Jika PC atau Laptop sukar mencari Mouse. Ikut tips di bawah.
Go to START icon and type in services.msc and select services.

The dialog box that opens has a long list of stuff but look for BLUETOOTH SUPPORT SERVICE. Double click to open. Make sure it is AUTOMATIC. Go to the LOG tab. Choose THIS ACCOUNT and type in LOCAL SERVICE. A list of password (a 15-dot string) would appear. Delete all the password in the PASSWORD and under CONFIRM. Choose Okay.

It will ask you to restart the service. Once restarted, turn on your bluetooth adaptor again. Put your mouse in pairing mode and add the mouse. It works perfectly!!!

Posted via Blogaway

Wefie

Wefie

Posted via Blogaway

Instax Mini 25

Assalamualaikum,

Yay! Setelah sekian lama. Akhirnya aku berjaya mendapatkan kamera Instant pertama.

Kamera ni aku beli second hand sahaja.
RM 170. Dihadiahkan kepada isteri sempena Anniversary ke 4. Hehe.

Kenapa aku beli kamera ni?
1. Automatik exposure 1/3s hingga 1/400s kalau tak salah.
2. Pocket size photo. Senang simpan dalam bahasa duit.
3. Kos rendah. Harga filem lebih murah.
4. Warna putih yang cantik.

Sedikit gambar fizikal kamera Instax Mini 25.

Posted via Blogaway

18 Dec 2016

Tunggu Ummi check perut adik.

Posted via Blogaway

PSP USB Device

Salam dan selamat pagi,

Pagi ni aku swap Memory kad, secara tiba tiba isi kandungan dalam Memory kad hilang.

Sedikit semakan dalam VSH menu mendapati, setting USB Device sepatutnya disetkan  kepada Memory Card. Tak tahu macam mana USB Device menu aku diserang kepada Flash 0.

Tukar balik, selesai masalah.

Posted via Blogaway

PSP Download Games

Salam,

Malam ni aku nak kongsikan website yang aku selalu guna untuk download games PSP.

  https://www.danlamgame.vn/threads/google-driver-tong-hop-game-psp-1-link-duy-nhat.67392/#post-3199614 

Posted via Blogaway

17 Dec 2016

Baru balik kerja.
Tembam nya.

Posted via Blogaway

Zaiem_Hidden Folder v1.2

Salam,

Sedikit modifikasi/update berbanding versi terdahulu.
Versi 1.2 ini mengandungi opsyen mendedahkan hidden folder.

@ECHO OFF
title Hide Folder v1.1
ECHO Created by Zaiem Othman. 30/4/2015.


if EXIST ".\Zaiem_Hidden" goto UNLOCK
if NOT EXIST ".\Zaiem_Hidden" goto MDLOCKER 


:UNLOCK
echo Enter password to unlock folder
set/p "pass=> "


if %pass%== 1 goto REVEALFOLDER
if NOT %pass%== 0 goto FAIL

attrib +h +s ".\Zaiem_Hidden"
::ren "HTG Locker" Private
echo Folder Unlocked successfully
start explorer ".\Zaiem_Hidden"

goto END

:FAIL

cls
ECHO Created by Zaiem Othman. 30/4/2015.
echo Invalid password

goto UNLOCK

:MDLOCKER
md "Zaiem_Hidden"
echo Private created successfully
attrib +h +s ".\Zaiem_Hidden"
start explorer ".\Zaiem_Hidden"
goto End


:REVEALFOLDER

attrib -s -h -a /s /d %dir%


:End

Terlalu cepat menghukum mu

Maafkan ayah kerana terlalu cepat menghukum mu duhai anak.

Posted via Blogaway

Remote TV Astro

Pernah terfikir asal la ada button "TV" tapi takleh pakai. Rupanya kena setting dulu. Caranya:

1- Halakan remote astro ke TV
2- Tekan lama "OK" dan "TV" sekali, sampai lampu LED di remote berkelip 2 kali
3- Masukkan 4 kod mengikut jenama TV
4- Lampu LED remote akan berkelip 2 kali
5- Kawal sound TV. Tekan lama "OK" dan "Vol +" sekali, sampai lampu LED di remote berkelip 2 kali
6- Boleh test button
7- Sekarang remote tu dah boleh tutup, kawal suara dan mute TV guna remote astro

Untuk reset remote
1- Halakan remote astro ke TV
2- Tekan lama "OK" dan "TV" sekali, sampai lampu LED di remote berkelip 2 kali
3- Masukkan kod "977"

-asrol mania-

Kod mengikut jenama TV. Kalau 4 kod pertama tak dapat atau tak berfungsi dengan betul, cuba 4 kod seterusnya.

SAMSUNG
0060 0812 0618 0178 0587 0009 0093 0556 1235 0108 0037 0217 0264 0370 0072 0156 1208 0766 0814 0216 0290 0821 0163

SONY
1825 1505 0011 1651 0036 0650 1010 0037 0056 0093 0170 0074

PHILIPS
0037 0556 1744 0772 1246 1304 0178 0108 0195 0087 0374 0760 0343 0595 0009 0200 0361 1521

PANASONIC
0650 0226 1650 1636 0108 1310 0037 0556 0163 1208 0508 0896 0361 0853 1335 0367 0516 0548 0001

TOSHIBA
1508 0508 0060 0009 0714 0036 0156 1656 0070 0093 2060 0264 1935 0412 1164 0618 1582 0650 0821 1704 0217 0109 1457 1916 1908 0698 0037 0736 1556 1037

LG
1423 0001 0178 0037 0556 0876 0370 1768 0377 0009 0714 0060 0217 0108 0216 0290 0163 0606 0109 0689 0715 0823 0829 1556 1191 0247 0367 1681 1539

PIONEER
1260 0760 0011 1070 1457 0698 0109 0037 0287 0556 0428 0370 0343 0361 0486 0512

SHARP
0093 0009 1393 0036 0491 0818 0256 1819 0650 0294 0653 0412 0516 0200 0760 2214

JVC
0653 1818 0036 1153 0606 1653 0371 0508 0731 0683 0192 0218 0418 0093 0650

Posted via Blogaway

Offline AVG Installation Files

Selamat pagi,

Pagi ni nak kongsikan link untuk muatturun fail instalasi AVG.



http://www.avg.com/ww-en/download.prd-afh-free

Link ini memuatkan program AVG untuk 32bit, dan juga 64bit.

Turut disertakan juga adalah virus definasi.

Rahsia Kekuatan SJKC

WALAUPUN selama ini saya dilihat sering ‘menyerang’ SJKC kerana kedegilan mereka melaksanakan agenda kerajaan, terutama berkaitan dengan BM, itu bukan bermakna saya menafikan kekuatan SJKC dan bangsa Cina itu sendiri.

Pertama, Cina sudah sinonim dengan sifat rajin. Struggle for survival. Sifat ini diwarisi turun-temurun. Ada beberapa SJKC tinggalan sejarah, terutama di ladang, boleh dikatakan keseluruhan pelajar dan pelajar Cinanya sangat sedikit, tetapi masih survive.

Semangat berkorban atas nama bangsa sangat tinggi. Jika mereka bersungguh-sungguh dalam mempelajari BM, sudah tentu bilangan yang mendapat straight A akan mengatasi Sekolah Berasrama Penuh. BM adalah subjek killer kepada prestasi SJKC.

Itu pun kerajaan amat bertolak ansur dengan memudahkan subjek BM, dengan menjadikan BM di SJKC lebih mudah berbanding dengan BM di SK. Jika subjek BM diseragamkan mengikut kurikulum SK, sudah tentu lebih banyak kelas peralihan terpaksa diwujudkan kerana ramai yang akan mendapat markah rendah atau gagal. Peliknya, kenapa Bangla, Myanmar dan Nepal boleh menguasai BM dengan cepat, rakyat kita begitu sukar?

Kedua, Cina berpendirian urusan pendidikan, terutama melibatkan kelengkapan pengajaran dan pembelajaran (P&P), tidak boleh diharapkan kepada kerajaan semata. Mereka akan memberi sokongan moral, wang ringgit dan tenaga terhadap kemajuan pendidikan.

Ibu bapa Cina tidak teragak-agak untuk berbelanja bagi pendidikan anak mereka, walaupun dalam kalangan tidak berada. Meskipun SJKC dibantu sepenuhnya oleh kerajaan, SJKC masih mengenakan yuran tambahan yang lain seperti yuran sewa komputer dan peralatan ICT, kelas tambahan, kelas khas BM dan sebagainya. Jika di SK, sudah tentu kita melompat bila dikenakan yuran tambahan. Yuran PIBG yang setahun RM20 sudah melenting.

Ketiga, setiap tahun mereka akan mengadakan fund raising. Kutipannya mencecah jutaan ringgit. Bangunan tambahan, dewan dan kemudahan ICT kebanyakan ditampung melalui wang ini. Mereka tidak berputus asa menambah dana. Bertemu dengan menteri, wakil rakyat, Majlis Perbandaran dan lain-lain agensi swasta. Mereka berbaik dengan semua pihak, sama ada Kerajaan Pusat mahukan kerajaan negeri (pembangkang). Kiri kanan makan, masuk. Jangan terkejut jika ada kelas berhawa dingin. Guru-guru SK disibukkan dengan acara-acara politik yang kadangkala membebankan.

Keempat, kualiti P&P subjek Matematik. Cina telah mewarisi sistem P&P Matematik yang pantas dengan ringkas. Sehingga kini, anak saya membuat pengiraan Matematik (darab) dalam bahasa Cina (BC) walaupun telah meningkat dewasa. Latihan Matematik dalam BC lebih mudah diingat daripada BM.

Kelima, Kesatuan pengurusan. Sekolah Cina sering mengamalkan corak 3 serangkai yang menggabungkan lembaga pengelola sekolah, guru besar dan guru serta PIBG. Gabungan ini amat mantap dikenali sebagai Dong Jiao Zong.

Keenam, SJKC sanggup berkorban dengan mengadakan kelas tambahan, terutama killer subject, BM dan BI. Sejujurnya, SJKC lebih banyak mengadakan kelas pada hari Sabtu, yang diisytiharkan sebagai cuti umum, berbanding SK.

Ketujuh, bertemu ibu bapa. Bagi kelas peperiksaan (UPSR), dalam setahun, paling kurang ada tiga kali perjumpaan dengan ibu bapa. Di SK dan SRA, sekali dah dikira mujur. Perjumpaan lain lebih kepada solat hajat, air Yasin, jamuan puasa dan raya. Itu pun tidak ramai ibu bapa yang datang.

Kelapan, soal keselamatan. Jarang sekali berlaku kemalangan jiwa di SJKC. Pengawal keselamatan mereka dilatih bertugas dengan baik, dan bertanggungjawab. Bukan seperti SK dan SRA, bila berlaku kemalangan jiwa, baharulah langkah keselamatan diambil.

Kekuatan lain, jika ada dalam kalangan anak mereka tidak mahu belajar, dengan segera mencari kemahiran tangan. Tidak mahu melihat anak membuang masa dan melepak. Mereka akan disuruh duduk di bengkel-bengkel sebelum menjadi tauke bengkel. Manakala yang perempuan sanggup menjadi shampoo girl sebelum menjadi 'taukehso'.

Banyak lagi faktor lain, cukuplah setakat ini untuk pengajaran kepada kita s

Posted via Blogaway

Ammar tertelan syiling agaknya

Assalamualaikum,
Dok elok elok budak Ammar ni pi main syiling. Lepastu kami syak dia tertelan syiling pulak.
Jenuh pi tunggu kat Kecemasan HSP dari kul 11 sampai kul 2 pagi. X Ray tak nampak apa pulak.
Pagi ni dok check, kalau ok boleh balik hari ni. Yay!

Posted via Blogaway

Ed Sheeran - Photograph

ED SHEERAN LYRICS

"Photograph"


 

Loving can hurt
Loving can hurt sometimes
But it's the only thing that I know
When it gets hard
You know it can get hard sometimes
It is the only thing that makes us feel alive

We keep this love in a photograph
We made these memories for ourselves
Where our eyes are never closing
Hearts are never broken
Times forever frozen still

So you can keep me
Inside the pocket
Of your ripped jeans
Holdin' me closer
'Til our eyes meet
You won't ever be alone
Wait for me to come home

Loving can heal
Loving can mend your soul
And it's the only thing that I know (know)
I swear it will get easier
Remember that with every piece of ya
And it's the only thing we take with us when we die

We keep this love in this photograph
We made these memories for ourselves
Where our eyes are never closing
Our hearts were never broken
Times forever frozen still

So you can keep me
Inside the pocket
Of your ripped jeans
Holdin' me closer
'Til our eyes meet
You won't ever be alone

And if you hurt me
That's OK, baby, only words bleed
Inside these pages you just hold me
And I won't ever let you go

Wait for me to come home [4x]

Oh you can fit me
Inside the necklace you got when you were 16
Next to your heartbeat
Where I should be
Keep it deep within your soul

And if you hurt me
Well, that's OK, baby, only words bleed
Inside these pages you just hold me
And I won't ever let you go

When I'm away
I will remember how you kissed me
Under the lamppost
Back on 6th street
Hearing you whisper through the phone,
"Wait for me to come home."

Ahli ke-4

Alhamdulillah, dapat berita baik pagi semalam.
Doakan semua selamat.
Terima kasih Ya Allah

Posted via Blogaway

DIY Charge Car Battery using Power Drill Charger

Salam,

Akibat terlupa off suis kereta, batteri kereta aku Kong. Justeru kereta tidak dapat di hidupkan.

Bawa bateri ke Workshop, dah lewat pula.

Maka aku diy supaya bateri dapat dicharge dirumah.

Bahan yang diperlukan.
1. Bateri kereta
2. Multimeter
3. Power charger 14v
4. Kabel sambungan

Pertama sekali, aku check bateri kereta. Multimeter menunjukkan 10.02v.

Aku tahu bateri biasanya 12v.
Maka, bateri aku kekurangan 2v.

Sambungan sangat mudah.
Hanya sambungkan positif terminal charger ke positif terminal bateri. Begitu juga untuk negatif terminal.

Pengecasan mengambil masa satu jam lebih untuk bateri naik ke 12v.

Sesudah cukup 12v, aku pindahkan bateri ke dalam kereta.
Pasang sambungan seperti asal.
Malangnya kereta masih tidak boleh dihidupkan.
Entah apa masalahnya sekarang.

Nasib baik jiran aku offer Jumper kereta.

Setelah 10 minit Jumper. Akhirnya kereta aku berjaya dihidupkan.

Aku semak semula voltan bateri.
Rupanya bateri kereta perlukan 14v untuk menghidupkan kereta.
Mana aku tau.

Learn from experience.

Posted via Blogaway

Mute suara PC dengan Batchfile.bat

Hello,

Hari ni nak kongsikan cara mudah senyapkan atau mute-kan suara speaker PC atau Desktop anda.








Caranya dengan copy kod dibawah dan save kedalam Notepad.exe dan save as Mute.vbs
selesai


Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys(chr(173))

Quickly Mute or Un-mute volume using VBS

Hello reader,

I find clicking on Volume icon on taskbar and wait few seconds to appear and clicking again on mute button was so time consuming.

So i did some Googling and found this awesome codes.

1. Copy code below and paste in Notepad.
   

Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys(chr(173))

2. Save notepad as Mute.VBS to your desktop. I place mine near to Volume icon for easy access.

3. Simply double click VBS file to mute and un-mute.


Find from this original post.
http://www.dostips.com/forum/viewtopic.php?t=995

Copy Cells From 2 Sheets and Paste to Outlook as Image

Hello,

Ini VBA yang aku edit dan tambah untuk snap cells untuk 2 sheets dan pasti ke dalam Outlook mail.
Disertakan juga sheet untuk To list dan Cc list.


==========================================================================

Sub OpenOutlook()


Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim strUser As String
Dim signature As String
Dim sTo As String
Dim sCC As String
Dim rng As Range

Set rng = Nothing
Set rng = ActiveSheet.UsedRange

'check outlook is open
Dim olApp As Object

CreateObject("shell.application").minimizeall

On Error Resume Next

Set olApp = GetObject(, "Outlook.Application")

On Error GoTo 0

If Not olApp Is Nothing Then
  'Outlook is open!
  'MsgBox "Outlook is running"
 
Else
  'Outlook not open
 
  'MsgBox "Outlook is not running"
  Shell ("OUTLOOK")
 
 
End If
'end check outlook is open
''''''


    'For To field
    Set emailRng = Worksheets("Email Contact").Range("A2:A30")

    For Each cl In emailRng
        sTo = sTo & ";" & cl.Value
    Next

    sTo = Mid(sTo, 2)

    'For CC field
    Set emailRngCC = Worksheets("Email Contact").Range("B2:B10")

    For Each cl In emailRngCC
        sCC = sCC & ";" & cl.Value
    Next

    sCC = Mid(sCC, 2)


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
    .Display
    End With
        signature = OutMail.HTMLBody


    'strbody = "Good Morning;We have completed our main aliasing process for today.  All assigned firms are complete.  Please feel free to respond with any questions.Thank you."
   
    strbody = "Hi all,Below are today's jobs in the lab."
   
    'strbody = "This is line 1" & "
" & _
    '          "This is line 2" & "
" & _
     '         "This is line 3" & "


"
             
             
    With OutMail
        .SentOnBehalfOfName = ""
        .To = sTo
        .CC = sCC
        .BCC = ""
        .Subject = "Jobs in Lab on  " & Format$(Date, "dd-mm-yyyy")
        .HTMLBody = strbody & RangetoHTMLPassdown(rng) & RangetoHTMLReport(rng) & signature
       
        .Display
        '.Send
    End With
   
   
'Sub GCloseJobsinLab()

  'Close opened jobs in lab from iFAct.
  Windows("Jobs in Lab").Close False
  Windows("Jobs_in_lab_Macro.xlsm").Close False
   
   
End Sub


Function RangetoHTMLReport(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2013
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
   
'    rng.Copy
   
Sheets("Report").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTMLReport = ts.readall
    ts.Close
    RangetoHTMLReport = Replace(RangetoHTMLReport, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function


Function RangetoHTMLPassdown(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2013
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
   
'    rng.Copy
   
Sheets("Passdown Format").Select
'Range("A1").Select
'Range(Selection, Selection.End(xlToRight)).Select
'Range(Selection, Selection.End(xlDown)).Select
Range("A1:L27").Select
Selection.Copy

    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTMLPassdown = ts.readall
    ts.Close
    RangetoHTMLPassdown = Replace(RangetoHTMLPassdown, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function
========================================================================

Paparkan Masa and Tarikh Menggunakan Command Prompt

Assalamualaikum,

Pagi ni nak kongsi kod yang aku guna untuk display Masa dan Tarikh menggunakan Command Prompt.

Pada mulanya, kod yang ditulis adalah seperti dibawah.

==================================================

@echo off

color f0

:Start

echo Flash on : %DATE%
echo Time     : %TIME%

pause
cls
Rem Goto Start

=================================================== 
Output

Oleh kerana CMD ini akan refresh setiap kali CMD diaktifkan, kod perlu di upgrade.


Maka datanglah versi ke-2.

=================================================
@echo off

echo Flash on :  %Date% %Time% > SEM_Flash.txt

notepad SEM_Flash.txt
::pause
exit
================================================= 


Output adalah dalam aplikasi Notepad
Font sais perlu ditetapkan sendiri dalam aplikasi Notepad.

 CMD akan terminate sekiranya Notepad ditutup, tetapi Notepad tidak akan ditutup sekiranya CMD dututup.




 

Add Related Post Using LinkWithin

Alhamdulillah,

bila dah habis tulis post panjang panjang, nak la juga kita suggestkan related post kepada surfer.
caranya dengan menambah Widget LinkWithin.

Cara caranya seperti dibawah.

1. Pergi ke laman LinkWithin.com
2. Seterusnya masukkan details anda seperti contoh dibawah dan klik Get Widget!

3. Seterusnya ikut tutorial yang diberikan.


Semoga berjaya.

Cara mudah muatturun Video dari Youtube

Salam sejahtera,

pagi ini saya ingin berkongsikan cara muatturun HD, SD video, MP3 paling mudah menggunakan aplikasi Videoder.

oleh kerana aplikasi ini tiada di dalam Play Store, anda perlu pergi ke link yang diberikan dibawah dan klik butang download.
Seterusnya install aplikasi tersebut.


http://www.videoder.net/

Punyai lebih dari satu akaun Whatsapp dalam satu android phone

https://drive.google.com/file/d/0B22YOZjT5vinc2hMeDBmcmxfMzA/view?usp=docslist_api

Salam. Malam ni aku jumpa satu trik untuk install lebih dari satu Whatsapp no dalam satu applikasi WD.

Caranya dengan download dari link yang diberikan dan install.

Semak No IMEI

Salam sejahtera,

Petang ini saya kongsikan tips untuk menyemak no IMEI telefon bimbit anda.
Adakah ia asli atau sebaliknya.

Caranya sangat mudah. Anda hanya perlu mendail *#06# dan salinkan ke website IMEI.INFO dan klik butang Check.

Selamat muncuba.

Sembunyikan folder tanpa sebarang aplikasi di PC

Hello pembaca,

Ini adalah tutorial menyembunyikan folder tanpa sebarang aplikasi pihak ketiga. Hanya perlu ikut langkah dibawah.

Salin kod dibawah dan paste di dalam Notepad.
Seterusnya save notepad sebagai "Private Folder.bat" atau apa sahaja nama yang anda kehendaki.

Gantikan PASSWORD dengan password yang anda ingini.

Satu folder akan diciptakan dan disembunyikan di tempat yang sama dengan file Private Folder.bat





@ECHO OFF
title Hide Folder v1.1
ECHO Created by Zaiem Othman. 30/4/2015.

::cd %~dp0

if EXIST ".\Private Folder" goto UNLOCK

if NOT EXIST ".\Private Folder" goto MDLOCKER 

:UNLOCK
echo Enter password to unlock folder
set/p "pass=> "
if NOT %pass%== PASSWORD goto FAIL
attrib +h +s ".\Private Folder"
::ren "HTG Locker" Private
echo Folder Unlocked successfully
start explorer ".\Private Folder"

goto END

:FAIL

cls
ECHO Created by Zaiem Othman. 30/4/2015.
echo Invalid password

goto UNLOCK

:MDLOCKER
md "Private Folder"
echo Private created successfully
attrib +h +s ".\Private Folder"
start explorer ".\Private Folder"
goto End


:End