ANNIVERSARY 3st YEAR DENA YUDIAPASA MULYONO :* :*

Alhamdullilah God .. happy anniv sayang .. 

You always awesome in my life forever and ever .You give me natural love and you make so better before .you can change my world . thank my beloved :*

Banyak kebahagian , banyak kesedian yang aku rasakan bersamamu  tapi itulah proses dari hubungan kita hingga saat ini . Aku tertatih mempertahankan menjaga hubungan ini . banyak banget yang aku rasakan pait manisnya sama kamu . dari pernah disakitin , dibikin mewek gilak , dibahagian juga , di manja pula . Aku ingin setelah melewati ketigatahun kita kita bisa lebih menghargai hubungan !!! 

Lebih bisa saling percaya dan jangaaan nakal sayang yaa . dari awal kita memulai hubungan , kita belajar mengetahui arti dari jarak , sempatkan kita hidup LDR yang krg lebih dua tahun kelam ? rasanyaaa itu nano nano :) tapi aku sungguh bersyukur dg hari ini kita masih bisa menyatukan hati bahkan kita udah gak LDR . Berbagai macam pertengkaran yang aku rasakan , berbagai masalah sepela hingga masalah besarpun dirasakan . Jerat bimbang menerkam hati masing masing .Tapi apalah semua itu bisa teratasi dg adanya rasa kasih sayang .. jaga kepercayaanku yang masih untukmu yaa . . 

Kita yang pernah bersusah payah mencari celah waktu , bertengkar karena rindu yang tak tersampaikan . Tapi disinilah kita bisa belajar arti kesabaran  dan arti menunggu  .Aku yakin kalau kebersamaan akan berpihak dg orang orang yang sabar seperti kita dan apalagi dg bisa mendoakan satu sama lain :)

Aku semakin sadar karna setiap masalah apapun mesti ada obatnya kok .

Yang paling seneng dari kita ,kalo kita lagi bisa bercandaan gelitikan bareng bareng lagi manja manjanya .Pokoknya kalo lagi sama sama seneng itu asesole banget deh :) 

Makasih sayang atas kesetianmu juga sampai saat ini walaupun aku benci kode kode belakamuu dg mereka mereka . semua yang aku lakukan karna tak ingin kita jauh , ga pengen kita jadi berantem hebat . Mungkin kalinya kamu belum bisa memahami aku jauh lebih dg apa yang aku lakukan . Maaf sayang kalo banyak yang kurang pas , tapi semua aku lakukan kewajaran sebagai pacarmu kok :*

Semoga dg kekurangan dan kelebihan aku bisa memberi warna dalam hidupmu .. 

Love you sayang , Miss you Dena Yudiapasa ..

Testing

Tugas Pemrograman Visual ke - 9

 Koneksi Database SQL server 2005 dan VB.net

Cara Membuat Database SQL  Server 2005 :

1. Nim
2..Nama
3. Alamat
4. TglLahir
5. Jurusan
6. SppTetap



Script Program pada VB.Net :

Hasil Program :

Koding :

1. Tombol <
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TbmahasiswaBindingSource.MovePrevious()
    End Sub 

Tugas Pemrograman Visual ke - 8

Function dengan Return Value Berupa Array 

script program :

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 i
Return hasil
End Function
pada button1 click ketik program berikut
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)

Berdasarkan script program diatas sudah benar dan saat di run nanti akan muncul nilai terbesar "10" dan nilai terkecil "1" . Disitu ada perubahan sedikit program dari latihan yang diberikan pada :

If hasil(1) > args(i) Then hasil(1) = args(i)

If hasil(2) < args(i) Then hasil(2) = args(i)

di ganti 

If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(2) > args(i) Then hasil(2) = args(i)

Macam -macam Function Bawaan 

1. Fungsi-fungsi Numerik 

Dengan menggunakan fungsi-fungsi bawaan yang disediakan, waktu pembuatan sebuah program dapat disingkat. Fungsi-fungsi numerik merupakan fungsi-fungsi yang berkaitan dengan tipe data numerik. Fungsi-fungsi ini dapat dikelompokkan sebagai berikut : 

a. Fungsi-fungsi konversi ke integer. Ada tiga macam fungsi yang melakukan konversi ke tipe data integer yaitu seperti terlihat pada tabel .

CInt () ===> Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat

Fix () ===> Pemotongan suatu nilai desimal menjadi integer

Int () ===> Pembuatan ke bawah suatu nilai desimal

Untuk bilangan positif, fungsi Fix() dan Int() memberikan perlakuan yang sama. Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama
ans1 = Int (14.5) mengembalikan 14 
ans2 = Fix (14.5) mengembalikan 14 

Namun fungsi Fix() dan Int() memberikan perlakuan berbeda pada bilangan negatif. Kedua pernyataan berikut memberikan pengembalian yang berbeda. 
ans1 = Int (-14.5) mengembalikan -15 
ans2 = Fix (-14.5) mengembalikan 14 
Sedangkan fungsi CInt() mengembalikan pembulatan angka yang terdekat. Berikut ni contoh penggunaan CInt() : 

ans1 = CInt (14.1) mengembalikan 14

ans2 = CInt (14.5) mengembalikan 14

ans3 = CInt (14.6) mengembalikan 14

ans2 = CInt (-14.5) mengembalikan -14

b. Fungsi ’f1’endash Fungsi konversi tipe data.

CCur () mengkonversi argumen menjadi tipe data currency 
CDbl () mengkonversi argumen menjadi tipe data double (presisi ganda) 
CLng () mengkonversi argumen menjadi tipe data long integer 
CSng () mengkonversi argumen menjadi tipe data single 
CStr () mengkonversi argumen menjadi tipe data string 
Ivar () mengkonversi argumen menjadi tipe data variant 
Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7) 
lblNilai = (1 / 7) ditampilkan .1428571 
lblNilai = CDbl (1 / 7) ditampilkan .142857142857143 

a. Fungsi-fungsi matematika Fungsi-fungsi yang bekaitan dengan matematika seperti terlihat pada 
Abs () mengembalikan nilai absolut dari argumen 
Atn () mengembalikan nilai arc tangen dari argumen dalam bentuk radian 
Cos () mengembalikan nilai cosinus dari argumen radian 
Exp () mengembalikan nilai exponensial dari argumen 
Log () mengembalikan nilai logaritma dari argumen 
Sin () mengembalikan nilai sinus dari argumen dalam radian 
Sqr () mengembalikan nilai akar dari argumen 
Tan () mengembalikan nilai tangen dari argumen dalam radian 

2. Fungsi-fungsi String

Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti berikut 
LCase$ () mengembalikan argumen string sebagai tipe data string huruf 
Ucase () mengembalikan argumen string sebagai tipe data variant huruf besar 
Ucase$ () mengembalikan argumen string sebagai tipe data string huruf besar 
Val () mengembalikan nilai number dari argumen string 
Len () mengembalikan nilai sumber yang menunjukan panjang string 
Substring merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat digunakan 3 fungsi berikut :
a. Left$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter .
b. Right$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .
c. Mid$(StringVal, startVal, length)
Fungsi ini mengembalikan nilai string dari startVal sebanyak length karakter .
Contoh : 
HurufKecil = LCase (“Rickie”) ’HurufKecil = “rickie” 
HurufBesar = Ucase (“Faizin”) ’HurufBesar = “FAIZIN” 
Title = “Apa Kabar”
lTitle = Left$ (Title, 4) ’lTitle = “Halo” 
RTitle = Right$ (Title, 5) ’RTitle = “Dunia” 
MTitle = Left$ (Title, 2, 6) ’MTitle = “alo Du” 
Panjang = Len (“Biru dan hijau”) ’length = 14 


3. Fungsi-fungsi Tanggal dan Waktu

Jika dalam suatu aplikasi diperlukan pengambilan tanggal atau waktu dari sistem, Visual Basic menyediakan fungsi ’endash fungsi Now(), Date(), dan Time(). 
Fungsi-fungsi Tanggal dan Waktu 
Now () mengembalikan tanggal dan waktu sistem 
Date () mengembalikan tanggal dari sistem 
Time () mengembalikan waktu dari sistem 
Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu format() yang berkaitan dengan fungsi-fungsi Tanggal dan waktu 
Format (Expresi [, format[, firstdayofweek[, firstweekofyear]]]) 
Fungsi ini mengembalikan nilai variant atau string sesuai dengan format yang ditentukan. 


4. Fungsi Date and Time pada VB 

Time : mencari tahu waktu saat ini atau menetapkan waktu, tergantung format
pemakaiannya ( lihat contoh di bawah ini)
A$ = Time ’lquote hasil 18:16:35 AM
MyTime = #4:35:17 PM# ’lquote assign a time
Time = MyTime ’lquote set system time to MyTime
Now : merekam tanggal dan waktu sekarang
A$ = Now ’lquote hasil 10/8/02 18:16:35 AM

Tugas Pemrograman Visual Ke 7

Menu digunakan untuk mengorganisasikan semua Form dan laporan pada aplikasi yang dibuat, Sehingga dapat di panggil dengan mudah

Jenis menu

Menu Strip

Biasa disebut menu utama

Masukan Menu Strip Dari Toolbox Kelompok Menus & Toolbars.

Memanggil MDI Child / Form Anak.

perintah berikut dari form induk / form utama

namaform.mdiparent=me

namaform.show

Menu Vertical, Horizontal, Tile Cascade

Imports System.Windows.Forms

Public Class MDIParent1

    Private Sub SupplierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupplierToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub JenisBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JenisBarangToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub

    Private Sub MerkBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MerkBarangToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub BarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarangToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub PelangganToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PelangganToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub
    Private Sub CascadeToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub TileVerticalToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub


End Class

Library tambahan menggunakan DotNet Bar v9.5.0.7

component diatas menggunakan library tambahan yaitu DotNetBar V.9 dengan menu ribbon control

DUAPULUHTAHUNKU!

SELAMAT ULANG TAHUN RINA ..

makasih yang udah ngasih doanya yang baik  makasih yang udah ngasih ucapanya makasih juga yang udah ngecewain malem ini . malem ke duapuluhtahunku ..
aishhhh ya alloh aku hanya berdoa semoga ini yang terbaik ini jalan yang diridhoimu .sekalipun aku harus ngejalanin sendiri semoga itu akan ada hikmahnya buat kedepan nanti ..
semuanya telah pergi ,terimakasih sayang terimakasih kedua orangtuaku sahabat sahabatku .
missyou :*

Latihan Tugas Pemrograman Visual 1

Penjelasan : 

1 . Paling  awal pada kotak sebelah kiri kita mengisi dan masuk ke kotak list yang pertama
2.  Klik angka 1 - 10 untuk menambahkan list yang pertama
3.  Lalu klik salah satu diantara dari semua angka tersebut untuk pindah ke kotak list  kedua .
4.  Tetapi jika mendapat pesan semua angka pindah ke kotak list kedua maka semuanya akan pindah termasuk yang sebelumnya sudah diklik untuk pindah .Angka yang pindah ke kotak list  kedua sesuai urutan pemindahan .





Script Program :

‘Button Isi Data
Private Sub Btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisi.Click
        ListBox1.Items.Add(TextBox1.Text)
    End Sub

‘Button 1-10
Private Sub Bt1-10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1-10Click
        Dim A As Integer
        A = 0
        Do
            A = A + 1
            ListBox1.Items.Add(A)
        Loop Until A = 10
    End Sub

 ‘Button Satu
Private Sub Btsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsatu.Click
        ListBox2.Items.Add(ListBox1.SelectedItem)
    End Sub

‘Button Beberapa
Private Sub Btbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btbeberapa.Click
        Dim obj As Object
        For Each obj In ListBox1.SelectedItems
            ListBox2.Items.Add(obj)
        Next
    End Sub

‘Button Semua
Private Sub Btsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsemua.Click
        ListBox2.Items.AddRange(ListBox1.Items)

    End Sub

‘Button Hapus Satu
Private Sub Bthpssatu.Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthpssatu.Click
        Dim obj As Object
        obj = ListBox2.SelectedItem
        ListBox2.Items.Remove(obj)
    End Sub

‘Button Hapus Beberapa
Private Sub Bthpsbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthpsbeberapa.Click

        For i As Integer = 0 To ListBox2.SelectedIndices.Count - 1
            ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
        Next
    End Sub

‘Button Hapus Semua
Private Sub Bthpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthpssemua.Click
        ListBox2.Items.Clear()
    End Sub

‘Button Tutup
Private Sub Bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttutup.Click
        Me.Close()

    End Sub