Tips Belajar Mengetik 10 Jari

Di jaman yang serba komputerisasi seperti sekarang tentunya akan menjadi nilai tambah tersendiri untuk kemampuan mengetik.

Terutama untuk anda-anda yang berkerja di perkantoran, kemampuan ini akan mempermudah  dalam mempercepat pekerjaan anda, selain itu kita tidak akan cepat pusing karena bolak balik liat keyboard dan layar.

berikut ini saya akan meberikan beberapa tips ketika belajar mengetik dengan 10 jari, tapi tepatnya sih di bilang latihan. karena agar bisa mengetik dengan 10 jari kita harus banyak berlatih. berikut ini beberapa tips agar cepat menguasai tekhnik mengetik 10 jari.

1. Pastikan Kuku Tangan Pendek.

Saya anjurkan kuku tangan kalian pendek agar tidak mengganggu ketika anda belajar mengetik, seperti yang kita tau kuku tangan merupakan salah satu faktur yang menghambat dalam pengetikan.

2. Pakai Keyboard yang Sama Selama Latihan Atau Belajar

Dalam belajar mengetik dengan 10 jari kita di tuntut untuk terus berlatih agar insting jari kita bisa tumbuh dan reflek jari kita ketika kita mencari atau ingin menekan salah satu tombol, karena kita tahu dalam mengetik 10 jari masing - masing jari tangan kita punya tugas masing - masing.

Di sini saya sarankan kalian menggunakan keyboard yang sama selama proses belajar agar kalian cepat terbiasa dengan posisi - posisi tombolnya.

3. Internet Akses

Sebenarnya tanpa internet akses juga kita masih tetap bisa berlatih, opsi ini saya sarankan untuk kalian agar lebih mudah mencari materi atau referensi tentang typing tutor atau cara mengetik 10 jari, selain itu ada juga web yang menyediakan typing tutor, jadi kita tidak perlu repot - repot untuk install aplikasi typing tutor.

4. Waktu Berlatih yang Cukup dan Rutin

Teknik mengetik 10 jari tidak bisa di hapal saja, karena yang di butuhkan di sini adalah refleks jari - jari kita untuk menekan tombol yang kita inginkan.

5. Sabar

Sabar selama latihan di butuhkan karena proses untuk mahir mengetik 10 jari  memang membutuhkan waktu dan latihan yang banyak.

Tapi dengan kemauan yang kalian punya untuk bisa mengetik 10 jari pasti kalian bisa untuk menguasai teknik mengetik 10 jari cepat atau lambat.


Berikut ini sedikit materi soal mengetik 10 jari.

• Perhatikan! Pada saat pertama kali ingin mengetik menggunakan 10 jari maka mulailah dengan meletakkan kedua telunjuk tangan kita pada dua huruf yang ada tonjolannya, yaitu telunjuk jari kiri pada huruf F dan telunjuk jari kanan pada huruf J. Ini gunanya agar fungsi dan tugas tiap jari yang sudah anda hafalkan bisa pas dan tidak salah menekan tombol keyboard.
• Selain itu, tanda di huruf F dan J juga berguna agar setelah tangan di angkat atau berpindah karena menekan tombol yang jauh dengan cepat kita bisa kembali ke posisi semula dengan cepat hanya dengan meraba.

Gambar di atas adalah gambaran area mana aja dan jari mana yang bertugas untuk menekan tombol keyboard.

berikut ini adalah salah satu program yang bisa membatu kalian dalam berlatih mengetik 10 jari.

Download Rapid Typing Tutor.

Download Kiran's Typing Tutor.

Selain itu kalian bisa juga berlatih secara online di situs berikut.

https://www.typing.com/.

http://www.typeonline.co.uk/.

Sekian Tips dan ulasan mengenai belajar mengetik dengan 10 jari, semoga bermanfaat buat kalian yang sedang berlatih mengetik dengan 10 jari.

Source :

http://www.patartambunan.com/cara-mengetik-10-jari-dengan-benar-dan-mudah/

https://youtu.be/MRXs9g39NxY

Kontrol Array Pada Program Kalkulator Visual Basic 6.0

Kontrol array adalah kelompok dari beberapa kontrol dengan nama yang sama dan event procedure yang sama juga. penggunaan kontrol array memberikan kita kemudahan dalam pembuatan Source Code nya karena kita bisa menggunakan 1 sub procedure untuk mengatur beberapa kontrol.

Kali ini gua mau bikin kontrol array CommandButton yang di aplikasikan pada program kalkulator sederhana.

Buka program Microsoft Visual Basic 6.0. Siapkan 1 TextBox dan 18 buah CommandButton, atur tampilan seperti gambar di bawah ini.

TextBox1.

• Name = "TxtDisplay"
• Locket = True

CommandButton

• Untuk command button ini semua namanya di samakan : CmdNumber, secara otomatis commandbutton dengan nama CmdNumber menjadi kontrol array.
• Atur caption command button seperti design di atas.

Berikut ini Code nya.

Option Explicit
Dim Angka1 As Double
Dim Angka2 As Double
Dim SubNy As String
Dim statSub As Boolean

Private Sub CmdNumber_Click(Index As Integer)
    If Trim(UCase(TxtDisplay.Text)) = "ERROR." Then
        If Trim(UCase(CmdNumber(Index).Caption)) = "CLE" Then GoTo ClearAll
        
        Exit Sub
    End If
    Select Case Trim(UCase(CmdNumber(Index).Caption))
        Case Is = "CLE"
ClearAll:
            statSub = False
            TxtDisplay.Text = 0
            Angka1 = 0
            Angka2 = 0
            SubNy = ""
        Case Is = "DEL"
            statSub = False
            If Len(TxtDisplay.Text) = 1 Then
                TxtDisplay.Text = 0
            Else
                TxtDisplay.Text = Mid(TxtDisplay.Text, 1, Len(TxtDisplay.Text) - 1)
            End If
        Case Is = "/", "*", "-", "+"
            If SubNy = "" Then
                statSub = True
                Angka1 = TxtDisplay.Text
                SubNy = CmdNumber(Index).Caption
            Else
                If statSub = True Then
                    SubNy = CmdNumber(Index).Caption
                Else
                    Angka2 = TxtDisplay.Text
                    KalkulasiHasil
                    statSub = True
                End If
            End If
        Case Is = "="
            If SubNy <> "" Then
                Angka2 = TxtDisplay.Text
                KalkulasiHasil
            End If
            statSub = True
        Case Is = "."
            If statSub = True Then
                TxtDisplay.Text = 0
            End If
            InsertKoma
            statSub = False
        Case Is = "0"
            If statSub = True Then
                TxtDisplay.Text = 0
            End If
            InsertNol
            statSub = False
        Case Else
            If statSub = True Then
                TxtDisplay.Text = 0
            End If
            TxtDisplay.Text = Val(TxtDisplay.Text & Trim(CmdNumber(Index).Caption))
            statSub = False
    End Select
End Sub

Private Sub KalkulasiHasil()
    Select Case SubNy
        Case Is = "/"
            If Angka2 = 0 Then
                TxtDisplay.Text = "Error."
            Else
                TxtDisplay.Text = Angka1 / Angka2
            End If
        Case Is = "*"
            TxtDisplay.Text = Angka1 * Angka2
        Case Is = "-"
            TxtDisplay.Text = Angka1 - Angka2
        Case Is = "+"
            TxtDisplay.Text = Angka1 + Angka2
    End Select
    Angka1 = 0
    Angka2 = 0
    SubNy = ""
End Sub

Private Sub InsertNol()
    If Trim(TxtDisplay.Text) = "0" Then
        TxtDisplay.Text = 0
    Else
        TxtDisplay.Text = TxtDisplay.Text & 0
    End If
End Sub

Private Sub InsertKoma()
    Dim L As Integer
    
    For L = 1 To Len(TxtDisplay.Text)
        If Mid(TxtDisplay.Text, L, 1) = "." Then
            GoTo LewatInsert
        End If
    Next L
    TxtDisplay.Text = TxtDisplay.Text & "."
LewatInsert:
End Sub

Private Sub Form_Load()
    TxtDisplay.Text = 0
    Angka1 = 0
    Angka2 = 0
    SubNy = ""
    statSub = False
End Sub

Kalian dapat download Sourcenya di sini :

Download

Password : kumprog.blogspot.com

Export File Excel dari Visual Basic 6.0

Banyak data laporan atau hasil penjualan yang di olah di excel, terkadang untuk membuat suatu chart atau menganalisa data masih banyak orang yang menggunakan program ini, maka dari itu saya buat tutorial ini karena berguna untuk saya, siapa tau pembaca juga butuh source code nya.

Berikut ini adalah contoh program untuk mengolah data dan di simpan dalam bentuk excel dengan menggunakan program Visual Basic 6.0. Di sini saya akan tunjukan cara akses excel dan membuat file excel dengan menggunakan program sederhana Visual Basik 6.0.

Ikuti langkah - langkah berikut.

• Buka program Microsoft Visual Basic 6.0.
• Add Reference Excel Project => References akan muncul tampilan seperti berikut.

• Click Browse lalu cari program excelnya contoh program excel saya ada di C:\Program Files (x86)\Microsoft Office\Office12\Excel.exe lalu click Open maka otomatis Microsoft Excel Lib akan masuk ke list reference.
• Pastikan Library excel nya tercentang, click Ok.
• Click kanan di Tool box pilih Components atau Ctrl+T.
• Maka akan muncul tampilan Components, di tab Control cari Microsoft Windows Common Controls 6.0(sp6). karena kita akan menggunakan komponen ListView.
• Tambahkan object berikut, Label = 5, TextBox = 5, CommandButton = 2 dan terkhir ListView = 1.
• Susun tampilannya seperti gambar berikut.

• Edit nama objek menjadi seperti berikut,

1. TxtNama
2. TxtAlamat
3. TxtGolDarah
4. TxtTinggi
5. TxtBerat
6. CmdAdd
7. LV
8. CmdExport

• Untuk LV setting terlebih dahulu propertiesnya, caranya Click kanan pada object LV lalu pilih properties, maka akan muncul tampilan seperti di bawah.

• Berikut yang harus di setting di Tab General :

1. View : 3 - lvwReport
2. LabelEdit : 1 - lvwManual
3. Gridlines : Checked
4. FullRowSelect : Checked

• Lalu tambahkan Column di tab Column Headers click insert column untuk menambahkan dan remove column untuk menghapus.
• Ganti setiap text column seperti berikut, untuk index :

1. No
2. Nama
3. Alamat
4. Gol Darah
5. Tinggi
6. Berat

• Jika sudah selesai tinggal memasukan Syntax Seperti berikut :

Option Explicit

'Konstanta untuk identifikasi kolum LV agar lebih mudah di kenali.

Private Const vNo = 0

Private Const vNama = 1

Private Const vAlamat = 2

Private Const vGolDarah = 3

Private Const vTinggi = 4

Private Const vBerat = 5

'====================================

Private Sub CmdAdd_Click()

    Dim oListItems

    

    Set oListItems = LV.ListItems.Add(, , LV.ListItems.Count + 1)

    oListItems.ListSubItems.Add , , TxtNama.Text

    oListItems.ListSubItems.Add , , TxtAlamat.Text

    oListItems.ListSubItems.Add , , TxtGolDarah.Text

    oListItems.ListSubItems.Add , , TxtTinggi.Text

    oListItems.ListSubItems.Add , , TxtBerat.Text

End Sub

Private Sub CmdExport_Click()

    ExportExcel

End Sub

Private Sub Form_Load()

    DefaultForm

    DesignLV

End Sub

Private Sub DesignLV()

    LV.ColumnHeaders(vNo + 1).Width = 500

    LV.ColumnHeaders(vNama + 1).Width = 2000

    LV.ColumnHeaders(vAlamat + 1).Width = 2000

    LV.ColumnHeaders(vGolDarah + 1).Width = 1300

    LV.ColumnHeaders(vTinggi + 1).Width = 1300

    LV.ColumnHeaders(vBerat + 1).Width = 1300

End Sub

Private Sub DefaultForm()

    TxtNama.Text = ""

    TxtAlamat.Text = ""

    TxtGolDarah.Text = ""

    TxtTinggi.Text = ""

    TxtBerat.Text = ""

End Sub

Private Sub ExportExcel()

    Dim Fieldx As Integer                             'Untuk Index

    Dim Idx As Integer

    

    Dim ApExcel As Object                             'Untuk Membuka Aplikasi Excel

    Dim oExcel As Object

    Dim oBook As Object

    Dim oSheet As Object

        

    Set oExcel = CreateObject("Excel.Application")

    Set oBook = oExcel.Workbooks.Add

    

'Header

    'Untuk memasukan text di excel

    oExcel.Cells(1, 1).Formula = "DAFTAR DATA GOLONGAN DARAH PESERTA"

    'Untuk Merge cell

    oExcel.Range(oExcel.Cells(1, 1), oExcel.Cells(1, vBerat + 1)).Merge

    'Formating cell

    oExcel.Cells(1, 1).Font.Size = 15

    

    oExcel.Cells(2, vNo + 1).Formula = "No."

    oExcel.Cells(2, vNama + 1).Formula = "Nama"

    oExcel.Cells(2, vAlamat + 1).Formula = "Alamat"

    oExcel.Cells(2, vGolDarah + 1).Formula = "Gol Darah"

    oExcel.Cells(2, vTinggi + 1).Formula = "Tinggi"

    oExcel.Cells(2, vBerat + 1).Formula = "Berat"

    

    'Mengatur Lebar Column, Warna cell dan warna font

    oExcel.Columns(vNo + 1).ColumnWidth = 5

    oExcel.Columns(vNama + 1).ColumnWidth = 30

    oExcel.Columns(vAlamat + 1).ColumnWidth = 30

    oExcel.Columns(vGolDarah + 1).ColumnWidth = 15

    oExcel.Columns(vTinggi + 1).ColumnWidth = 15

    oExcel.Columns(vBerat + 1).ColumnWidth = 15

    

    For Fieldx = 1 To vBerat + 1

        oExcel.Cells(2, Fieldx).Interior.ColorIndex = 1

        oExcel.Cells(2, Fieldx).Font.ColorIndex = 2

    Next Fieldx

    

    For Idx = 1 To LV.ListItems.Count

        oExcel.Cells(Idx + 2, 1).Formula = LV.ListItems(Idx).Text

        For Fieldx = 1 To vBerat

            oExcel.Cells(Idx + 2, Fieldx + 1).Formula = LV.ListItems(Idx).ListSubItems(Fieldx).Text

            DoEvents

        Next Fieldx

        DoEvents

    Next Idx

    

    'Untuk Menampilkan Data Excel

    oExcel.Visible = True

End Sub

• Sampai di sini proses pembuatan program untuk Export ke Excel sudah selesai.

Contoh programnya bisa kalian download di sini :

Download

Password : kumprog.blogspot.com

Counter Strike Condition Zero

Siapa sih yang tidak tau dengan game FPS yang satu ini, ya Counter Strike Condition Zero saya dah main game ini dari zaman sekolah bareng sama temen - temen di lab sekolah, jangan di tiru ya.

Sekalian buat nostalgia kali ini saya mau sharing game CSCZ ini.

Sedikit tentang game Counter Strike Condition Zero adalah salah satu seri dari game Counter Strike sedangkan Counter Strike sendiri adalah game hasil pengembangan dari game half Life  oleh Minh "Gooseman" Le dan Jess "Cliffe" Cliffe. game ini menapilkan pertempuran antara team Counter Terorist (CT) dan Terorist, banyak mode yang bisa di mainkan seperti Bomb defusal (de_), Hostage rescue (cs_), Assasination (as_), Escape (es_) dan Fight Yard (fy_). gua baca dari sini Wikipedia.

Screen Shoot CSCZ.

Berikut ini gamplay dari CSCZ.

Kalian bisa download gamenya di link berikut ya.

Part 1 Part 2 Part 3

Setelah download ketiga part di atas lalu extrax file setup nya pass : kumprog.blogspot.com

install selesai, berikut serial numbernya pilih saja salah satu.

Serial Number :

1. 5rp2e-eph3k-br3lg-kmgde-fn8py 
2. 5RP2E-EPH3K-BR3LG-KMGTE-FN8PY 
3. 5Z62E-94JDV-79NAM-ZJVE6-ARBWY 
4. 5Z82G-NP2YH-22NIV-ITXEL-WYAKX 
5. 5zc2f - kzzr7 - 4527r - f26lw - vr2wb 
6. 5Z522-HK3KP-RPR6K-YCXP3-C6DMT

Pencari Karakter

Program ini gua buat berdasarkan pengalaman gua yang sering kesulitan nyari karakter derajat, dan akhirnya gua bikin program kecil untuk generat karakter akhirnya dapet tuh karakter derajatnya.

Nah di sini gua bakalan posting cara pembuatan program sederhana ini, ya sayang dari pada di buang gitu aja mending di posting aja.

Dasar dari program ini kita akan memakai function Chr yaitu function untuk menampilkan karakter dengan menyebutkan kode char nya. kode char yang ada di sini yaitu dari 0 sampai dengan 255, namun kita akan mulai dari kode 1 sampai 255.

Buka Microsoft Visual basic 6.0, lalu tambahkan objek ListBox, TextBox, dan Label. Ganti propertisnya :

ListBox

• Name = "LstSymbol"

TextBox

• Name = "TxtCopy"

Label

• Caption = "Copy Here"

Atur posisi objek seperti gambar di bawah.

Kode :

Option Explicit

Private Sub Form_Load()

    Dim L As Integer

    

    TxtCopy.Text = ""

    

    LstSymbol.Clear

    For L = 1 To 255

        LstSymbol.AddItem L & " = " & Chr(L)

    Next L

End Sub

Private Sub ShowSymbol()

    If LstSymbol.Text = "" Then Exit Sub

    TxtCopy.Text = Split(LstSymbol.Text, " = ")(1)

End Sub

Private Sub LstSymbol_Click()

    ShowSymbol

End Sub

Private Sub LstSymbol_KeyUp(KeyCode As Integer, Shift As Integer)

    ShowSymbol

End Sub

Ok program Pencari karakternya sudah jadi, tinggal di tes

Contoh program bisa di download

Download 

Password : kumprog.blogspot.com