Login Sebagai root melalui GUI Ubuntu 9.10

Secara defaultnya ketika kita selesai instalasi Ubuntu maka kita belum bisa login sebagai root. Bagaimana agar user root bisa login melalui modus grafis (GUI), berikut langkah-langkahnya:

1. Login sebagai user biasa melalui GUI. User biasa adalah user yang Anda buat ketika melakukan instalasi.

2. Klik pada menu System > Administration > Users and Groups.

3. Kemudian akan di tampilkan user dan group yang ada dalam system. Di sana Anda akan melihat user root dalam kondisi terkunci (locked), yang harus Anda lakukan adalah membuka kunci tersebut dengan cara Klik use root, kemudian klik tombol UNLOCK. Ketika Anda mencoba untuk men-unlock user root, Anda akan diminta untuk memasukkan password – password yang Anda gunakan untuk login ke sistem, bukan password root. Masukkan password Anda kemudian klik Ok.

4. Anda akan melihat user root sekarang sudah dalam keadaan UNLOCK atau terbuka. Double klik pada user root, masukkan password untuk user root dan klik Ok. Tutup jendela Users and Groups.

5. Buka terminal melalui Applications > Accessories > Terminal.

6. Masuk sebagai root pada terminal dengan mengetikkan su – root dan masukkan password root.

7. Lakukan perubahan pada file /etc/gdm/gdm.conf. Anda bisa menggunakan text editor yang Anda sukai, tapi saya lebih suka menggunakan pico karena kemudahannya. Ketikkan pico /etc/gdm/gdm.conf

8. Cari kata AllowRoot=false kemudian ganti dengan AllowRoot=true.(ingat nilai ini bersifat case sensitive – besar kecil huruf dianggap beda). Simpan dan keluar dari terminal.

9. Log out dari user Anda yang sekarang dan login sebagai root dengan password yang sudah di set sebelumnya.

(sumber: http://lancingtanggung.laros.or.id/linux/login-sebagai-root-melalui-gui-ubuntu-9-10/)

Read more »

Antena OutDor yang Power Full Untuk AirLive WL-1700

.Omni 15 dbi utk ngambil dari semua arah
. omni 8 dbi yg sederhana tp mumpuni..mayah bgt...
. Yagi 14 dbi

Read more »

Membuat Aplikasi Penjualan VB 6.0 menggunakan DataBase Access (Form Pelanggan)

Kali ini, saya akan sedikit menjelaskan bagaimana cara membuat Form Pelanggan yang nantinya akan digunakan sebagai salah satu pondasi suatu aplikasi sederhana yang akan kita buat. Coding itu nantinya bisa anda rubah sesuai kebutuhan anda, dan tentu saja source yang saya berikan pada kesempatan kali ini sangatlah sederhana. Anda harus mengembangkan kembali sehingga aplikasi yang anda bangun bisa menjadi lebih baik dan mendekati sempurna.

                                                                        Gambar 1.1

Seperti pada gambar 1.1 diatas, bisa kita lihat form entri pelanggan yang akan kita buat. Ini belum sepenuhnya lengkap sebagai suatu aplikasi, ini hanya sepenggal menu yang akan menjadi pondasi suatu aplikasi penjualan yang akan kita buat. Setelah ini saya akan menjabarkan bagaimana Source Coding yang membangun Form Pelanggan tersebut. Apabila anda ingin merubahnya, sebaiknya anda jg membongkar coding tersebut. Untuk menampung pertanyaan, silahkan masukan beberapa pertanyaan kedalam komentar ada blog ini. Sebelum itu saya ingatkan kepada anda bahwa dalam hal ini saya menggunakan Microsoft Access 2003 sebagai media penyimpanan data, anda jg bisa mengganti dengan media penyimpanan data yang lain, tetapi coding untuk koneksi tersebut harus anda rubah juga,,


Berikut ini Source Coding yang anda perlukan :


Dim CONN As New ADODB.Connection
Dim rspelanggan As New ADODB.Recordset
'Sebagai

Sub koneksi()
Set CONN = New ADODB.Connection
Set rspelanggan = New ADODB.Recordset
CONN.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\DBJUAL.mdb"
End Sub

Private Sub Command1_Click()
If Command1.Caption = "INPUT" Then
    Command1.Caption = "SIMPAN"
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Caption = "BATAL"
    Call TERBUKA
    Text1.SetFocus
Else
    If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Then
        MsgBox "DATA BELUM LENGKAP"
        If Text1 = "" Then
            Text1.SetFocus
        ElseIf Text2 = "" Then
            Text2.SetFocus
         ElseIf Text3 = "" Then
            Text3.SetFocus
         ElseIf Text4 = "" Then
            Text4.SetFocus
         ElseIf Text5 = "" Then
            Text5.SetFocus
        End If
    Else
        Dim SIMPAN As String
        SIMPAN = "INSERT INTO PELANGGAN(KODEPLG,NAMAPLG,ALAMATPLG,TELEPONPLG,PERSONPLG) VALUES " & _
        "('" & Text1 & "', '" & Text2 & "', '" & Text3 & "', '" & Text4 & "', '" & Text5 & "')"
        CONN.Execute SIMPAN
        Call SEMULA
    End If
End If
End Sub
Private Sub Command2_Click()
If Command2.Caption = "EDIT" Then
    Command2.Caption = "SIMPAN"
    Command1.Enabled = False
    Command3.Enabled = False
    Command4.Caption = "BATAL"
    Call TERBUKA
    Text1.SetFocus
Else
    Dim EDIT As String
    EDIT = "UPDATE PELANGGAN SET NAMAPLG ='" & Text2 & "',ALAMATPLG='" & Text3 & "',TELEPONPLG='" & Text4 & "',PERSONPLG='" & Text5 & "' WHERE KODEPLG='" & Text1 & "'"
    CONN.Execute EDIT
    Call SEMULA
End If
End Sub

Private Sub Command3_Click()
Command1.Enabled = False
Command2.Enabled = False
Command4.Caption = "BATAL"
Call TERBUKA
Text1.SetFocus
End Sub

Private Sub Command4_Click()
If Command4.Caption = "TUTUP" Then
    End
Else
    Call SEMULA
End If
End Sub

Private Sub FORM_ACTIVATE()
Call koneksi
ADO.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\DBJUAL.MDB"
ADO.RecordSource = "PELANGGAN"
ADO.Refresh
Set DG.DataSource = ADO
DG.Refresh
End Sub

Sub TERBUKA()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub

Sub TERKUNCI()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
End Sub

Sub TAMPILKANDATA()
Text2 = rspelanggan!NAMAPLG
Text3 = rspelanggan!ALAMATPLG
Text4 = rspelanggan!TELEPONPLG
Text5 = rspelanggan!PERSONPLG
End Sub

Sub KOSONGKAN()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub

Sub SEMULA()
FORM_ACTIVATE
Call KOSONGKAN
Call TERKUNCI

Command1.Caption = "INPUT"
Command2.Caption = "EDIT"
Command3.Caption = "HAPUS"
Command4.Caption = "TUTUP"

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True

End Sub

Private Sub Form_Load()
Call SEMULA
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Text1.MaxLength = 6
If KeyAscii = 13 Then
    If Command1.Caption = "SIMPAN" Then
        Call koneksi
        rspelanggan.Open "SELECT * FROM PELANGGAN WHERE KODEPLG='" & Text1 & "'", CONN
        If Not rspelanggan.EOF Then
            Call TAMPILKANDATA
            MsgBox "KODE SUDAH ADA, GANTI KODE LAIN"
            Call KOSONGKAN
            Text1.SetFocus
        Else
            Text2.SetFocus
        End If
    End If
   
    If Command2.Caption = "SIMPAN" Then
        Call koneksi
        rspelanggan.Open "SELECT * FROM PELANGGAN WHERE KODEPLG='" & Text1 & "'", CONN
        If Not rspelanggan.EOF Then
                Call TAMPILKANDATA
                Text2.SetFocus
        Else
            MsgBox "KODE TIDAK ADA"
            Text1.SetFocus
        End If
    End If
    If Command3.Enabled = True Then
            Call koneksi
            rspelanggan.Open "SELECT * FROM PELANGGAN WHERE KODEPLG='" & Text1 & "'", CONN
            If Not rspelanggan.EOF Then
                Call TAMPILKANDATA
                pesan = MsgBox("YAKIN AKAN DIHAPUS", vbYesNo)
                If pesan = vbYes Then
                    Dim HAPUS As String
                    HAPUS = "DELETE *FROM PELANGGAN WHERE KODEPLG='" & Text1 & "'"
                    CONN.Execute HAPUS
                    Call SEMULA
                Else
                    Call SEMULA
                End If
            Else
                MsgBox "KODE TIDAK DITEMUKAN"
                Text1.SetFocus
                Text1 = ""
            End If
        End If
End If
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text3.SetFocus
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text4.SetFocus
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text5.SetFocus
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0
End Sub

'PERSONPLG
Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
    If Command1.Caption = "SIMPAN" Then
        Command1.SetFocus
    ElseIf Command2.Caption = "SIMPAN" Then
            Command2.SetFocus
    End If
End If
End Sub

Read more »

Habis turun gunung..

Wah udah berapa lama ini blog sudah terlantar..
hahahah..
Maklumlah, lama digunung soalnya..
Sebenernya masih banyak tutorial yang mau saya postingkan, cuma saya juga bingung akan mulai dari mana..
Saya tertarik dengan V.B, dan Wireless..
Dan mungkin nanti saya akan membagikan kepada kalian tutorial tersebut..

Untuk sekarang memang tutorial masih dalam pembangunan..
Sabar yach..
hehheheh...
Tunggu saja tanggal mainnya..

Read more »