.

Minggu, 11 November 2012

Membuat Alarm sedehana Dengan Visual Basic

teman-teman yang malas bangun pagi, yang pengen bangun pagi, pelajari cara membuat alarm dengan visual basic ini.!!!

-pertama buat form yang berisi, 2 timer, 2 label, dan 2 textbox, terserah menurut kreasi anda, contohnya seperti gambar di bawah ini



sudah lihat gambarnya kaaan????
nah selanjutnya masukan kode seperti di bawah ini:

Dim alarm As Boolean
Private Sub Command1_Click()
If alarm = True Then
Timer2.Enabled = False
Command1.Caption = "Aktif"
alarm = False
Else
Command1.Caption = "Tidak Aktif"
alarm = True
End If
End Sub

Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
alarm = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
If Text1.Text = Label1.Caption And alarm = True Then
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Beep
End Sub

sangat sederhana kan? tapi sangat berfungsi dalam kehidupan,

^_^selamat mencoba ^_^


Diposting oleh di Tidak ada komentar:

Sabtu, 10 November 2012

Warung makan dengan visual basic

ada yang baru niiiih..........
sebenarnya bukan baru sih tapi diperbaharui, awalnya pembuatan program warung makan sederhana, kali ini program warung makan menengah dan sebentar lagi akan muncul program waarung makan canggih, perbedaan program yg sederhana dengan yang menengah nda banyak kok cumaaannnnn kodenya yang banyak. hehehehe

jangan risau dulu teman-teman, program ini tidak sesulit yang kamu pikirkan, kalau nggk percaya coba jangan dipikirin pasti nggk sulit kan.???? hehehe becanda.

naaah.... ini dia programnya,,
awalnya buat form seperti pada postingan yang ketiga.!!!
kemudia tambahkan 10 check untuk daftar makanan, 10 check untuk daftar minum, tambahkan 1 textbox untuk total biaya, 1 command untuk tombol, daaaaaaaaan lupa apa lagi yaaaah.???????

mending lihat aja langsung gambarnya, seperti ini dia
gambar form

itu dia gambarnya... gampang kaaaaaan......

kemudianmasukan kodenya, masukan kode sendiri atau kode yang aku buat.????? 
yasudah pake kode yang saya buat aja tapi jangan nyesal yaaaah.!!!!
ini dia kodenya:

Private Sub Check1_Click()
Text1.Text = "3000"
Check2 = Empty
Check3 = Empty
Check4 = Empty
End Sub

Private Sub Check10_Click()
Text1.Text = Text1 * 3
End Sub

Private Sub Check11_Click()
Text1.Text = Text1 * 4
End Sub

Private Sub Check12_Click()
Text1.Text = Text1 * 5
End Sub

Private Sub Check13_Click()
Text1.Text = Text1 * 6
End Sub

Private Sub Check14_Click()
Text1.Text = Text1 * 7
End Sub

Private Sub Check15_Click()
Text1.Text = Text1 * 8
End Sub

Private Sub Check16_Click()
Text1.Text = Text1 * 9
End Sub

Private Sub Check17_Click()
Text1.Text = Text1 * 10
End Sub

Private Sub Check18_Click()
Text1.Text = "11000"
Check1 = Empty
Check3 = Empty
Check4 = Empty
Check2 = Empty
End Sub

Private Sub Check19_Click()
Text2.Text = "4000"
Check6 = Empty
Check7 = Empty
Check5 = Empty
Check8 = Empty
End Sub

Private Sub Check2_Click()
Text1.Text = "5000"
Check1 = Empty
Check3 = Empty
Check4 = Empty
Check18 = Empty
End Sub

Private Sub Check20_Click()
Text1.Text = Text1 * 11
End Sub

Private Sub Check21_Click()
Text2.Text = Text2 * 2
End Sub

Private Sub Check22_Click()
Text2.Text = Text2 * 3
End Sub

Private Sub Check23_Click()
Text2.Text = Text2 * 4
End Sub

Private Sub Check24_Click()
Text2.Text = Text2 * 5
End Sub

Private Sub Check25_Click()
Text2.Text = Text2 * 10
End Sub

Private Sub Check26_Click()
Text2.Text = Text2 * 6
End Sub

Private Sub Check27_Click()
Text2.Text = Text2 * 7
End Sub

Private Sub Check28_Click()
Text2.Text = Text2 * 8
End Sub

Private Sub Check29_Click()
Text2.Text = Text2 * 9
End Sub

Private Sub Check3_Click()
Text1.Text = "7000"
Check2 = Empty
Check1 = Empty
Check4 = Empty
Check18 = Empty
End Sub

Private Sub Check30_Click()
Text2.Text = Text2 * 11
End Sub

Private Sub Check4_Click()
Text1.Text = "9000"
Check2 = Empty
Check3 = Empty
Check1 = Empty
Check18 = Empty
End Sub

Private Sub Check5_Click()
Text2.Text = "2000"
Check6 = Empty
Check7 = Empty
Check8 = Empty
End Sub

Private Sub Check6_Click()
Text2.Text = "2500"
Check5 = Empty
Check7 = Empty
Check8 = Empty
Check19 = Empty
End Sub

Private Sub Check7_Click()
Text2.Text = "3000"
Check6 = Empty
Check5 = Empty
Check8 = Empty
Check19 = Empty
End Sub

Private Sub Check8_Click()
Text2.Text = "3500"
Check6 = Empty
Check7 = Empty
Check5 = Empty
Check19 = Empty
End Sub


Private Sub Check9_Click()
Text1.Text = Text1 * 2
End Sub

Private Sub Command1_Click()
Text3.Text = Val(Text1) + Val(Text2)
End Sub


gampang khaaaan.????????
kodenya nggk teratur yaaah... kalau cuman copas dari sini pasti kamu nggk akan bisa buat seperti di atas, tapi kalau dipelajari dan dipahami pasti tau deh.!!!!

ket:
check1= nasi biasa
check2= nasi rames
check3 = nasi telur
check4 = nasi ayam
check5 = es teh
check6 = es susu
check 7 = es kelapa mudah
check18 = ayam penyet
check19 = es teler
check9-check20 = berurutan dari angka 2 - 11 pada jumlah makanan (kecuali check18 dan check19)
check21-check30 = 2-11 pada jumlah minuman (check25=10 bukan 6)

selamat mencoba.!!!!!

WARNING.!!!!!!!!!!!!
perhatikan keterangan


Diposting oleh di Tidak ada komentar:

KALKULATOR SEDERHANA

saking kebanyakan mikir tentang visual basic, hidup saya jadi kebalik semua, lapar pengenya tidur, ngantuk pengenya makan, saking banyak yang kebalik foto aku aja jadi balik cara masangnya, untungnya jenis kelamin nggk kebalik, kalo sampe kebalik wah parah daaaah kasian cewe-cewe yang udah terlanjur jatuh cinta pada saya,, hahaha pd amat...



kali ini saya punya cara membuat kalkulator sederhana Basic Visual dengan. waduuh masih kebalik yah, maksud saya denga visual basic.

mau tau caranya..????????????


cari tau sendiri.!!!!! hahahaha serius kok nggk becanda (hidup saya masih kebalik)

langsung aja aaaaah.....

naaaah sudah paham khaaaan..????? yooo godbye yooo...


ya ampuuun saya lupa posting caranya...

ini dia yang sebenar benar benar benar dan benarnya.....


pertama buat form yg terdiri dari 3 textbox, 7 command, dan 3 label. seperti pada gambar di bawah ini.!!!














oooh maaf yah kok ada foto saya, sorry mngkin visual basicnya ngefens sama saya. hehehe

INGATTTTT..!!!!!!!!!!!

textbox1 namanya diganti dengan PANJANG
textbox2 namanya diganti dengan LEBAR
yang lainya tetap,,
jangan tanya kenapa saya ganti nama textbox di atas karena saya akan menjawab "terserah saya khan saya yang buat kodenya" hahahaha becanda kok

kemudian masuka kode kode di bawah ini, nggk boleh salah, kalau salah itu masalah kamu jangan curhat.!!!


Private Sub Command1_Click()
Text3.Text = panjang * lebar
End Sub

Private Sub Command15_Click()
Text3 = Empty
panjang = Empty
lebar = Empty
End Sub

Private Sub Command17_Click()
End
End Sub

Private Sub Command2_Click()
Text3.Text = panjang ^ lebar
End Sub

Private Sub Command3_Click()
Text3.Text = Val(panjang) + Val(lebar)
End Sub

Private Sub Command4_Click()
Text3 = panjang / lebar
End Sub

Private Sub Command5_Click()
Text3 = Val(panjang) - Val(lebar)
End Sub

gampang kaaan.????? ya iya laaah gampang khan saya yang buat.. hahaha saya mulai sombong. maaf yaaaah... :)

Diposting oleh di Tidak ada komentar:

Jumat, 09 November 2012

contoh program sederhana warung makan dengan menggunakan visual basic

kita bisa menggunakan visual basic dalam pemberian harga pada makanan secara otomatis, seperti biasa postingan kali ini saya membuat program sederhana warung makan dengan menggunakan visual basic.
ada langkah-langkah muda dalam pembuatan program ini

-langkah 1

buat form atau lembar kerja seperti gambar di bawah ini!

gambar form

cukup mudah membuat latar dari form di atas cara mudahnya klik form pada sudut kanan kemudian masukan gambar setelah klik picture pada kota setting bagian kanan

-langkah2
masukan kode berikut!
Private Sub Check1_Click()
Text1.Text = "Rp.3000"
Check2 = Empty
Check3 = Empty
Check4 = Empty
End Sub

Private Sub Check2_Click()
Text1.Text = "Rp.5000"
Check1 = Empty
Check3 = Empty
Check4 = Empty
End Sub

Private Sub Check3_Click()
Text1.Text = "Rp.7000"
Check2 = Empty
Check1 = Empty
Check4 = Empty
End Sub

Private Sub Check4_Click()
Text1.Text = "Rp.9000"
Check2 = Empty
Check3 = Empty
Check1 = Empty
End Sub

Private Sub Check5_Click()
Text2.Text = "Rp.2000"
Check6 = Empty
Check7 = Empty
Check8 = Empty
End Sub

Private Sub Check6_Click()
Text2.Text = "Rp.2500"
Check5 = Empty
Check7 = Empty
Check8 = Empty
End Sub

Private Sub Check7_Click()
Text2.Text = "Rp.3000"
Check6 = Empty
Check5 = Empty
Check8 = Empty
End Sub

Private Sub Check8_Click()
Text2.Text = "Rp.3500"
Check6 = Empty
Check7 = Empty
Check5 = Empty
End Sub

-langkah tiga klik star

gampang kan.???????? ayo coba

semoga berhasil.!!!!!!



Diposting oleh di Tidak ada komentar:

Kamis, 08 November 2012

Pembuatan Daftar Nilai Dengan Menggunakan Visual Basic


assalamu'alaikum kawan-kawan yang masih ingin menggunakan visual basic di sini saya coba membuat program dari visual basic
 kali ini saya membuat daftar nilai menggunakan visual basic, kodenya cukup banyak tapi tenang saja caranya tidak bedah dengan cara-cara sebelumnya cuman ada beberapa kode yang saya tambahkan.!! saya yakin program ini cukup berguna buat teman-teman. bagi yang sampai saat ini belum mempunyai visual basic silahkan   download, caranya klik di sini.!!!
sesuai gambar di atas anda bisa memasuka kode seperti yang ada di bawah ini:

nah angka satua = command 1
angka 2 = command 2 dan seterusnya sampai 0 itu command 10 cape aku kalau harus di ketik smua
lihat = command 11
agree = command 12
keluar itu command 13
silahkan di coba semoga bermanfaat
coba pakai logika sendiri juga yaaah.!!
Private Sub Command1_Click()
Text1 = Text1.Text & 1
End Sub
Private Sub Command10_Click()
Text1 = Text1.Text & 0
End Sub
Private Sub Command11_Click()
If Text1 = 162110555 Then
Text2 = Text2.Text & ” LA ODE ABRIAMAN ”
Text3 = Text3.Text & ” Teknik Industri ”
Text4 = Text4.Text & ” NILAI ANDA A ”
MsgBox Text4.Text & ” SELAMAT ANDA BERHASIL”
Else
If Text1 = 162110554 Then
Text2 = Text2.Text & ” LA HALINU ”
Text3 = Text3.Text & ” Teknik Industri ”
Text4 = Text4.Text & ” NILAI ANDA B ”
MsgBox Text4.Text & ” SELAMAT ANDA BERHASIL”
Else
If Text1 = 162110557 Then
Text2 = Text2.Text & ” ERWIN NASIR ”
Text3 = Text3.Text & ” Teknik Industri ”
Text4 = Text4.Text & ” NILAI ANDA A ”
MsgBox Text4.Text & ” SELAMAT ANDA BERHASIL”
Else
If Text1 = 162110525 Then
Text2 = Text2.Text & ” ADE RUSMAWATI AMIRI ODE ”
Text3 = Text3.Text & ” Teknik Industri ”
Text4 = Text4.Text & ” NILAI ANDA B ”
MsgBox Text4.Text & ” SELAMAT ANDA BERHASIL”
Else
If Text1 = 12116463 Then
Text2 = Text2.Text & ” NAIM ISMAIL ”
Text3 = Text3.Text & ” Fakultas Kedokteran ”
Text4 = Text4.Text & ” NILAI ANDA A ”
MsgBox Text4.Text & ” SELAMAT ANDA COWO PALING GANTENG”
End If
End If
End If
End If
End If
End Sub
Private Sub Command12_Click()
Text1 = Empty
Text2 = Empty
Text3 = Empty
Text4 = Empty
End Sub
Private Sub Command13_Click()
End
End Sub
Private Sub Command2_Click()
Text1 = Text1.Text & 2
End Sub
Private Sub Command3_Click()
Text1 = Text1.Text & 3
End Sub
Private Sub Command4_Click()
Text1 = Text1.Text & 4
End Sub
Private Sub Command5_Click()
Text1 = Text1.Text & 5
End Sub
Private Sub Command6_Click()
Text1 = Text1.Text & 6
End Sub
Private Sub Command7_Click()
Text1 = Text1.Text & 7
End Sub
Private Sub Command8_Click()
Text1 = Text1.Text & 8
End Sub
Private Sub Command9_Click()
Text1 = Text1.Text & 9
End Sub

selamat mencoba.!!!


Diposting oleh di Tidak ada komentar:

Dasar Program Visual Basic


untuk mempelajari visual basic cukup mudah, ada beberapa langkah dalam mempelajari visual basic yaitu sbb:
-langkah 1, buka visual basic yang ada pada komputer anda jika belum punya silahkan klik di sini
-langkah 2 kemudian akan muncul seperti pada gambar
Gambar1. Tampilan awal visual basic

-langkah 3 setelah diklik maka akan muncul daerah kerja program visual basic seperti pada gambar


Gambar2. Tampilan kerja visual basic

Pada gambar di atas terlihat tollbar view, di klik kemudian pilih tollbox untuk mempermudah dalam pembuatan program.
-langkah 4 selanjutnya buatlah dua kotak teks dan tiga kotak command dan 2 label untuk tempat menulis keterangan, seperti pada gambar

Gambar3. Tampilan kerja awal visual basic


-langkah 5 berikut untuk memasukan code yang anda inginkan contoh kecil program sederhana yang saya buat, untuk memasukan algoritma yang anda inginkan anda harus memilih salah satu command untuk mengatur kebutuhan anda, contoh lihat pada gambar


Gambar4

Setelah anda menklik dua kali pada command di atas yang bernama “lihat” maka akan muncul kotak untuk membuat kode-kode program  seperti pada gambar di bawah ini.


Gambar 5

pada gambar dia atas terlihat tempat kosong diantara sub_command dan end sub, tempat itulah untuk masuka kode, untuk program yang saya buat anda bisa masukan kode di bawah ini.

Private Sub Command1_Click()
If Text1 = "ami" Then
Text2 = "mahasiswa"
Else
If Text1 = "emy" Then
Text2 = "dehagseng"
End If

End If
End Sub.

-langkah enam lakukan berulang seperti langkah 5

Keterangan
Kode pada “hapus” di isi

Private Sub Command2_Click()
Text1 = Empty
Text2 = Empty
End Sub

Kode pada “selesai” di isi

Private Sub Command3_Click()
End
End Sub

Selanjutnya cara-cara untuk mengganti tulisan text1&2 menjadi kosong, command1 menjadi “lihat”, command2 menjadi “hapus”, command3 menjadi “selesai”, dan label 1 dan 2 menjadi  “masukan nama” dan “profesi”. Ikuti langkah” berikut:

-langkah 1
Buat layar kerja seperti pada gambar 3
-langkah 2
Pilih icon yang anda ingin ubah namanya agar terarah
-langkah 3
Pada bagian kanan layar kerja ada kotak pengaturan masing icon yang anda gunakan seperti pada gambar


Pada gambar di atas untuk mengubah text1 menjadi kosong, maka klik kotak text1 kemudian pilih text1 pada kotak pengaturan bagian kanan layar kemudian edit tlisan “text1” yang berada bagian kanan(bukan tulisan yang di blok) kemudian kosongkan sehingga kotak text1 akan kosong. Lakukan langkah ini pada icon-icon yang lain.!

Mohon maaf jika dalam pembuatan program ini ada kesalahan karena sayapun juga lagi belajar

SELAMAT MENCOBA.!!!!

Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)