Minggu, Februari 05, 2017

Situs Hadits Bukhari

Situs hadits bukhari:

http://hadits.in.bukhari/1

Silakan ganti angka 1 dengan angka lain untuk mengetahui hadits bukhari yang lain, jika haditsnya belum muncul silakan refresh lagi halamannya, semoga bermanfaat :)

Minggu, Januari 08, 2017

Link YouTube Channel Islam

  1. Lampu Islam
  2. Lentera Islam
  3. Yufid TV
  4. iLovUAllah
  5. Ummu Alfatih
  6. Kajian Islam
  7. Golongan Kanan
https://www.youtube.com/user/LoveAllah328/videos https://www.youtube.com/user/islamicwayoflife/videos https://www.youtube.com/user/TheProphetsPath/videos https://www.youtube.com/user/TheDailyReminder/videos https://www.youtube.com/user/iLovUAllah/videos

Senin, Oktober 17, 2016

Code of Macro Excel To Copy Paste Value From One Cell To Other Cell

If we want to copy paste from A1 cell to A3 cell, its macro code is:
Sub CopyValue()
Range("A3").Value = Range("A1").Value
End Sub
or
Sub CopyValue()
Cells(3, 1) = Cells(1, 1)
End Sub

Kode Macro Excel Untuk Copy Paste Nilai Dari Satu Cell ke Cell Lainnya

Misalkan kita akan melakukan copy paste dari cell A1 ke A3, maka kode macro excelnya adalah:
Sub CopyNilai()
Range("A3").Value = Range("A1").Value
End Sub
atau
Sub CopyNilai()
Cells(3, 1) = Cells(1, 1)
End Sub

Jumat, Oktober 07, 2016

Contoh Pembahasan Soal Matematika Tentang Pertidaksamaan Nilai Mutlak

Mencari himpunan penyelesaian yang memenuhi pertidaksamaan nilai mutlak |3x-1|+|x|+|x-1|>=3

Pembahasan:

Akan digunakan salah satu sifat pertidaksamaan nilai mutlak:
|x|=x, jika x>=0
|x|=-x, jika x<0

Kemungkinan penyelesaian untuk |3x-1|+|x|+|x-1|>=3 adalah:
  1. (3x-1)+(x)+(x-1)>=3
  2. (3x-1)+(x)-(x-1)>=3
  3. (3x-1)-(x)+(x-1)>=3
  4. (3x-1)-(x)-(x-1)>=3
  5. -(3x-1)+(x)+(x-1)>=3
  6. -(3x-1)+(x)-(x-1)>=3
  7. -(3x-1)-(x)+(x-1)>=3
  8. -(3x-1)-(x)-(x-1)>=3

Akan dicoba satu persatu...
  1. (3x-1)+(x)+(x-1)>=3
    3x-1+x+x-1>=3
    5x-5>=0
    5(x-1)>=0
    x-1>=0
    x>=1

    Subst. x>=1 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x>=1 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=1
      |3x-1|+|x|+|x-1|
      =|3(1)-1|+|1|+|1-1|
      =|2|+|1|+|0|
      =2+1+0
      =3
      (*) x=1 memenuhi untuk |3x-1|+|x|+|x-1|=3
    • Untuk x>1 (misal x=2)
      |3x-1|+|x|+|x-1|
      =|3(2)-1|+|2|+|2-1|
      =|5|+|2|+|1|
      =5+2+1
      =8>3
      (**) x>3 memenuhi untuk |3x-1|+|x|+|x-1|>3
    Dari (*) dan (**) dapat dibuktikan bahwa x>=1 memenuhi untuk |3x-1|+|x|+|x-1|>=3

  2. (3x-1)+(x)-(x-1)>=3
    3x-1+x-x+1>=3
    3x-3>=0
    3(x-1)>=0
    x-1>=0
    x>=1
    Memberikan himpunan penyelesaian yang sama dengan poin (1)

  3. (3x-1)-(x)+(x-1)>=3
    3x-1-x+x-1>=3
    3x>=5
    x>=5/3

    Subst. x>=5/3 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x>=5/3 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=5/3
      |3x-1|+|x|+|x-1|
      =|3(5/3)-1|+|5/3|+|5/3-1|>br/> =|4|+||5/3|+|2/3|
      =4+5/3+2/3
      =19/3 ≠ 3
      Tidak memenuhi untuk |3x-1|+|x|+|x-1| bernilai 3, sehingga x>=5/3 tidak merupakan himpunan penyelesaian

  4. (3x-1)-(x)-(x-1)>=3
    3x-1-x-x+1>=3
    x>=3

    Subst. x>=3 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x>=1 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=3
      |3x-1|+|x|+|x-1|
      =|3(3)-1|+|3|+|3-1|
      =|8|+|3|+|2|
      =8+3+2
      =13
      Tidak memenuhi untuk |3x-1|+|x|+|x-1| bernilai 3, sehingga x>=3 tidak merupakan himpunan penyelesaian

  5. -(3x-1)+(x)+(x-1)>=3
    -3x+1+x+x-1>=3
    -x>=3
    x<=-3
    Dari poin (4) seudah dibuktikan bahwa x=3 tidak memenuhi pertidaksamaan |3x-1|+|x|+|x-1| bernilai 3, sehingga x<=3 tidak merupakan himpunan penyelesaian

  6. -(3x-1)+(x)-(x-1)>=3
    -3x+1+x-x+1>=3
    -3x>=1
    -x>=1/3
    x<=-1/3

    Subst. x<=-1/3 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x<=-1/3 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=-1/3
      |3x-1|+|x|+|x-1|
      =|3(-1/3)-1|+|-1/3|+|-1/3-1|
      =|-2|+|-1/3|+|-4/3|
      =2+1/3+4/3
      =11/3 ≠ 3
      Tidak memenuhi untuk |3x-1|+|x|+|x-1| bernilai 3, sehingga x<=-1/3 tidak merupakan himpunan penyelesaian

  7. -(3x-1)-(x)+(x-1)>=3
    -3x+1-x+x-1>=3
    -3x-3>=0
    -3(x+1)>=0
    -(x+1)>=0
    x+1<=0
    x<=-1

    Subst. x<=-1 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x<=-1/3 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=-1
      |3x-1|+|x|+|x-1|
      =|3(-1)-1|+|-1|+|-1-1|
      =|-4|+|-1|+|-2|
      =4+1+2
      =7 ≠ 3
      Tidak memenuhi untuk |3x-1|+|x|+|x-1| bernilai 3, sehingga x<=-1 tidak merupakan himpunan penyelesaian

  8. -(3x-1)-(x)-(x-1)>=3
    -3x+1-x-x+1>=3
    -5x>=1
    -x>=1/5
    x<=-1/5

    Subst. x<=-1/5 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x<=-1/3 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=-1/5
      |3x-1|+|x|+|x-1|
      =|3(-1/5)-1|+|-1/5|+|-1/5-1|
      =8/5+1/5+6/5
      =15/5
      =3
      (*) x=-1/5 memenuhi untuk |3x-1|+|x|+|x-1|=3
    • Untuk x<-1/5 (misal ambil x=-1)
      |3x-1|+|x|+|x-1|
      =|3(-1)-1|+|-1|+|-1-1|
      =|-4|+|-1|+|-2|
      =4+1+2
      =7 > 3
      (**) x<-1/5 memenuhi untuk |3x-1|+|x|+|x-1|>3
Dari poin (1) s.d. (8) didapat bahwa Himpunan Penyelesaian yang memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3 adalah poin (1) dan poin (8). Jadi Himpunan Penyelesaian dari pertidaksamaan |3x-1|+|x|+|x-1|>=3 adalah: x<=-1/5 dan x>=1

Lihat contoh pembahasan soal lainnya di sini

Senin, September 26, 2016

How To Show Time In MS Excel Using Macro

To show time in ms excel using macro, first we must start macro appropriate excel version, please read this article before.

And macro code to show time in ms excel is:

Sub Jam()
Set Sh = ThisWorkbook.Sheets(1)
Sh.Calculate

With Sh.Range("A1")
.FormulaR1C1 = "=Now()"
.NumberFormat = "hh:mm:ss AM/PM"
End With

Time = Now + TimeValue("00:00:01")
Application.OnTime Waktu, "Jam"
End Sub

If we want to dismiss AM or PM, change code:
.NumberFormat = "hh:mm:ss AM/PM"
be:
.NumberFormat = "hh:mm:ss"

If we want to add date, change code:
.NumberFormat = "hh:mm:ss AM/PM"
be:
.NumberFormat = "dd-mm-yyyy hh:mm:ss AM/PM"

Source: Thanks a lot to http://www.rumusexcel.com

Cara Menampilkan Jam Di MS Excel Menggunakan Macro

Untuk menampilkan jam di ms excel menggunakan macro terlebih dahulu kita harus memulai macro pada masing-masing versi excel, baca dulu artikel ini Dan kode macro untuk menampilkan jam di ms excel adalah:

Sub Jam()
Set Sh = ThisWorkbook.Sheets(1)
Sh.Calculate

With Sh.Range("A1")
.FormulaR1C1 = "=Now()"
.NumberFormat = "hh:mm:ss AM/PM"
End With

Waktu = Now + TimeValue("00:00:01")
Application.OnTime Waktu, "Jam"
End Sub

Jika ingin menghilangkan AM atau PM nya, ubah kode:
.NumberFormat = "hh:mm:ss AM/PM"
menjadi:
.NumberFormat = "hh:mm:ss"

Jika ingin menambahkan tanggal maka ubah kode:
.NumberFormat = "hh:mm:ss AM/PM"
menjadi:
.NumberFormat = "dd-mm-yyyy hh:mm:ss AM/PM"

Sumber: Terimakasih kepada http://www.rumusexcel.com