Nama : Saiful Irham Wicaksana
Kelas : TI 11 B
NIM : 11.11.2453
Kelas : TI 11 B
NIM : 11.11.2453
Link Tugas:
Minggu, 03 Februari 2013
Kamis, 03 Januari 2013
Tugas Pemr. Visual Pertemuan 9
Assalamu'alaikum Wr.Wb
Pada pertemuan ke-9 Pemrograman Visual saya diberi tugas untuk menghubungkan Visual Basic dengan database pada SQL Server. Langkah yang kita lakukan awalnya yaitu membuat database :
1. Buka SQL Server 2005
2. Klik kanan Database --> New Database
3. Buat databasenya kasihkan namanya
4. Lalu buat tabel dengan klik kanan Tabels
5. Pilih New Tabels
Berikut format tabelnya :
- nim char(10) not null primary key
- nama varchar(20)
- alamat varchar(50)
- tgllahir datetime
- jurusan char(2)
- spptetap decimal(18,0)
Di bawah adalah tampilan tablenya
Apabila table telah dibuat lalu kita koneksikan dengan Visual Basic.
1. Masuk ke Visual Basic
2. Pada menu Toolbar pilih Data --> Add New Data Source
3. Ikuti langkah yang ada
4. Untuk menampilkan databasenya pilih Data --> Show Data Source
5. Untuk menampilkan database ke form tinggal di drag.
6. Untuk memampilkan tombol-tombol tambahan menggunakan button
Syntax untuk program pada Visual Basic adalah di bawah ini
Public Class Form1
Private Sub Table_mahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table_mahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.Table_mahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)
End Sub
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 'Dbmahasiswa2DataSet.Table_mahasiswa' table. You can move, or remove it, as needed.
Me.Table_mahasiswaTableAdapter.Fill(Me.Dbmahasiswa2DataSet.Table_mahasiswa)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Table_mahasiswaBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Table_mahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Table_mahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Table_mahasiswaBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Validate()
Me.Table_mahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.Table_mahasiswaBindingSource.AddNew()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Table_mahasiswaBindingSource.RemoveCurrent()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim NIM As String = InputBox("Masukkan NIM yang dicari", "Pencarian")
If (Table_mahasiswaBindingSource.Find("nim", NIM) > -1) Then
MsgBox("ketemu", vbOK, "cari")
Table_mahasiswaBindingSource.Position = Table_mahasiswaBindingSource.Find("nim", NIM)
Else
MsgBox("ga ketemu", vbOK, "cari")
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If (ComboBox1.Text = "SI") Then
Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
ElseIf (ComboBox1.Text = "TI") Then
Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
End If
'
End Sub
End Class
Di bawah ini tampilan running awal
Tampilan saat ditekan Tombol Add
Tampilan saat ditekan tombol Search
Tampilan saat ditekan filter
Pada pertemuan ke-9 Pemrograman Visual saya diberi tugas untuk menghubungkan Visual Basic dengan database pada SQL Server. Langkah yang kita lakukan awalnya yaitu membuat database :
1. Buka SQL Server 2005
2. Klik kanan Database --> New Database
3. Buat databasenya kasihkan namanya
4. Lalu buat tabel dengan klik kanan Tabels
5. Pilih New Tabels
Berikut format tabelnya :
- nim char(10) not null primary key
- nama varchar(20)
- alamat varchar(50)
- tgllahir datetime
- jurusan char(2)
- spptetap decimal(18,0)
Di bawah adalah tampilan tablenya
Apabila table telah dibuat lalu kita koneksikan dengan Visual Basic.
1. Masuk ke Visual Basic
2. Pada menu Toolbar pilih Data --> Add New Data Source
3. Ikuti langkah yang ada
4. Untuk menampilkan databasenya pilih Data --> Show Data Source
5. Untuk menampilkan database ke form tinggal di drag.
6. Untuk memampilkan tombol-tombol tambahan menggunakan button
Syntax untuk program pada Visual Basic adalah di bawah ini
Public Class Form1
Private Sub Table_mahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table_mahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.Table_mahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)
End Sub
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 'Dbmahasiswa2DataSet.Table_mahasiswa' table. You can move, or remove it, as needed.
Me.Table_mahasiswaTableAdapter.Fill(Me.Dbmahasiswa2DataSet.Table_mahasiswa)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Table_mahasiswaBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Table_mahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Table_mahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Table_mahasiswaBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Validate()
Me.Table_mahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.Table_mahasiswaBindingSource.AddNew()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Table_mahasiswaBindingSource.RemoveCurrent()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim NIM As String = InputBox("Masukkan NIM yang dicari", "Pencarian")
If (Table_mahasiswaBindingSource.Find("nim", NIM) > -1) Then
MsgBox("ketemu", vbOK, "cari")
Table_mahasiswaBindingSource.Position = Table_mahasiswaBindingSource.Find("nim", NIM)
Else
MsgBox("ga ketemu", vbOK, "cari")
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If (ComboBox1.Text = "SI") Then
Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
ElseIf (ComboBox1.Text = "TI") Then
Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
End If
'
End Sub
End Class
Di bawah ini tampilan running awal
Tampilan saat ditekan Tombol Add
Tampilan saat ditekan tombol Search
Tampilan saat ditekan filter
Kamis, 20 Desember 2012
Tugas Pemr. Visual Pertemuan 8
Assalamu'alaikum Wr. Wb
Kali ini saya akan mengulas tugas kuliah tentang Function. Tugas tersebut meliputi :
1. Function dengan return value berupa array sekaligus menambahkan nilai rata-rata
2. Overloading Function
3. Function-function bawaan
Ok. Mari kita mulai dari yang pertama :)
Kemudian tugas saya yaitu untuk menjelaskan dan menambahkan nilai rata-rata
jadi pada form saya menambah textbox lagi dan label. sehingga tampilan form menjadi di bawah ini
Sedikit saya jelaskan tentang aplikasi ini. aplikasi ini berguna untuk menampilkan total jumlah nilai, nilai terbesar, nilai terkecil, dan nilai rata-rata. Aplikasi ini merupakan salah satu jenis function dimana nilai balik yang dihasilkan berupa array. Data yang dimasukkan merupakan sekelompok data yaitu dua atau lebih data. Pada contoh ini data yang diinputkan sebanyak 10 data. Dengan indeks dimulai dari 0 sampai dengan 9. Dimana pendeklarasian dengan type data As Single, karena data yang dimasukkan berkelompok.
Untuk koding sudah saya tampilkan di atas. jika kita telusuri, pada koding terjadi sedikit kesalahan yaitu :
kesalahan ada pada tanda > dan <. Yang benar adalah
Kemudian untuk menampilkan nilai rata-rata ada penambahan pada beberapa bagian diantaranya :
lalu rumus yang ditambahkan
ket : args.length untuk banyaknya data
Kemudian kita menambahkan textbox lagi
Jika semuanya sudah diperbaiki, sekarang kita run. Maka hasil runningnya seperti di bawah ini
Overloading Function
Dosen memberikan saya koding seperti di bawah ini
Saya akan memberikan sedikit penjelasan. Pada overloading function terdiri beberapa function yang mempunyai nama sama, tetapi parameternya berbeda. Dalam parameter tersebut bisa berbeda jumlahnya ataupun berbeda type datanya. Dalam overloading justru diharuskan memiliki parameter yang berbeda.
Pada contoh yang diberikan, nama function Function hitung. Kebetulan type data yang digunakan sama yaitu sama-sama Integer. Yang berbeda adalah jumlah parameternya.
Pada function pertama ada 2 parameter yakni --> bil1 dan bil2
Sedangkan pada function yang ke-dua ada 3 parameter yakni --> bil1, bil2, dan bil3.
Proses yang dilalui saat running yaitu :
1. Jika kita tekan tombol button1, perintah akan mengecek data yang jumlahnya sama dengan jumlah parameter.
2. Data mengecek type data yang sama atau yang paling mendekati.
3. Setelah itu baru nilai balik ditampilkan.
Kalau melihat pada soal, di bawah adalah hasil running
Dapat dilihat bahwa hasil running menunjukan angka 6. Angka 6 tersebut didapat dari pemanggilan TextBox1.Text = hitung(1, 2, 3)
Dimana saat di run, data mengecek pada jumlah parameter yang sama maka
masuk pada function yang ke-dua. kemudian masuk pada rumus hitung = bil1 + bil2 + bil3. Sehingga 1 + 2 + 3 = 6
Macam-macam Function Bawaan
Kali ini saya akan mengulas tugas kuliah tentang Function. Tugas tersebut meliputi :
1. Function dengan return value berupa array sekaligus menambahkan nilai rata-rata
2. Overloading Function
3. Function-function bawaan
Ok. Mari kita mulai dari yang pertama :)
Function dengan Return Value berupa Array
Dosen memberikan saya koding seperti di bawah ini
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
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
Dengan form seperti ini
jadi pada form saya menambah textbox lagi dan label. sehingga tampilan form menjadi di bawah ini
Sedikit saya jelaskan tentang aplikasi ini. aplikasi ini berguna untuk menampilkan total jumlah nilai, nilai terbesar, nilai terkecil, dan nilai rata-rata. Aplikasi ini merupakan salah satu jenis function dimana nilai balik yang dihasilkan berupa array. Data yang dimasukkan merupakan sekelompok data yaitu dua atau lebih data. Pada contoh ini data yang diinputkan sebanyak 10 data. Dengan indeks dimulai dari 0 sampai dengan 9. Dimana pendeklarasian dengan type data As Single, karena data yang dimasukkan berkelompok.
Untuk koding sudah saya tampilkan di atas. jika kita telusuri, pada koding terjadi sedikit kesalahan yaitu :
kesalahan ada pada tanda > dan <. Yang benar adalah
Kemudian untuk menampilkan nilai rata-rata ada penambahan pada beberapa bagian diantaranya :
Kemudian kita menambahkan textbox lagi
Jika semuanya sudah diperbaiki, sekarang kita run. Maka hasil runningnya seperti di bawah ini
Overloading Function
Dosen memberikan saya koding seperti di bawah ini
Saya akan memberikan sedikit penjelasan. Pada overloading function terdiri beberapa function yang mempunyai nama sama, tetapi parameternya berbeda. Dalam parameter tersebut bisa berbeda jumlahnya ataupun berbeda type datanya. Dalam overloading justru diharuskan memiliki parameter yang berbeda.
Pada contoh yang diberikan, nama function Function hitung. Kebetulan type data yang digunakan sama yaitu sama-sama Integer. Yang berbeda adalah jumlah parameternya.
Pada function pertama ada 2 parameter yakni --> bil1 dan bil2
Sedangkan pada function yang ke-dua ada 3 parameter yakni --> bil1, bil2, dan bil3.
Proses yang dilalui saat running yaitu :
1. Jika kita tekan tombol button1, perintah akan mengecek data yang jumlahnya sama dengan jumlah parameter.
2. Data mengecek type data yang sama atau yang paling mendekati.
3. Setelah itu baru nilai balik ditampilkan.
Kalau melihat pada soal, di bawah adalah hasil running
Macam-macam Function Bawaan
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 spesifik
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
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
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 spesifik
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
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
Sabtu, 08 Desember 2012
Tugas Pemr. Visual Pertemuan 7
Assalamu'alaikum Wr.Wb
Saya akan memaparkan tugas pada pertemuan ke- 7 mengenai "Menu & Toolbar" mata kuliah "Pemrograman Visual" yang diampu oleh Dosen Bp.Nandang Hermanto.
Dalam tugas kali ini terdapat tiga persolan yang harus diselesaikan yaitu :
Untuk menambahkan Toolbar pilih Toolstrip pada Toolbox kelompok Menus & Toolbar. Isikan textnya sesuai keinginan.
--> Tampilan awal
Mengaitkan form dengan menu yang kita inginkan
Contoh pada aplikasi saya. Saat ditekan menu Profile->Data Diri muncul form yang berisikan data diri.
Tampilan saat membuaka form secara bersamaan
Menampilkan dua form secara vertikal
Menampilkan dua form secara horizontal
Menampilkan form secara cascade
Untuk source code aplikasi tersebut secara keseluruhan adalah sebagai berikut
Public Class Form1
Private Sub Lat1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat1ToolStripMenuItem.Click
Form2.MdiParent = Me
Form2.Show()
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Form3.MdiParent = Me
Form3.Show()
End Sub
Private Sub YayaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YayaToolStripMenuItem.Click
Form4.Show()
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
End Class
*Sekian yang saya bisa paparkan kali ini. Untuk soal no.2 belum bisa saya selesaikan. Mohon maaf. Terima Kasih :)
Saya akan memaparkan tugas pada pertemuan ke- 7 mengenai "Menu & Toolbar" mata kuliah "Pemrograman Visual" yang diampu oleh Dosen Bp.Nandang Hermanto.
Dalam tugas kali ini terdapat tiga persolan yang harus diselesaikan yaitu :
- Buat agar posisi toolbar berada di bawah menu.
- Menambahkan library agar lebih interaktif.
- Buat menu tampilan tile horizontal, vertical, dan cascade.
Untuk menambahkan Toolbar pilih Toolstrip pada Toolbox kelompok Menus & Toolbar. Isikan textnya sesuai keinginan.
--> Tampilan awal
Mengaitkan form dengan menu yang kita inginkan
Contoh pada aplikasi saya. Saat ditekan menu Profile->Data Diri muncul form yang berisikan data diri.
Tampilan saat membuaka form secara bersamaan
Menampilkan dua form secara vertikal
Menampilkan dua form secara horizontal
Menampilkan form secara cascade
Untuk source code aplikasi tersebut secara keseluruhan adalah sebagai berikut
Public Class Form1
Private Sub Lat1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat1ToolStripMenuItem.Click
Form2.MdiParent = Me
Form2.Show()
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Form3.MdiParent = Me
Form3.Show()
End Sub
Private Sub YayaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YayaToolStripMenuItem.Click
Form4.Show()
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
End Class
*Sekian yang saya bisa paparkan kali ini. Untuk soal no.2 belum bisa saya selesaikan. Mohon maaf. Terima Kasih :)
Jumat, 26 Oktober 2012
Tugas 3 Pemrograman Visual
Halllooo....
Apa kabar semua.....
Kali ini kang icak akan menjelaskan tentang fungsi “For Each” untuk enable maupun unenable toolbox yang kita gunakan dan cara pembuatan Puzzle sederhana dengan menggunakan Bahasa Visual Basic....
Sebenarnya ini tugas kuliah kang icak tapi berhubung kang icak suka nulis jadi kang icak kasih caranya....
Pertama buat project baru lalu buat tampilannya seperti ini...
Dari tampilan di atas terdapat 1 comboBox, 6 textBox, 2 Rado Button yang ketiganya terdapat di dalam GroupBox....jadi jangan lupa ea masukan ketiga toolbox yang kita pakai itu kedalam GroupBox....lalu kita juga menggunkan 3 button.....
Oke langsung aja masuk ke koding ea.....
Pertama klik 2 kali formnya maka kita akan di bawa ke Sub Form_Load....
Lalu masukan koding di bawah ini....
Dim text As Windows.Forms.Control
For Each text In Me.GroupBox1.Controls
text.Enabled = False
Button2.Enabled = False
Next
Keterangan Baris :
1. Mmbuat varible text yang berfungsi untuk menwakiili control dari form.
2. Memanggil fungsi For Each untuk melakukan perulangan di dalam groupbox yang kita pakai.
3. Memberikan nilai enabled menjadi false pada toolbox di dalam groupbox yang diwakili oleh varible text.
4. Membarikan nilai enbaled false pada button2
5. Penutup perulangan For Each.
Setelah kita melakukan hal di atas lalu kita kembali lagi ke bagian design dan klik 2 kali pada button “Isi Data” lalu masukan kode berikut....
Dim text As Windows.Forms.Control
For Each text In Me.GroupBox1.Controls
text.Enabled = True
Button2.Enabled = True
Button1.Enabled = False
Next
Kode di atas berfungsi untuk mengaktifkan kembali toolbok2 yang sebelumnya kita non aktifkan serta menonaktifkan button Isi Data....
Kembali lagi ke form design lalu klik 2 kali pada button Clear dan masukan kode berikut :
Dim text As Windows.Forms.Control
For Each text In Me.GroupBox1.Controls
text.Enabled = False
Button2.Enabled = False
Button1.Enabled = True
Next
Kode di atas sama persis dengan kode yang kita gunakan pada bagian Form_Load namun dengan penambahan baris “Button1.Enabled = True” yang berungsi untuk mengaktifkan kembali button Isi data yang sebelunya di nonaktifkan saat kita menekan button Isi Data.
Kita kembali lagi ke form_design dan klik 2 kali pada button Tutup dan masukan kode berkut :
End
Kode di atas berfungsi untuk mengeluarkan proses aplikasi dari dalam memori komputer......
Gimana kawan sederhanakan dalam menggunakan fungsi For Each....
Ini program saat pertama kita menjalankan aplikasi :
Bisa kalian perhatikan,,,,semua toolbox selain button cari dan tutup tidak aktif....itu terjadi karena kita memsaukan kode pada bagian FormLoad dimana bagian itu akan di Execute saat program pertamaa dijalankan....
Coba kalian klik button Isi Data maka formnya akan tampil seperti gambar berikut :
Saat kalian klik buttonIsi Data maka toolbok yang awalnya tidak aktif akan aktif kembali....
Sekarang coba kalian klik button Clear....maka akan munncul tampilan sebagai berikut :
Saat kita menekan button Clear maka tampilan form akan kembali...
ke tampilan awal saat program pertamaa kali dijalankan.....
Mudahkan.....!!!
Oke selanjutnya kang icak akan menjelaskan bagaimana cara membuat Puzzle Sederhana...
Perhatikan baik2 ea.....
Pertama buat project baru lalu buat formnya seperti tampilan berikut :
Melihat tampilan di atas kalian pasti tau toolbox apa aja yang harus kalian masukan....
Tapi jangn lupa da tambahn kita juga harus memasukan 1 toolbox timer....
Berikut adalh masing2 program yang terdapat pada masing2 button :
Button1
smt = Button1.Text
If (Button2.Text = "") Then
Button2.Text = smt
Button1.Text = ""
ElseIf (Button4.Text = "") Then
Button2.Text = smt
Button1.Text = ""
End If
Button2
smt = Button2.Text
If (Button1.Text = "") Then
Button1.Text = smt
Button2.Text = ""
ElseIf (Button3.Text = "") Then
Button3.Text = smt
Button2.Text = ""
ElseIf (Button5.Text = "") Then
Button5.Text = smt
Button2.Text = ""
End If
Button3
smt = Button3.Text
If (Button2.Text = "") Then
Button2.Text = smt
Button3.Text = ""
ElseIf (Button6.Text = "") Then
Button6.Text = smt
Button3.Text = ""
End If
Button4
smt = Button4.Text
If (Button1.Text = "") Then
Button1.Text = smt
Button4.Text = ""
ElseIf (Button5.Text = "") Then
Button5.Text = smt
Button4.Text = ""
ElseIf (Button7.Text = "") Then
Button7.Text = smt
Button4.Text = ""
End If
Button5
smt = Button5.Text
If (Button2.Text = "") Then
Button2.Text = smt
Button5.Text = ""
ElseIf (Button6.Text = "") Then
Button6.Text = smt
Button5.Text = ""
ElseIf (Button4.Text = "") Then
Button4.Text = smt
Button5.Text = ""
ElseIf (Button8.Text = "") Then
Button8.Text = smt
Button5.Text = ""
End If
Button6
smt = Button6.Text
If (Button3.Text = "") Then
Button3.Text = smt
Button6.Text = ""
ElseIf (Button5.Text = "") Then
Button5.Text = smt
Button6.Text = ""
ElseIf (Button9.Text = "") Then
Button9.Text = smt
Button6.Text = ""
End If
Button7
smt = Button7.Text
If (Button4.Text = "") Then
Button4.Text = smt
Button7.Text = ""
ElseIf (Button8.Text = "") Then
Button8.Text = smt
Button7.Text = ""
End If
Button8
smt = Button8.Text
If (Button9.Text = "") Then
Button9.Text = smt
Button8.Text = ""
ElseIf (Button5.Text = "") Then
Button5.Text = smt
Button8.Text = ""
ElseIf (Button7.Text = "") Then
Button7.Text = smt
Button8.Text = ""
End If
Button9
smt = Button9.Text
If (Button6.Text = "") Then
Button6.Text = smt
Button9.Text = ""
ElseIf (Button8.Text = "") Then
Button8.Text = smt
Button9.Text = ""
End If
If (Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "") Then
MsgBox("SELAMAT ANDA BERHASIL")
End If
Button Stop
Button1.Text = "2"
Button2.Text = "5"
Button3.Text = "7"
Button4.Text = "3"
Button5.Text = "8"
Button6.Text = "1"
Button7.Text = "4"
Button8.Text = "6"
Timer1.Stop()
Button Acak
Timer1.Start()
Lalu pada sub FormLoad masukan juga kode berikut yang berfungsi mengacak nilai buton pada saat form pertama kali di jalankan :
Timer1.Start()
Dan masukan juga kode berikut pada toolBox timer :
Dim random1, random2, random3, random4, random5, random6, random7, random8 As Integer
random1 = Rnd(1) * 8
random2 = Rnd(1)
random3 = Rnd(1)
random4 = Rnd(1)
random5 = Rnd(1)
random6 = Rnd(1)
random7 = Rnd(1)
random8 = Rnd(1)
Button1.Text = random1
Button2.Text = random2
Button3.Text = random3
Button4.Text = random4
Button5.Text = random5
Button6.Text = random6
Button7.Text = random7
Button8.Text = random8
Jangan lupa juga ini yang paling penting....
Masukan juga kode berikut di bawah public class :
Public smt As Integer
Pada program Puzzle di atas kita mengenal fungsi baru pada VB yaitu fungsi Rnd(), dimana fungsi tersebut digunakan untuk melakukan pengacakan yang terjadi pada button.....
Coba kalian jalankan aplikasi nya maka pada saat pertama form dijalankan maka secara otomatis angka-angkanya akan teracak dan pada waktu kita menekan button stop angkanya akan berhenti mengacak...saat kita menekan button Acak angkanya juga akan kembali mengacak dan begitu seterusnya....
Berikut adalah tampilan aplkasinya :
Dan jika kita berhasil menyusun puzzlenya secara urut maka akan keluar massageBox yang menyatakan selamat seperti gambar berikut :
Oke sampai disini tututorial VB dari kang Icak.....
Kang icak banyak kerjaan lain jadi mohon maaf jika kang icak lama ga posting.....
Cukup sekian dan wasalam..........
Apa kabar semua.....
Kali ini kang icak akan menjelaskan tentang fungsi “For Each” untuk enable maupun unenable toolbox yang kita gunakan dan cara pembuatan Puzzle sederhana dengan menggunakan Bahasa Visual Basic....
Sebenarnya ini tugas kuliah kang icak tapi berhubung kang icak suka nulis jadi kang icak kasih caranya....
Pertama buat project baru lalu buat tampilannya seperti ini...
Dari tampilan di atas terdapat 1 comboBox, 6 textBox, 2 Rado Button yang ketiganya terdapat di dalam GroupBox....jadi jangan lupa ea masukan ketiga toolbox yang kita pakai itu kedalam GroupBox....lalu kita juga menggunkan 3 button.....
Oke langsung aja masuk ke koding ea.....
Pertama klik 2 kali formnya maka kita akan di bawa ke Sub Form_Load....
Lalu masukan koding di bawah ini....
Dim text As Windows.Forms.Control
For Each text In Me.GroupBox1.Controls
text.Enabled = False
Button2.Enabled = False
Next
Keterangan Baris :
1. Mmbuat varible text yang berfungsi untuk menwakiili control dari form.
2. Memanggil fungsi For Each untuk melakukan perulangan di dalam groupbox yang kita pakai.
3. Memberikan nilai enabled menjadi false pada toolbox di dalam groupbox yang diwakili oleh varible text.
4. Membarikan nilai enbaled false pada button2
5. Penutup perulangan For Each.
Setelah kita melakukan hal di atas lalu kita kembali lagi ke bagian design dan klik 2 kali pada button “Isi Data” lalu masukan kode berikut....
Dim text As Windows.Forms.Control
For Each text In Me.GroupBox1.Controls
text.Enabled = True
Button2.Enabled = True
Button1.Enabled = False
Next
Kode di atas berfungsi untuk mengaktifkan kembali toolbok2 yang sebelumnya kita non aktifkan serta menonaktifkan button Isi Data....
Kembali lagi ke form design lalu klik 2 kali pada button Clear dan masukan kode berikut :
Dim text As Windows.Forms.Control
For Each text In Me.GroupBox1.Controls
text.Enabled = False
Button2.Enabled = False
Button1.Enabled = True
Next
Kode di atas sama persis dengan kode yang kita gunakan pada bagian Form_Load namun dengan penambahan baris “Button1.Enabled = True” yang berungsi untuk mengaktifkan kembali button Isi data yang sebelunya di nonaktifkan saat kita menekan button Isi Data.
Kita kembali lagi ke form_design dan klik 2 kali pada button Tutup dan masukan kode berkut :
End
Kode di atas berfungsi untuk mengeluarkan proses aplikasi dari dalam memori komputer......
Gimana kawan sederhanakan dalam menggunakan fungsi For Each....
Ini program saat pertama kita menjalankan aplikasi :
Bisa kalian perhatikan,,,,semua toolbox selain button cari dan tutup tidak aktif....itu terjadi karena kita memsaukan kode pada bagian FormLoad dimana bagian itu akan di Execute saat program pertamaa dijalankan....
Coba kalian klik button Isi Data maka formnya akan tampil seperti gambar berikut :
Saat kalian klik buttonIsi Data maka toolbok yang awalnya tidak aktif akan aktif kembali....
Sekarang coba kalian klik button Clear....maka akan munncul tampilan sebagai berikut :
Saat kita menekan button Clear maka tampilan form akan kembali...
ke tampilan awal saat program pertamaa kali dijalankan.....
Mudahkan.....!!!
Oke selanjutnya kang icak akan menjelaskan bagaimana cara membuat Puzzle Sederhana...
Perhatikan baik2 ea.....
Pertama buat project baru lalu buat formnya seperti tampilan berikut :
Melihat tampilan di atas kalian pasti tau toolbox apa aja yang harus kalian masukan....
Tapi jangn lupa da tambahn kita juga harus memasukan 1 toolbox timer....
Berikut adalh masing2 program yang terdapat pada masing2 button :
Button1
smt = Button1.Text
If (Button2.Text = "") Then
Button2.Text = smt
Button1.Text = ""
ElseIf (Button4.Text = "") Then
Button2.Text = smt
Button1.Text = ""
End If
Button2
smt = Button2.Text
If (Button1.Text = "") Then
Button1.Text = smt
Button2.Text = ""
ElseIf (Button3.Text = "") Then
Button3.Text = smt
Button2.Text = ""
ElseIf (Button5.Text = "") Then
Button5.Text = smt
Button2.Text = ""
End If
Button3
smt = Button3.Text
If (Button2.Text = "") Then
Button2.Text = smt
Button3.Text = ""
ElseIf (Button6.Text = "") Then
Button6.Text = smt
Button3.Text = ""
End If
Button4
smt = Button4.Text
If (Button1.Text = "") Then
Button1.Text = smt
Button4.Text = ""
ElseIf (Button5.Text = "") Then
Button5.Text = smt
Button4.Text = ""
ElseIf (Button7.Text = "") Then
Button7.Text = smt
Button4.Text = ""
End If
Button5
smt = Button5.Text
If (Button2.Text = "") Then
Button2.Text = smt
Button5.Text = ""
ElseIf (Button6.Text = "") Then
Button6.Text = smt
Button5.Text = ""
ElseIf (Button4.Text = "") Then
Button4.Text = smt
Button5.Text = ""
ElseIf (Button8.Text = "") Then
Button8.Text = smt
Button5.Text = ""
End If
Button6
smt = Button6.Text
If (Button3.Text = "") Then
Button3.Text = smt
Button6.Text = ""
ElseIf (Button5.Text = "") Then
Button5.Text = smt
Button6.Text = ""
ElseIf (Button9.Text = "") Then
Button9.Text = smt
Button6.Text = ""
End If
Button7
smt = Button7.Text
If (Button4.Text = "") Then
Button4.Text = smt
Button7.Text = ""
ElseIf (Button8.Text = "") Then
Button8.Text = smt
Button7.Text = ""
End If
Button8
smt = Button8.Text
If (Button9.Text = "") Then
Button9.Text = smt
Button8.Text = ""
ElseIf (Button5.Text = "") Then
Button5.Text = smt
Button8.Text = ""
ElseIf (Button7.Text = "") Then
Button7.Text = smt
Button8.Text = ""
End If
Button9
smt = Button9.Text
If (Button6.Text = "") Then
Button6.Text = smt
Button9.Text = ""
ElseIf (Button8.Text = "") Then
Button8.Text = smt
Button9.Text = ""
End If
If (Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "") Then
MsgBox("SELAMAT ANDA BERHASIL")
End If
Button Stop
Button1.Text = "2"
Button2.Text = "5"
Button3.Text = "7"
Button4.Text = "3"
Button5.Text = "8"
Button6.Text = "1"
Button7.Text = "4"
Button8.Text = "6"
Timer1.Stop()
Button Acak
Timer1.Start()
Lalu pada sub FormLoad masukan juga kode berikut yang berfungsi mengacak nilai buton pada saat form pertama kali di jalankan :
Timer1.Start()
Dan masukan juga kode berikut pada toolBox timer :
Dim random1, random2, random3, random4, random5, random6, random7, random8 As Integer
random1 = Rnd(1) * 8
random2 = Rnd(1)
random3 = Rnd(1)
random4 = Rnd(1)
random5 = Rnd(1)
random6 = Rnd(1)
random7 = Rnd(1)
random8 = Rnd(1)
Button1.Text = random1
Button2.Text = random2
Button3.Text = random3
Button4.Text = random4
Button5.Text = random5
Button6.Text = random6
Button7.Text = random7
Button8.Text = random8
Jangan lupa juga ini yang paling penting....
Masukan juga kode berikut di bawah public class :
Public smt As Integer
Pada program Puzzle di atas kita mengenal fungsi baru pada VB yaitu fungsi Rnd(), dimana fungsi tersebut digunakan untuk melakukan pengacakan yang terjadi pada button.....
Coba kalian jalankan aplikasi nya maka pada saat pertama form dijalankan maka secara otomatis angka-angkanya akan teracak dan pada waktu kita menekan button stop angkanya akan berhenti mengacak...saat kita menekan button Acak angkanya juga akan kembali mengacak dan begitu seterusnya....
Berikut adalah tampilan aplkasinya :
Dan jika kita berhasil menyusun puzzlenya secara urut maka akan keluar massageBox yang menyatakan selamat seperti gambar berikut :
Oke sampai disini tututorial VB dari kang Icak.....
Kang icak banyak kerjaan lain jadi mohon maaf jika kang icak lama ga posting.....
Cukup sekian dan wasalam..........
Rabu, 24 Oktober 2012
Tugas 2 Pemrograman Visual
Haloooo......
Apa kabar semua.....
Kali ini kang icak akan sedikit mejelaskan tentang cara membuat form yang memiliki fungsi-fungsi khusus dalam menggunakan variable....mungkin postingan kaliini akan sedikit aneh karena sebenernya postingan ini kangicak apke untuk tugas kaing icak kuliah.....tapi ga pa pa ea, nanti kang icak ganti dengan postingan yang lain yang lebih extreeeemeeeeee......
Oke langsung aja kawan kang icak jelaskan progrmanya....
Pertama kang icak di suruh untuk membuat 2 buah form yang memiliki tampilan berikut.....
1. Form satu
2. Form dua
Coba kalian perhatikan baik2 form diatas....
Dua form di atas memiliki progreesbar...namun nanti penjelasan tentang membuat progresbar ga akan kang icak bahas dalam postingan kali ini,,,,mungkin akan kang icak bahas dalam postingan selanjutnya.....
Oke.....di bawah ini adalah program untuk form satu....
Dan yang ini adalah program untuk formDua.....
Selain itu juga ada penambahan module untuk program kita kali ini....
Taukan anda apa itu module dalam VB???
Yappppzzzzz betul.....1000 buat kaamu yang bisa jawab...hehe
Module itu dipakai untuk mendeklarasikan variable yang nantinya variable tersebut dapat di pakai di setiap class dalam program kita....Pahammm...????
Pasti belum ea....yaaa udah langsung aja praktek yuxxxx....
Ini program modulenya....
Dan setelah kang icak di kasih program yang ga kang icak tau apa artinnya ternyata kang icak juga di kasih soal kawan.....adduh duh tambah pusing nich....hehehe
Tapi ga pa pa, kang icak akan coba jelaskan bagaimana jawaban soalnya....
Ini soalnya....
Ini jawabannya....!!!
3.(a.) kenapa erroorrr....itu karena di dalam kelas (inget kang icak ngomongnya di dalam kelas bukan di dalam sub event handling) terdapat pembuatan variable yang memakai fungsi “const” yaitu “const alamat=”kuningan”” jadi fungsi conts di sini membuat nilai variablenya constan atau tetap jadi tidak boleh kita mengotak atik nilainya lagi..paham...???
Jadi supaya ga eror baris tersebut harus kita hapus okeee.....
(b.) pada penekanan button nama1 dan nama2 kenapa bisa berbeda....itu karena di dalam pengisian text di textbox txtnama, pada subevent “btnama1” bukan berasal dari variable “nama” di dalam module yang telah kita buat sebelumnya namun berasal dari variable ”nama” yang berisi “Nandang” yang di deklarasikan di dalam subevent “btnama1” tersebut, sedangkan di button nama2 pemberian text pada textbox textnama berasal dari variable “nama” di dalam module yang berisi nilai “Nandang Hermanto”....dah paham kan....
(c.) karena pada bttambahumur1, pembuatan variable umur tidak menggunakan keyword “static” jadi kalau button tambahumur1 di tekan maka hanya akan mengeluarkan nilai 1 sedangkan pada bttambahumur2 pembuatan variable menggunakan kata “static” jadi pada saat button tambahumur2 di tekan maka akan terus bertambah sesuai banyaknya penekanan tombol pada button tambahumur2....kata static di sini berarti nilai dari varibale akan bernilai statis...
(d.) untuk analisyiis pada form dua....pada baris program paling atas tertulis “option explisit off”, itu berarti kata variable di dalam program form dua jika ditambah dengan kata lain akan tetap tidak eror...sedangkan kenapa nilai bisa tetep keluar pada textbox saat penekanan button padahal kita tidak membuat suatu variable....
itu karena kita mengambil variable di dalam module yang telah kita buat sebelumnya...
paham kannnn....
itu baru satu tugas satu kawan....di bawah ini ada tugas yang kedua...
dalam tugas kedua ini kang icak di suruh untuk membuat sebuah form denga tampilan di bawah ini :
Kemudian ini listing programnya :
Dari tugas kedua di atas, kang icak di suruh untuk menganalisa kelemahan program lalu memperbaikinya....adduuuhhhh repooottt kannn....
Tapi ga apa2....ini hasilnya..... eurekkkaaaa
Kelemahannya adalah pada saat salah satu textbox bernilai kosong(kosong bukan 0) dan program melakukan penjumlahan maka akan terjadi eror seperti contoh kita memasukan jumlah barang namun nilai txtdiskon belum ada padahal di dalam event handling txtjumlah ada baris program yang melakukan perhitungan yang salah satunya memakai nilai dari txtdiskon....untuk itu kita beri nilai nol pada masing2 textbox pada saat pertama di jalankan....
Masukan kode berikut pada sub Event Form1_Load untuk memberikan nilai 0 pada textbox....
txtharga.Text = "0"
txtjumlah.Text = "0"
txtdiskon.Text = "0"
txtharga.Text = "0"
txtbayar.Text = "0"
sehingga keluar tampilan form berikut pada saat pertama kali di jalankan....
Oke kawan sampai di sini kang icak mengetik.....
Kang icak ngantuk....hehehe
Dada.....selamat berkreatifitas dalam program......bye
Apa kabar semua.....
Kali ini kang icak akan sedikit mejelaskan tentang cara membuat form yang memiliki fungsi-fungsi khusus dalam menggunakan variable....mungkin postingan kaliini akan sedikit aneh karena sebenernya postingan ini kangicak apke untuk tugas kaing icak kuliah.....tapi ga pa pa ea, nanti kang icak ganti dengan postingan yang lain yang lebih extreeeemeeeeee......
Oke langsung aja kawan kang icak jelaskan progrmanya....
Pertama kang icak di suruh untuk membuat 2 buah form yang memiliki tampilan berikut.....
1. Form satu
2. Form dua
Coba kalian perhatikan baik2 form diatas....
Dua form di atas memiliki progreesbar...namun nanti penjelasan tentang membuat progresbar ga akan kang icak bahas dalam postingan kali ini,,,,mungkin akan kang icak bahas dalam postingan selanjutnya.....
Oke.....di bawah ini adalah program untuk form satu....
Dan yang ini adalah program untuk formDua.....
Selain itu juga ada penambahan module untuk program kita kali ini....
Taukan anda apa itu module dalam VB???
Yappppzzzzz betul.....1000 buat kaamu yang bisa jawab...hehe
Module itu dipakai untuk mendeklarasikan variable yang nantinya variable tersebut dapat di pakai di setiap class dalam program kita....Pahammm...????
Pasti belum ea....yaaa udah langsung aja praktek yuxxxx....
Ini program modulenya....
Dan setelah kang icak di kasih program yang ga kang icak tau apa artinnya ternyata kang icak juga di kasih soal kawan.....adduh duh tambah pusing nich....hehehe
Tapi ga pa pa, kang icak akan coba jelaskan bagaimana jawaban soalnya....
Ini soalnya....
Ini jawabannya....!!!
3.(a.) kenapa erroorrr....itu karena di dalam kelas (inget kang icak ngomongnya di dalam kelas bukan di dalam sub event handling) terdapat pembuatan variable yang memakai fungsi “const” yaitu “const alamat=”kuningan”” jadi fungsi conts di sini membuat nilai variablenya constan atau tetap jadi tidak boleh kita mengotak atik nilainya lagi..paham...???
Jadi supaya ga eror baris tersebut harus kita hapus okeee.....
(b.) pada penekanan button nama1 dan nama2 kenapa bisa berbeda....itu karena di dalam pengisian text di textbox txtnama, pada subevent “btnama1” bukan berasal dari variable “nama” di dalam module yang telah kita buat sebelumnya namun berasal dari variable ”nama” yang berisi “Nandang” yang di deklarasikan di dalam subevent “btnama1” tersebut, sedangkan di button nama2 pemberian text pada textbox textnama berasal dari variable “nama” di dalam module yang berisi nilai “Nandang Hermanto”....dah paham kan....
(c.) karena pada bttambahumur1, pembuatan variable umur tidak menggunakan keyword “static” jadi kalau button tambahumur1 di tekan maka hanya akan mengeluarkan nilai 1 sedangkan pada bttambahumur2 pembuatan variable menggunakan kata “static” jadi pada saat button tambahumur2 di tekan maka akan terus bertambah sesuai banyaknya penekanan tombol pada button tambahumur2....kata static di sini berarti nilai dari varibale akan bernilai statis...
(d.) untuk analisyiis pada form dua....pada baris program paling atas tertulis “option explisit off”, itu berarti kata variable di dalam program form dua jika ditambah dengan kata lain akan tetap tidak eror...sedangkan kenapa nilai bisa tetep keluar pada textbox saat penekanan button padahal kita tidak membuat suatu variable....
itu karena kita mengambil variable di dalam module yang telah kita buat sebelumnya...
paham kannnn....
itu baru satu tugas satu kawan....di bawah ini ada tugas yang kedua...
dalam tugas kedua ini kang icak di suruh untuk membuat sebuah form denga tampilan di bawah ini :
Kemudian ini listing programnya :
Dari tugas kedua di atas, kang icak di suruh untuk menganalisa kelemahan program lalu memperbaikinya....adduuuhhhh repooottt kannn....
Tapi ga apa2....ini hasilnya..... eurekkkaaaa
Kelemahannya adalah pada saat salah satu textbox bernilai kosong(kosong bukan 0) dan program melakukan penjumlahan maka akan terjadi eror seperti contoh kita memasukan jumlah barang namun nilai txtdiskon belum ada padahal di dalam event handling txtjumlah ada baris program yang melakukan perhitungan yang salah satunya memakai nilai dari txtdiskon....untuk itu kita beri nilai nol pada masing2 textbox pada saat pertama di jalankan....
Masukan kode berikut pada sub Event Form1_Load untuk memberikan nilai 0 pada textbox....
txtharga.Text = "0"
txtjumlah.Text = "0"
txtdiskon.Text = "0"
txtharga.Text = "0"
txtbayar.Text = "0"
sehingga keluar tampilan form berikut pada saat pertama kali di jalankan....
Oke kawan sampai di sini kang icak mengetik.....
Kang icak ngantuk....hehehe
Dada.....selamat berkreatifitas dalam program......bye
Minggu, 14 Oktober 2012
Tugas 1 Pemrograman Visual
Hai hai hai semua....
Kali ini kang icak akan membagikan cara bagaimana membuat aplikasi pengkonversi bilangan dengan bahasa visual basic dan java. Dari postingan kang icak ini, nanti kalian akan sedikit tahu tentang perbedaan membuat aplikasi pengkonversi bilangan yang kang icak kasih nama “KonverBit”, aplikasi ini kang icak buat dengan dua bahasa pemrograman, sebenernya kang icak pinginnya c mendalami bahasa java tp karena tuntutan kuliah jadi terpaksa kang icak belajar pemrograman Visual Basic.....hehe padahal kang icak ga pernah tuh masuk makul itu, wktu tu kang icak bolos c karena da urusan....hehehe
Maaf ea bapak Nandang yang terhormat....wktu itu kang icak ga masuk karena ikut seleksi lembaga....hhehe
Oke langsung ja capppcuuussss......
Adapun fungsi dari aplikasi ini adalah sebagai pengubah bilangan yang kita miliki menjadi desimal, biner, oktal, heksadesimal ataupun sebaliknya...
Oke...dah g sabar ea....
Sabar....sabar....orang sabar di sayang tuhan....hihi
Yuk langsung aja kalian lihat langkah-langkahnya di bawah ini :
1. Disini IDE yang kang icak pake dalam membuat aplikasi visual basic adalah dengan Visual Studio 2010 Profesional, sedangkan IDE yang kang icak gunakan untuk membuat aplikasi dalam bahasa java adalah Netbeans 7.1.1. kenapa kang icak apke IDE itu...?
Jawabanya ea karena kang icak pingin ja....hehe
So...langsung ja buka masing2 aplikasi IDE tersebut....
Buat project baru pada masing2 IDE,,,
Di Visual Studio kalian pilih windows lalu pilih windows form application...
disini kang icak menganggap kalian dah bisa membuat project pada masing2 IDE karena kang icak yakin kalian dah pada pinter2 jadi langsung ja terjun ke langkah yang ke tiga....wuuuuzzzzzzz
2. Pada IDE VB buat tampilan seperti beriikut.....tampilan berikut adaalah tampilan login sebelum masuk ke menu utama.
Tahu kan kalian harus masukan toolbox pa ja biar jadi tambilan kya gtu......
Yapppzzzz.....betul....di tampilan itu da 2 label, 2 textbox, 1 progressbar, 2 button dan 1 picture....eiitzzz masih da 1 lagi yaitu timer, timer ini kang icak pake untuk membuat progreessbar agar bisa berwarna ijo berjalan kaya form di atas itu tuh....hihihi
Untuk masukin picture kang icak anggap kalian dah pinter ea.....mudah inih....kn semua pengaturan toolbok da di bagian properties.....
Untuk textbox yang da pakai buat input password knapa bisa jadi titik2 ga jelas kya gtu jg da di bagian properties....caranya kalian ganti “true” di bagian useSystemPasswordChar....
Ini listing programnya dalam bahasa Visaul Basic :
Public Class Login
'dibawah ini listing program untuk button masuk
'textbox untuk input username namanya username
'textbox untuk input password namanya password
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'memakai fungsi if elseIf untuk banyak kondisi
'jika input password benar yaitu amikompurwokerto maka menuju ke fungsi timer
If password.Text = "amikompurwokerto" Then
Timer1.Enabled = True
'jika input username dan password tidak di isi maka keluar massagebox "Masukan Username dan Password"
ElseIf username.Text = "" And password.Text = "" Then
MsgBox("Masukan Username dan Password")
'username.focus() untuk memfokuskan pada textbox username
username.Focus()
'jika input username tidak di isi maka keluar massagebox "Masukan Username"
ElseIf username.Text = "" Then
MsgBox("Masukan Username...!!!")
username.Focus()
'jika input Password tidak di isi maka keluar massagebox "Masukan Password"
ElseIf password.Text = "" Then
MsgBox("Masukan Password...!!!")
password.Focus()
'jika input salah maka keluar massagebox "Login Salah"
Else
MsgBox("Login Salah...!!!")
'membersihkan isi textbox username
username.Clear()
'membersihkan isi textbox Password
password.Clear()
username.Focus()
'akhir fungsi if
End If
'akhir fungsi button masuk
End Sub
'ini listing program untuk button keluar
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'fungsi untuk memakai form lain, dalam java fungsinya seperti ini "namaForm inisial=new namaForm();"
Dim Menu As New menuUtama
'nilai proggress bar di tambah 4
ProgressBar1.Value += 4
'jika progress bar di tambah 4 dan mencapi nilai 100
If ProgressBar1.Value = 100 Then
'fungsi timer di hentikan
Timer1.Dispose()
'form login di hilangkan
Me.Visible = False
'keluar massagebox selamat datang namaUser
MsgBox("Selamat Datang " & username.Text)
'menampilkan form yang di panggil
Menu.Show()
End If
End Sub
'akhir class Login
End Class
Kalo yang ini listing program dalam bahasa java :
package GUI;
import java.awt.*;
import javax.swing.*;
import GUI.AppBit;
import javax.swing.plaf.basic.BasicInternalFrameTitlePane.CloseAction;
import javax.swing.table.TableColumnModel;
/**
*
* @author Saiful Irham W
*/
public class Form_Login extends javax.swing.JFrame {
/** Creates new form Form_Login */
public Form_Login() {
super("Form Login");
JFrame.setDefaultLookAndFeelDecorated(true);
java.awt.Toolkit.getDefaultToolkit().getImage("delicious-64x64.png");
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
initComponents();
}
@SuppressWarnings("unchecked")
// <editor-fold defaultstate="collapsed" desc="Generated Code">
private void initComponents() {
jPanel1 = new javax.swing.JPanel();
jPanel2 = new javax.swing.JPanel();
jDesktopPane1 = new javax.swing.JDesktopPane();
jLabel1 = new javax.swing.JLabel();
jLabel2 = new javax.swing.JLabel();
jButton1 = new javax.swing.JButton();
jButton2 = new javax.swing.JButton();
jTextField1 = new javax.swing.JTextField();
jPasswordField1 = new javax.swing.JPasswordField();
setDefaultCloseOperation(javax.swing.WindowConstants.EXIT_ON_CLOSE);
jPanel1.setLayout(new java.awt.BorderLayout());
jPanel2.setLayout(new java.awt.BorderLayout());
jDesktopPane1.setBackground(new java.awt.Color(51, 255, 255));
jDesktopPane1.setBorder(javax.swing.BorderFactory.createTitledBorder(null, "LOGIN", javax.swing.border.TitledBorder.CENTER, javax.swing.border.TitledBorder.TOP, new java.awt.Font("Monotype Corsiva", 1, 18), new java.awt.Color(204, 0, 51))); // NOI18N
jLabel1.setFont(new java.awt.Font("Traditional Arabic", 1, 14)); // NOI18N
jLabel1.setForeground(new java.awt.Color(204, 0, 0));
jLabel1.setText("User Name :");
jLabel1.setBounds(20, 30, 90, 20);
jDesktopPane1.add(jLabel1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jLabel2.setFont(new java.awt.Font("Traditional Arabic", 1, 14)); // NOI18N
jLabel2.setForeground(new java.awt.Color(255, 0, 0));
jLabel2.setText("Password :");
jLabel2.setBounds(240, 30, 80, 20);
jDesktopPane1.add(jLabel2, javax.swing.JLayeredPane.DEFAULT_LAYER);
jButton1.setText("Masuk");
jButton1.addActionListener(new java.awt.event.ActionListener() {
public void actionPerformed(java.awt.event.ActionEvent evt) {
jButton1ActionPerformed(evt);
}
});
jButton1.setBounds(130, 70, 73, 23);
jDesktopPane1.add(jButton1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jButton2.setText("Batal");
jButton2.addActionListener(new java.awt.event.ActionListener() {
public void actionPerformed(java.awt.event.ActionEvent evt) {
jButton2ActionPerformed(evt);
}
});
jButton2.setBounds(240, 70, 70, 23);
jDesktopPane1.add(jButton2, javax.swing.JLayeredPane.DEFAULT_LAYER);
jTextField1.setText("Saiful Irham");
jTextField1.setBounds(110, 30, 110, 20);
jDesktopPane1.add(jTextField1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jPasswordField1.setBounds(320, 30, 110, 20);
jDesktopPane1.add(jPasswordField1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jPanel2.add(jDesktopPane1, java.awt.BorderLayout.CENTER);
jPanel1.add(jPanel2, java.awt.BorderLayout.CENTER);
javax.swing.GroupLayout layout = new javax.swing.GroupLayout(getContentPane());
getContentPane().setLayout(layout);
layout.setHorizontalGroup(
layout.createParallelGroup(javax.swing.GroupLayout.Alignment.LEADING)
.addComponent(jPanel1, javax.swing.GroupLayout.DEFAULT_SIZE, 449, Short.MAX_VALUE)
);
layout.setVerticalGroup(
layout.createParallelGroup(javax.swing.GroupLayout.Alignment.LEADING)
.addComponent(jPanel1, javax.swing.GroupLayout.DEFAULT_SIZE, 116, Short.MAX_VALUE)
);
pack();
}// </editor-fold>
private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {
String a,b;
AppBit opn=new AppBit();
a=jTextField1.getText();
b=jPasswordField1.getText();
if (jPasswordField1.getText().equals("amikompurwokerto")){
JOptionPane.showMessageDialog(null, "Selamat Datang "+jTextField1.getText());
setVisible(false);
opn.setVisible(true);
opn.setLocation(500, 300);
}else{
JOptionPane.showMessageDialog(null, "Tooolllooooooolllll.....!!!", "Tolol.....!!!", 2);
jTextField1.setText("Tolol......!!!");
jPasswordField1.setText("");
}
// TODO add your handling code here:
}
private void jButton2ActionPerformed(java.awt.event.ActionEvent evt) {
setVisible(false);
// TODO add your handling code here:
}
/**
* @param args the command line arguments
*/
public static void main(String args[]) {
java.awt.EventQueue.invokeLater(new Runnable() {
public void run() {
new Form_Login().setVisible(true);
}
});
}
// Variables declaration - do not modify
private javax.swing.JButton jButton1;
private javax.swing.JButton jButton2;
private javax.swing.JDesktopPane jDesktopPane1;
private javax.swing.JLabel jLabel1;
private javax.swing.JLabel jLabel2;
private javax.swing.JPanel jPanel1;
private javax.swing.JPanel jPanel2;
private javax.swing.JPasswordField jPasswordField1;
private javax.swing.JTextField jTextField1;
// End of variables declaration
}
**Debug program pada bahasa VB dengan menekan F5**
**Run program pada bahasa java dengan menekan F6**
**Masukan nama anda lalu masukan password “amikompurwokerto**
Setelah klik button masuk anda akan dihadapkan pada massagebox seperti berikut....
Baru ja 2 langkah tapi udah panjaaaaaannnngggggggg banggggeeeetttttzzzzz.....hehe
Jangan putus asa dooonggg....perjalanan masih panjang.....
Oke lannjjjuuutttt kawan......
3. Buat menu tampilan utama dengan klik kanan my project pada solustion explorer –add – windows form lalu beri nama menuUtama....di sini kang icak menggunakan konsep tab, karena menurut kang icak kita dapat membuat aplikasi multifungsi namun mudah digunakan....
betuuullll....??? ini tampilannya.....
Kalo sekarang dah tau kan kalian harus makai toolbox pa ja.....hihi
Kreatif dikit lah....jangan terlalu mirip.....yang penting da toolbox utama yang harus dipakai dalam membuat form di atas yaitu 1 tabcontrol, 2 combobox, dan 2 button....
Untuk 2 combobox di atas itemnya da 4 yaitu Desimal, Biner, Oktal, dan Heksadesimal.....kalian bisa masukan 4 item tersebut di “items” pada bagian properties......
Dari menu itu kalian bisa memilih, bilangan input dan bilangan output yang masing2 memiliki 4 pilihan berbeda...namun jika anda memilih bilangan input dan bilangan output yang sama maka akan keluar tampilan massagebox seperti ini...
Jadi jangan sama ea,,,,,
Di atas ada dua tab...yang satu tab “Menu Utama” dan yang kedua tab “Tentang”,,,ini tampilan tabnya.....
Ini listing program dalam bahasa Visual Basic :
Public Class menuUtama
'listing program button Keluar
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'jika massagebox keluar dan menekan yes maka form menghilang
If MsgBox("Anda Yakin Ingin Keluar...???", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
MsgBox("Terima Kasih Telah Menggunakan Aplikasi Ini")
Me.Close()
'end digunakan unntuk menghentikan program agar ada saat form mrnhilang program tidak tetap berjalan pada memori komputer
End
End If
End Sub
'listing program button pilih
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'if combobox1 dan combobox2 di pilih dengan indek tertentu maka jalankan program di dalam fungsi if
If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 0 Then
MsgBox("Bilangan Input dan Bilangan Output Tidak Boleh Sama...!!!")
ElseIf ComboBox1.SelectedIndex = 1 And ComboBox2.SelectedIndex = 1 Then
MsgBox("Bilangan Input dan Bilangan Output Tidak Boleh Sama...!!!")
ElseIf ComboBox1.SelectedIndex = 2 And ComboBox2.SelectedIndex = 2 Then
MsgBox("Bilangan Input dan Bilangan Output Tidak Boleh Sama...!!!")
ElseIf ComboBox1.SelectedIndex = 3 And ComboBox2.SelectedIndex = 3 Then
MsgBox("Bilangan Input dan Bilangan Output Tidak Boleh Sama...!!!")
ElseIf ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 1 Then
KonverBit.konvert.input1.Text = "Desimal"
KonverBit.konvert.input2.Text = "Biner"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 2 Then
KonverBit.konvert.input1.Text = "Desimal"
KonverBit.konvert.input2.Text = "Oktal"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 3 Then
KonverBit.konvert.input1.Text = "Desimal"
KonverBit.konvert.input2.Text = "Heksadesimal"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 1 And ComboBox2.SelectedIndex = 0 Then
KonverBit.konvert.input1.Text = "Biner"
KonverBit.konvert.input2.Text = "Desimal"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 1 And ComboBox2.SelectedIndex = 2 Then
KonverBit.konvert.input1.Text = "Biner"
KonverBit.konvert.input2.Text = "Oktal"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 1 And ComboBox2.SelectedIndex = 3 Then
KonverBit.konvert.input1.Text = "Biner"
KonverBit.konvert.input2.Text = "Heksadesimal"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 2 And ComboBox2.SelectedIndex = 0 Then
KonverBit.konvert.input1.Text = "Oktal"
KonverBit.konvert.input2.Text = "Desimal"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 2 And ComboBox2.SelectedIndex = 1 Then
KonverBit.konvert.input1.Text = "Oktal"
KonverBit.konvert.input2.Text = "Biner"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 2 And ComboBox2.SelectedIndex = 3 Then
KonverBit.konvert.input1.Text = "Oktal"
KonverBit.konvert.input2.Text = "Heksadesimal"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 3 And ComboBox2.SelectedIndex = 0 Then
KonverBit.konvert.input1.Text = "Heksadesimal"
KonverBit.konvert.input2.Text = "Desimal"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 3 And ComboBox2.SelectedIndex = 1 Then
KonverBit.konvert.input1.Text = "Heksadesimal"
KonverBit.konvert.input2.Text = "Biner"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
ElseIf ComboBox1.SelectedIndex = 3 And ComboBox2.SelectedIndex = 2 Then
KonverBit.konvert.input1.Text = "Heksadesimal"
KonverBit.konvert.input2.Text = "Oktal"
Me.Visible = False
KonverBit.konvert.text1.Focus()
KonverBit.konvert.Show()
End If
End Sub
End Class
Ini listing program dalam bahasa java :
package GUI;
import Oktal_to_x.*;
import Heksadesimal_to_x.*;
import Biner_to_x.*;
import Desimal_to_x.*;
import java.awt.*;
import javax.swing.*;
/**
*
* @author Saiful Irham W
*/
public class AppBit extends javax.swing.JFrame {
/** Creates new form AppBit */
public AppBit() {
super("KonverBit");
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
JFrame.isDefaultLookAndFeelDecorated();
initComponents();
}
/** This method is called from within the constructor to
* initialize the form.
* WARNING: Do NOT modify this code. The content of this method is
* always regenerated by the Form Editor.
*/
@SuppressWarnings("unchecked")
// <editor-fold defaultstate="collapsed" desc="Generated Code">
private void initComponents() {
jPanel1 = new javax.swing.JPanel();
jPanel2 = new javax.swing.JPanel();
jDesktopPane1 = new javax.swing.JDesktopPane();
jTabbedPane1 = new javax.swing.JTabbedPane();
jTabbedPane2 = new javax.swing.JTabbedPane();
jDesktopPane3 = new javax.swing.JDesktopPane();
jButton1 = new javax.swing.JButton();
jButton2 = new javax.swing.JButton();
jLabel1 = new javax.swing.JLabel();
jLabel2 = new javax.swing.JLabel();
jComboBox1 = new javax.swing.JComboBox();
jLabel4 = new javax.swing.JLabel();
jComboBox2 = new javax.swing.JComboBox();
jTabbedPane3 = new javax.swing.JTabbedPane();
jDesktopPane2 = new javax.swing.JDesktopPane();
jScrollPane1 = new javax.swing.JScrollPane();
jTextArea1 = new javax.swing.JTextArea();
jTabbedPane4 = new javax.swing.JTabbedPane();
jScrollPane2 = new javax.swing.JScrollPane();
jTextArea2 = new javax.swing.JTextArea();
jProgressBar1 = new javax.swing.JProgressBar();
setDefaultCloseOperation(javax.swing.WindowConstants.EXIT_ON_CLOSE);
jPanel1.setLayout(new java.awt.BorderLayout());
jPanel2.setLayout(new java.awt.BorderLayout());
jDesktopPane1.setBackground(new java.awt.Color(0, 204, 204));
jDesktopPane1.setBorder(javax.swing.BorderFactory.createTitledBorder(null, "KonverBit Version 1.0.0", javax.swing.border.TitledBorder.CENTER, javax.swing.border.TitledBorder.TOP, new java.awt.Font("Bradley Hand ITC", 1, 18), new java.awt.Color(204, 0, 51))); // NOI18N
jDesktopPane1.setForeground(new java.awt.Color(204, 0, 0));
jTabbedPane1.setForeground(new java.awt.Color(0, 0, 153));
jTabbedPane1.setTabPlacement(javax.swing.JTabbedPane.LEFT);
jTabbedPane2.setBorder(javax.swing.BorderFactory.createTitledBorder(null, "Konverter", javax.swing.border.TitledBorder.DEFAULT_JUSTIFICATION, javax.swing.border.TitledBorder.DEFAULT_POSITION, new java.awt.Font("Traditional Arabic", 3, 18), new java.awt.Color(153, 0, 0))); // NOI18N
jTabbedPane2.setTabPlacement(javax.swing.JTabbedPane.LEFT);
jDesktopPane3.setBackground(new java.awt.Color(240, 240, 240));
jButton1.setText("OK");
jButton1.addActionListener(new java.awt.event.ActionListener() {
public void actionPerformed(java.awt.event.ActionEvent evt) {
jButton1ActionPerformed(evt);
}
});
jButton1.setBounds(330, 10, 80, 23);
jDesktopPane3.add(jButton1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jButton2.setText("Keluar");
jButton2.addActionListener(new java.awt.event.ActionListener() {
public void actionPerformed(java.awt.event.ActionEvent evt) {
jButton2ActionPerformed(evt);
}
});
jButton2.setBounds(330, 50, 80, 23);
jDesktopPane3.add(jButton2, javax.swing.JLayeredPane.DEFAULT_LAYER);
jLabel1.setFont(new java.awt.Font("Pristina", 3, 14));
jLabel1.setForeground(new java.awt.Color(0, 0, 102));
jLabel1.setText("IT_A Production");
jLabel1.setBounds(320, 80, 100, 18);
jDesktopPane3.add(jLabel1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jLabel2.setFont(new java.awt.Font("Traditional Arabic", 1, 12));
jLabel2.setText("Input Bilangan :");
jLabel2.setBounds(10, 10, 110, 20);
jDesktopPane3.add(jLabel2, javax.swing.JLayeredPane.DEFAULT_LAYER);
jComboBox1.setModel(new javax.swing.DefaultComboBoxModel(new String[] { "Desimal", "Biner", "Heksadesimal", "Oktal" }));
jComboBox1.setBounds(130, 10, 120, 20);
jDesktopPane3.add(jComboBox1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jLabel4.setFont(new java.awt.Font("Traditional Arabic", 1, 12));
jLabel4.setText("Output Bilangan :");
jLabel4.setBounds(10, 60, 100, 20);
jDesktopPane3.add(jLabel4, javax.swing.JLayeredPane.DEFAULT_LAYER);
jComboBox2.setModel(new javax.swing.DefaultComboBoxModel(new String[] { "Desimal", "Biner", "Heksadesimal", "Oktal" }));
jComboBox2.setBounds(130, 60, 120, 20);
jDesktopPane3.add(jComboBox2, javax.swing.JLayeredPane.DEFAULT_LAYER);
jTabbedPane2.addTab("", jDesktopPane3);
jTabbedPane1.addTab("Konverter", new javax.swing.ImageIcon(getClass().getResource("/Images/delicious-32x32.png")), jTabbedPane2); // NOI18N
jTabbedPane3.setBorder(javax.swing.BorderFactory.createTitledBorder(null, "About", javax.swing.border.TitledBorder.DEFAULT_JUSTIFICATION, javax.swing.border.TitledBorder.DEFAULT_POSITION, new java.awt.Font("Traditional Arabic", 3, 18), new java.awt.Color(153, 0, 0))); // NOI18N
jTabbedPane3.setTabLayoutPolicy(javax.swing.JTabbedPane.SCROLL_TAB_LAYOUT);
jTabbedPane3.setTabPlacement(javax.swing.JTabbedPane.LEFT);
jDesktopPane2.setBackground(new java.awt.Color(0, 255, 255));
jTextArea1.setBackground(new java.awt.Color(240, 240, 240));
jTextArea1.setColumns(20);
jTextArea1.setEditable(false);
jTextArea1.setForeground(new java.awt.Color(153, 0, 0));
jTextArea1.setRows(5);
jTextArea1.setText("Aplikasi ini di berdayakan oleh ©Saiful Irham W.\nkelas TI 11 B Mahasiswa STMIK AMIKOM Purwokerto.\nPembuatan apalikasi ini sebagai bentuk bantuan\ndalam pembelajaran.\njika ada ketidaknyamanan dalam penggunaan aplikasi\nini silakan hubungi saya \nmelalui e-mail ke \"saiful.irham33@gmail.com\"......\nterima kasih......\n\n\n\t\t\t Konverbit Versi 1.0.0");
jTextArea1.setMinimumSize(new java.awt.Dimension(444, 112));
jScrollPane1.setViewportView(jTextArea1);
jScrollPane1.setBounds(0, 0, 430, 100);
jDesktopPane2.add(jScrollPane1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jTabbedPane3.addTab("", null, jDesktopPane2, "null");
jTabbedPane1.addTab("About ", new javax.swing.ImageIcon(getClass().getResource("/Images/designfloat-32x32.png")), jTabbedPane3); // NOI18N
jTabbedPane4.setBorder(javax.swing.BorderFactory.createTitledBorder(null, "Help", javax.swing.border.TitledBorder.DEFAULT_JUSTIFICATION, javax.swing.border.TitledBorder.DEFAULT_POSITION, new java.awt.Font("Traditional Arabic", 3, 18), new java.awt.Color(153, 0, 0))); // NOI18N
jTabbedPane4.setTabPlacement(javax.swing.JTabbedPane.LEFT);
jTextArea2.setBackground(new java.awt.Color(240, 240, 240));
jTextArea2.setColumns(20);
jTextArea2.setEditable(false);
jTextArea2.setForeground(new java.awt.Color(153, 0, 0));
jTextArea2.setRows(5);
jTextArea2.setText("1. Klik tab \"Konverter\".\n2. Pilih jenis bilangan yang akan di konvert pada \"Input\n Bilangan\".\n3. Pilih jenis bilangan yang akan di jadikan Output pada\n \"Output Bilangan\".\n4. \"Input Bilangan\" dan \"Output Bilangan\" tidak boleh sama.\n5. klik \"OK\" untuk setuju, klik \"Keluar\" Untuk tutup aplikasi..\n6. Masukan bilangan pada kotak pertama lalu klik\n tombol \"Konvert\".\n7. Jika ada yang kurang jelas silakan hubungi saya \n melalaui e-mail ke \"saiful.irham33@gmail.com\".");
jScrollPane2.setViewportView(jTextArea2);
jTabbedPane4.addTab("", jScrollPane2);
jTabbedPane1.addTab("Help ", new javax.swing.ImageIcon(getClass().getResource("/Images/digg-32x32.png")), jTabbedPane4); // NOI18N
jTabbedPane1.setBounds(10, 30, 580, 150);
jDesktopPane1.add(jTabbedPane1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jProgressBar1.setBounds(10, 190, 580, 14);
jDesktopPane1.add(jProgressBar1, javax.swing.JLayeredPane.DEFAULT_LAYER);
jPanel2.add(jDesktopPane1, java.awt.BorderLayout.CENTER);
jPanel1.add(jPanel2, java.awt.BorderLayout.CENTER);
javax.swing.GroupLayout layout = new javax.swing.GroupLayout(getContentPane());
getContentPane().setLayout(layout);
layout.setHorizontalGroup(
layout.createParallelGroup(javax.swing.GroupLayout.Alignment.LEADING)
.addComponent(jPanel1, javax.swing.GroupLayout.DEFAULT_SIZE, 603, Short.MAX_VALUE)
);
layout.setVerticalGroup(
layout.createParallelGroup(javax.swing.GroupLayout.Alignment.LEADING)
.addComponent(jPanel1, javax.swing.GroupLayout.DEFAULT_SIZE, 220, Short.MAX_VALUE)
);
pack();
}// </editor-fold>
private void jButton2ActionPerformed(java.awt.event.ActionEvent evt) {
setVisible(false);
// TODO add your handling code here:
}
private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {
if (jComboBox1.getSelectedItem()=="Desimal" && jComboBox2.getSelectedItem()=="Desimal" ||
jComboBox1.getSelectedItem()=="Biner" && jComboBox2.getSelectedItem()=="Biner" ||
jComboBox1.getSelectedItem()=="Heksadesimal" && jComboBox2.getSelectedItem()=="Heksadesimal" ||
jComboBox1.getSelectedItem()=="Oktal" && jComboBox2.getSelectedItem()=="Oktal"){
JOptionPane.showMessageDialog(null, "Input Bilangan dan Output Bilangan tidak boleh sama", "Toolloll...!!!", 2);
}else if (jComboBox1.getSelectedItem()=="Desimal" && jComboBox2.getSelectedItem()=="Biner"){
Biner_x bix=new Biner_x();
bix.setDefaultCloseOperation(DISPOSE_ON_CLOSE);
bix.setVisible(true);
bix.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Desimal" && jComboBox2.getSelectedItem()=="Heksadesimal"){
Heksadesimal_x hex=new Heksadesimal_x();
hex.setVisible(true);
hex.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Desimal" && jComboBox2.getSelectedItem()=="Oktal"){
Oktal_x ox=new Oktal_x();
ox.setVisible(true);
ox.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Biner" && jComboBox2.getSelectedItem()=="Desimal"){
Desimal_x1 dex1=new Desimal_x1();
dex1.setVisible(true);
dex1.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Biner" && jComboBox2.getSelectedItem()=="Heksadesimal"){
Heksadesimal_x1 hex1=new Heksadesimal_x1();
hex1.setVisible(true);
hex1.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Biner" && jComboBox2.getSelectedItem()=="Oktal"){
Oktal_x1 ox1=new Oktal_x1();
ox1.setVisible(true);
ox1.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Heksadesimal" && jComboBox2.getSelectedItem()=="Desimal"){
Desimal_x2 dex2=new Desimal_x2();
dex2.setVisible(true);
dex2.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Heksadesimal" && jComboBox2.getSelectedItem()=="Biner"){
Biner_x2 bix2=new Biner_x2();
bix2.setVisible(true);
bix2.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Heksadesimal" && jComboBox2.getSelectedItem()=="Oktal"){
Oktal_x2 ox2=new Oktal_x2();
ox2.setVisible(true);
ox2.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Oktal" && jComboBox2.getSelectedItem()=="Desimal"){
Desimal_x3 dex3=new Desimal_x3();
dex3.setVisible(true);
dex3.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Oktal" && jComboBox2.getSelectedItem()=="Biner"){
Biner_x3 bix3=new Biner_x3();
bix3.setVisible(true);
bix3.setLocation(500, 300);
}else if (jComboBox1.getSelectedItem()=="Oktal" && jComboBox2.getSelectedItem()=="Heksadesimal"){
Heksadesimal_x3 hex3=new Heksadesimal_x3();
hex3.setVisible(true);
hex3.setLocation(500, 300);
}
// TODO add your handling code here:
}
/**
* @param args the command line arguments
*/
public static void main(String args[]) {
java.awt.EventQueue.invokeLater(new Runnable() {
public void run() {
new AppBit().setVisible(true);
}
});
}
// Variables declaration - do not modify
private javax.swing.JButton jButton1;
private javax.swing.JButton jButton2;
private javax.swing.JComboBox jComboBox1;
private javax.swing.JComboBox jComboBox2;
private javax.swing.JDesktopPane jDesktopPane1;
private javax.swing.JDesktopPane jDesktopPane2;
private javax.swing.JDesktopPane jDesktopPane3;
private javax.swing.JLabel jLabel1;
private javax.swing.JLabel jLabel2;
private javax.swing.JLabel jLabel4;
private javax.swing.JPanel jPanel1;
private javax.swing.JPanel jPanel2;
private javax.swing.JProgressBar jProgressBar1;
private javax.swing.JScrollPane jScrollPane1;
private javax.swing.JScrollPane jScrollPane2;
private javax.swing.JTabbedPane jTabbedPane1;
private javax.swing.JTabbedPane jTabbedPane2;
private javax.swing.JTabbedPane jTabbedPane3;
private javax.swing.JTabbedPane jTabbedPane4;
private javax.swing.JTextArea jTextArea1;
private javax.swing.JTextArea jTextArea2;
// End of variables declaration
}
4. Buat form baru lagi, dan beri nama konvert....lalu beri toolbox dan buat tampilannya seperti ini :
Kang icak yakin kali sekarang kalian dah bisa kan masukan toolbox2 itu....
Ganti nama variable pertama dan kedua dengan input1 dan input 2, lalu ganti nama variable textbox pertama dan kedua dengan text1 dan text2....
Pada listing program Visaual Basic kang icak menggunakan prinsip method karena dengan itu kita mampu mengurangi pemakaian program yang panjang....
Ini listeing program Visual Basic :
Public Class konvert
'ini listing program button kembali
Private Sub btnKembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKembali.Click
Me.Visible = False
text1.Clear()
text2.Clear()
menuUtama.Show()
'setting proggrssbar dengan nilai 0
ProgressBar1.Value = 0
End Sub
'method konversi bilangan
Public Function DesToBin(ByVal NDesimal As Long) As String
Dim C As Byte
Dim D As Long
Dim Nilai As String
On Error GoTo ErrorHandler
D = (2 ^ 31) - 1
While D > 0
If NDesimal - D >= 0 Then
NDesimal = NDesimal - D
Nilai = Nilai & "1"
Else
If Val(Nilai) > 0 Then Nilai = Nilai & "0"
End If
D = D / 2
End While
DesToBin = Nilai
Exit Function
ErrorHandler:
DesToBin = 0
End Function
Public Function BinToDes(ByVal NDesimal As String) As Long
BinToDes = DesToBin(NDesimal)
End Function
Public Function DesToHex(ByVal NDesimal As Long) As String
DesToHex = Hex(NDesimal)
End Function
Public Function HexToDes(ByVal NHexa As String) As Long
Dim E As Integer
Dim Nilai As Long
Dim F As Long
Dim CharNilai As Byte
On Error GoTo ErrorHandler
For E = Len(NHexa) To 1 Step -1
Select Case Mid(NHexa, E, 1)
Case "0" To "9" : CharNilai = CInt(Mid(NHexa, E, 1))
Case Else : CharNilai = Asc(Mid(NHexa, E, 1)) - 55
End Select
Nilai = Nilai + ((16 ^ F) * CharNilai)
F = F + 1
Next E
HexToDes = Nilai
Exit Function
ErrorHandler:
HexToDes = 0
End Function
Public Function DesToOk(ByVal NDesimal As Long) As String
DesToOk = Oct(NDesimal)
End Function
Public Function OkToDes(ByVal NOktal As String) As Long
Dim G As Integer
Dim H As Long
Dim Nilai As Long
On Error GoTo ErrorHandler
For G = Len(NOktal) To 1 Step -1
Nilai = Nilai + (8 ^ H) * CInt(Mid(NOktal, G, 1))
H = H + 1
Next G
OkToDes = Nilai
Exit Function
ErrorHandler:
OkToDes = 0
End Function
Public Function BinToOk(ByVal bin As Long) As String
BinToOk = DesToOk(BinToDes(bin))
End Function
Public Function BinToHex(ByVal NBiner As Long) As String
BinToHex = DesToHex(BinToDes(NBiner))
End Function
Public Function OkToBin(ByVal NOktal As Double) As String
OkToBin = DesToBin(OkToDes(NOktal))
End Function
Public Function OkToHex(ByVal NOktal As Double) As String
OkToHex = DesToHex(OkToDes(NOktal))
End Function
Public Function HexToBin(ByVal NHexa As String) As String
HexToBin = DesToBin(HexToDes(NHexa))
End Function
'
Public Function HexToOk(ByVal NHexa As String) As Double
HexToOk = DesToOk(HexToDes(NHexa))
End Function
'akhir method konversi bilangan
'listing program button konvert
Private Sub btnKonvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonvert.Click
Timer1.Enabled = True
End Sub
'listing program button konvert
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If input1.Text.Equals("Desimal") And input2.Text.Equals("Biner") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
'memanggil method dan menampilkan pada texbox2 dari isi textbox1
text2.Text = DesToBin(text1.Text)
End If
ElseIf input1.Text.Equals("Desimal") And input2.Text.Equals("Oktal") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = DesToOk(text1.Text)
End If
ElseIf input1.Text.Equals("Desimal") And input2.Text.Equals("Heksadesimal") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = DesToHex(text1.Text)
End If
ElseIf input1.Text.Equals("Biner") And input2.Text.Equals("Desimal") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = BinToDes(text1.Text)
End If
ElseIf input1.Text.Equals("Biner") And input2.Text.Equals("Oktal") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = BinToOk(text1.Text)
End If
ElseIf input1.Text.Equals("Biner") And input2.Text.Equals("Heksadesimal") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = BinToHex(text1.Text)
End If
ElseIf input1.Text.Equals("Oktal") And input2.Text.Equals("Desimal") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = OkToDes(text1.Text)
End If
ElseIf input1.Text.Equals("Oktal") And input2.Text.Equals("Biner") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = OkToBin(text1.Text)
End If
ElseIf input1.Text.Equals("Oktal") And input2.Text.Equals("Heksadesimal") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = OkToHex(text1.Text)
End If
ElseIf input1.Text.Equals("Heksadesimal") And input2.Text.Equals("Desimal") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = HexToDes(text1.Text)
End If
ElseIf input1.Text.Equals("Heksadesimal") And input2.Text.Equals("Biner") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = HexToBin(text1.Text)
End If
ElseIf input1.Text.Equals("Heksadesimal") And input2.Text.Equals("Oktal") Then
ProgressBar1.Value += 4
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
text2.Text = HexToOk(text1.Text)
End If
Else
MsgBox("Input Bilangan Not Valid...!!!")
text1.Clear()
text2.Clear()
End If
End Sub
End Class
**jalankan program lalu build program, dah tau kan caranya....hiihi
Yaps,,,klik menu build lalu pilih build <spasi> namaProject lalu cari dech aplikasinya di windows Explorer dan masuk ke folder project kalian lalu cari yang berexstention application**
Ini listing program dalam bahasa Java :
Eitttzzzz.....sebelumnya kang icak mohon maaf nich karena listing program dalam bahasa java paaannnjjaaaannnngggg bangeeeeettttssss.....karena dalam bahasa java kang icak memakai banyak sekali class, jadi kalau kang icak postingkan juga bisa2 kang icak kena tilang ma pihak blogspot karena posting panjangnya ga kira2....hehe
Dari pembahasan di atas kang icak harap kalian sudah tahu mana kekurangn dan kelebihan dari masing2 bahasa pemrograman di atas.....tapi jangan bikin kalian benci lho pada salah satu bahasa pemrograman yang menurut kalian lebih jelek,,,karena menurut kang icak kita harus tetep mempelajarinya biarpun bahasa pemrograman’y sejelek kang icak.....hehehe
Oke slemaat mencoba tutorial dari kang icak.....
Sampai jumpa di postingan selanjutnya.......bye bye
Langganan:
Komentar (Atom)