| Belajar VB 1 | |
|
+12SastraBahu ryan_brondong Administrator daniar Mimie Unggal amburadul_bath Hendi wiriwir hijack_mind dunkz_ agoenxz21 16 posters |
|
Pengirim | Message |
---|
agoenxz21 Moderator
Jumlah posting : 88 Age : 34 Lokasi : Pontianak Registration date : 11.12.08
| Subyek: Belajar VB 1 2009-04-03, 17:47 | |
| Cara Penggabungan nilai tipe data string, membuat nilai angka ribuan menjadi format uang. DOWNLOAD DISINI SRC1
Contoh source code penggunaan objek check, statement IF dan perulangan FOR DOWNLOAD DISINI SRC2
Contoh source code penggunaan objek combo, checkbox beserta beberpa event yang ada didalamnya DOWNLOAD DISINI
Terakhir diubah oleh agoenxz21 tanggal 2009-04-07, 18:08, total 1 kali diubah | |
|
| |
dunkz_ Bocah Komunitas
Jumlah posting : 96 Age : 33 Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-04-04, 16:20 | |
| hoho....mao nanya...ada yang punya source kode bilangan prima??hehehe.... | |
|
| |
agoenxz21 Moderator
Jumlah posting : 88 Age : 34 Lokasi : Pontianak Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-04-05, 08:05 | |
| Untuk Bilangan prima coba dibuatkan sebuah fungsi. Yah.. katakanlah nama fungsinya IniBilanganPrima() Nah.. fungsi ini berguna untuk mengecek apakah nilai angka yang dimasukkan diparameternya bilangan prima atw bukan. Kalau bilangan prima maka balikkan nilai hasil pemanggilan fungsi tsb adalah True dan bila bukan, maka balikkan nilai dari pemanggilan fungsi tsb adalah False. Kita menilik lagi apakah itu bilangan prima? Bilangan prima adalah bilangan asli yang lebih besar dari 1 yang faktor pembaginya adalah 1 dan bilangan itu sendiri atau suatu angka yang tidak dapat dibagi dengan nilai bilangan lain selain dari nilai angka itu sendiri dan angka 1. Seperti 1, 2, 3, 5, 7, 11, 13, 17 ... dst Cara kerja fungsi, yang harus dilakukan pastinya menguji nilai parameter yang dimasukkan, cara pengujiannya yaitu dengan melihat hasil modulo angka yang dicek dengan angka-angka bernilai diatas 1 (angka 2) sampai sebelum 1 nilai dari nilai angka yang dicek (angka - 1) atau dengan kata lain bila bilangan tsb dibagi habis dengan bilangan selain dari angka 1 dan bilangan itu sendiri maka dapat dikatakan bahwa nilai angka tsb bukan bilangan prima dan sebaliknya. Nih fungsi Bilangan prima - Code:
-
FUNCTION IniBilanganPrima(BYVAL Angka AS LONG) AS BOOLEAN DIM I As LONG
IniBilanganPrima = TRUE IF Angka > 2 THEN FOR I = 2 TO Angka - 1 STEP 1 IF (Angka MOD I) = 0 THEN IniBilanganPrima = False Exit Function END IF NEXT I END IF
END FUNCTION nah kalo udah dibuat fungsinya tinggal dipake aja dah... misal neh cara penggunaannya - Code:
-
Nilai = 29 IF IniBilanganPrima(Nilai) = TRUE THEN Msgbox N & " Ini bilangan prima" ELSE Msgbox N & " Ini Bukan Bilangan Prima" END IF atau sama juga dengan seperti ini - Code:
-
Nilai = 29 IF IniBilanganPrima(Nilai) THEN Msgbox N & " Ini bilangan prima" ELSE Msgbox N & " Ini Bukan Bilangan Prima" END IF Ataupun dengan pernyataan IF seperti ini, hasilnya sama aja - Code:
-
Nilai = 29 IF IniBilanganPrima(Nilai) = FALSE THEN Msgbox N & " Ini bukan bilangan prima" ELSE Msgbox N & " Ini Bilangan Prima" END IF ataupun sama aja dah dengan seperti ini - Code:
-
Nilai = 29 IF NOT IniBilanganPrima(Nilai) THEN Msgbox N & " Ini Bukan bilangan prima" ELSE Msgbox N & " Ini Bilangan Prima" END IF Nah.. selamat mencoba... Kembangkan kreatifitas | |
|
| |
hijack_mind Bocah Komunitas
Jumlah posting : 59 Age : 34 Registration date : 08.01.09
| Subyek: Re: Belajar VB 1 2009-04-05, 19:22 | |
| test lok ye PAK | |
|
| |
dunkz_ Bocah Komunitas
Jumlah posting : 96 Age : 33 Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-04-08, 20:28 | |
| klo hasilnya kaya gini kmaren ada nemu dari gogling pak..tapi klo kaya tugas itu loh yang binggung... oya..boolean nilainya true ato false kan???klo true..di eksekusi??klo false brati kagak??gitu kah????? tapi tar lah di oprek2 lagi... makasih ya..hohoho.... | |
|
| |
wiriwir 'dedemit-nya' BSI
Jumlah posting : 524 Age : 33 Lokasi : BLKI rock city Registration date : 13.12.08
| Subyek: Re: Belajar VB 1 2009-04-09, 13:51 | |
| | |
|
| |
dunkz_ Bocah Komunitas
Jumlah posting : 96 Age : 33 Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-04-09, 21:16 | |
| oh..di vb tuh pake mod nya kudu dalam kurung yA??? (3 mod 2) ??? kmaren mungkin gara2 salah koding...jadinya not responding...koq bisa demikian yah...weleh2.... | |
|
| |
agoenxz21 Moderator
Jumlah posting : 88 Age : 34 Lokasi : Pontianak Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-04-10, 11:12 | |
| hah.. gak harus di kurung. Mod mah tau ndiri rumahnya jadi gak perlu di kurung atuh... yang bikin not responding sih biasanya penggunanaan looping yang salah. klo pake looping FOR mah pasti dapat dikendalikan dengan mudah. Nah.. yang terkadang salah dan lupa karena kita sebagai manusia yang tidak luput dari kesalahan biasanya dalam penggunaan looping DO ... LOOP WHILE atau DO WHILE .. LOOP dan sejenisnya. Soalnya biasa lupa ditambahkan step langkah hitung perulangannya, jadinya melakukan perulangannya gak abis2 jadinya bikin Not Responding processnya... Ingat2 cara looping nya misal: - Code:
-
I = 0 '<---- Perulangan dimulai dari 0 (nol) DO '....... Perintah kode vb yang mau diulang
I = I + 1 '<----- naikkan nilai kelipatan 1 (biar gak statis n bikin not responding) LOOP WHILE (I <= 100) '<--- batas perulangan jika I <= 100 ( 0 - 100 ) Sama halnya kalo dengan menggunakan FOR seperti ini - Code:
-
FOR I = 0 TO 100 STEP 1 '..... Perintah kode vb yang mau diulang
NEXT | |
|
| |
dunkz_ Bocah Komunitas
Jumlah posting : 96 Age : 33 Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-04-10, 16:31 | |
| hmm..... | |
|
| |
wiriwir 'dedemit-nya' BSI
Jumlah posting : 524 Age : 33 Lokasi : BLKI rock city Registration date : 13.12.08
| Subyek: Re: Belajar VB 1 2009-04-10, 19:14 | |
| i ngerti,,,,, | |
|
| |
Hendi Bocah Ingusan
Jumlah posting : 4 Age : 35 Registration date : 13.12.08
| Subyek: Re: Belajar VB 1 2009-04-22, 09:30 | |
| mau nanya... saya kalo buat aplikasi database VB yang terjadi selalu kalo pindah komputer koneksi database dan reportnya error minta solusinya donk ato contoh sourcecodenya | |
|
| |
amburadul_bath Bocah Forum
Jumlah posting : 30 Age : 36 Lokasi : PONTIANAQ CITY Registration date : 11.02.09
| Subyek: Re: Belajar VB 1 2009-04-23, 21:15 | |
| IYA.. YACH aku juga biasa tubch begitu. cobe jak 2 - 3 kali pasti bise tuch | |
|
| |
agoenxz21 Moderator
Jumlah posting : 88 Age : 34 Lokasi : Pontianak Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-04-23, 21:50 | |
| - Hendi wrote:
- mau nanya...
saya kalo buat aplikasi database VB yang terjadi selalu kalo pindah komputer koneksi database dan reportnya error minta solusinya donk ato contoh sourcecodenya Btw Pake Database Apaan? Boleh tau gimana nulis strConnection nya seperti apa? contoh buat string connection klo pake database msAccess strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NamaDB.MDB;Persist Security Info=False" | |
|
| |
Unggal Baru ospek
Jumlah posting : 5 Age : 36 Registration date : 22.03.09
| Subyek: Re: Belajar VB 1 2009-04-30, 14:00 | |
| emm...mw tanya ne....???? ada yg tau Coding ngubah hruf kecil ke huruf besar g...?!? bisa c ngubahnya tapi...tulisannya tu jadi terbalik, msa maju jadi mundur khaenn..!? hehe... thanks.... | |
|
| |
dunkz_ Bocah Komunitas
Jumlah posting : 96 Age : 33 Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-04-30, 17:56 | |
| nih..saya dapat di web..tapi blom dicoba..cz ga ada vb disini...tapi yang keypress kayaknya bisa deh..soalnya kmaren pernah pake..monggo mas.. Private Sub Text1_Change() 'Text1 menggunakan event Change Dim posisi As Integer posisi = Text1.SelStart Text1.Text = UCase(Text1.Text) Text1.SelStart = posisi End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) 'Text2 menggunakan KeyPress KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub | |
|
| |
Mimie Bocah Ingusan
Jumlah posting : 3 Age : 34 Registration date : 23.03.09
| Subyek: Re: Belajar VB 1 2009-05-01, 11:19 | |
| oow gtu tho....!!! Thanks ya cuy...ntar ane coba... | |
|
| |
Unggal Baru ospek
Jumlah posting : 5 Age : 36 Registration date : 22.03.09
| Subyek: Re: Belajar VB 1 2009-05-01, 11:30 | |
| oow...begitcu to...!!! Makasih cuy...ntar diTest deh...!!! | |
|
| |
dunkz_ Bocah Komunitas
Jumlah posting : 96 Age : 33 Registration date : 11.12.08
| |
| |
Hendi Bocah Ingusan
Jumlah posting : 4 Age : 35 Registration date : 13.12.08
| Subyek: Re: Belajar VB 1 2009-05-05, 07:03 | |
| biasa pake toolbox data tp keseringannya sy pake adodc dgn code "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NamaDB.MDB gitu tp tetep aja koneksinya error apalagi reportnya dan DBGridnya juga tidak muncul data yang sdh diisi tapi keseringannya sih report yang bermasalah. Biasanya itu jg klo dijalankan muncul messagebox tulisan apa gitu panjangg deh dan intinya nanya are u sure u want continue project? jdkan kesannya nggak enak... Jd klo mau di copy ke komp lain harus liat alamat project semula dan dibuat serupa baru nggak ada pesan misterius So....Solusinya gmn donk | |
|
| |
agoenxz21 Moderator
Jumlah posting : 88 Age : 34 Lokasi : Pontianak Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-05-05, 11:36 | |
| @Hendi Kemungkinan penggunaan koneksi yang tidak linier antara koneksi DB program utama dengan koneksi DB pada reportnya. Lebih mudahnya kita samakan saja antara recordset / datasource keduanya. Berikut contoh sederhana program menggunakan basis data MS ACCESS dan membuat report di VB 6.0 (DATAREPORT) DOWNLOAD DISINISemoga dapat berguna | |
|
| |
Hendi Bocah Ingusan
Jumlah posting : 4 Age : 35 Registration date : 13.12.08
| Subyek: Re: Belajar VB 1 2009-05-11, 10:11 | |
| wahhh, trims.... nanya lagi boleh kan????? klo coding untuk penjumlahan pada toolbox datagrid gimana yaaa | |
|
| |
agoenxz21 Moderator
Jumlah posting : 88 Age : 34 Lokasi : Pontianak Registration date : 11.12.08
| Subyek: Re: Belajar VB 1 2009-05-13, 10:53 | |
| - Hendi wrote:
- wahhh, trims....
nanya lagi boleh kan????? Boleh..boleh... - Hendi wrote:
klo coding untuk penjumlahan pada toolbox datagrid gimana yaaa
Untuk penjumlahan isi pada datagrid, pada konsepnya adalah melakukan perhitungan pada data yang telah tersimpan didalam tabel. Lebih enaknya gunakan perintah SQL untuk melakukan perintah perhitungan seperti itu. berikut potongan kodingnya, biar ada gambaran apa itu SQL - Code:
-
Dim strQuery As String strQuery = "SELECT Nama, Harga_satuan as [Harga Satuan], Jumlah, harga_Satuan*Jumlah as Total FROM Daftar" 'perintah SQL Set Adodc2.Recordset = koneksi.Execute(strQuery) Set DataGrid2.DataSource = Adodc2 strQuery = "SELECT SUM(Total) FROM (" & strQuery & ") AS DaftarEx" Text1.Text = koneksi.Execute(strQuery)(0).Value Text2.Text = "Rp. " & FormatNumber(Val(Text1.Text), 0) & ",-" Contohnya bisa Download disini | |
|
| |
wiriwir 'dedemit-nya' BSI
Jumlah posting : 524 Age : 33 Lokasi : BLKI rock city Registration date : 13.12.08
| Subyek: Re: Belajar VB 1 2009-05-13, 12:48 | |
| OKE,,,,
belajar dulu ah....
smoga masok ke otak... | |
|
| |
daniar Pendatang Baru
Jumlah posting : 1 Age : 35 Registration date : 20.08.09
| Subyek: Re: Belajar VB 1 2009-08-20, 12:32 | |
| salam kenal buat semua
numpang nanya, da yang bisa source code vb buat hitung denda pada aplikasi perpustakaan?
mohon bantuannya ya....
makasih... | |
|
| |
Administrator Admin
Jumlah posting : 130 Age : 36 Lokasi : Pontianak Kota Bersinar Registration date : 07.12.08
| Subyek: Re: Belajar VB 1 2009-08-22, 07:51 | |
| Salam kenal juga. hitung denda perpustakaannya berdasarkan apa dulu nih? kalo berdasarkan hari, tinggal dikalikan saja nilai denda perhari dengan nilai selisih kelebihan tanggal pengembaliannya dengan tanggal harus kembali. langkah-langkahnya. 1. Tentukan nilai dendanya 2. Ambil informasi "tanggal harus kembali" dari kode pinjam 3. Tentukan "tanggal pengembaliannya" terjadi 4. cari selisih "tanggal harus kembali" dengan tanggal ketika pengembaliannya terjadi. gunakan fungsi datediff("d", tgl_hrs_kembali, tgl_kembali) 5. hitung denda dengan mengkalikan nilai "selisih tanggal" dengan nilai "denda perhari" 6. Tampilkan hasil denda nya - Code:
-
denda = 500 tgl_hrs_kembali = "2009/08/12" tgl_kembali = "2009/08/21" selisih_tanggal = datediff("d", tgl_hrs_kembali, tgl_kembali) denda = selisih_tanggal * denda_perhari txtdenda.text = denda
Semoga membantu | |
|
| |
Sponsored content
| Subyek: Re: Belajar VB 1 | |
| |
|
| |
| Belajar VB 1 | |
|