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
27 Januari 2010
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.
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.
- 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.
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
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
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.
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.
Langganan:
Postingan (Atom)