Komunitas Indonesia Open Source — VB

kriptografi

null@example.com (elusdeden) — Wed, 27 Apr 2016 05:44:37 +0000

help, bisa gak bantu membuat program dengan pengamanan file e-dokumen dengan algoritma rc5, rsa dan md5

jasa pembuatan software VB untuk usaha/tugas kuliah

null@example.com (r4dioz) — Sat, 25 May 2013 08:27:55 +0000

rainbowcodec.blogspot.com
Sistem pengerjaan :
1. Pembeli memberikan spesifikasi software yang ingin dibuatkan
2. Kami mengerjakan software yang sudah diminta
3. Batas waktu dapat ditentukan/diberi deadline minimal 2 minggu pengerjaan

Program yang dibuat berbasis visual basic

hub 085763077113

[Ask] Penomoran otomatis

null@example.com (syntaxsbreaker) — Fri, 01 Feb 2013 03:59:33 +0000

Assalamualaikum,
Untuk sekalian kalinya saya meminta pencerahan dari agan-agan kembali.
berikut adalah kasus yang saya ingin tanyakan, saya sedang membuat kode otomatis atau penomeran otomatis berikut adalah koding yang saya sudah buat dan sudah berjalan dengan baik di form yang saya buat,

Sub NoFakturOtomatis()
tbinputfakturkeluar = Proses.ExecuteQuery("Select * From tb_inputfakturkeluar order by No_faktur desc")
If tbinputfakturkeluar.Rows.Count = 0 Then
txtFaktur.Text = "010.000.13.00000001"
Else
With tbinputfakturkeluar.Rows(0)
txtFaktur.Text = .Item("No_Faktur")
End With

txtFaktur.Text = Val(Microsoft.VisualBasic.Right(txtFaktur.Text, 8)) + 1
If Len(txtFaktur.Text) = 1 Then
txtFaktur.Text = "010.000.13.0000000" & txtFaktur.Text & ""
ElseIf Len(txtFaktur.Text) = 2 Then
txtFaktur.Text = "010.000.13.000000" & txtFaktur.Text & ""
ElseIf Len(txtFaktur.Text) = 3 Then
txtFaktur.Text = "010.000.13.00000" & txtFaktur.Text & ""
ElseIf Len(txtFaktur.Text) = 4 Then
txtFaktur.Text = "010.000.13.0000" & txtFaktur.Text & ""
ElseIf Len(txtFaktur.Text) = 5 Then
txtFaktur.Text = "010.000.13.000" & txtFaktur.Text & ""
ElseIf Len(txtFaktur.Text) = 6 Then
txtFaktur.Text = "010.000.13.00" & txtFaktur.Text & ""
ElseIf Len(txtFaktur.Text) = 7 Then
txtFaktur.Text = "010.000.13.0" & txtFaktur.Text & ""
ElseIf Len(txtFaktur.Text) = 8 Then
txtFaktur.Text = "010.000.13." & txtFaktur.Text & ""
End If
End If
End Sub.

seperti yang sudah saya tuliskan sebelumnya bahwa coding ini sudah berjalan dengan semestinya. Dimana setiap terjadi penyimpanan data baru maka secara otomatis coding dari nomor tersebut akan berubah atau bertambah, saya kira agan-agan paham apa yang saya maksudkan disini. Ok sekarang kita ke inti permasalahannya penomoran ini saya tulis dengan mencontoh penomoran faktur pajak dimana penulisan nomor faktur pajak tersebut, Contoh :

"010.000.13.00000001"

sebaiknya saya focuskan langsung kepertanyaan angka "13" itu menunjukan tahun pembuatan sedangkan angka "00000001" adalah angaka transaksi faktur nah...yang saya tanyakan disini bagai mana caranya berubah pada saat tahun sudah berganti mejadi angka "14" secara otomatis mengikuti tahun yang berjalan. adakah yang mempunyai solusi pemecahannya saya dah googling susah ngak dapet-dapet, jadi di forum ini mungkin ada yang bisa membantu saya

saya menggunakan Vb.net 2008

Helpppppp

null@example.com (ragilwahyu24) — Wed, 30 Jan 2013 05:54:33 +0000

Tolongggg
Bantu Ane Master.,.,

yang punya referensi ERD ato mngkn program VB tentang Pemesanan Tiket Kereta Api

atau alamat web, link, dll

saya dikasih tau dan bantuannya
tolong

lom dapat referesi yang bener
tolong Aga2, Master2,
Pleaseeee

VB coding combinsi matematika

null@example.com (choirul_imam) — Fri, 25 Jan 2013 13:16:22 +0000

Misi gan, ane mau tanya..
ane mau buat program pkek VB
pengennya kayak calculator, tapi cuma rumus combinasi dalam matematika...
jadi ketika kita masukin angka misal 6 combinasi 3.. langsung muncul hasilnya 20..
ada yang punya ide gan?

terimaksih sebelumnya..

VB,Net dan MySql server,mohon bantuan pencerahan tentang Join Tabel

null@example.com (syntaxsbreaker) — Wed, 26 Dec 2012 07:23:08 +0000

Assalamualaikum tuk semua,
Numpang tanya untuk senior-senior dan agan-agan yang
dah mahir dalam pengkodingan khususnya bahasa pemograman VB.Net
berikut ini ada yang saya mau saya tanyakan. saya sedang membuat sebuah program
data base tentang transaksi project kontruksi dimana isi data base nantinya akan
saya simpan pada MySql server,data base tersebut saya buat 3 tabel dimana tiap
tabel terdiri dari tb_kategori,tb_rekanan dan tb_fakturkeluaran.
masalahnya sekarang adalah sya ingin memangil nama sembuah perusahaan yang
sudah sudah saya record sebelumnya di tb_rekanan dengan mengetikan no.NPWP perusahaan
tersebut tetapi yang terjadi nama perusahaan itu tidak tampil/muncul pada form fakturKeluaran
tersebut. (saya mengunakan VB.net)
berikut coding yang saya buat agar nama perusahaan tersebut muncul pada
form fakturkeluaran :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNpwp.TextChanged
If Len(txtNpwp.Text) < 20 Then Exit Sub
tbfakturkeluar = Proses.ExecuteQuery("SELECT * FROM tb_rekanan WHERE NPWP='" & txtNpwp.Text & "'")
If tbfakturkeluar.Rows.Count < 0 Then
With tbRekanan.Rows(0)
txtNama.Text = .Item("Nama")
End With
Aktif()
txtDescrip.Focus()
btnSimpan.Enabled = True : btnKeluar.Enabled = True
btnUpdate.Enabled = True : btnHapus.Enabled = True
btnBatal.Enabled = True
Else
Call Aktif()
txtDescrip.Focus()
btnSimpan.Enabled = False
btnUpdate.Enabled = False : btnHapus.Enabled = False
btnBatal.Enabled = True
End If
End Sub

ask[cara membuat kontrol equalizer pada vb.net]

null@example.com (dirka) — Sun, 19 Aug 2012 04:23:21 +0000

om mohon bimbingannya, gimana ya cara membuat kontrol equalizer pada program pemutar musik pada vb net?

EBOOK Pemrograman Visual Basic .NET

null@example.com (PutraVB) — Sat, 28 Jul 2012 20:04:56 +0000

EBOOK yang membahas tentang ratusan Tip & Trik dalam
Pemrograman Visual Basic .NET untuk versi 2005, 2008, 2010, 2012.
EBOOK ini hadir dalam bentuk aplikasi (*.exe) sehingga lebih mudah dioperasikan.

>>> DOWNLOAD <<<

[ASK] Membuat Bandwidth Manager Yang Simple Menggunakan VB

null@example.com (ml) — Sun, 15 Jul 2012 16:53:17 +0000

Para Master.. ada tutorial membuat aplikasi bandwidth manager yang simple menggunakan VB gak ?? ato delphi ataupun yang lain..

tolong di share dong mksh

[Ask] Cara membuat alert box untuk tanggal jatuh tempo dengan VB.NET

null@example.com (Herfian) — Sun, 01 Jul 2012 10:25:46 +0000

Dear All...

Saya ingin membuat database reminder dengan berdasarkan tanggal jatuh tempo...

[Kondisi]

Di dalam form reminder tsb saya menyiapkan :

1. DateTimePicker1 : Tanggal Jatuh tempo
2. Timer1 : untuk alarm alert
3. NotifyIcon1 : Untuk memberi pesan pada system tray

1.Untuk penulisan script berdasarkan tanggal jatuh tempo tsb bagaimana ya ?
2. Apakah tanggal yang sudah kita berikan alertnya akan tersimpan pada databasenya ?

Mohon solusi dan informasinya...

Terimakasih.

msflexgrid data

null@example.com (yayat mjr) — Wed, 27 Jun 2012 00:53:57 +0000

sy punya code.. :

If KeyAscii = 13 Then
Call Konek
With DataEnvironment1.rsMasterPembelianDetailPart
If txtnobeli.Text = â€œâ€ Then
txtnobeli.SetFocus
Else
If .State = 0 Then .Open
If .RecordCount > 0 Then
.MoveFirst
.Filter = adFilterNone
.Filter = â€œSupplier=â€™â€ & UCase(txtkdsupp.Text) & â€œâ€˜and Tahun=â€™â€ & UCase(txttglbeli.Text) & â€œâ€˜ and Faktur=â€™â€ & UCase(txtnobeli.Text) & â€œâ€˜â€
If Not .EOF Then
Frame2.Visible = False
.Requery
MSFlexGrid1.Refresh
Frame1.Visible = True
R = .RecordCount
For i = 1 To R
MSFlexGrid1.Rows = i
MSFlexGrid1.AddItem !KodePart & vbTab & !NamaPart & vbTab & !QtyPembelian & vbTab & !QtyIntransit & vbTab & !QtyPenerimaan
Next i
Frame3.Visible = True
txtsupplier.Text = txtkdsupp.Text
txtinvoice.Text = txtnobeli.Text
txttglinvoice.Text = !TanggalInvoice
txttglinvoice.Text = Format(txttglinvoice.Text, â€œdd/mm/yyyyâ€ )
Else
MsgBox â€œNomor Yang Anda Masukan Tidak Ada Di MasterPembelianPartâ€ , vbCritical, â€œPeringatanâ€
txtnobeli.Text = â€œâ€
.Filter = adFilterNone
End If
End If
End If
End With
End If

sy mw menampilkn record yg ad di database ke msflexgrid yg recordâ€™y lebih dari stu record..
tp knapa record yang pertama saja yg di ulang sebanya recordcountâ€¦??

apa ada yg salah di code sya di atas..??
mohon bantuannya..

variabel di datagrid

null@example.com (yayat mjr) — Sat, 02 Jun 2012 02:07:12 +0000

salam kenal master" vb yth..

sy yayat msih newbe sekali di vb 6.0..
tp niat bgd utk belajar..

sy mw bertanya..
di datagrid vb bsa gk di masukin varibel di dalamnya..
tujuannya biar wktu akses data gk langsung konek ke database nya,,
beda dengan konek menggunakan adodc atau dataenvironment..??

database akan mengalamai pengapdate tan saat ad koding update manual dari koding itu sendiri yang di targetin ke variabel di dalamnya..

smoga pertanyaannya cukup jelas..
sebelumnya terimakasih.. ^_^

info : database menggunakan sql server 2000

flood

null@example.com (blackhacking) — Sun, 01 Apr 2012 09:47:40 +0000

btuh source code untuk flood 1 kali statrt kirim 1000 pesa gmana tuh source codenya?

Mohon pencerahannya pada para senior tentang menjumlah Listview

null@example.com (eko_imj) — Tue, 29 Nov 2011 02:02:44 +0000

saya mempunyai kendala pada saat ingin menghitung kolom jumlah pada listview dengan kondisi tertentu. Misal
kolom listview berisi : Nama Barang, Satuan, Kelompok, harga, kuantitas dan jumlah
nah yg ingin saya tanyakan adalah, bagaimana menghitung kolom jumlah dengan kondisi hanya kelompok A saja dari beberapa nama barang yang ada di listview. di listview terdapat beberapa nama barang dengan kelompok A, B, C dll
sebelumnya saya ucapkan terima kasih atas bantuan/pencerahannya

link untuk SQL 2005 enterprise dmn kk

null@example.com (abbenk) — Thu, 03 Nov 2011 14:28:49 +0000

agan2 n master2 ada yg tau ga link u/ DL SQL 2005 enterprise edition pls