Link STMIK Bani Saleh

Untuk ank" kmpus Bani Saleh skrg g ush repot tuck lht nilai k'kmps or yang lain....
tnggl buka link nich ajh,,,

slmt mncba yach kwand",,,

http://www.stmik.banisaleh.ac.id/bansal/index.php

Assalamu alai’kum Wr….Wb…

Minnggu depan kita sudah membuat aplikasi puzzle,sekarang kita membuat aplikasi akademik,nich saya kasih desainnya :

Oh yach nich juga Saya kasih koding lengkapnya aja ea..... , :

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call IsiCombo() ''mengaktifkan isi combo
Call Bersih()
End Sub
Sub IsiCombo()
ComboBox1.Items.Add("06 Teknik Informatika")
ComboBox1.Items.Add("07 sistem Informasi")
ComboBox1.Items.Add("26 Management Informasi")
ComboBox1.Items.Add("67 Komputer Akutansi")
ComboBox1.Items.Add("05 Teknik Komputer")

End Sub
Sub Bersih() '' Pilihan awal sebagai default= saat mulai jadi tampilan awal
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 Teknik Informatika"
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False ''enable berfungsi aktif dan tidak aktif; true = aktif ;false =tidak
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus() ''kursor akan lari ke textbox1
Else
ListBox1.Items.Add(Trim(TextBox1.Text) + "" + Trim(TextBox2.Text) + "" + Trim(TextBox3.Text) + "" + Trim(TextBox4.Text) + "" + Trim(ComboBox1.Text) + "")
''Trims = menghilangkan spasi

End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
''button 4 untuk kluar atau batal
If Button4.Text = "Keluar" Then
Me.Close() ''menutup form diri sendiri secara otomatis
Else
Call Bersih()
Call Normal()
End If
End Sub
Sub Normal()
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
TextBox1.Focus()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Ubah" Then
Button2.Enabled = True
Button1.Text = "Tambah"
Button1.Enabled = False
Button3.Text = " Hapus"
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Hapus" Then
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
Button3.Text = "Ok"
End If

End Sub


End Class

Nah itulah membuat aplikasi Akademik,semoga bias di coba dan bermanfaat yach buat kalian semua,kalau ada yang mau di tambahin juga gpp co….

ya udah yach…..

Wassalamu alai’kum…Wr…Wb…

Assalamu alai'kum wr...wb....

Sekarang Tugas Puzzle VB.NetMembuat puzzle menggunakan VB.Net1. Buat form seperti berikut 2. Lalu lakukan setting di bagian properties object seperti berikut : Button1 Visible = false Button 2 Teks = 2 Button 3 Teks = 3 Button 4 Teks = 4 Button 5 Teks = 5 Button 6 Teks

Create Project,seperti gambar di bawah ini :









Terus kita ketik Name,Location,Solution Name,kalau sudah kiat OK :




















Terus akan tampil Form1.vb[Desain] yang baru seperti ini :










Lalu lakukan setting di bagian properties object seperti berikut : Button1 Visible = false Button 2 Teks = 2 Button 3 Teks = 3 Button 4 Teks = 4 Button 5 Teks = 5 Button 6 Teks




















Lalu lakukan setting di bagian properties object seperti berikut :

Button1	Visible = false
Button 2	Teks = 2
Button 3	Teks = 3
Button 4	Teks = 4
Button 5	Teks = 5
Button 6	Teks = 6
Button 7	Teks = 7
Button 8	Teks = 8
Button 9	Teks = 9

3. Lalu masukkan syntax berikut :

Public Class Puzzle

Private Sub Button1_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button1.Click

If Button2.Visible = False Then

Button2.Visible = True

Button1.Visible = False

Button2.Text = Button1.Text

Else

If Button4.Visible = False Then

Button4.Visible = True

Button1.Visible = False

Button4.Text = Button1.Text

End If

End If

cek()

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button2.Click

If Button1.Visible = False Then

Button1.Visible = True

Button2.Visible = False

Button1.Text = Button2.Text

ElseIf Button3.Visible = False Then

Button3.Visible = True

Button2.Visible = False

Button3.Text = Button2.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button2.Visible = False

Button5.Text = Button2.Text

End If

cek()

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button3.Click

If Button2.Visible = False Then

Button2.Visible = True

Button3.Visible = False

Button2.Text = Button3.Text

Else

If Button6.Visible = False Then

Button6.Visible = True

Button3.Visible = False

Button6.Text = Button3.Text

End If

End If

cek()

End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button4.Click

If Button1.Visible = False Then

Button1.Visible = True

Button4.Visible = False

Button1.Text = Button4.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button4.Visible = False

Button5.Text = Button4.Text

ElseIf Button7.Visible = False Then

Button7.Visible = True

Button4.Visible = False

Button7.Text = Button4.Text

End If

cek()

End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button6.Click

If Button3.Visible = False Then

Button3.Visible = True

Button6.Visible = False

Button3.Text = Button6.Text

ElseIf Button9.Visible = False Then

Button9.Visible = True

Button6.Visible = False

Button9.Text = Button6.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button6.Visible = False

Button5.Text = Button6.Text

End If

cek()

End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button8.Click

If Button7.Visible = False Then

Button7.Visible = True

Button8.Visible = False

Button7.Text = Button8.Text

ElseIf Button9.Visible = False Then

Button9.Visible = True

Button8.Visible = False

Button9.Text = Button8.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button8.Visible = False

Button5.Text = Button8.Text

End If

cek()

End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button7.Click

If Button8.Visible = False Then

Button8.Visible = True

Button7.Visible = False

Button8.Text = Button7.Text

Else

If Button4.Visible = False Then

Button4.Visible = True

Button7.Visible = False

Button4.Text = Button7.Text

End If

End If

cek()

End Sub

Private Sub Button9_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button9.Click

If Button6.Visible = False Then

Button6.Visible = True

Button9.Visible = False

Button6.Text = Button9.Text

Else

If Button8.Visible = False Then

Button8.Visible = True

Button9.Visible = False

Button8.Text = Button9.Text

End If

End If

cek()

End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button5.Click

If Button2.Visible = False Then

Button2.Visible = True

Button5.Visible = False

Button2.Text = Button5.Text

ElseIf Button4.Visible = False Then

Button4.Visible = True

Button5.Visible = False

Button4.Text = Button5.Text

ElseIf Button6.Visible = False Then

Button6.Visible = True

Button5.Visible = False

Button6.Text = Button5.Text

ElseIf Button8.Visible = False Then

Button8.Visible = True

Button5.Visible = False

Button8.Text = Button5.Text

End If

cek()

End Sub

Private Sub cek()

If (Button1.Text = "1" And Button2.Text = "2" AndButton3.Text = "3" And Button4.Text = "4") Then

If (Button5.Text = "5" And Button6.Text = "6" AndButton7.Text = "7") Then

If (Button8.Text = "8") Then

MessageBox.Show("Selesai")

End If

End If

End If

End Sub

End Class

Membuat Aplikasi Program Bilangan di bagi 3 & 4 yang sisanya 0

• maka inilah Aplikasi program yang dibagi 3 & 4 dan sisanya 0 .
  

• 

Lalu kita ketik Save ke folder yang kita inginkan :

• 

Lalu kita Runningin maka hasil seperti ini :

• 

Terus kita kasih sintak pada sebuah Button1,seperti gambar ini :

• 

Kemudian kita kasih 1 TextBoxt , 1 Button , 1 ListBoxt :

• 

Terus akan tampil Form1.vb[Desain] yang baru seperti ini :

• Create Project,Name,Location,Solution Name,kalau sudah kiat OK ,sama dengan program yang pertama kita buat tadi.
  

• Sekarang Kita Membuat Aplikasi Program Bilangan di bagi 3 & 4 yang sisanya 0 :

Membuat Aplikasi program yang dibagi 3 & 4 dan sisanya 3

• maka inilah Aplikasi program yang dibagi 3 & 4 dan sisanya 3.
  

• 

Lalu kita ketik Save ke folder yang kita inginkan :

• 

Lalu kita Runningin maka hasil seperti ini :

• 

Terus kita kasih sintak pada sebuah Button1,seperti gambar ini :

• 

Kemudian kita kasih 1 TextBoxt , 1 Button , 1 ListBoxt :

• 

Terus akan tampil Form1.vb[Desain] yang baru seperti ini :

• Terus kita ketik Name,Location,Solution Name,kalau sudah kiat OK :

1. Membuat Aplikasi Program Bilangan di bagi 3 & 4 yang sisanya 3 & 0 :

• Create Project,seperti gambar di bawah ini :

Memahami Objek pada Visual Basic

Memahami Objek pada Visual Basic

Apa yang dimaksud dengan Objek

Objek merupakan suatu kombinasi dari kode dan data yang dapat diperlakukan sebagai satu kesatuan. Suatu Objek dapat merupakan bagian dari aplikasi seperti suatu kontrol atau suatu form. Secara keseluruhan dari aplikasi dapat juga berupa suatu objek.

Dari mana datangnya Objek

Setiap objek pada Visual Basic didefinisikan oleh suatu class. Untuk memahami hubungan antara objek dengan class-nya, perhatikan contoh berikut :

· Kontrol-kontrol yang barada pada jendela Toolbox pada Visual Basic merupakan class-class. Objek tersebut dikenal sebagai kontrol tidak akan ada sampai anda menanamkannya pada suatu form. Ketika anda menanamkan suatu kontrol, anda telah membuat suatu duplikasi atau instance dari class kontrol tersebut.

· Form dimana anda bekerja pada saat desain adalah suatu class. Pada saat run time, Visual Basic menciptakan suatu instance dari class form.

Misalnya anda menamkan sebuah textbox diatas form1, coba perhatikan jendela properti kontrol tersebut akan menampilkan Text1 (nama dari kontrol textbox tersebut) dan Textbox (nama dari class kontrol tersebut).

Semua objek merupakan duplikasi dari class mereka. Sesaat setelah menjadi objek berdiri sendiri, masing-masing dapat memiliki properti yang berbeda-beda.

Misalnya anda menanam tiga buah command button pada suatu form, masing-masing command button merupakan instance dari class CommandButton sehingga memiliki sejumlah karakteristik dan kemampuan (properti-properti, metode-metode, dan event-event) yang sama, dimana yang terdefinisi pada class-nya. Tetapi, masing-masing dapat memiliki Name, Caption, BackColor, Style yang berbeda sesuai dengan pengaturan pada masing-masing properti.

Bekerja dengan objek

Objek-objek Visual Basic memiliki properti-properti, metode-metode, dan event-event. Pada Visual Basic, suatu data dari objek (setting dan atribut) disebut sebagai properti, sedangkan berbagai subrutin yang dapat beroperasi pada objek tersebut disebut sebagai metodenya. Dan suatu event adalah aksi yang dikenali oleh suatu objek, seperti klik pada mouse atau penekanan tombol, sehingga anda dapat menulis kode untuk menangani event tersebut.

Mengatur Nilai properti

Anda dapat langsung mengatur nilai properti suatu kontrol pada jendela properti, maupun pada saat runtime dengan menggunakan bentuk penulisan berikut :

Objek.properti = ekspresi

atau

Private Sub Form_Load() MyForm.Caption = "Pemakai Telepon" End Sub

Mengambil nilai dari Properti

Anda dapat mengambil nilai dari properti suatu objek dengan penulisan sebagai berikut :

Variabel = Objek.properti

Contoh :

Private Sub cmdProses_Click() Nama = txtNama.Text End Sub

Menggunakan Metode dalam Kode

Ketika anda mengunakan suatu metode dalam kode anda, hal tersebut tergantung kepada bagaimana kaitan perintah dan berapa argumen yang diperlukan, dan apakah metode tersebut mengembalikan suatu nilai. Ketika suatu metode tidak membutuhkan argumen anda dapat menulisnya sebagai berikut ::

Objek.Metode

Contoh :

Private Sub cmdBuka_Click() frmPemakai.show End Sub

Beberapa properti yang umum

Berikut ini akan dibahas beberapa properti yang umum yang hampir terdapat pada semua intrinsic kontrol pada Visual Basic.

Properti Left, Top, Width dan Height

Semua objek yang visible memiliki properti yang menentukan letak dan ukurannya. Nilai properti Left dan Top sifatnya relatif terhadap kontainernya (misalnya suatu textbox yang ditanamkan diatas form, maka form tersebut disebut sebagai kontainer bagi textbox tersebut), sedangkan Width dan Height menentukan ukuran dari objek tersebut.

Nb. Pada defaultnya nilai properti ini dinyatakan dalam twips ( 1 inch = 1440 twips; 1 cm = 576 twips)

Perhatian : Properti Width dan Height pada control Combobox sifatnya readonly.

Properti Forecolor dan BackColor

Umumnya objek yang visible memiliki properti Forecolor dan Backcolor, yang mempengaruhi warna tulisan dan warna latarbelakang, tetapi beberapa diantaranya tidak ada (misalnya control scroll-bars), pada command button tidak terdapat properti Forecolor, dan Backcolornya hanya berfungsi jika anda menganti properti style menjadi 1 – Graphical.

Nb. Setting properti Backcolor menjadi tidak berfungsi jika anda menset properti BackStyle menjadi 0 – transparent.

Ketika anda menentukan nilai untuk properti ini, anda dapat menggunakan suatu warna standard, atau warna custom (saya menyarankan anda untuk menggunakan warna standard untuk menjaga nilai rasa pemakai integrasi dengan sistem operasi)

Properti Font

Pada waktu desain, anda dapat menentukan properti Font dengan dialog box, tetapi pada saat runtime, hal tersebut harus dilakukan dengan properti Name, Size, Bold, Italic, Underline, and Strikethrough, karena sebenarnya Font adalah suatu objek campuran.

Contoh :

Text1.Font.Name = "Tahoma" Text1.Font.Size = 12 Text1.Font.Bold = True Text1.Font.Underline = True

Properti Caption dan Text

Caption adalah tulisan yang tampil dalam suatu control (atau title pada objek form) yang mana pemakai tidak dapat melakukan modifikasi langsung (control Label, CommandButton, Checkbox, Optionbutton, Data, dan Frame), sebaliknya Text adalah tulisan yang dapat dimodifikasi oleh pemakai (control Textbox, Listbox dan Combobox).

Nb. Pada properti Caption, kita dapat menggunakan tanda & (ampersand) untuk menyatakan hotkey bagi control tersebut. Properti Text dapat diabaikan, karena merupakan properti default bagi suatu control.

Contoh :

' Kedua perintah ini adalah sama Text2.Text = Text1.Text Text2 = Text1                  'tanpa properti text

Properti Enabled dan Visible

Pada defaultnya semua control dan form adalah Enabled dan Visible. Anda dapat menyembunyikan suatu kontrol dengan menggunakan properti Visible = False. Kontrol yang properti Enabled = False tidak dapat diakses oleh pemakai, tetapi dapat diakses secara kode.

Programmer dapat juga menggunakan properti Locked = True untuk membuat suatu kontrol read only.

Properti TabStop dan TabIndex

Suatu kontrol yang dapat menerima fokus input memiliki properti TabStop. Kontrol yang memiliki properti TabStop juga memiliki properti TabIndex. Properti TabStop menentukan apakah suatu kontrol dapat menerima fokus pada penekanan tombol Tab oleh pemakai, defaultnya adalah true, sedangkan properti TabIndex menentukan urutan fokus pada saat pemakai menekan Tab.

Properti MousePointer dan MouseIcon

Properti ini akan menentukan bentuk kursor mouse ketika berada diatas kontrol tersebut. Windows memperbolehkan kita mengatur tampilan mouse untuk setiap form dan kontrol dengan mengikuti aturan berikut :

• Jika properti Screen.MousePointer di set ke nilai yang bukan 0-vbDefault, kursor mouse akan mengikuti nilai ini, tetapi ketika mouse berada diatas aplikasi lain (atau pada desktop), tampilan kursor akan bergantung kepada kondisi aplikasi bersangkutan, bukan pada aplikasi anda.
• Jika Screen.MousePointer adalah 0 dan kursor mouse berada diatas suatu kontrol, Visual Basic akan memeriksa nilai propertiMousePointer kontrol tersebut; jika nilainya bukan 0-vbDefault, kursor mouse akan di set ke nilai tersebut.
• Jika Screen.MousePointer adalah 0 dan mouse berada diatas permukaan suatu form atau berada diatas kontrol yang properti MousePointer adalah 0, Visual Basic akan menggunakan nilai yang tersimpan pada properti Mousepointer pada form.

Properti MouseIcon dapat digunakan untuk menampilkan bentuk pointer mouse sesuai dengan keinginan pemakai, tetapi sebelumnya properti MouseIcon harus di set ke 99-vbCustom, dan kemudian set suatu icon pada properti MouseIcon.

Properti Tag

Semua kontrol mendukung properti Tag, tanpa kecuali, karena properti ini disediakan oleh Visual Basic, bukan oleh kontrol. Properti Tag digunakan sebagai kontainer untuk bagi data dari kontrol yang anda ingin simpan (misalnya anda dapat mengunakannya untuk menyimpan nilai awal dari textbox, sehingga pemakai dapat melakukan Undo dengan mengembalikan nilai awal tersebut dari properti Tag).

Beberapa Metode-metode umum

Berikut ini akan dibahas beberapa metode yang umum yang hampir terdapat pada semua intrinsic kontrol pada Visual Basic.

Metode Move

Jika suatu kontrol mendukung properti Left, Top, Width, dan Height, juga mendukung metode Move, dengannya dimana anda dapat mengubah beberapa atau semua properti dalam satu operasi tunggal. Contoh berikut mengubah tiga properti: Left, Top, dan Width.

Contoh :

'Mendoublekan lebar form, dan memindahkan ke sudut kiri atas layar 'Syntaxnya adalah: Move Left, Top, Width, Height.   Form1.Move 0, 0, Form1.Width * 2

Metode Refresh

Metode refresh menyebabkan suatu form akan digambar ulang. Pada dasarnya Visual Basic otomatis memanggil metode ini setiap ada kesempatan, tetapi anda dapat menggunakannya untuk mengupdate tampilan seketika.

Contoh :

For n = 1000 To 1 Step -1     Label1.Caption = CStr(i)     Label1.Refresh          ' Mengupdate label seketika. Next

Metode SetFocus

Metode ini memindahkan fokus input ke kontrol tertentu. Sesuatu masalah yang sering terjadi adalah metode ini akan menyebabkan error ketika diterapkan pada kontrol yang sedang di Disable atau dalam keadaan Invisible. Untuk menhindari hal ini, metode SetFocus jangan digunakan pada bagian Form Load.

Contoh :

Private Sub cmdAdd_Click() Aksi = flAdd Call Buka Call Kosong txtCCode.SetFocus              'Memindahkan fokus ke kontrol txtCCode End Sub

Metode ZOrder

Metode ZOrder memberikan efek tampilan kontrol yang saling menimpa. Anda menggunakan metode ini untuk memindahkan kontrol keatas kontrol yang lain. Gunakan argumen satu untuk sebaliknya.

Contoh :

Label1.ZOrder          'Memindahkan ke atas Label1.ZOrder 1                'Memindahkan ke bawah

Pada saat design, anda dapat menggunakan Ctrl+J untuk memindahkan kontrol ke depan, dan Ctrl+K untuk memindahkan form ke belakang.

Beberapa Event yang umum

Berikut ini akan dibahas beberapa metode yang umum yang hampir terdapat pada semua intrinsic kontrol pada Visual Basic.

Event Click dan DblClick

Event click terjadi ketika pemakai melakukan klik pada tombol kiri mouse. demikian juga Event DblClick terjadi karena pemakai melakukan klik dua kali.

Private Sub cmdUpdate_Click() JlhRec = JlhRec + 1 DatPemakai.CCode = txtCCode.Text DatPemakai.Nama = txtNama.Text DatPemakai.Ekstension = txtEkstension.Text DatPemakai.Local = optLocal.Value DatPemakai.SLJJ = optSLJJ.Value DatPemakai.SLI = optSLI.Value Put #1, JlhRec, DatPemakai Posisi = JlhRec End Sub

Pada kontrol-kontrol seperti Checkbox dan OptionButton, event Click juga dibangkitkan kalau terjadi perubahan nilai properti Value secara koding.

ListBox dan Combobox juga melakukan hal yang sama kalau properti ListIndex-nya berubah.

Adalah penting untuk menghindari pemakaian Event Click dan DblClick pada satu kontrol yang sama, karena tidak menjamin Event DblClick dibangkitkan setelah Event Click terjadi.

Pemberitahuan Alamat Blog

Assalamu Alai'kum....Wr...Wb...

Selamat pagi pak sapto nich alamat Blog saya :

Nama : Fahmi
NPM : 43A87006090050

Jurusan : S1/TI/4A/Shift

Terima Kasih Pak...

Wassalamu Alai'um...Wr...Wb...