27 Januari 2010

AKU MAU MEMPERBAIKINYA

Kututurkan lewat suara hatiku
selalu menjabar-jabar dipikiranku
ingin rasanya melupakan semua itu
bagiku kenangan yang pahit itu
tersentak dalam pendirianku
selalu mengambang-ngambang di jiwaku
ingin aku perbaiki semuanya itu
tapi ada orang menghubunguku untuk tdak mengganggumu
ini kan masalah kita berdua
hanya kita berdua yang tahu
kenapa orang itu mau ikut campur
masalah kita berdua
cukup sampai disini saja
aku merangkak sosok bayanganmu
meliputi kesadaran ku selama ini
aku ucapkan sekian dan terima kasih

16 Januari 2010

KOMSEP PENGAMBILAN KEPUTUSAN BERBASIS SISTEM INFORMASI RUANG LINKUP PERENCANAAN STRATEGI

1. Proses Evaluasi Lingkungan Luar Organisai.
Lingkungan luar selalu berubah secarah konstan dan perubahan-perubahan ini mungkin dapat mengakibatkan perubahan terhadap strategi -strategi. pengaruh lingkungan luar dapat berubah kesempatan-kesempatan pasar, social, persaingan, inflasi, dsbnya. Lingkungan dapat mempengaruhi jalannya organisai.
2. Penetapan Tujuan.
Tujuan adalah apa yang ingin dicapai oleh organisasi, tujuan ditetapkan oleh manajemen tingkat atas di dalan proses perencanaan stategi yang bersifat jangka panjang (long-range).
3. Penentuan Strategi.
Menentukan tindakan-tindakan yang harus dilakukan oleh organisasi dengan maksud untuk mencapai tujuan-tujuannya, dengan mengkerahkan semua kemampuan sumber daya, agar tujuan organisasi dapat diraih. Sumbar daya tersebut bisa berupa:
- Sumber daya orgainisasi, dapat berupa sumber daya yang terlihat berupa
material, modal, personil serta sumber daya kesempatan-kesempatan linkungan
luar organisasi
Contoh:
* Strategi memasuki pasar baru.
* Mengembangkan pruduk baru.
* Perubahan metode distribusi
* Penggunaan computer untuk pelayanan langganan dan sebagainya.

PENGERTIAN SISTEM

- Sitem adalah Seperangkat elemen yang di gabungkan satu dengan lainnya untuk suatau tujuan bersama.
- Sistem adalah Sekolompok elemen-elemen yang terintegrasi dengan maksud yang sama untuk mencapai tujuan.

15 Januari 2010

MANFAAT SIM

1. Berguna dalam mendukung bukan hanya Operasi tetapi juga mendukung proses-proses Manajemen.
2. Sebuah Sistem Informasi untuk mendukung manajemen dan pengambilan keputusan telah da sebelum dipakainya Komputer yang memperluas kemampuan keorganisasian untuk menerapkan Sistem.
3. Komsep SIM dipandang sebagai suatu perluan secara mendasr perlakuan manajerial dengan mengikut sertakan gagasan dan teknik-teknik Ilmu Manajemen dan Teori keperilakuan tentang Manajemen dan Pengambilan Keputusan.

Pengetian SIM

1. SIM Adalah suatu sumber daya organisasional yaitu : Penyedia Informasi atau Pemecahan masalah bagi kelompok manajer secara umum.
2. SIM Bertujuan menyediakan Informasi untuk pengambilan keputusan pada perencanaan, pemrokarsaan, pengorganisasia, pengendalian kegiatan operasi subsistem suatu perusahaan dan menyajikan sinergi organisasi pada proses.
3. SIM Adalah Sebuah Sistem Manusia/ Mesin yang terpadau (Integred), untuk menyajikan Informsai guna mendukung fungsi Opersi, Manajemen, dan Pengambilan keputusan dalam sebuah Organisai, Sistem ini menggunakan Perangkat Keras (Hardware), Perangkat Lunak (Software), Prosedur pedoman, modal manajemen, keputusan dan sebuah Data Base

14 November 2009

Terbilang Indonesia

Contoh coding ini digunakan untuk menampilkan tulisan terbilang

dengan bahasa Indonesia dari besar uang yang dimasukkan ke





Dalam textbox. Besar uang yang dimasukkan bukan bilangan

pecahan, tapi bilangan bulat.



"Membuat parameter "MataUang" yang bersifat opsional, di mana

default-nya = "rupiah". Jika parameter ini dikosongkan dengan ""

maka kata "rupiah" tidak muncul. Jika parameter ini tidak ada

(hanya memiliki 1 parameter), kata "rupiah" ditampilkan.

Persiapan:

1. Buat 1 Project baru dengan 1 Form dan 2 TextBox.

2. Text1 untuk input dengan angka, Text2 menampilkan terbilang.

3. Ketik coding berikut ke dalam editor form yang bertalian.



Tampilan Form1:







Ketik coding berikut ini pada Form.

'Pembuat : Ujexs Base 2009

'Tanngal : 26 Oktober 2009

'tempat : Labor STMIK NH JAMBI





Public Function TerbilangBulat(strAngka As String, _

Optional MataUang As String = "rupiah") As String

Dim strJmlHuruf$, intPecahan As Integer

Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$

Dim X As Integer, Y As Integer, z As Integer

On Error GoTo Pesan

Dim strValid As String, huruf As String * 1

Dim i As Integer

'Periksa setiap karakter yg diketikkan ke kotak

'UserID

strValid = "1234567890"

For i% = 1 To Len(strAngka)

huruf = Chr(Asc(Mid(strAngka, i%, 1)))

If InStr(strValid, huruf) = 0 Then

Set AngkaTerbilang = Nothing

MsgBox "Harus karakter angka!", _

vbCritical, "Karakter Tidak Valid"

Exit Function

End If

Next i%

If strAngka = "" Then Exit Function

If Len(Trim(strAngka)) > 15 Then GoTo Pesan

strJmlHuruf = LTrim(strAngka)

'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))

If (intPecahan = 0) Then

strPecahan = ""

Else

'strPecahan = LTrim(Str(intPecahan)) + "/100 "

strPecahan = ""

End If

X = 0

Y = 0

Urai = ""

While (X < Len(strJmlHuruf))

X = X + 1





strTot = Mid(strJmlHuruf, X, 1)

Y = Y + Val(strTot)

z = Len(strJmlHuruf) - X + 1

Select Case Val(strTot)

Case 1

If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then

Bil1 = "satu "

ElseIf (z = 4) Then

If (X = 1) Then

Bil1 = "se"

Else

Bil1 = "satu "

End If

ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then X = X + 1

strTot = Mid(strJmlHuruf, X, 1)

z = Len(strJmlHuruf) - X + 1

Bil2 = ""

Select Case Val(strTot)

Case 0: Bil1 = "sepuluh "

Case 1: Bil1 = "sebelas "

Case 2: Bil1 = "dua belas "

Case 3: Bil1 = "tiga belas "

Case 4: Bil1 = "empat belas "

Case 5: Bil1 = "lima belas "

Case 6: Bil1 = "enam belas "

Case 7: Bil1 = "tujuh belas "

Case 8: Bil1 = "delapan belas "

Case 9: Bil1 = "sembilan belas "

End Select

Else

Bil1 = "se"

End If

Case 2: Bil1 = "dua "

Case 3: Bil1 = "tiga "

Case 4: Bil1 = "empat "

Case 5: Bil1 = "lima "

Case 6: Bil1 = "enam "

Case 7: Bil1 = "tujuh "

Case 8: Bil1 = "delapan "

Case 9: Bil1 = "sembilan "

Case Else

Bil1 = ""

End Select

If (Val(strTot) > 0) Then

If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then

Bil2 = "puluh "

ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then

Bil2 = "ratus "

Else

Bil2 = ""

End If

Else

Bil2 = ""

End If





If (Y > 0) Then

Select Case z

Case 4: Bil2 = Bil2 + "ribu "

Y = 0

Case 7: Bil2 = Bil2 + "juta "

Y = 0

Case 10: Bil2 = Bil2 + "milyar "

Y = 0

Case 13: Bil2 = Bil2 + "trilyun "

Y = 0

End Select

End If

Urai = Urai + Bil1 + Bil2

Wend

Urai = Urai + strPecahan

TerbilangBulat = (Urai & MataUang)

Exit Function

Pesan:

TerbilangBulat = "(maksimal 15 digit)"

End Function

'manampilkan fungsi terbilang di text2

Private Sub Text1_Change()

Text2.Text = TerbilangBulat(Text1.Text)

End Sub

Silahkan Download Disini :

== Fungsi Terbilang==
Label: contoh program vb, Ujexs Base Program 1 komentar
Membuat Hurup Capital Pada Awal Kata
20:50 | by Forum Vb
Membuat Hurup Capital Pada Awal Kata



Coding berikut ini digunakan untuk menampilkan huruf pertama dari

setiap kata dalam suatu kalimat menjadi huruf besar/kapital.



Persiapan:

1.Buat 1 Project baru dengan 1 Form dan 1 TextBox.

2.Ketik coding berikut ke dalam editor form yang bertalian.



Tampilan Form1







Ketik coding berikut ini pada Form.



'Pembuat : Ujexs Base 2009

'Tanngal : 26 Oktober 2009

'tempat : Labor STMIK NH JAMBI





Public Function AwalKataKapital(strKalimat As String)

Dim i As Integer

Dim Temp As String

Dim Lokasi As Integer

Dim huruf As String * 1

Temp$ = ""

For i% = 1 To Len(strKalimat)

huruf = Chr(Asc(Mid(strKalimat, i%, 1)))

If Len(Trim(huruf)) < 1 Then

Lokasi% = i% + 1

End If

If i% = Lokasi% Or i% = 1 Then

Temp$ = Temp$ + UCase(Chr(Asc(Mid(strKalimat, _

i%, 1))))

Else

Temp$ = Temp$ + LCase(Chr(Asc(Mid(strKalimat, _

i%, 1))))

End If

Next i

AwalKataKapital = Temp$

End Function

Private Sub Text1_Change()

Dim posisi As Integer

posisi = Text1.SelStart

Text1.Text = AwalKataKapital(Text1.Text)

Text1.SelStart = posisi

End Sub


Download disini :
== Hurup Kapital==
Good Luck !
Label: contoh program vb, Ujexs Base Program 0 komentar
“ Lelaki Biasa”
05:42 | by Forum Vb
Lagu Karya Musisi Ujexs Base ini,Sangat Impresif,lagu yang berjudul tentang lelaki biasa ini berkisah dan hampir semua ada pada diri seorang lelaki ,sebenarnya lagu ini ditujukan untuk kaum hawa biar didengar dan dibaca …

Lelaki biasa adalah lelaki yang memiliki kepribadian yang sangat luar biasa ..

========================



Selamat Menikmati ... !!





==========================================================



Title : " Lelaki Biasa "

Genre : " Pop "

Year : " 2009 "

Liric : " Ujexs Base 2010 "



*

Sebelum kau mengenal aku lebih jauh

ku harap kepadamu untuk menilaiku lebih dulu ..

kutak ingin jika nanti kau menyesal

bila kau tak kenal lebih dulu kepribadianku ..



**

kukatakan padamu aku adanya seperti ini ...

tak ada yang bisa kubanggakan untukmu

sejujurnya diriku tak layak memilikimu ...

agar dapat kau lihat dulu baru mememikirkan pilihanmu





Reff

=====



Aku ini lelaki biasa yang tak pernah menyerah untuk selalu berusaha

menjadi seorang lelaki yang kau banggakan ..



Aku ini lelaki biasa yang belum mengerti akan cintaku

yang masih selalu belajar dalam dunia cinta karna ku lelaki biasa ...



Back to *,Reff






Download lagunya :

http://www.ziddu.com/download/6292273/LelakiBiasa.mp3.html
Label: Lagu Anak Kost 0 komentar
Program Membuat Winamp sederhana
03:39 | by Forum Vb
Program Membuat Winamp sederhana

Menggunakan Visual Basic . 06



* Rancangan tampilan FORM1

Komponen

Nama

Nilai
Form
Name
frmLagu
Caption
Player Music By Ujexs
Frame
Name
Frame1
Backcolor
Blue (biru)
Caption
(Kosongkan)
Label
Name
Label1
Caption
(kosongkan)

ToolTipsText
Judul lagu
Label
Name
Label2
Caption
Music Is My Live
Label
Name
Label3
Caption
Create Ujexs Base 2008
MMC Control
Name
MMC
Picture Box
Name
Picture 1
Back Color
Biru ( Blue)
Command
Name
Command 1
Caption
Add
Command
Name
Command 2
Caption
Play
Command
Name
Command 3
Caption
Exit
Timer
Name
Timer1
Interval
500
Timer
Name
Timer2

Interval
300
Commond Dialog

Name
bukafile

File Name
bukafile








* Listing Kode Program

'Ini program music sederhana yang hanya bisa memutrarkan 1 lagu aja

'Pembuat : Ujexs Base 2008

'Tanggal : 20 Nov 2008

'Tempat : Kost Jl.Cemara II ,Sipin, Jambi

'Jam : 23.00 WIB

'E-mail : ujexsbase@gmail.com

'Website : http://ujexs09.blogspot.com/



'Menyatakan Variabel

Dim ket As String

Dim X As Integer





Private Sub Command1_Click()

On Error Resume Next

bukafile.Filter = _

"MP3 |*.mp3|ASF|*.asf|ASX|*.asx|WAV|*.wav|AVI|*.avi|"

bukafile.ShowOpen

MMC.FileName = bukafile.FileName

MMC.Command = "close'"

MMC.Command = "open"

Label1.Caption = "TRACK : " & bukafile.FileTitle

End Sub



Private Sub Command2_Click()

MMC.Command = "seek"

MMC.Command = "play"

End Sub



Private Sub Command3_Click()

Unload Me

End Sub



Private Sub Form_Load()

X = 1

ket = ""

End Sub



Private Sub Label3_Click()

Shell "EXPLORER.EXE " & " http://ujexs09.blogspot.com/"

End Sub





Private Sub Timer1_Timer()

ket = ket & Mid(Label2.Caption, X, 1) 'ket = ket & Mid(Label2.Caption, X, 1)

Frame1.Caption = ket

If X = Len(Label2.Caption) Then

ket = ""

X = 1

Else

X = X + 1

End If

End Sub



Private Sub Timer2_Timer()

Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

If Label1.Left > frmLagu.Width Then

Label1.Left = -Label1.Width

Else

Label1.Left = Label1.Left + 200

End If

End Sub

By MAHASISWA TI STMIK NH JAMBI

Ujexs Base 2009

ujexsbase@gmail.com
Label: contoh program vb, Ujexs Base Program 0 komentar
Program Membuat Tulisan Berjalan
03:29 | by Forum Vb
Program Membuat Tulisan Berjalan

Menggunakan Visual Basic . 06



* Rancangan tampilan FORM1

Komponen

Nama

Nilai
Form
Name
Form1
Caption
___Program Tulisan Berjalan ^^^^
Frame
Name
Frame1
Caption
-
Label
Name
Label1
Caption
SELAMAT DATANG DI STMIK NURDIN HAMZAH JAMBI
Label
Name
Label2
Caption
Ujexs base 2009
Option
Name
Option1
Caption
Kanan-kiri
Option
Name
Option2
Caption
Kiri-kanan
Option
Name
Option3
Caption
Atas-bawah
Option
Name
Option4
Caption
Bawah-atas
Picture
Name
Picture1
Caption
-
Timer
Name
Timer1
Interval
100
Timer
Name
Timer2
Interval
2000



















* Listing Kode Program

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

'Program Tulisan Berjalan ini dibuat untuk bagaimana membuat suatu tulisan bisa berjalan sendiri

'di mana pembuatanya memaksimalkan fungsi Timer yang terdapat dalam Visual basic...

'silahkan aja jika mau diperbarui tanpa harus merusak karya asli pembuat ,, ntar bisa dituntut Looo

========================================================

Private Sub Label2_Click()

'untuk membuat link online langsung ke internet

Shell "EXPLORER.EXE " & "http://ujexs09.blogspot.com/"

End Sub



Private Sub Timer1_Timer()

'tulisan jalan ke kiri

If Option1.Value = True Then

If Label1.Left < -Label1.Width Then

Label1.Left = Picture1.Width

Else

Label1.Left = Label1.Left - 50

End If

'tulisan jalan ke kanan

ElseIf Option2.Value = True Then

If Label1.Left > Picture1.Width Then

Label1.Left = -Label1.Width

Else

Label1.Left = Label1.Left + 50

End If



'tulisan jalan ke atas

ElseIf Option3.Value = True Then

If Label1.Top < -Label1.Height Then

Label1.Top = Picture1.Height

Else

Label1.Top = Label1.Top - 50

End If

'tulisan jalan kebawah

ElseIf Option4.Value = True Then

If Label1.Top >= Picture1.Height Then

Label1.Top = 0

Else

Label1.Top = Label1.Top + 50

End If

End If

End Sub



Private Sub Timer2_Timer()

'membuat tulisan berkedip-kedip

Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

End Sub

By MAHASISWA TI STMIK NH JAMBI

Ujexs Base 2009

ujexsbase@gmail.com

Good Luck …… !!!

Label: contoh program vb, Ujexs Base Program 0 komentar
Posting Lama
Langgan: Entri (Atom)
Cari Blog Ini


didukung oleh

Anggota Forum
My Artikel

* contoh program vb (8)
* Kata Pujangga (1)
* Lagu Anak Kost (1)
* Tips Anak Kost (1)
* Ujexs Base Program (4)
* VB Portable (1)

Blog Friens

*
KITA TENTANG SEMUA dot COM
Saya… - saya lelah. Ingin sekali rasanya kabur sejenak dari semua rutinitas ini, dari semua perasaan ini. Seminggu belakangan ini, seakan-akan bayangan dari masa l...
6 hari yang lalu
*
me 'n my life
transisi.... - lagi pengen nulis lagi ni.. pengen mengeluarkan uneg2 yang ada di dalam hati.. lagi banyak perubahan yang terjadi dalam hidupku.. istilahnya, aq sedang mel...
5 minggu yang lalu
*
Triplefortune's Luck Charm
Bakso Jamur Khas Temanggung - Cah jamur? Sudah biasa… Keripik jamur? Sudah jamak juga… Nah, bakso jamur baru luar biasa! Mari kita mencoba mencicipi makanan satu ini! Bakso jamur merupa...
1 bulan yang lalu
*
Ujexs Blog
Contoh Surat Lamaran Pekerjaan - Contoh Surat Lamaran Pekerjaan Jambi, 16 Juli 2009 Hal : Lamaran Pekerjaan Kepada Yth., *Manajer DEALER HONDA PT. Sinar Sentosa* Jl. Kol Abunjani , no 11 ...
3 bulan yang lalu
*
small world
HALUSINASI AUDITORI (PENDENGARAN), SALAH SATU GEJALA SKIZOFRENIA - *Yola Septiani Syarif | 13306002 | Tugas Akustik TF3204* *Bidang kelilmuan : Akustik di bidang sains kehidupan, khususnya pendengaran di dunia psikologi d...
6 bulan yang lalu
*
duapuluhtujuhoktober
Ilkom UPI sebelas tahun yang akan datang - baca artikel..
6 bulan yang lalu
*
IKA PSIKOLOGI UNISSULA
Semarang Career Fair 2008 - Semarang Career Fair 2008 Kunjungi Semarang Career Fair 2008, pameran bursa kerja terbesar di Semarang yang diikuti oleh berbagai perusahaan terkemuka deng...
1 tahun yang lalu

Perlihatkan 5 Perlihatkan Semua
Mengenai Saya
Foto Saya

Forum Vb
Bungo, Jambi, Indonesia
hanyalah anak kost yang mandiri ..

Lihat profil lengkapku
" Kirimkan Komentar "
Imformasi
Apple Google Microsoft
Windows 7 Nyontek Mac OS?
Detikcom
- 13 Nov 2009
- 13 Nov 2009
Salah satunya dikatakan, pengembangan Windows 7 terinspirasi dari Mac OS besutan Apple. Ironisnya, ihwal kehadiran sentimen minor ini ditiupkan oleh ...
Artikel Terkait »
dicuplik dari Google - 11/2009
Nokia dan Samsung Siapkan 'Penggebuk' Apple
Detikcom
- 11 Nov 2009
- 11 Nov 2009
Helsinki - Apple sukses menggusur Nokia sebagai produsen ponsel paling untung berkat kelarisan iPhone. Keberhasilan ini tak hanya bikin panas Nokia, ...
Artikel Terkait »
dicuplik dari Google - 11/2009
Apple Lakukan Perubahan di Mac OS X
Tribun Timur
- 10 Nov 2009
- 10 Nov 2009
Bagi Anda pengguna Mac, Senin, pekan ini, Apple merilis versi terbaru dari sistem operasi Mac OS X. Seperti dugaan Anda, sistem operasi (OS) ini berisi ...
Artikel Terkait »
dicuplik dari Google - 11/2009
3G Masih Mampu Bertahan dari Serangan LTE
Tribun Timur
- 12 Nov 2009
- 12 Nov 2009
AP PHOTO/JAVQUES BRINON DIJUAL SERENTAK - Seorang pria melihat ke sebuah toko yang menjual Apple iPhone 3G S di Paris, Perancis. Apple iPhone 3 GS dijual ...
dicuplik dari Google - 11/2009
didukung oleh

Fish
Designed by Wordpress Web Hosting | Converted by Falcon Hiv

05 Agustus 2009

ASHABUL KAHFI

Pada suatu hari ada seorang Raja yang sangat kejam yang bernama Dikyanus & 7 orang Pemudah yang sholeh bernama Rasyid, Yusuf, Zulaikha, Zulkhfa, Qarnain, Kasim, Qiswan & Anjingnya benama Raqim.
Rajanya memanggil 7 Pemudah ini mo memberikan sesuatu adakah makanan yang bergizi, memberikan uang yang paling banyak, & memberikan istri cantik. Tapi ada syaratnya kamu harus meninggalkan Agama mu yang di anut sekarng yang dikatakan 7 Pemuda ini adalah ma'afkan Hamba wahai Paduka Raja kami semua menolak nya.
Pada malam hari 7 Pemudah ini berpikir di rumahnya bagaiman Rajanya mengepung rumah 7 Pemudah ini sedangkan beliau masi di dalam rumah.
pergilah 7 pemudah ini ke gua untuk bersembunyi, ternyata Rajanya tahu bahwa 7 Pemudah ini bersembunyi kedalm gua, Rajanya menyuruh prajuritnya untuk masuk kedalm gua tempat persembuyian 7 Pemudah ini ternyata prajurit Raja tersebut takut untuk masuk ke dalam gua itu lalu muncullah pikiran Raja untuk menutup terowongan ini.
Tertidurlah 7 Pemudah ini di dalam gua selama 350 tahun abad silam.