Puisi_kuBIDADARI TANPA SAYAP
Puisi Siti Halimah
Kelembutan hatinya membuatku terpana. . .
Melihat kehindahan Rembulan,
Sama seperti melihat keindahan wajahnya.
Sungguh kuat dia menghadapi ini semua. . .
Menghadapi keaadaannya yg begitu nyata.
Merasakan penderitaannya sendirian.
Dan mengukur penderitaan diatas mimpi . . .
Walau dia hanya Bidadari tanpa sayap,
Tapi kelembutan hatinyalah yang membuatku merasa seperti.....
Berada di atas awan.
DIRIMU YANG SATU
Puisi Dwi Melindawati
Andai kau tahu
Apa isi hatiku ini ?
Apa yang ku rasakan saat ini ?
Jika kau bisa merasakan
Ku mohon... balas rasa ini !
Ku mohon ungkapkan rasa yang ada di hati mu !
Andai kau tahu...
Hanya dirimulah yang ada di hati..
Hanya nama mu yang terukir di jiwa ..
Hanya wajah mu yag ada di bayangan ku...
Dirimu yang satu ...
Telah menebar cinta di hatiku
Telah membagi rasa indah di hati
Walau hanya aku yang merasakan
Cinta itu timbul ...
Saat ku lihat dirimu
Dan tiba-tiba saja rasa itu timbul
Di hati ku.......karna hanya dirimu di hati ...
SENYUMMU
Terlintas di benakku akan senyum manismu
Terukir senyummu di khayal ku
Seakan engkau berada di depanku
Senyum mu begitu memukau hati
Aku terhanyut dalam senyum manismu
Senyum mu memberiku rasa yang berbeda
Rasa yang membuat hari-hari ku
Menjadi bermakna
Senyum mu seakan tak terlewatkan
Dalam setiap detik waktu yang ku lalui
Dalam setiap ingatan yang ku bayangkan
Karena engkau adalah senyum terindah ku
SELEMBAR PUISI UNTUK KEKASIH
Puisi Triana
Terpaku dalam kegundahan hati
Terasa tak dapat ku lawan dengan jari-jari
Tiada lagi tempat hari yang terasa ada
Hanya lelah
Lelah yang ku rasa……………
Andaikan waktu itu tak terjadi
Mungkin hatiku takan remuk seperti ini
Langkahku terhenti dalam kelamnya malam
Mataku terhalang jurang yang dalam
Pendengaranku sayup-sayup tak menentu
Hatiku terombang ambing dalam ombak kemarahan
Ragaku tak berkuasa untuk berfungsi
Mungkin tiada lagi yang dapat terjadi saat ini
Semangatku lemah hatiku susah
Teringat malam itu yang menyakitkan
Inikah kehidupan?
Kurasa semua bukan seperti ini
Mungkin masih ada titik terang
Yang akan menyinari kegelapan hati
Memberi pujian untuk diri sendiri
Meredamkan semua yang ada saat ini
Hingga aku dapat kembali ke kehidupan yang indah ini
RASA CINTAKU
Oleh Suci Novitasari
Kau tiba-tiba hadir dan isi hatiku yang kosong...
Hanya kau yang ada dipikiranku sekarang...
Aku tak tau bagaimana caramu mengisi hatiku...
Engkau sungguh membuatku tak mengerti...
Rasanya hatiku jadi tak menentu...
Untukku kau sangat berharga...
Lihatlah diriku ini yang berjuang untuk cintamu...
Aku sangat mencintaimu
Namun kau tak pernah sadari itu
Walau perih hati ini...
Aku disini kan selalu setia menantimu...
Rasakanlah cintaku ini begitu besar untukmu...
Sabtu, 14 September 2013
Minggu, 30 Desember 2012
Penggabungan antara Visual Basic 2010 dengan Ms. Access
Nama : Eka Yunita H S
Kelas : TI 11 C
Nim : 11.11.2498
Assalamu'alakum wr wb
Kali ini saya akan membuat bagaimana hasil dari penggabungan antara Visual Basic dengan Ms. Access.
Untuk mempersingkat kata-kata saya langsung saja saya perlihatkan..
1. Buatlah pada Ms. Access sebuah tabel yang diberi nama (contoh : DbMahasiswa)
2. Isikan tabel tersebut dengan beberapa data.
3. Bukalah Visual Basicnya, dan gabungkan dengan Ms. Acces.
- Setelah tergabungkan dan diDebug Maka akan muncul gambar seperti dibawah ini :
- ini adalah Buttons yang berfungsi dalam form, saya akan tampilkan gambar dari button Lanjutan, Terakhir, Add, dan Add Save :
*Untuk add, semua isian akan hilang menjadi kosong. sebab kita akan memasukan data-data pada Coloum.
*Setelah data dimasukan maka data akan masuk atau terdaftar pada coloum dan klikan save untuk menyimpan data tersebut.
*Data dengan Nama " Siti Fatonah" telah terhapus saat klik delete.
- Untuk gambar Selanjutnya :
- Data Ditemukan jika saya klikan nama Eka Yunita H S (Nama yang telah terdaftar) pada textbox Nama Mahasiswa, kemudian klikan Seacrh.
2. Begitu pula untuk data yang tidak ditemukan :
Untuk hasil seperti diatas, ketikan Listing Program dibawah ini :
Public
Class
Form1
Private
Sub
Form1_Load(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
MyBase.Load
'TODO:
This line of code loads data into the
'DbMahasiswaDataSet.TbMahasiswa' table. You can move, or remove it,
as needed.
Me.TbMahasiswaTableAdapter.Fill(Me.DbMahasiswaDataSet.TbMahasiswa)
End
Sub
Private
Sub
Button1_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button1.Click
TbMahasiswaBindingSource.MoveFirst()
End
Sub
Private
Sub
Button2_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button2.Click
TbMahasiswaBindingSource.MovePrevious()
End
Sub
Private
Sub
Button3_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button3.Click
TbMahasiswaBindingSource.MoveNext()
End
Sub
Private
Sub
Button4_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button4.Click
TbMahasiswaBindingSource.MoveLast()
End
Sub
Private
Sub
Button5_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button5.Click
TbMahasiswaBindingSource.AddNew()
End
Sub
Private
Sub
Button6_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button6.Click
Me.Validate()
Me.TbMahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)
End
Sub
Private
Sub
Button7_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button7.Click
Me.Validate()
Me.TbMahasiswaBindingSource.RemoveCurrent()
Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)
End
Sub
Private
Sub
TextBox1_TextChanged(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Me.TbMahasiswaBindingSource.Filter
= "Nama_Mahasiswa='
"
& Nama_MahasiswaTextBox.Text & "'"
End
Sub
Private
Sub
Button8_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button8.Click
If
TbMahasiswaBindingSource.Find("Nama_Mahasiswa",
Nama_MahasiswaTextBox.Text) >= 0 Then
MsgBox("Data
Ditemukan")
Else
MsgBox("Data
Tidak Ditemukan")
End
If
End
Sub
Private
Sub
Button10_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button10.Click
Me.Close()
End
Sub
End
Class
Berakhir sudah postingan saya kali ini, terimakasih untuk kunjungan anda pada blog saya..
Maaf jika ada kesalahan tataan bahasa. :)
Maaf jika ada kesalahan tataan bahasa. :)
Senin, 24 Desember 2012
Return Value Function, Overloading Function & Beberapa Function Bawaan Visual Basic
RETURN VALUE FUNCTION
Buatlah
Program dengan Tampilan Form seperti Gambar diatas, dan setelah itu
Tuliskan Coding dibawah ini :
Public
Class
Form1
Private
Function
fstat(ByVal
ParamArray
args() As
Object)
As
Single()
Dim
Hasil(3) As
Single
Dim
i As
Integer
For
i = 0 To
UBound(args)
Hasil(0)
= Hasil(0) + args(i)
If
i = 0 Then
Hasil(1) = args(i)
Hasil(2) = args(i)
End
If
If
Hasil(1) >
args(i) Then
Hasil(1) = args(i)
If
Hasil(2) <
args(i) Then
Hasil(2) = args(i)
Next
Return
Hasil
End
Function
Private
Sub
Button1_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button1.Click
Dim
statistik As
Single()
= fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End
Sub
Private
Sub
Form1_Load(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
MyBase.Load
End
Sub
End
Class
Dari
pengkodean diatas kita akan memperoleh hasil gambar yang menunjukan
hasil pengeksekusian dari yang terbesar 1 dan terkecil 10 yang
seharusnya terbesar 10 dan terkecil 1. Untuk mendapatkan hasil yang
tepat dan benar, ketikan sintak dibawah ini dengan tampilan form yang
sama.
Public
Class
Form1
Private
Function
fstat(ByVal
ParamArray
args() As
Object)
As
Single()
Dim
Hasil(3) As
Single
Dim
i As
Integer
For
i = 0 To
UBound(args)
Hasil(0)
= Hasil(0) + args(i)
If
i = 0 Then
Hasil(1) = args(i)
Hasil(2) = args(i)
End
If
If
Hasil(1) <
args(i) Then
Hasil(1) = args(i)
If
Hasil(2) >
args(i) Then
Hasil(2) = args(i)
Next
Return
Hasil
End
Function
Private
Sub
Button1_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button1.Click
Dim
statistik As
Single()
= fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
End
Sub
Private
Sub
Form1_Load(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
MyBase.Load
End
Sub
End
Class
Mengapa Dengan Coding diatas menghasilkan Hasil seperti itu?
Penjelasanya adalah pada Button1 ( Hasil ) diatas dituliskan sebuah program Array yang jumlahnya ada 10 digit angka, dan terdapat Function Looping, yang menghailkan sebuah informasi Total, Terbesar, dan Terkecil dari Array yang ada pada Button1( Hasil ).
Penjelasanya adalah pada Button1 ( Hasil ) diatas dituliskan sebuah program Array yang jumlahnya ada 10 digit angka, dan terdapat Function Looping, yang menghailkan sebuah informasi Total, Terbesar, dan Terkecil dari Array yang ada pada Button1( Hasil ).
OVERLOADING FUNCTION
Public
Class
Form1
Function
hitung(ByVal
bil1 As
Integer,
ByVal
bil2 As
Integer)
As
Integer
hitung
= bil1 + bil2
End
Function
Function
hitung(ByVal
bil1 As
Integer,
ByVal
bil2 As
Integer,
ByVal
bil3 As
Integer)
As
Integer
hitung
= bil1 + bil2 + bil3
End
Function
Private
Sub
Button1_Click(ByVal
sender As
System.Object,
ByVal
e As
System.EventArgs)
Handles
Button1.Click
TextBox1.Text = hitung(1, 2, 3)
End
Sub
End
Class
Langkah
1
Overloading
akan mengecek terlebih dahulu jumlah parameter ketika memanggil
fungsi yang dioverload dalam kasus ini fungsi hitung, terutama saya
akan membahas yang Dua Parameter.
TextBox1.Text
= hitung(1, 2)
Ternyata
banyaknya parameter yang digunakan adalah sebanyak 2 parameter yaitu
1 dan 2, maka program akan mencari fungsi "hitung" yang
mana yang memiliki jumlah parameter 2 ternyata fungsi "hitung"
yang di bawah.
Langkah
2
Setelah
melakukan pengecekan banyaknya parameter maka program akan
mencocokkan tipe data dari parameter yang dilewatkan, apakah sesuai
dengan parameter yang ditentukan atau tidak, jika tidak sesuai maka
program akan berusaha untuk mengkonversinya menjadi tipe data yang
sudah disyaratkan dalam hal ini parameter sudah ditentukan harus
bertipe Integer.
Function
hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
Langkah
3
Setelah
dirasa semua syarat terpenuhi maka program akan menjalankan fungsi
yang paling mendekati dengan fungsi yang dipanggil dalam kasus ini
Function
hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung
= bil1 + bil2
End
Function
Maka
sudah pasti textbox akan menampilkan angka 3. Tetapi jika fungsi
yang dipanggil anda rubah menjadi 3 parameter maka hasilnya akan 6.
FUNCTION
BAWAAN VISUAL BASIC 2010
Di dalam visual basic 2010 sebenarnya banyak sekali function-function
yang sudah terpadu dalam bahasa pemrograman ini, dan contohnya adalah
sebagai berikut :
- Asc()
Mengembalikan
nilai integer dari parameter yang berupa karakter, bisa dibilang
akan menghasilkan kode ASCII dari karakter yang dijadikan parameter
- AscW()
Sama
seperti Asc() hanya saja parameter yang dgunakan adalah bertipe
string
- BeginInvoke()
Mengeksekusi
sebuah thread secara pesifik
- CallByName()
Mengeksekusi
sebuah method dalam sebauah objek, atau mengeset atau mengembalikan
sebuah property dari sebuah objek
- CBool()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe boolean
- CByte()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data byte
- CChar()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data character
- CDate()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data date
- CDbl()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data double
- CDec()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data decimal
- Choose()
Memilih
dan mengembalikan sebuah nilai dari sekumpulan argument
- Chr()
Mengembalikan
sebuah karakter dari kode/parameter yang digunakan.
- ChrW()
sama
seperti Chr ( Mengembalikan sebuah karakter dari kode/parameter yang
digunakan )
- CInt()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data integer
- cLng()
Mengkonversi
sebuah ekspresi / parameternya menjadi tipe data long
- CObj()
Mengkonversi
sebuah ekspresi / parameternya menjadi tipe objek
- Contains()
Mengembalikan
sebuah nilai apakah control yang dimaksud adalah anak/turunan dari
sebuah control
- CreateGraphics()
Membuat
System,Drawing.Graphics pada sebuah control
- CSByte()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data SByte
- CShort()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data short
- CSng()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data Single
- CStr()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data String
- CUInt()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data UInteger
- CULng()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data ULong
- CurDir()
Mnegembalikan
sebuah string yang menggambarkan sebuah path
- CUShort()
Mengkonversi
sebuah ekspresi/parameternya menjadi tipe data UShort
- DoDragDrop()
Memulai
aksi drag and drop
- Environ()
Mengembalikan
string yang menunjukan operasi sitem yang bekerja
- EOF()
Mengembalikan
niai true jika akhir dari file sudah tercapai
- Err()
Memuat
informasi tentang Run Time Error
- ErrorToString()
Mengembalikan
pesan error yang terkoresponden dengan nomer error
- FreeFile()
Mengembalikan
sebuah nilai integer yang menggambarkan nomer urut dari file
berikutnya yang tersedia untukdigunakan untuk fungsi FileOpen
- GetChar()
Mengembalikan
nilai char dari suatu index sebuah string
- GetTopLevel()
Mengembalikan
nilai true jika sebuah control berada pada level tertinggi
- GetType()
Mendapatkan
System.Type dari instance yang aktif
- Hex()
Mengembalikan
sebuah string yang menampilkan nilai heksadesimal dari parameter
yang digunkan
- Hour()
Mengembalika
sebuah angka dari 0 hingga 23 yang menandakan jam dalam 1 hari
- Int()
Mengembalikan
senuah porsi integer dari sebuah angka
- IsArray()
Mengembalikan
sebuah pernyataan apakah parameter merupakan array atau bukan
- IsDate()
Mengembalikan
sebuah pernyataan apakah parameter merupakan date atau bukan
- LBound()
Mengembalikan
indeks dari batas terbawah sebuah array
- LCase()
Mengembalikan
string ataupun character yang sudah diubah ke lowercase
- Len()
Mengembalikan
sebuah angka yang menunjukkan panjangnya sebuah string
- Mid()
Mengembalikan
string yang berada di tengah kata
- Minute()
Mengembalikan
angka dari 1 sampai 59 dalam satu jam
- Month()
Mengembalikan
angka dari 1 sampai 12 dalam satu tahun
- MsgBox()
Mengembalikan
sebuah objek berupa message box
- Oct()
Mengembalikan
sebuah string yang menampilkan nilai octal dari parameter yang
digunkan
- QBColor()
Mengembalikan
kode warna RGB dari angka pada parameter yang digunakan
- Rnd()
Mengembalikan
sebuah angka bertipe single yang telah diacak
Dari
contoh diatas dapat dikelompokan menjadi berikut ini :
~
Fungsi String
Left →
mengambil karakter dari sebelah kiri
Right →
mengambil karakter dari sebelah kanan
Mid
→ mengambil karakter dari tengah
LTrim
→ membuang semua semua awal spasi yang ada disebelah kiri
RTrim
→ membuang semua semua awal spasi yang ada disebelah kanan
Trim
→ membuang semua spasi yang ada disebelah kiri dan kanan
Len →
memberikan nilai balik integer sebagai panjang string
LCase →
mengubah string menjadi huruf kecil semua
UCase →
mengubah string menjadi huruf besar semua
Str
(int) → mengubah bilangan menjadi string (konversi)
Chr
(Asscii) → konversi dari nilai ascii menghasilkan karakter
~
Fungsi Matematika
Val
(Str) → konversi string menjadi integer
Asc(Char)
→ konversi karakter menghasilkan nilai ascii
Abs(Number)
→ memberikan nilai mutlak dari suatu nilai negatif
Round(Number,Decimal)
→ membulatkan suatu angka sampai beberapa digit decimal
Sqr(Number)
→ memberikan hasil akar kuadrat dari suatu nilai
Tan()
→ mengembalikan nilai tangen dari argument dalam radian
Cos()
→ mengembalikan nilai cosinus dari argument dalam radian
Atn()
→ mengembalikan nilai arc tangen dari argument dalam
bentuk radian
Long() →
mengembalikan nilai logaritma dari argument
CInt() →
pembulatan nilai decimal 0.5 dan lebih ke integer yang
terdekat
Fix() →
pemotongan suatu nilai decimal menjadi integer
Int() →
pembulatan ke bawah suatu nilai decimal
~
Fungsi Tanggal dan Waktu
Date() → mengambil tanggal system komputer
IsDate\
→ memberikan nilai balik Boolean , true jika parameter
adalah sebuah tanggal
DateValue\ → konversi string menjadi date
D(Date),M(Date),Y(Date)
→ memberikan nilai integer dari Variabel Date untuk hari,
bulan dan tahun
Time()
→ mengambil waktu dari system komputer
H(Date),M(Date),S(Date)
→ memberikan nilai integher dari variable date untuk jm,
menit dan deik
TimeValue(str)
→ konversi string ke variable date
Langganan:
Postingan (Atom)