JAWABAN PERTANYAAN

Ada yang tanya nih…… dari  wil_2000@yahoo.com

 saya sudah menjalankan programa anda tetapi ketika akan dicomplie muncul error 424 pada ConMHS.Open ConnectionString itu kenapa yah?
terima kasih

Jawab:

Waktu saya buka lagi file saya, dan dari pertanyaan yang lalu sepertinya program saya tidak ada masalah. Kalo terjadi pesan error 424 pada ConMHS.Open yang berarti
Run-time error ’424′: Object required. Reference ADODBnya belum diaktifkan. Untuk mengaktifkan reference ADODB lakukan hal berikut :

1. Pada menu project, pilih Reference

2. Pilih Microsoft ActiveX Data Object 2.0 Library

 

 

Kalo sudah simpan lagi project dan jalankan.

Semoga dapat berjalan dengan lancar.

TERUSAN PEMROGRAMAN VB

Beberapa hari yang lalu saya dapat email dari teman, ini isi emailnya:

Mbak, saya merasa bingung dalam pencarian data dengan menggunakan dua form.

Misal :

• Form1 terdiri dari field IdNama (textbox1), Nama ((textbox2), Alamat (textbox3), Telpon (textbox3) dan sudah saya isi semua datanya sampai dengan 10 record.
• Form2 adalah form pencarian yang terdiri dari field IdNama.

Yang saya tanyakan : Bagaimana coding pencarian di form2 untuk mencari data di form1 berdasarkan IdNama (textbox1). saya menggunakan ADODC untuk koneksi database.

Alur : di form1 saya beri commondbuton dan saya beri nama pencarian data, kemudian setelah di klik akan tampil form2 yaitu form pencarian data. Di form2 tersebut terdapat textbox1 yaitu untuk pengisian data pencarian IdNama, setelah diisi  data IdNama yang sesuai dan diklik commondbuton cari yang ada di form2, maka data yang dicari akan tampil di form1 dan bila mana IdNama tidak ada akan keluar pesan “Maaf, Data yang dicari tidak ada”.

Sebelumnya saya mengucapkan terimakasih banyak atas bantuannya

Hormat saya,
WINARKO

Makasih buat yang sudah kirim email ke saya. Padahal saya bukan ahlinya. Tapi saya akan coba jawab.

Pada intinya, caranya adalah sama. Cuma tinggal tambahin aja di Recordsource ADODCnya untuk buka dari data di Form 1. 

Dari file saya kemarin, saya tambahkan 1 form baru untuk lihat data mahasiswa yang baru saja diinputkan dari form 1.

Tampilan Form 3

Dan Sorce Codenya adalah sebagai berikut :

Private Sub Form_Load()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\MHS.mdb;Persist Security Info=False”
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = “select * from mhs where nrp=’” & frmMAINT.txtNRP & “‘ order by nrp”
Adodc1.Refresh
DataGrid1.Refresh
For i = 0 To Adodc1.Recordset.RecordCount – 1
Combo1.AddItem Adodc1.Recordset.Fields(“nrp”)
Adodc1.Recordset.MoveNext
Next i
Combo1.Text = frmMAINT.txtNRP
End Sub

frmMaint adalah nama form1 yang ada di file sebelumnya. Setelah menginputkan data di Form1, setelah menekan tombol maka akan tampil data ke form3.

 

Semoga menjawab pertanyaan Anda. Jika Anda ingin bertanya lebih lanjut masalah VB, Anda bisa gabung di milis http://groups.yahoo.com/group/indoprog-vb/

JAWABAN UJIAN PEMROG. WEB

Ujian ASP saya mengusulkan untuk membuat Maintenance Data Mahasiswa. Hampir sama dengan usulan ujian Pemrograman Visual Basic.

JUDUL:PEMBUATAN APLIKASI MAINTENACE DATA MAHASISWA ABSTRAKSIAplikasi ini dibuat dengan tujuan untuk dapat menginputkan data Mahasiswa, mengedit data Mahasiswa dan menghapus data Mahasiswa.  Apliaksi ini juga bisa digunakan untuk navigasi data, seperti First, previous, next, dan Last. Database yang digunakan adalah Microsoft Access. Aplikasi ini menggunakan  metode ADO untuk menghubungkan data dengan form. Data Mahasiswa yang disimpan adalah :

1. Nomor Induk Mahasiswa (NIM)
2. Nama
3. Alamat
4. Kota
5. Nomor Telepon
6. Tempat Lahir
7. Tanggal Lahir
8. Asal Sekolah

 Setelah dicoba, ternyata belum semua fungsi dapat berjalan. Karena saya memakai sistem DNS, saya kesulitan untuk mengatur sistem DNS lewat web hosting saya. Ya jadilah hanya sebagian saja yang jalan.

alamat web sitenya ada di http://users3.nofeehost.com/ningtyas78/Db/Pweb/Ujian/awal1.asp

Pesan Kesalahan yang tampil adalah :

INSERT INTO mhs(NRP, NAMA, ALAMAT,KOTA,TELP,TEMPATLAHIR,TGLLAHIR,ASALSEKOLAH) VALUES (’1′, ‘tyas’, ‘waru’,'sidoarjo’,’8531354′,’surabaya’,#22/4/1978#,’stikom’) Microsoft OLE DB Provider for ODBC Drivers error ’80004005′ [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified/ningtyas78/Db/Pweb/Ujian/simpaninput.asp, line 17

Kesalahan tersebut tampil karena DNSnya belum ada

Ada yang bisa bantu gak yah ??

JAWABAN UJIAN PEMROG. VISUAL

JUDUL USULAN PROYEK :
PEMBUATAN APLIKASI MAINTENACE DATA MAHASISWA 

ABSTRAKSI

Aplikasi ini dibuat dengan tujuan untuk dapat menginputkan data Mahasiswa, mengedit data Mahasiswa dan menghapus data Mahasiswa serta menampilkan data yang sudah terimpan. Database yang digunakan adalah Microsoft Access. Aplikasi ini menggunakan  metode ADO dan control ADODC untuk menghubungkan data dengan form. Aplikasi ini memiliki dua form. Form pertama untuk Maintenance data dan form kedua untuk menampilkan data yang tersimpan. Untuk maintenance data digunakan tombol dari command button. Setiap sebelum atau setelah menginputkan data, mengedit data atau menghapus data akan tampil pesan (MsgBox). Data Mahasiswa yang disimpan adalah :

1. Nomor Induk Mahasiswa (NIM)
2. Nama
3. Alamat
4. Kota
5. Nomor Telepon
6. Tempat Lahir
7. Tanggal Lahir
8. Asal Perguruan Tinggi
9. Jurusan asal

 Sesuai dengan usulan yang sudah saya ajukan, berikut ini adalah penjelasan dari projek saya.

Tampilan Form 1

Tampilan Form 2

Struktur tabel yang saya gunakan adalah sebagai berikut :

Penjelasan untuk Form 1

Untuk menghubungkan antara Form dengan tabel Mhs, maka syntax programnya adalah seperti berikut:

Public conMHS As New ADODB.Connection
Public rsMHS As New ADODB.Recordset
conMHS = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\MHS.mdb;Persist Security Info=False”
conMHS.Open ConnectionString
rsMHS.Open “select * from mhs”, conMHS, adOpenKeyset, adLockOptimistic

Apabila belum memasukkan NRP, dan menekan tombol Enter pada Keybord akan keluar pesan untuk memasukkan NRP. Setelah memasukkan NRP, akan dicek lagi apakah NRP yang dimasukkan sudah tersimpan dalam tabel atau belum. Apabila sudah, akan tampil semua datanya. Apabila belum tersimpan akan muncul pesan apakah mau mengisikan data baru atau tidak. Jika sudah mengisikan semua data dan menekan tombol SIMPAN, maka akan keluar pesan bahwa DATA SUDAH TERSIMPAN.Untuk UPDATE DATA, sebelumnya harus diinputkan dulu NRP. Setelah NRP dimasukkan dan data ada, data akan ditampilkan. Setelah data ditampilkan ubahlah data yang dirasa kurang tepat. Setelah melakukan perubahan data, tekan tombol UPDATE DATA. Kemudian akan tampil pesan bahwa DATA TELAH DIUPDATE dan TERSIMPAN.

Untuk mengecek apakah NRP sudah tersimpan atau belum menggunkan syntax seperti berikut ini:

Private Sub txtNRP_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If txtNRP.Text = “” Then
        MsgBox “ISIKAN NRP!”, vbCritical + vbOKOnly, “ISI DATA”
    Else
    rsMHS.Find “NRP=’” & txtNRP.Text & “‘”, , adSearchForward, 1
        If rsMHS.EOF = True Then
            psn = MsgBox(“DATA BELUM TERSIMPAN DALAM TABEL” & Chr(13) & “AKAN ISI DATA BARU ?”, vbInformation + vbYesNo, “KONFIRMASI DATA”)
            If psn = vbYes Then
                Call bersih2
                txtNAMA.SetFocus
            End If
        Else
            Call tampil_data
        End If
    End If
End If
End Sub

Untuk menyimpan data gunakan syntax berikut ini:

Private Sub cmdSIMPAN_Click()
If txtNRP.Text = “” Then
Call cek
txtNRP.SetFocus
Else
    With rsMHS
        .AddNew
        .Fields(“NRP”) = txtNRP.Text
        .Fields(“NAMA”) = txtNAMA.Text
        .Fields(“ALAMAT”) = txtAlmt.Text
        .Fields(“KOTA”) = txtKOTA.Text
        .Fields(“TELP”) = txtTELP.Text
        .Fields(“TEMPATLAHIR”) = txtTMPT.Text
        .Fields(“TGLLAHIR”) = txtTTL.Text
        .Fields(“ASALSEKOLAH”) = txtPT.Text
        .Fields(“JURUSANS1″) = cboJUR.Text
        .Update
    End With
    psn = MsgBox(“DATA TELAH TERSIMPAN” & Chr(13) & “APAKAH INGIN MENGISI DATA LAGI ?”, vbInformation + vbOKCancel, “SIMPAN DATA”)
   
    If psn = vbOK Then
        Call bersih
    Else
        txtNRP.SetFocus
    End If
End If
End Sub

Untuk menyimpan perubahan data, gunakan syntax:

Private Sub cmdEDIT_Click()
If txtNRP.Text = “” Then
    Call cek
    txtNRP.SetFocus
Else
    With rsMHS
        .Fields(“NRP”) = txtNRP.Text
        .Fields(“NAMA”) = txtNAMA.Text
        .Fields(“ALAMAT”) = txtAlmt.Text
        .Fields(“KOTA”) = txtKOTA.Text
        .Fields(“TELP”) = txtTELP.Text
        .Fields(“TEMPATLAHIR”) = txtTMPT.Text
        .Fields(“TGLLAHIR”) = txtTTL.Text
        .Fields(“ASALSEKOLAH”) = txtPT.Text
        .Fields(“JURUSANS1″) = cboJUR.Text
        .Update
    End With
    MsgBox “DATA TELAH TERUPDATE”, vbInformation + vbOKOnly, “UPDATE DATA”
End If
End Sub
 

Untuk HAPUS DATA, sama dengan proses sebelumnya harus memasukkan NRP terlebih dahulu. Setelah data yang dimaksud tampil dan menekan tombol HAPUS DATA akan tampil pesan APAKAH BENAR AKAN MENGHAPUS DATA? Kalau menekan tombol YES, maka data akan dihapus. Jika menekan tombol NO maka kursor akan aktif pada text box NRP dan data tidak terhapus. syntax yang digunakan adalah sebagai berikut :

Private Sub cmdHAPUS_Click()
If txtNRP.Text = “” Then
    Call cek
    txtNRP.SetFocus
    Else
    psn = MsgBox(“APAKAH BENAR INGIN MENGHAPUS DATA INI?”, vbQuestion + vbYesNo, “KONFIRMASI HAPUS”)
    If psn = vbYes Then
        rsMHS.Delete
        Call bersih
    Else
        txtNRP.SetFocus
    End If
End If
End Sub

Tombol DAFTAR MAHASISWA digunakan untuk menampilkan form2 yang berisi data mahasiswa. Tombol KELUAR untuk menutup form dan keluar dari aplikasi.Penjelasan untuk Form 2
Form 2 digunakan untuk menampilkan data-data mahasiswa yang tersimpan dalam tabel MHS. Control yang digunakan adalah Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB).Untuk menghubungkan data dengan form, pada Event Form load, tuliskan syntax seperti berikut :Private Sub Form_Load()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\MHS.mdb;Persist Security Info=False”
Adodc1.RecordSource = “select * from mhs order by nrp”
Adodc1.Refresh
DataGrid1.Refresh
End Sub

Agar antara ADODC dengan DataGrid terhubung, pada properties DataSource isikan dengan nama ADODC1.

Tombol MAINTENANCE DATA digunakan untuk menampilkan Form1 dan menutup Form2.

Tombol KELUAR digunakan untuk keluar dari Aplikasi.

Pada file berikut dapat didownload dan dipelajari lebih jelas.   FILE MAINTENANCE

Selamat belajar.

PEMROGRAMAN WEB

Bahasan ini mungkin agak sulit bagi aku, tapi bukannya tidak mungkin untuk dipelajari. Karena sebelumnya juga pernah belajar sedikit banget, dan gak diterusin lagi. Jadi agak-agak ketinggalan gitu kalo ngomong-ngomong maslah ini. Jadi malu *_*

Dari kuliah Matrikulasi juga, aku dapat tugas untuk membuat web tentang diri masing-masing. Kampanye diri masing-masing, isi biodata masing-masing. Udah sempet bikin sih meskipun masih jelek banget desainnya. Kaku banget. Dan kalo bisa sih sampai 1000 baris tuh syntaxnya. Wah banyak banget. 100 baris aja belum tentu sampe Apalagi nulisnya dari notepad …..waduh. Kan sekarang udah banyak tuh pak macem-macem sofware buat codingnya html, ada EditPlus, ada  Macromedia Dreamweaver. Masih banyak deh yang lain. Tinggal click pada object yang diinginkan diletakkan dimana, simpen, jadi deh webnya. Masih file html biasa blom yang file ASP. Tapi mungkin bapaknya ingin kita semua belajar syntax yang paling dasar dulu, hapal satu-satu syntaxnya, jadi kalo ada error sedikit kita tahu ada dimana salahnya dan bisa benerin dengan cepat.

Yah meski begitu harus tetap dicoba deh.

hasilnya bisa dilihat di http://users3.nofeehost.com/ningtyas78/db/pweb/html/index.html

Yang alamat diatas masih pake syntax html biasa, belum yang syntax asp.

Pemrograman Visual

Hmmm….Pemrograman Visual.

Sebenarnya sudah pernah belajar waktu kuliah, bahkan pernah ikut dalam UKM (Unit Kegiatan Mahasiswa) untuk mempelajari materi VB 5.0 waktu itu. Bareng teman-teman yang sekarang udah pada hebat-hebat. Setelah masuk jadi staff pengajar di STIKOM, aku pernah bertindak sebagai Koordinator untuk Praktikum Pemrograman Visual I dan Praktikum Pemrograman Terstruktur, yang semuanya pake VB 6.0.  Selain itu sebagai koordinator materi untuk Pemrograman Basis Data, yang menggunakan Access 2003. Saat ini juga masih belajar untuk menggunakan VB . NET.

Definisi Pemrograman Visual kalo menurut aku seh, suatu bahasa pemrograman yang menyertakan juga objek visualnya. Sehingga programmer tidak akan kesulitan apabila akan membangun suatu aplikasi. Apalagi bila permintaan dari Client yang bermacam-macam.

Dari kuliah martikulasi Pemrograman Visual Basic, dosen aku, bapak Fajar Baskoro, memberikan 8 contoh program visual basic 6.0. Mulai dari pengenalan pemrograman sampai dengan penggunaan kontrol yang lumayan rumit. Juga disertakan source web yang menerangkan masalah tersebut, yaitu : www.vbtutor.net/vbtutor.html  atau http://ilmukomputer.com/2006/10/14/tutorial-vb-60

Dari 8 contoh program yang diberikan itu, pak Fajar meminta kami semua (mahasiswanya) untuk mengambil satu program yang menurut kami unik dan kemudian dibahas. Aku ambil contoh yang keberapa ya enaknya ???
Aku ambil latihan 8, yang  Online Shopper. Mungkin ada yang akan aku tambahin dikit untuk menyempurnakan.

Berikut ini adalah tampilan awal dan  program dari latihan 8

 

Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Image2.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\Answmach.wmf”)
        Image2.Visible = True
    Else
        Image2.Visible = False
    End If
End Sub
Private Sub Check2_Click()
 If Check2.Value = 1 Then
        Image4.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\calcultr.wmf”)
        Image4.Visible = True
    Else
        Image4.Visible = False
    End If
End Sub
Private Sub Check3_Click()
 If Check3.Value = 1 Then
        Image6.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\copymach.wmf”)
        Image6.Visible = True
    Else
        Image6.Visible = False
    End If
End Sub
Private Sub Combo1_Click()
  Select Case Combo1.ListIndex
    Case 0
        Image5.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\dollar.wmf”)
    Case 1
        Image5.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\check.wmf”)
    Case 2
        Image5.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\pound.wmf”)
    End Select
End Sub
Private Sub Command1_Click()
    End
End Sub
Private Sub Form_Load()
    Image1.Picture = _
              LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\computer.wmf”)
    List1.AddItem “Extra Harddisk”
    List1.AddItem “Printer”
    List1.AddItem “Satelit dish”
   
    Combo1.AddItem “US Dollars”
    Combo1.AddItem “Check”
    Combo1.AddItem “English Pounds”
End Sub
Private Sub List1_Click()
    Select Case List1.ListIndex
    Case 0
        Image3.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\harddisk.wmf”)
    Case 1
        Image3.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\printer.wmf”)
    Case 2
        Image3.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\satedish.wmf”)
    End Select
    Image3.Visible = True
End Sub
Private Sub Option1_Click()
    If Option1.Value = 1 Then
        Image1.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\computer.wmf”)
    End If
End Sub
Private Sub Option2_Click()
    If Option2.Value = 1 Then
        Image1.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\PCcomputr.wmf”)
    End If
End Sub
Private Sub Option3_Click()
    If Option3.Value = 1 Then
        Image1.Picture = _
            LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\laptop1.wmf”)
    End If
End Sub

Pada Form yang bernama Form 1, terdapat beberapa kontrol yaitu :

1. dua buah Label yang bertuliskan Online Shopper dan Product Order
2. dua buah Frame, yang masing-masing frame berisi tiga buah option button dan tiga buah check box.
3. enam buah image box
4. satu buah list box
5. satu buah combo box
6. satu buah command button 
   Akan dibahas satu persatu mengenai masing-masing kontrol dan hubungannya dengan program yang ada.

Program tersebut bertujuan untuk menampilkan gambar kedalam image box apabila kita melakukan pilihan baik dari check box, option box ataupun dari combo box.
Apabila program dijalankan maka akan muncul gambar PC dan isian dari listbox dan combobox.

Dari potongan program dapat dilihat pada bagian Private Sub Form_Load(). Pada bagian ini dituliskan    
Image1.Picture = _
              LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\computer.wmf”)
yang berarti menampilkan gambar computer yang bertipe wmf kedalam image box yang bernama image1. Pada beberapa bagian program yang lain juga terdapat perintah yang hampir sama dengan potongan program diatas.

Masih pada bagian Form_Load, listbox dan combobox diisikan data sehingga pada saat form dijalankan sudah berisi data tersebut. Hal tersebut ditunjukkan pada metode namakontrol.Add Item.

Struktur Logika yang digunakan untuk pemilihan pada program ini adalah If…Then….Else dan Select Case… Case… Kedua struktur tersebut mempunyai fungsi sama yaitu untuk menentukan pilihan.

Jika menggunakan If…Then…Else… harus diakhiri dengan End If.
Syntax penulisan If…Then…Else adalah sebagai berikut :
If kondisi Then
    pilihan 1
Else
    pilihan2
End If

Jika pilihan lebih dari dua maka gunakan syntax berikut :
If kondisi Then
    pilihan 1
ElseIf kondisi Then
    pilihan2
End If
Pada contoh tersebut penggunaan If … Then…Else…masih belum selesai, masih ada pilihan lagi yang belum dicek.

Jika menggunakan Select Case…Case harus diakhiri dengan End Select.
Syntax penulisan Select Case…Case… adalah sebagi berikut :
Select Case variabel
Case syarat1
         pilihan 1
Case syarat2
         pilihan 2
Case syarat n
        pilihan n
End Select.

Select Case dapat digunakan jika apabila menggunakan fungsi If…Then dirasa tidak efisien.

Nah jika dari program tersebut, apabila kita pilih Option Button Machintos (Private Sub Option2_Click() )program akan melakukan pengecekan apakah benar option button tersebut yang dipilih? Apabila benar maka nilai yang diberikan adalah 1. Dari program dilihat apakah benar nilai yang dicek adalah 1, jika benar nilai yang dicek adalah 1 maka program akan mencari gambar yang diinginkan dan akan ditampilkan pada tempat yang ditentukan.

Jika penggunaan Select Case pada program tersebut adalah untuk menampilkan gambar dari combobox yang mengecek index dari text yang dipilih. Index pada VB dimulai dari 0,1,2 ,dst. atau (n-1), n adalah banyaknya data. Jika memilih text “US Dollars”, maka VB akan mengecek ada pd index berapakah text tersebut. Jika berada index ke 0 maka program akan menampilkan gambar uang dolar kedalam imagebox yang telah ditentukan.
Untuk bagian lain dari program ini hampir sama dengan penjelasan diatas. Semoga dari penjelasan singkat ini dapat membantu Anda para pembaca untuk memahami sedikit tentang VB.

10 Ciri Orang yang Berpikir Positif

 Semua orang yang berusaha meningkatkan diri dan ilmu pengetahuannya pasti tahu bahwa hidup akan lebih mudah dijalani bila kita selalu berpikir positif. Tapi, bagaimana melatih diri supaya pikiran positiflah yang ‘beredar’ di kepala kita, tak banyak yang tahu. Oleh karena itu, sebaiknya kita kenali saja dulu ciri-ciri orang yang berpikir positif dan mulai mencoba meniru jalan pikirannya.  

1. Melihat masalah sebagai tantangan
Bandingkan dengan orang yang melihat masalah sebagai cobaan hidup yang terlalu berat dan bikin hidupnya jadi paling sengsara sedunia.  

2. Menikmati hidupnya
Pemikiran positif akan membuat seseorang menerima keadaannya dengan besar hati, meski tak berarti ia tak berusaha untuk mencapai hidup yang lebih baik.  

3. Pikiran terbuka untuk menerima saran dan ide
Karena dengan begitu, boleh jadi ada hal-hal baru yang akan membuat segala sesuatu lebih baik.  

4. Mengenyahkan pikiran negatif segera setelah pikiran itu terlintas di benak ‘Memelihara’ pikiran negatif lama-lama bisa diibaratkan membangunkan singa tidur. Sebetulnya tidak apa-apa, ternyata malah bisa menimbulkan masalah.  

5. Mensyukuri apa yang dimilikinya
Dan bukannya berkeluh-kesah tentang apa-apa yang tidak dipunyainya  

6. Tidak mendengarkan gosip yang tak menentu
Sudah pasti, gosip berkawan baik dengan pikiran negatif. Karena itu, mendengarkan omongan yang tak ada juntrungnya adalah perilaku yang dijauhi si pemikir positif.  

7. Tidak bikin alasan, tapi langsung bikin tindakan
Pernah dengar pelesetan NATO (No Action, Talk Only), kan? Nah, mereka ini jelas bukan penganutnya.  

8. Menggunakan bahasa positif
Maksudnya, kalimat-kalimat yang bernadakan optimisme, seperti “Masalah itu pasti akan terselesaikan,” dan “Dia memang berbakat.”  

9. Menggunakan bahasa tubuh yang positif
Di antaranya adalah senyum, berjalan dengan langkah tegap, dan gerakan tangan yang ekspresif, atau anggukan. Mereka juga berbicara dengan intonasi yang bersahabat, antusias, dan ‘hidup’.  

10. Peduli pada citra diri
Itu sebabnya, mereka berusaha tampil baik. Bukan hanya di luar, tapi juga di dalam.

sumber : http://www.mail-archive.com/pelaut@yahoogroups.com/msg00488.html

Penginnya jadi orang seperti itu. Dari  10 ciri-ciri itu masih ada yang belum dapat aku lakukan. Semoga disuatu saat dimasa mendatang aku bisa menjadi orang yang seperti itu.  Berpikiran positif sehingga mnghasilkan sesuatu yang positif dan bermanfaat bagi semua orang.

3M (Mesin, Marketing, Manajer)

3M (Mesin, Marketing, Manajer)

Apa maksudnya?

Pilih yang mana?

Bagaimana cara tahunya ?

Itulah pilihan yang diajukan oleh dosen  kuliah S2 aku, Fajar Baskoro,S.Kom,MT.

Hmmmmm, susah jawabnya.

Filosofi yang harusnya diketahui oleh orang-orang yang terjun didunia IT. Apakah akan jadi Mesin(seperti komputernya), Marketing(hanya tahu luarnya lalu ngomong sok tahu dalamanya) atau jadi Manajer(yang mengatur/memprogram orang lain seolah kita memprogram komputer). Wow…..berat.

Bapak Fajar cerita kalo hidup didunia IT harus tahu filosofinya, mau jadi apa kita dengan ilmu IT yang kita ketahui selama ini. Karena hidup didunia IT melihat sesuatu harus sesuai dengan alur pembuatan program. Mulai dari project planning (mau bikin apa kita), definisi kebutuhan apa saja yang diperlukan, melakukan desain dari apa yang sudah didapat dari daftar kebutuhan, perancangan desain yang sudah dibuat, pembuatan program sesuai dengan desain yang disusun, testing programnya, kalo testingnya beres dan tidak ada error yang tampil baru bisa di implementasikan. Jika ada salah satu tahapan terlewatkan atau gagal dilaksanakan maka cerita selanjutnya akan berubah dari rencana awal.

Nah kalo kita selalu tegas menjalankan langkah tersebut satu persatu. Hanya mengerjakan program (coding) tanpa menghiraukan “alam lain” diluar coding yang kita ketahui maka kita akan jadi Mesin. Kalo sudah jadi mesin akan cepet sekali jadi tua karena seorang programmer murni pasti penampilan fisiknya tidak akan terlalu diperhatikan. Dia hanya tahu mengerjakan programnya supaya cepat selesai, dan dibayar sesuai perjanjian. Dia tidak akan sempat berpikir bagaimana cara mengembangkan jaringan pergaulannya supaya menjadi lebih luas dan menjadikan hidupnya lebih nyaman. Seorang IT mania yang programmer murni seperti itu akan menjadi orang pendiam atau sering disebut dengan “orang aneh”. Benar-benar mesin yang aneh (kalo mencomot istilah yang dipergunakan acara Extravaganza).

Marketing IT. Orang yang hanya sedikit tahu program, sedikit tahu jaringan, sedikit tahu seluk beluk komputer, sedikit tahu web tapi malah bisa bercerita banyak seolah-olah dia tahu segala-galanya tentang IT. Wah orang ini patut dipertanyakan keilmuannya masalah IT. Mungkin orang itu berasal dari ilmu sosial, atau ilmu sains tapi punya ketertarikan dengan masalah IT. Jadi dia sempatkan membaca-baca majalah-majalah IT, buka-buka site yang membahas tentang perkembangan peralatan IT saat ini dan dia menceritakannya pada tiap orang yang ditemuinya. Orang-orang seperti ini kebanyakan jadi Makelar komputer. Wah apalagi ini ?

Mungkin banyak orang-orang yang berada di dua area itu, Mesin dan Marketing IT. Tapi kalo Manajer bagimana? Wah ini mungkin impian tiap orang. Baik itu orang IT atau bukan. Seorang Manajer pastilah orang yang sudah mempunyai bekal ilmu yang cukup. Dia punya ilmu komputer yang cukup, dia punya ilmu sosial, dia punya ilmu sains. Dia memprogram semuanya seolah-olah dia memprogram komputer. Dia lakukan trial and error untuk semua program-program kerja yang dilakukannya. Tapi pastinya sulit untuk benar-benar menjadi seorang Manajer IT yang baik. Dia harus bisa melakukan compile program itu didalam kepalanya. Dia harus tahu kira-kira kesalahan berada dibagian mana dan bagaimana cara memperbaiki kesalahan itu dengan cepat.  Wah…. Karena itu untuk menjadi Manajer IT yang baik kita harus dibekali ilmu-ilmu yang lain tadi. Karena manajer IT bukan memprogram komputer yang hanya mesin, tapi memprogram orang yang punya pikiran dan hati yang berbeda-beda. Seorang Manajer IT yang berhasil kebanyakan dia tahu pemrograman. Dia tahu cara membuat program yang baik. Dia tahu langkah-langkah apa yang harus dilakukan untuk membuat program yang baik. Alur kerjanya jelas, dan transparan. Semua kesalahan terlihat jelas dimana.

Nah dari semua uraian diatas, yang mungkin agak beda dari cerita aslinya dari yang diceritakan bapak Fajar, apa yang harus dipilih. Apakah saya mau menjadi Mesin, Marketing atau Manajer?

Yang mana yah? Pilihan yang susah. Tapi yang pasti saya memimpikan untuk jadi seorang Manajer yang baik. Saya sudah sempat merasakan bagaimana menjadi Mesin selama kuliah dulu. Hanya berkutat dengan coding program saja tanpa mempelajari ilmu yang lain. Saat ini mungkin saya berlaga di daerah Marketing. Karena yang pasti saya baru sedikit tahu hal-hal yang berhubungan dengan IT , belum benar-benar menjadi ahli, tapi saya harus mengajarkannya ke mahasiswa. Saya sempat menulis buku, saat ini sudah ada di toko-toko buku, tentang Microsoft Word 2007, yang baru saja di launching bulan Juni kemarin. Saya juga join di milis komunitas Access indonesia, dengan membantu teman-teman belajar dan saya juga belajar dari teman-teman yang lain. Jadi susah menjawabnya dengan pasti. Tapi yang pasti saya tidak mau kalo jadi Mesin.

Semoga saja dengan saya kuliah lagi ini dan mendapatkan ilmu-ilmu yang baru, saya dapat berpindah dari area Marketing untuk menjadi Manajer yang baik.

Amiiieeeeen.

INTRO

Intro……….

Apa yah…..

Kenalan aja yah.

Nama saya Ayuningtyas. Cukup singkat. Tidak ada embel-embel nama orang tua atau marga. Saya lahir di Surabaya, 22 April 1978.

Mulai SD sampai SMA tidak keluar dari Sidoarjo. Tempat tinggal saya. SD sekolah di SDN Waru I, SMP di SMPN I Sidoarjo, SMAN I Sidoarjo. Baru waktu kuliah saya keluar dari Sidoarjo, karena memang waktu itu tidak ada universitas atau institut yang “bagus” di Sidoarjo. Saya kuliah di Sekolah Tinggi Manajemen Informatika dan Teknik Komputer  (Stikom) Surabaya. Masuk kuliah tahun 1996, tapi lulusnya 2003 …..lama yah. Alasan klasik sebenarnya. Keenakan kerja. Saat ini saya bekerja sebagai pengajar di tempat saya kuliah, alias Stikom Surabaya.

Yah itu saja sedikit intro dari saya. Semoga dapat lebih kenal silahkan kirim email ke ningtyas78@gmail.com, atau kunjungi blog saya di friendster http://c4nt1k.blogs.friendster.com/kenanganku/

Kalo mo chating ada user YMku ningtyas78 (ningtyas78@yahoo.com), skype tyas(tyas@stikom.edu) atau gtalk pake alamat email aku tadi.

Senang berkenalan dengan Anda semua