Menggabungkan laravel dan adminLTE | Bahasa Indonesia

Read More

Menampilkan terbilang pada ms-word

Membuat sebuah invoice pembayaran membutuhkan terbilang pada total yang harus di bayarkan
ini dapat memiliki resiko ke salahan yang cukup fatal.
oleh sebab itu kita akan membuat sebuah rumus macros pada ms word kita.

Script :

Option Explicit

Sub ctvTerbilang()

   Dim Number As Variant, Kata As String, sText As String

   Const Ttel As String = "Terbilang Max 18 digit saja loh!"

   

   sText = Replace(Selection, Chr(10), "")

   Selection = sText

   If IsNumeric(Selection) Then

      Number = CDec(Selection)

      With Selection

         .Copy

         .EndKey Unit:=wdLine

         .TypeParagraph

      End With

      Select Case Number

         Case 0

            Kata = "Zero"

         Case 0.001 To 1E+18

            Kata = TERBILANG(Number)

         Case Else

            MsgBox "Bilangan Terlalu besar!", 48, Ttel

      End Select

   Else

      MsgBox "Tidak ada bilangan di dalam selection!!", 48, Ttel

   End If

   Selection = Kata

End Sub

Private Function TERBILANG(Nnum As Variant) As String

  '== siti Vi  <Villager.girl@Gmail.com>,=====

  '== STDEV(i) <setiyowati.devi@Gmail.com>,===

  '--- revisi awal jan 2012 ------------------

   Dim nUtuh As Variant, nDesi As Variant

   Dim sUtuh As String, sDesi As String

   Nnum = CDec(Round(Nnum, 2))

   nUtuh = CDec(Int(Nnum))

   nDesi = CDec(Round((Nnum - nUtuh) * 100, 0))

   sUtuh = TransX(nUtuh)

   If nDesi = 0 Then

      sDesi = ""

   Else

      sDesi = "dan " & TransX(nDesi) & " per seratus"

   End If

   TERBILANG = Trim(sUtuh & " " & sDesi)

End Function

Private Function TransX(Bilangan As Variant) As String

  '== siti Vi  <Villager.girl@Gmail.com>,=====

  '== STDEV(i) <setiyowati.devi@Gmail.com>,===

  '--------------------------------------------

   Dim TxtBil As String, Teks As String, i As Integer, Pos As Integer

   Dim Angka(19) As String, Puluh(9) As String, Letak(4) As String

   Dim DwiDigit As Byte, TriD1 As Byte, TriD2 As Byte, TriD3 As Byte

   Angka(1) = "satu":         Angka(2) = "dua":           Angka(3) = "tiga"

   Angka(4) = "empat":        Angka(5) = "lima":          Angka(6) = "enam"

   Angka(7) = "tujuh":        Angka(8) = "delapan":       Angka(9) = "sembilan":

   Angka(10) = "sepuluh":     Angka(11) = "sebelas":      Angka(12) = "dua belas"

   Angka(13) = "tiga belas":  Angka(14) = "empat belas":  Angka(15) = "lima belas"

   Angka(16) = "enam belas":  Angka(17) = "tujuh belas":  Angka(18) = "delapan belas"

   Angka(19) = "sembilan belas"

   Puluh(0) = "":             Puluh(2) = "dua puluh":     Puluh(3) = "tiga puluh"

   Puluh(4) = "empat puluh":  Puluh(5) = "lima puluh":    Puluh(6) = "enam puluh"

   Puluh(7) = "tujuh puluh":  Puluh(8) = "delapan puluh": Puluh(9) = "sembilan puluh"

   Letak(0) = "ribu":    Letak(1) = "juta"

   Letak(2) = "milyar":  Letak(3) = "triliun":   Letak(4) = "kuadriliun"

   Bilangan = CDec(Bilangan)

   TxtBil = Trim(Str(Round(Abs(Bilangan), 0)))

   If CDec(TxtBil) = 0 Then

      Teks = "nol "

   Else

      i = 0

      Do

         TxtBil = "000" + TxtBil

         DwiDigit = CByte(Right(TxtBil, 2))

         If (DwiDigit > 0) And (DwiDigit < 20) Then

            Teks = IIf((Bilangan < 2000 And i = 1), "se", Angka(DwiDigit) + " ") + Teks

         Else

            TriD3 = CByte(Right(TxtBil, 1))

            If (TriD3 > 0) Then Teks = Angka(TriD3) + " " + Teks

            TriD2 = CByte(Left(Right(TxtBil, 2), 1))

            If (TriD2 > 0) Then Teks = Puluh(TriD2) + " " + Teks

         End If

         TriD1 = CByte(Left(Right(TxtBil, 3), 1))

         If (TriD1 = 1) Then Teks = "seratus " + Teks

         If (TriD1 > 1) Then Teks = Angka(TriD1) + " ratus " + Teks

         TxtBil = Left(TxtBil, Len(TxtBil) - 3)

         If (CDec(TxtBil) > 0) Then

            Teks = IIf(CInt(Right(TxtBil, 3)) = 0, "", Letak(i) + " ") + Teks

            i = i + 1

         End If

      Loop While ((CDec(TxtBil) > 0) And (i < 6))

   End If

   TransX = Trim(Teks) &" rupiah"

End Function

'------------------------

Read More

Downgrade Samsung note 3 lolipop ke kitkat tanpa imei null

Ketika handphone saya di downgrade dari lolipop ke kitkat mengalami masalah kartu yang tak terbaca, namun dengan install modem versi 5.0 kembali normal berikut caranya
 
Sumber : https://www.youtube.com/watch?v=GQWeeOXvvOM (Hi Tech Brown)

1)Download Firmware 4.3 : http://adf.ly/1F58H5 or http://linkshrink.net/7SoDNK 4.4 : http://adf.ly/1F58LM or http://linkshrink.net/7hes0D 5.0 : http://adf.ly/1F58jw or http://linkshrink.net/7596Jf 2)Download Bootloader : http://adf.ly/1F58BJ or http://linkshrink.net/7OdxSV 3)Download Odin : http://adf.ly/1F592e or http://linkshrink.net/7nsA11 4)Download Drivers For Note 3 : http://adf.ly/1F59A5 or http://linkshrink.net/7OQeIL 5)Download 5.0 Modem File : http://adf.ly/1F59Rf or http://adf.ly/1gMDIs or http://linkshrink.net/7WVWEx NOTE : For other samsung mobile devices if you are downgrading or want to fix imei then you need modem file from the latest firmware of your device :)

Read More

Setting reader rfid untuk kunci loker

Kunci loker ini menggunakan rfid berupa gelang sebagai security pada loker tamu
berikut videonya

Sumber : Chanel henri muhammad link : https://www.youtube.com/watch?v=R8kEqUUU9eM

Read More

Password Accurate Lupa begini caranya

   Terkadang kita sering terlupakan password dan itu sangat membingungkan. apalagi program yang ada dikantor yang mau tidak mau harus tahu. kita akan coba bongkar passwordnya dan kembalikan ke defaultnya .. , langsung aja ya teman - teman kita tonton videonya.

Read More

Setting program absen ke ip public

Program ini di buat oleh teman saya dimana berguna untuk menarik data dari mesin solution dan dikiirm via Ftp ke server pusat

kita tonton videonya :

Read More

Bongkar password Telkom modem Zte f660

Terkadang kita kesulitan dalam mensetting modem karena pihak telkom tidak mengijinkan customers untuk masuk ke dalam mode admin. Untuk itu saya akan berikan video cara mendapatkan password pada modem Zte f660

Read More