Begini Cara Ubah Kertas Dokumen ke Format Digital via Aplikasi


logo

Begini Cara Ubah Kertas Dokumen ke Format Digital via Aplikasi

Oleh Yuslianson pada 19 Nov 2018, 07:00 WIB
Berkas Dokumen Arsip File
Liputan6.com, Jakarta - Meski gaya hidup paperless (tanpa kertas) semakin populer di masyarakat, ternyata kertas dokumen masih jadi bagian penting dari kehidupan sehari-hari.
Entah saat menandatangani kontrak kerja, mengirim tanda terima, atau nota belanja, selalu ada momen di mana kamu harus mengubah dokumen fisik menjadi digital dengan singkat.
Ya, kamu dapat mengambil foto dokumen dengan menggunakan kamera smartphone, tetapi seringkali hasilnya sulit dibaca atau nge-blur.
Mengatasi hal tersebut, Tekno Liputan6.commerekomendasikan sebuah aplikasi yang dapat membantu kamu ketika akan mengubah sebuah dokumen ke format digital dengan labih mudah, yakni CamScanner.

Komentar

Posting Komentar

Postingan populer dari blog ini

Tugas 1.2

Gambar
Private Sub cmdbersih_Click() Txtn1.SetFocus Txtn1 = "" Txtn2 = "" Txtn3 = "" End Sub Private Sub Cmdhitung_Click() Txtn3 = Val(Txtn1) * Val(Txtn2) End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub Txtn1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Txtn2.SetFocus End If End Sub Private Sub Txtn2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Txtn3.SetFocus End If End Sub
Baca selengkapnya

Tugas 1.5

Gambar
Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text4) * Val(Text6) Text11 = Val(Text3) - Val(Text7) Text12 = Val(Text2) / Val(Text8) End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text5.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text8.SetFocus End If End Sub Private Sub Text3_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text7.SetFocus End If End Sub Private Sub Text4_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text6.SetFocus ...
Baca selengkapnya

Tugas 1.1

Gambar
Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text3.SetFocus End If End Sub Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End End Sub
Baca selengkapnya