puzzle aneh

TUGAS VIBI 3

MODIFIKASI TUGAS YANG KEMARIN

Saat program dijalakan, semua isian tidak aktif, tombol isi data dan tutup aktif sedangkan tombol clear tidak aktif.

codingnya :

Saat tombol isi data ditekan, kodebarang, jumlah barang, cara beli dan tombol clear aktif, sedangkan tombol isidata tidak aktif.

codingnya: 

SAAT tombol clear di jalankan.,…

Codingnya seperti ini :

Txtnama.Clear()

        Txtbayar.Clear()

        Txtjumlah.Clear()

        Txtdiskon.Clear()

        Txtharga.Clear()

        Me.Radtunai.Checked = False

        Me.Radkredit.Checked = False

PUZZLE

1. Posisi angka acak

2. Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombok kosong

3. Ketika sudah tersusun semua maka keluar message selamat anda berhasil

Codingnya :

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button4.Visible = False Then
Button1.Visible = False
Button4.Visible = True
Button4.Text = Button1.Text
ElseIf Button2.Visible = False Then
Button1.Visible = False
Button2.Visible = True
Button2.Text = Button1.Text
End If
pesan()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button2.Visible = False
Button1.Visible = True
Button1.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button2.Visible = False
Button5.Visible = True
Button5.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button2.Visible = False
Button3.Visible = True
Button3.Text = Button2.Text
End If
pesan()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button6.Visible = False Then
Button3.Visible = False
Button6.Visible = True
Button6.Text = Button3.Text
ElseIf Button2.Visible = False Then
Button3.Visible = False
Button2.Visible = True
Button2.Text = Button3.Text
End If
pesan()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.Visible = False Then
Button4.Visible = False
Button1.Visible = True
Button1.Text = Button4.Text
ElseIf Button7.Visible = False Then
Button4.Visible = False
Button7.Visible = True
Button7.Text = Button4.Text
ElseIf Button5.Visible = False Then
Button4.Visible = False
Button5.Visible = True
Button5.Text = Button4.Text
End If
pesan()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button2.Visible = False Then
Button5.Visible = False
Button2.Visible = True
Button2.Text = Button5.Text
ElseIf Button4.Visible = False Then
Button5.Visible = False
Button4.Visible = True
Button4.Text = Button5.Text
ElseIf Button6.Visible = False Then
Button5.Visible = False
Button6.Visible = True
Button6.Text = Button5.Text
ElseIf Button8.Visible = False Then
Button5.Visible = False
Button8.Visible = True
Button8.Text = Button5.Text
End If
pesan()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button3.Visible = False Then
Button6.Visible = False
Button3.Visible = True
Button3.Text = Button6.Text
ElseIf Button9.Visible = False Then
Button6.Visible = False
Button9.Visible = True
Button9.Text = Button6.Text
ElseIf Button5.Visible = False Then
Button6.Visible = False
Button5.Visible = True
Button5.Text = Button6.Text
End If
pesan()
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button4.Visible = False Then
Button7.Visible = False
Button4.Visible = True
Button4.Text = Button7.Text
ElseIf Button8.Visible = False Then
Button7.Visible = False
Button8.Visible = True
Button8.Text = Button7.Text
End If
pesan()
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button9.Visible = False Then
Button8.Visible = False
Button9.Visible = True
Button9.Text = Button8.Text
ElseIf Button7.Visible = False Then
Button8.Visible = False
Button7.Visible = True
Button7.Text = Button8.Text
ElseIf Button5.Visible = False Then
Button8.Visible = False
Button5.Visible = True
Button5.Text = Button8.Text
End If
pesan()
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button6.Visible = False Then
Button9.Visible = False
Button6.Visible = True
Button6.Text = Button9.Text
ElseIf Button8.Visible = False Then
Button9.Visible = False
Button8.Visible = True
Button8.Text = Button9.Text
End If
pesan()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim acak As Integer
acak = Rnd() * 10
Button1.Text = acak
Button2.Text = acak - 2
Button3.Text = acak - 5
Button4.Text = acak - 3
Button5.Text = acak + 1
Button6.Text = acak - 1
Button7.Text = acak - 6
Button8.Text = acak - 4
End Sub

Private Sub pesan()
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" Then
MsgBox(" ANDA BERHASIL")
End If
End Sub
End Class

analisa tugas vibi ke 2

ALhamdulilah...tak lupa tux ucapkan syukur ketika TUGAS dah selesai...soal2 yg ad ta jawab semampuuku..ini lah jwabannya .........caPcus aj yuh....

latihan 1

a. mengapa Btalamat error?

    karena tidak ada pendeklarasian type datanya, yang seharusnya DIM alamat as string ="kuningan" Bukan 

     hanya alamat ="kuningan"

b. mengapa di btnama 1 dan 2 jika di klik berbeda tetapi di bt alamat 1 dan 2 sama?

     karena di btnama 1 itu ada DIM nama as string sehingga itu berlaku hanya unntuk button 1 alias bersifat

    local hanya untuk lingkungan itu  saja secara otomatis btnama 2 juga hasile akan berbeda dengan  

    btnama1. sedangkan kalau di btalamat 1 itu tidak menggunakan dim sehingga jika di button alamat 2 di  

    klik maka  munculnya akan sama dengan button alamat  1.

c. karena di bttambah umur1 itu masih menggunakan dim sehingga jika di klik maka akan selalu muncul 1 sebab nilai yang pertama itu hilang dan terganti dengan nilai 1 terus.

tetapi di bttambah umur 2 itu akan selalu bertambah 1 sebab dalam codingnya menngunakan static yang artinya tetap alias tidak akan hilang dan ketika kita mengkliknya maka otomatis umurnya akan selalu bertambah sesuai dengan seberapa banyak kita mengkliknya.misalnya kita mengklik di bttambah umur 2 sebanyak 3 x maka secara otomatis umurnya akan bertambah 3 tahun.

d  .jika kita mengklik tombol nama, alamat, umur yang ada di form2  maka secara otomatis di bagian textbox nya maka akan muncul apa yang terdapat di module yang bersifat global (public).

latihan 2 if case

MENURUT ANALISA saya

kelemahanya ada beberapa yang masih kurang sempurna ,,seperti ketika kita pilih kdbarang SND dan TOP di bagian nama barang itu tidak muncul sepatu tetapi masih tanda ( - )sehingga secara otomatis di textbox harga juga muncul nilai 0..

selain itu juga ketika mengklik tombol clear di bagian textbox diskon dan total bayar masih terlihat nilai 0 dan baru akan hilang ketika kita mengklik tombol clear lagi sehingga untuk lebih cepatnya cukup dengan sekali klik langsung bersih caranya dengan mengganti coding d btclear tersebebut dengan seperti gambar di bawah ini : 

secara otomatis kita bisa lihat hasilnya.....

1 klik langsung bersih...heheheh

insyALLah itulah jawaban semampu saya KEsempurnaan milik Allah dan kekurangan milik manusia...jika ada kesalahan saya minta maaf sebesar-besarnya.....

matur tengyu....

kalkulator jadul-sederhana dan unik

khafifah  11.11.2329   ti11a

alhamdulilah akhirnya selesai juga tugasQuw...

 

 walaw sederhana tapiiii unik koq..tidak seperti kalkulator yang lainnya..biasanya kalkulator yang di pasaran cuma bisa menampilkan satu operasi saja yang kita inginkan..misalnya kita ingin menghitung jumlah saja maka keluarnya hanya hasil jumlah saja..beda dengan buatanku loh..Pokoknya Lain dari yang lain..hehehe...kalkulator ini langsung sekaligus menghitung 4 operand yaitu dengan menekan tombol hitung maka hasilnya akan muncul ke empat-empatnya yaitu hasil jumlah,kurang ,bagi dan kali...yapzzz penasarankann..yuk qita Simakkkk cara buatnya...

pertama bikin rinciannya dulu alias method yang kita butuhkan: 

Nama komponen	Jumlah
textbox	6
Button	3
Label	7

Ubah property dari komponen yang di tambahkan tersebut. kita ambil seberapa saja biar tidak kebanyakan yakkkk…ini  contohnya..

Nama komponen	Property	value
Label 1	Text	Kalkulator jadul
Label 2	text	Angka1
Textbox1	Name	Txt1
Button1	Name	bthitung

Lalu kita bikin desainnya sesuai dengan keinginan kita..contohnya sebagai berikut:

Pada aplikasi yang sudah di buat terdapat beberapa baris kode program sbb:

Txthasiljumlah.text=int(txt1.text+txt2.text)

Txthasilkurang.text=int(txt1.text-txt2.text)

Txthasilkali.text=int(txt1.text*txt2.text)

Txthasilbagi.text=int(txt1.text/txt2.text)

Dari beberapa baris kode di atas,yang akan anda amati adalah penggunaan operator dan operand.sebagai contoh adalah statemen:

Txthasiljumlah.text=int(txt1.text+txt2.text)

Statemen di atas merupakan statemen yang di gunakan untuk melakukan operasi perhitungan penjumlahan dari dua buah operand yaitu antara txt1.text dengan txt2.text.

Kedua operand tersebut di letakan di antara tulisan int() yang berfungsi untuk melakukan konversi variable bertipe string menjadi variable berupa numeric dalam hal ini adalah bertipe integer.hal tersebut di lakukan karena txt1.text dan txt2.text merupakan objek variable yang bertipe string.

Adapun variable yang di gunakan untuk menampung hasil perhitungan adalah variable txthasil.text.sehingga apabila statemen tersebut anda sedeerhanakan,maka hasilnya adalah:

Hasil=opr1+opr2

Pada saat aplikasi di jalankan ,anda akan meminta untuk memasukan dua buah angka yang akan di hitung .di bagian textbox angka  yang sudah di sediakan di lanjutkan dengan menekan tombol HITUNG maka secara otomatis hasilnya akan tampil di setiap textbox  hasil masing-masing.

Penjelasan dari statemen di atas berlaku pula untuk semua statemen yang terdapat pada kelompok tersebut. Selain kelompok stateemen yang berisikan operasi aritmetika terdapat pula statemen yang diletakan pada objek btkeluar yaitu statemen END. Statemen end merupakan statemen yang digunakan untuk keluar aplikasi yang sedang berjalan.begitu juga dengan statemen bersihkan di dletakan pada objek btbersihkan yang di gunakan untuk membersihkan yang anda ketikan beserta hasilnya.

  insya allah segituu sajaaa....

mudah-mudahan bermanfaat...

terima kasih..