Cari Blog Ini

Senin, 28 Maret 2011

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…

Diposting oleh di Tidak ada komentar:

Jumat, 25 Maret 2011

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
Diposting oleh di Tidak ada komentar:

Senin, 21 Maret 2011

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 :
Diposting oleh di Tidak ada komentar:

Minggu, 20 Maret 2011

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 :
    Diposting oleh di Tidak ada komentar:
    Langganan: Postingan (Atom)