TORAJAIT.Com

Membuat Program Penghitung Nilai Rata Dengan VB By So' Alen

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWMBmBVE8Yofqa-MoQJwCotKVIsitsX7tx5dvP5WrOy91APF6F_AWOv55ngL3wh_CwXlrF_sC7jW_OYd-3LEf4w50t9KEXopB2LnYfUIbYvb9bobxlMW6w3CE4M3dhYN_s94OkcR5h64yZ/s1600/imagess.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="387" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWMBmBVE8Yofqa-MoQJwCotKVIsitsX7tx5dvP5WrOy91APF6F_AWOv55ngL3wh_CwXlrF_sC7jW_OYd-3LEf4w50t9KEXopB2LnYfUIbYvb9bobxlMW6w3CE4M3dhYN_s94OkcR5h64yZ/s1600/imagess.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
 </div>
<div class="MsoNormal">
Cara membuatnya, ikuti
langkah-langkah berikut ini Sangmane ... ! 
1. Buka Visual Basic 6.0</div>
<div class="MsoNormal">
 
2. Pilih Standar Exe dan klik OK</div>
<div class="MsoNormal">
 3. Kemudian buat tampilan form seperti ini</div>
<div class="MsoNormal">
 4. ktikan sintax sebagai berikut: 
Private Sub cmdbaru_Click() 
 txtketerangan.Text = "" 
       
txtmid.Text = "" 
       
txtnama.Text = "" 
       
txthuruf.Text = "" 
       
txtrata.Text = "" 
       
txttugas.Text = "" 
       
txtuas.Text = "" 
txtnama.SetFocus 
End Sub 
 
Private Sub cmdhitung_Click() 
Dim Nama As String 
        Dim
tugas As Double 
        Dim
mid As Double 
        Dim
uas As Double 
        Dim
rata As Double 
        Dim
huruf As String 
        Dim
ket As String 
    Nama = txtnama.Text 
    tugas = Val(txttugas.Text) 
    mid = Val(txtmid.Text) 
    uas = Val(txtuas.Text) 
    rata = (tugas + mid + uas) /
3 
    txtrata.Text = rata 
 If rata <= 40 Then 
           
huruf = "E" 
           
keterangan = "Sangat Buruk dan 'ANDA GAGAL'" 
       
ElseIf rata <= 55 Then 
           
huruf = "D" 
           
keterangan = "Kurang dan 'BELAJAR LEBIH GIAT LAGI'" 
       
ElseIf rata <= 66 Then 
           
huruf = "C" 
           
keterangan = "Cukup dan 'TINGKATKAN'" 
       
ElseIf rata <= 80 Then 
           
huruf = "B" 
           
keterangan = "Baik  dan 'PERTAHANKAN'" 
       
ElseIf rata > 80 Then 
           
huruf = "A" 
           
keterangan = "Sangat Baik" 
        End
If 
       
txthuruf.Text = huruf 
       
txtketerangan.Text = keterangan 
End Sub 
 
Private Sub cmdkeluar_Click() 
End 
End Sub 
Selamat mencoba.....<o:p></o:p></div>

Membuat Program Penghitung Nilai Rata Dengan VB By So' Alen

Cara membuatnya, ikuti langkah-langkah berikut ini Sangmane ... ! 1. Buka Visual Basic 6.0 2. Pilih Standar Exe dan klik OK 3. Ke...

Menu Pengolahan data inventory menggunakan aplikasi Microsoft Access By So' Alen

Unknown 6 Visual Basic 4:17 PM

<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Untuk pengolahan data inventory kita dapat menggunakan
aplikasi Microsoft Access. Dengan membuat table master daftar barang dan table
transakasi penerimaan dan pengeluaran barang kita sudah dapat membuat aplikasi
inventory yang sederhana. 
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzAF9voedaYgz1L2nuGDN-v80T1Ck43pYVVO3HVBCZYchU0zqc9pGFdqA116lqLkICwnDIemVNYxXQCUMtmeeVy6gTghFRmDDE2XeYmCerpwX75gsdkyqWwb3zel1w0OBsQRfhl0YYaxxK/s1600/untitled(2).jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="296" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzAF9voedaYgz1L2nuGDN-v80T1Ck43pYVVO3HVBCZYchU0zqc9pGFdqA116lqLkICwnDIemVNYxXQCUMtmeeVy6gTghFRmDDE2XeYmCerpwX75gsdkyqWwb3zel1w0OBsQRfhl0YYaxxK/s1600/untitled(2).jpg" width="320" /></a></div>
 
Pada contoh aplikasi ini saya membuat 2 buah table yaitu : 
 
- Tabel
DaftarBarang 
Field-field pada table DaftarBarang adalah 
 
<o:p></o:p></div>
<ol start="1" type="1">
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l2 level1 lfo1; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">NomorKode
 : Text(10)<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l2 level1 lfo1; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">NamaBarang
 : Text(50)<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l2 level1 lfo1; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">Satuan
 : Text(10)<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l2 level1 lfo1; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">StokAwal
 : Number(Decimal)<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l2 level1 lfo1; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">Penerimaan
 : Number(Decimal)<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l2 level1 lfo1; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">Pengeluaran
 : Number(Decimal)<o:p></o:p></li>
</ol>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
 
- Tabel
KartuStok 
Field-field pada table KartuStok adalah 
 
<o:p></o:p></div>
<ol start="1" type="1">
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l0 level1 lfo2; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">NoUrut
 : AutoNumber<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l0 level1 lfo2; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">Tanggal
 : Date/Time<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l0 level1 lfo2; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">NomorKode
 : Text(10)<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l0 level1 lfo2; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">Keterangan
 : Text(50)<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l0 level1 lfo2; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">KodeInput
 : Number(Integer)<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l0 level1 lfo2; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">Jumlah
 : Number(Decimal)<o:p></o:p></li>
</ol>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Aplikasi Inventory Control ini sudah menggunakan menu
pilihan. System menu menggunakan Switchboard yang disediakan oleh Microsoft
Access. 
Menu utama pada aplikasi ini terdiri dari 3 buah
pilihan: 
- Menu pilihan Daftar Barang 
- Menu pilihan Laporan 
- Menu pilihan Selesai 
 
1. Menu Pilihan Daftar Barang  
Pada menu pilihan Daftar Barang user dapat
menambah, mengedit dan menghapus data Barang. 
Pada menu pilihan Daftar Barang juga user dapat
melakukan pencatatan data stok awal, pencatatan data transaksi penambahan dan
pengurangan data jumlah barang. 
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxrljb-Dc0E06vfWhCguNyEFuhrde91Yw_PgU0jWPzSTOZXwlAXcrZObJc66Gwku1nJkVRLdXvVCNm5XeFv3muj1C5TDccjMKerztGKT50_uNlU_QDSkEV3xvvwaRGWNHR9XHEdOdxSA7E/s1600/s.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxrljb-Dc0E06vfWhCguNyEFuhrde91Yw_PgU0jWPzSTOZXwlAXcrZObJc66Gwku1nJkVRLdXvVCNm5XeFv3muj1C5TDccjMKerztGKT50_uNlU_QDSkEV3xvvwaRGWNHR9XHEdOdxSA7E/s1600/s.PNG" width="320" /></a></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
 </div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Untuk
data Transaksi barang disediakan 4 buah kolom data yang terdiri dari:</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">

 
<o:p></o:p></div>
<ul type="disc">
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l1 level1 lfo3; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">Tanggal
 : data kolom Tanggal diisi tanggal transaksi penambahan atau pengurangan
 stok barang<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l1 level1 lfo3; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">Keterangan
 : data kolom Keterangan diisi data keterangan<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l1 level1 lfo3; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">KodeInput
 : data kolom KodeInput disi angka 0,1 dan 2. Angka 0 untuk saldo awal;
 angka 1 untuk transaksi penerimaan/penambahan stok dan angka 2 untuk
 transaksi pengeluaran/pengurangan stok<o:p></o:p></li>
<li class="MsoNormal" style="background: white; color: #5b603a; line-height: 15.25pt; mso-list: l1 level1 lfo3; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto; tab-stops: list 36.0pt;">Jumlah
 : data kolom Jumlah diisi jumlah transaksi barang<o:p></o:p></li>
</ul>
 
<div class="MsoNormal">
 
2. Menu Pilihan Laporan  
Pada menu Laporan ada sub menu pilihan yang
terdiri dari: 
Cetak Kartu Gudang. Pada menu ini user dapat
mencetak kartu stok barang berdasarkan nama barang yang dipilih user. 
Cetak Stok Akhir. Pada menu pilihan ini user
dapat mencetak daftar stok akhir setiap barang 
Cetak Stok Antar Bulan. Pada menu ini kita dapat
mencetak data stok antar bulan, misalnya data stok antar bulan Januari sampai
Maret. 
Kembali ke Menu Utama 
 
3. Selesai  
Untuk mengakhiri program Inventory klik pada
menu pilihan Selesai<o:p></o:p></div>

Menu Pengolahan data inventory menggunakan aplikasi Microsoft Access By So' Alen

Untuk pengolahan data inventory kita dapat menggunakan aplikasi Microsoft Access. Dengan membuat table master daftar barang dan table trans...

Mambuat Aplikasi Penhitung Harga Barang Dengan Visual Basic By So' Alen

Unknown 0 Visual Basic 4:11 PM

Salama' Melambi' Sangmane ... ! Kali ini So' Alen memposting Tutorial bagi teman2 masih seputaran tentang VB , Kali ini Tutorialnya yaitu Mambuat Aplikasi Penhitung Harga Barang Dengan Visual Basic By So' Alen . Berikut langkah-langkahnya , silahkan di coba teman2 , Semoga berhasil :D 
 
1.Buatlah New Project pada software VB anda kemudian tambahkan empat buah kontrol label, empat TextBox dan satu commandButton pada form, kemudian atur letaknya seperti pada gambar berikut : 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvSrXc8-tzc-4faNeHjWcYT_efQBccDQ9lPzUkMSFWvHEVw6sGTRl2t_8oWrXKEJYiL16z5eImUJdMJecrPDiQmtSkV4sah261nZJMfyxtFEsPHq-wZ32Gs1G8FqA5Bfd7kVlWqLFKImvB/s1600/Capturej.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="316" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvSrXc8-tzc-4faNeHjWcYT_efQBccDQ9lPzUkMSFWvHEVw6sGTRl2t_8oWrXKEJYiL16z5eImUJdMJecrPDiQmtSkV4sah261nZJMfyxtFEsPHq-wZ32Gs1G8FqA5Bfd7kVlWqLFKImvB/s1600/Capturej.PNG" width="320" /></a></div>
<div style="text-align: center;">
 Gambar aplikasi penghitung harga barang dengan VB</div>
 
2.Atur properti caption untuk masing-masing label dan commanButton seperti pada gambar diatas. 
 
3.Klik ganda tombol CommandButton1(proses), kemudian ketikkan kode/listing/script program berikut : 
Private Sub Command1_Click() 
Dim a, b, c As Integer 
a = Val(Text1.Text) 
b = Val(Text2.Text) 
c = Val(Text3.Text) 
Text4.Text = (a * b) - (a * b * c) / 100 
End Sub 
Pernyataan Dim adalah untuk mendeklarasikan variabel a, b, dan c dimana variabel tersebut untuk mewakili/menampung nilai yang diketikkan pada text1, text2 dan text3 dengan tipe integer (angka). Jika tombol commandbutton1/tombol proses diklik maka pada text4 akan menampilkan hasil perhitungan antara perkalian nilai yang diketikkan pada text1 dan text2 kemudian dikalikan dengan nilai yang diketikkan pada text3. 
 
4.Jalankan Program dengan menekan tombol F5 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinw1DyMYuo_5nh_W-5DNOZnqaStoHhOfrWCWmMe3r7192Nf_MbIOEAEpX0NmmD6voMMZhI1M41IXKAwVbXGBCdHthmsWcqQmslhPBOQStAwiQ8xR0WoQNTyV5m92DczQhU3nkBYjI8bEC-/s1600/Capture.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="441" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinw1DyMYuo_5nh_W-5DNOZnqaStoHhOfrWCWmMe3r7192Nf_MbIOEAEpX0NmmD6voMMZhI1M41IXKAwVbXGBCdHthmsWcqQmslhPBOQStAwiQ8xR0WoQNTyV5m92DczQhU3nkBYjI8bEC-/s1600/Capture.PNG" width="640" /></a></div>
<div style="text-align: center;">
 Contoh Gambar Program Penghitung harga Barang dengan VB</div>
 
6.Simpan hasil proyek Anda dan Selamat mencoba !

Mambuat Aplikasi Penhitung Harga Barang Dengan Visual Basic By So' Alen

Salama' Melambi' Sangmane ... ! Kali ini So' Alen memposting Tutorial bagi teman2 masih seputaran tentang VB , Kali ini Tutorial...

Cara Membuat Stopwatch dengan Menggunakan Visual Basic 6.0 By So' Alen

Unknown 0 Visual Basic 3:58 PM

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPFLhcIXc1Y4n1FpVlWEhaP0wZ0hF20IDhlc8f68nzVzcTUHTc3spLNdlCVcD7voe8PTNyz8adDLUhGfczjFflMX-7sAIL_L_kTq1rNQWcdf69NhpNGokzDJHINtyQH9vanQ_y5haNAg9R/s1600/untitled.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="158" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPFLhcIXc1Y4n1FpVlWEhaP0wZ0hF20IDhlc8f68nzVzcTUHTc3spLNdlCVcD7voe8PTNyz8adDLUhGfczjFflMX-7sAIL_L_kTq1rNQWcdf69NhpNGokzDJHINtyQH9vanQ_y5haNAg9R/s1600/untitled.jpg" width="200" /></a></div>
<div class="MsoNormal" style="margin-bottom: 12pt;">
Pada postingan kali ini saya akan
membahas pembuatan program stopwatch dengan menggunakan Miscrosoft Visual Basic
6.0.</div>
<div class="MsoNormal" style="margin-bottom: 12pt;">
Pada program ini pengukur waktu yang digunakan
dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar
disamping.</div>

 
 
Kemudian Silahkan Kalian Copy Paste Source Code dari program di Bawah ini : 

 
 
Private Sub CmdStart_Click() 
If cmdstart.Caption = "Start" Then 
txtmili.Text = "00" 
txtdetik.Text = "00" 
txtmenit.Text = "00" 
Timer1.Enabled = True 
cmdstart.Enabled = False 
cmdstop.Enabled = True 
ElseIf cmdstart.Caption = "Ulang" Then 
txtmili.Text = "00" 
txtdetik.Text = "00" 
txtmenit.Text = "00" 
Timer1.Enabled = True 
cmdstart.Enabled = False 
cmdstop.Enabled = True 
End If 
End Sub 
 
Private Sub CmdStop_Click() 
Timer1.Enabled = False 
cmdstart.Enabled = True 
cmdstop.Enabled = False 
cmdstart.Caption = "Ulang" 
End Sub 
 
Private Sub Form_Load() 
Timer1.Enabled = False 
cmdstop.Enabled = False 
End Sub 
 
Private Sub Timer1_Timer() 
txtmili.Text = Val(txtmili.Text) + 1 
If Len(txtmili.Text) = 1 Then txtmili.Text = "0" & txtmili.Text 
If txtmili.Text = "60" Then 
txtmili.Text = "00" 
txtdetik.Text = Val(txtdetik.Text) + 1 
If Len(txtdetik.Text) = 1 Then txtdetik.Text = "0" &
txtdetik.Text 
End If 
If txtdetik.Text = "60" Then 
txtdetik.Text = "00" 
txtmenit.Text = Val(txtmenit.Text) + 1 
If Len(txtmenit.Text) = 1 Then txtmenit.Text = "0" &
txtmenit.Text 
End If 
End Sub

Cara Membuat Stopwatch dengan Menggunakan Visual Basic 6.0 By So' Alen

Pada postingan kali ini saya akan membahas pembuatan program stopwatch dengan menggunakan Miscrosoft Visual Basic 6.0. Pada program ini...

Cara Membuat Program Perhitungan Masa Berlaku KTP dengan Menggunakan Microsoft Visual Basic 6.0 By So' Alen

Unknown 0 Visual Basic 3:49 PM

<div class="MsoNormal" style="margin-bottom: 12pt;">
Hay Sobat :D Aga Kareba ... ?Kali ini So' Alen mau berbagi sedikit trik membuat Program Menghitung Masa
Berlaku KTP dengan Menggunakan Microsoft Visual Basic 6.0. 
<a href="" name="more"></a>Program Kecil2an ini emang sengaja mau di share aja biar sobat
bisa coba-coba bikin di rumah :D 
Oke Sob Langsung Aja Liat Cara Bikinnya.. 
Maff Juga nie Sobat, saya ga jadikan unduhan, Lagi Males Buka PhourShared,. 
 
1. Seperti Biasa Masuk Ke Aplikasi VB 
2. Pilih STANDART,EXE 
3. Sobat Desaign Ya Sesuka Sobat, yg Penting Field-field'snya Persis seperti
ScreenShoot di Bawah Ini :</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiawNUOpHJDhczToyG2LghhyPdyW1cnFyxrdztxOdFLfXZbQiRPeJhrdB9ve8DHREzffrtHujmPhnc9V73Rk8cxf6DN24Y83GUUnj0p5WHrzdP4Jda_gFS0F9bCfOBiONG2rgU8tO41izZ4/s1600/Captures.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="315" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiawNUOpHJDhczToyG2LghhyPdyW1cnFyxrdztxOdFLfXZbQiRPeJhrdB9ve8DHREzffrtHujmPhnc9V73Rk8cxf6DN24Y83GUUnj0p5WHrzdP4Jda_gFS0F9bCfOBiONG2rgU8tO41izZ4/s1600/Captures.PNG" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
 </div>
<div class="separator" style="clear: both; text-align: left;">
4.
Kemudian Masukan Source Code Berikut ini ke dalam Form tadi yg kamu desaign : 
 
Option Explicit 
 
Private Sub Command1_Click() 
Dim x As Date 
Dim y As Integer 
Dim hitung As Date 
x = awal.Text 
y = lama.Text 
hitung = x + (y * 365) + 1 
akhir.Text = hitung 
sekarang.Text = Date 
MsgBox "Jangan Telat Perpanjang KTP Anda!!", vbOKOnly +
vbExclamation, "Pesan" 
Image1.Visible = True 
End Sub 
 
Private Sub Command2_Click() 
awal.Text = "" 
lama.Text = "" 
akhir.Text = "" 
sekarang.Text = "" 
Image1.Visible = False 
awal.SetFocus 
End Sub 
 
Private Sub Command3_Click() 
Unload Me 
End Sub 
 
</div>
<o:p></o:p>

Cara Membuat Program Perhitungan Masa Berlaku KTP dengan Menggunakan Microsoft Visual Basic 6.0 By So' Alen

Hay Sobat :D Aga Kareba ... ? Kali ini So' Alen mau berbagi sedikit trik membuat Program Menghitung Masa Berlaku KTP dengan Menggunakan...

Cara Koneksi Database Sql Server Dengan Visual Basic By So' Alen

Unknown 0 Visual Basic 3:40 PM

<div class="MsoNormal">
 Selamat Pagi Teman2, Apa Kareba ... ?Lama neh nga' ngeposting , bisa gi sibuk ngurus kuliah sana-sini , hehehe ! Kali in So' Alen mau ngeposting Cara Koneksi Database Sql Server Dengan Visual Basic , Bagi teman2 yang lagi belajar VB , Silahkan di Ikuti ya , Semoga Berhasil .</div>
<div class="MsoNormal">
    Jalankan Microsoft Visual
Basic 6.0 Kemudian Pilih Standar EXE klik Open, Untuk Objek
koneksi ya kita membutuhkan ADODC dan Untuk menampilkan data ya kita
menggunakan Data Grid , 2 Komponen tersebut dapat ditampilkan dengan
cara klik kanan di tool box general pilih komponen maka akan muncul tampilan
seperti ini :<o:p></o:p></div>
<div class="MsoNormal">
 </div>
<div class="MsoNormal" style="line-height: 19.2pt; margin-bottom: .0001pt; margin-bottom: 0cm;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLslz1JwawGuvIP3faXqrhxQDe6hpkvCwuwIGEDiaS_hvL-PxgdvNeLG-tNc0Nrz2Ro8vuHr85acS-eKZBXHV_eC8i3EBio_SdYgGW1VGgvvzuGFdg35tSM5vqeCt6Uyq5z8wpZNSu9wn2/s1600/images(2).jpg" imageanchor="1" style="clear: left; float: left; font-family: Arial, Helvetica, sans-serif; font-size: 12pt; line-height: 115%; margin-bottom: 1em; margin-right: 1em; text-align: center;"><img border="0" height="241" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLslz1JwawGuvIP3faXqrhxQDe6hpkvCwuwIGEDiaS_hvL-PxgdvNeLG-tNc0Nrz2Ro8vuHr85acS-eKZBXHV_eC8i3EBio_SdYgGW1VGgvvzuGFdg35tSM5vqeCt6Uyq5z8wpZNSu9wn2/s1600/images(2).jpg" width="320" /></a><a href="" name="more"></a>    Cek List komponen Microsoft ADO Data Control
6.0(OLEDB) dan Microsoft
DataGrid Control 6.0(OLEDB). Kemudian klik menu project kemudian pilih Add
Module, Fungsi module adalah untuk memberikan baris perintah
agar disetiap form dapat digunakan. Salah satunya kita buat koneksi database
menggunakan module. Setelah ditambahkan module ya input kan syntax dibawah ini
: 
 
<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
Public konek As New ADODB.Connection<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
Public data_mhs As New ADODB.Recordset<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
Public sql As String<o:p></o:p></div>
<div class="MsoNormal" style="background: white; line-height: 14.4pt; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: justify;">
 
<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
Public Sub buka_database()<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
Set konek = New ADODB.Connection<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
konek.CursorLocation = adUseClient<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
konek.Open
"Provider=SQLOLEDB.1;Persist Security Info=False;Initial
Catalog=db_kuliah"<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
End Sub<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
 
<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 0.0001pt; text-align: justify;">
Keterangan :<o:p></o:p></div>
<div class="MsoNormal" style="background-color: white; background-position: initial initial; background-repeat: initial initial; margin-bottom: 3.75pt; text-align: justify;">
Untuk syntax "Provider=SQLOLEDB.1;Persist Security
Info=False;Initial Catalog=db_kuliah" kita dapatkan dari objek
ADODC, caranya masukan ADODC kedalam form kemudian klik kanan pilih ADODC
Propertis kemudian pilih Build akan tampil Data Link Propertis pada Tab menu
Provider pilih Microsoft OLE DB Provider for SQL Server kemudian pilih next dan
pilih option Use Windows NT Integerated Scurity karena kita masih menggunakan
koneksi local tapi jika kita ingin berbasis Client/Server maka pilih options
nomor 2, Setelah itu klik OK kemudian Copy kan semua syntax yang ada di text
connection string.<o:p></o:p></div>
 
<div class="MsoNormal">
 </div>

Cara Koneksi Database Sql Server Dengan Visual Basic By So' Alen

Selamat Pagi Teman2, Apa Kareba ... ? Lama neh nga' ngeposting , bisa gi sibuk ngurus kuliah sana-sini , hehehe ! Kali in So' Alen...