Friday, June 29, 2012

Program Sederhana Menghitung Gaji Karyawan Dengan Menggunakan Visual Basic 6.0

Listing codenya :
Private Sub Combo1_Click()
If Combo1.Text = "NIKAH" Then
Text5.Text = 0.1 * Val(Text4.Text)
Else
Text5.Text = o
End If
End Sub

Private Sub Command1_Click() //tombol hitung
Text6.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text4.Text)
End Sub

Private Sub Command2_Click()// tombol ulangi
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()// tombol keluar
End
End Sub
Private Sub Form_Load()
Combo1.AddItem "NIKAH"
Combo1.AddItem "Belum NIKAH"
Combo1.ListIndex = 0
End Sub

Private Sub Text2_Change()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub



Outputnya: 
 











Selamat Mencoba..
Source: http://avrilblue.blogspot.com/2011/12/program-sederhana-menghitung-gaji.html
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

PROGRAM DASAR ( program konversi suhu sederhana ) Dengan Visual Basic

1.2    TEORI PROGRAM KONVERSI SUHU.
1.2.1        Definisi Program Konversi Suhu. 
Program konversi suhu adalah salah satu program aplikasi Visual Basic yang diperuntukan pada proses konversi atau sebagai alat penghitung suhu baik itu celcius, kelvin, reanmur, dan fahreinheit.
Program konversi suhu sangat memberikan kemudahan dalam mengkonversi suhu baik dalam rumah atau sekala besar yaitu mengukur suhu dalam peralatan industri.
1.2.2        Fungsi Program Konversi Suhu.
1.    Progaram konversi suhu dapat memudahkan kita dalam proses  perhitungan atau pengkonversian suhu.
2.    Program kalkulator dapat di pakai dalam indutri rumahan seprti warung yang difungsikan untuk menghitung harga jual barang dan juga keuntunagn yang didaptkan secara optimal.
1.2.3        Komponen Program Kalkulator.
1.      Form.
Form merupakan jendela desain yang akan di buat untuk program kalkulator.
2.      ToolBox.
ToolBox adalah kotak perangkat yang berisi kumpulan object atau kontrol unuk mengatur desain dari aplikasi yang akan dibuat .
3.      Properties.
Properties untuk menampilakan daftar properti – properti untuk sebuah obyek (kontrol/form) yang aktif pada saat ini. Setiap obyek pada Visual Basic mempunyai properti tertentu. Properti ini yang mengatur tampilan dan sifat obyek dalam suatu aplikasi.
4.      Kode Program.
Kode yang dipakai dalam pembuatan listing program kalkulator.
5.      Event.
Event adalah suatu kejadian yang akan diterima oleh suatu objek.
6.      Module.
       Module hampir sama dengan form, tetapi module tidak berisi objek dan bentuk standart, dan module berisi kode program atau prosedure yang dapat digunakan oleh program aplikasi.

1.    Setelah gambar di atas muncul langsung saja klik open, maka form pertama akan muncul.
4. Klik label   2x sebanyak tiga kali untuk menulis Celcius dan Hasil.
5. Klik Text Box 2x sebanyak 2 kali dan letakan pada form.

6.Klik Frame 2x sebanyak 1 kali pada form.
  
7. Klik common button   2x sebanyak 5 buah untuk, kemudian tulis tanda  (Kelvin), (Reanmur), (Fahreinheit), (Exit), dan (Clear)  pada common 1 – 5.

3.1.2   Form Input Program.
3.1.3  Listing Program.
3.1.4 Output Program Konversi Suhu.
a.         Konversi Celcius – Kelvin.
b.        Konversi Celcius – Reanmur.
c.         Konversi Celcius – Fahreinheit
Selamat mencoba

Source :  http://fianprogramdasar1.blogspot.com/2011/03/contoh-program-konversi-suhu-visual.html
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Aplikasi Sederhana Mencari Bintang (Zodiak)

Untuk pencarian bintang / zodiak biasanya dapat kita lihat di majalah dan surat kabar lainya, dalam hal ini kita dapat membuatnya dengan menggunakan Aplikasi Visual Basic / VB, berikut saya akan memberikan langkah-langkah dan besertakan scriptnya untuk membuat aplikasi sederhana mencari bintang / zodiak yang mungkin anda dapat kembangkan lagi logikanya dan dapat menjadi referensi dalam pembuatan aplikasi / program yang anda buat.

Pertama anda letakan 3 komponen textbox dan 1 commandbutton pada form anda, setelah itu masukan script yang ada di bawah ini.

Private Sub Form_Load()
Command1.Enabled = False
End Sub

Private Sub Text1_Change()
If IsDate(Text1) Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub

Private Sub Command1_Click()
'MENCARI HARI LAHIR
Dim KodeHari As Byte
Dim Hari As String
KodeHari = Weekday(Text1)
Select Case KodeHari
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jumat"
Case 7: Hari = "Sabtu"
End Select
Text2 = Hari

'MENCARI BINTANG
Dim Tg, Bl As Byte
Dim Btg As String
Tg = Day(Text1): Bl = Month(Text1)
If (Tg >= 21 And Bl = 3) Or (Tg <= 20 And Bl = 4) Then Btg = "ARIES" If (Tg >= 21 And Bl = 4) Or (Tg <= 21 And Bl = 5) Then Btg = "TAURUS" If (Tg >= 22 And Bl = 5) Or (Tg <= 21 And Bl = 6) Then Btg = "GEMINI" If (Tg >= 22 And Bl = 6) Or (Tg <= 22 And Bl = 7) Then Btg = "CANCER" If (Tg >= 23 And Bl = 7) Or (Tg <= 22 And Bl = 8) Then Btg = "LEO" If (Tg >= 23 And Bl = 8) Or (Tg <= 22 And Bl = 9) Then Btg = "VIRGO" If (Tg >= 23 And Bl = 9) Or (Tg <= 22 And Bl = 10) Then Btg = "LIBRA" If (Tg >= 23 And Bl = 10) Or (Tg <= 21 And Bl = 11) Then Btg = "SCORPIO" If (Tg >= 22 And Bl = 11) Or (Tg <= 21 And Bl = 12) Then Btg = "SAGITARIUS" If (Tg >= 22 And Bl = 12) Or (Tg <= 20 And Bl = 1) Then Btg = "CAPRICORN" If (Tg >= 21 And Bl = 1) Or (Tg <= 19 And Bl = 2) Then Btg = "AQUARIUS" If (Tg >= 20 And Bl = 2) Or (Tg <= 20 And Bl = 3) Then Btg = "PISCES"
Text3 = Btg
End Sub

Source: http://pemogramanvb.blogspot.com/2010/11/contoh-aplikasi-sederhana-mencari.html
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Program sederhana menggunakan Visual Basic

Program Sederhana menggunakan vb. pada postingan yang lalu saya sudah membahas sedikit tentang vb mulai dari pengertian vb, Tutorial Menggunakan Visual Basic, hingga menjelaskan komponen - komponen apa saja yang ada dan fungsi- fungsi tool yang digunakan untuk membuat sebuah program di visual basic, Bagaimana sudah pahamkah teman- teman ?
Langsung saja dech untuk membuat sebuah program :
Tentunya kita harus memiliki dulu software vb.
 1. kita harus buka visual basic 6.0terlebih dahulu
2. setelah kita masuk ke form 1 buatlah tampilan seperti gambar di bawah ini :

 
 tampilan diatas dibuat menggunakan toolbox terdiri dari beberapa :
           -  2 icon label
           -  1 icon text
           -  3 icon command button dan
           -  2 icon check box

3.  setelah icon tersebut dibuat ubahlah nama icon-icon tersebut menjadi seperti gambar dibawah ini :

4. Untuk mengubah nama pada icon tersebut Caranya dengan  menggunakan jendela properties. seperti pada  gambar dibawah ini,,

5. Setelah  semua icon dibuat kita tinggal memasukkan program di tiap-tiap icon tersebut dengan cara double klik disetiap icon tersebut. Maka tampilan gambarnya akan seperti ini :


6. selesai sudah sekarang tinggal menjalankan program tersebut  akan terlihat seperti gambar dibawah ini.

Selamat mencoba..

Source: http://bayuzu.blogspot.com/2011/04/membuat-program-sederhana-menggunakan.html
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Aplikasi Sederhana Simpan, Edit Dan Hapus Dengan Menggunakan Visual Basic 6.0

Setelah membahas tentang pembuatan database dan cara koneksinya, pada artikel kali ini saya akan membahas tentang bagaimana cara membuat perintah simpan, edit dan hapus data pada database di visual basic.
pada pembuatan program kali ini struktur database yang akan saya gunakan adalah sebagai berikut :
nama database = DBData
nama tabel = mhs
field dari tabel mhs = nrp, nama, jurusan
type data = text

Jika sudah membuat database, untuk koneksi dan menampilkan data dari tabel database kali ini saya akan menggunakan komponen Data, dan DBGrid.


 Setelah menambahkan component DBGrid pada Toolbox, buatlah desain form seperti ini :

Untuk cara koneksi database nya, pada Properties Data1 > DatabaseName cari dan buka file DBData.mdb yang telah kita buat. kemudian masih pada Properties Data1 > Recordsource, pilih = mhs.
seperti pada gambar berikut :


Setelah itu pada DBGrid1 Properties > DataSource atur menjadi Data1.

Sampai disini kita sudah berhasil mengkoneksikan database dengan menggunakan Data1.,
Setelah database sudah terkoneksi dengan form, sekarang kita akan membuat perintah simpan, edit, hapus pada command button.
Pertama klik 2 kali pada Command Button Simpan, kemudian ketikkan koding berikut ini pada jendela kode:

Private Sub Command1_Click()
'Addnew = untuk membuat atau menambah data baru
Data1.Recordset.AddNew
'perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field database
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
'update = perintah untuk mengupdate data yang telah ditambahkan
Data1.Recordset.Update
'perintah untuk merefresh grid ketika data sudah ditambahkan
DBGrid1.Refresh
'perintah untuk mengkosongkan textbox setelah data disimpan
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Kemudian Klik 2 kali pada Command Button Edit, lalu pada jendela kode, ketikkan kode perintah berikut :
Private Sub Command2_Click()
'Edit = untuk mengedit data yang sudah ada
Data1.Recordset.Edit
'perintah untuk menyimpan data yang di sudah di edit
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
Data1.Recordset.Update
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Untuk perintah hapus data, klik 2 kali Command Button Hapus, kemudian ketikkan kode perintah berikut :
Private Sub Command3_Click()
Data1.Recordset.Delete
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Untuk Menampilkan data yang akan di edit pada Textbox, klik 2 kali pada DBGrid1, kemudian ketikkan perintah program berikut :

Private Sub DBGrid1_Click()
'kode perintah untuk menampilkan data yang sudah disimpan di dalam grid ke textbox
Text1.Text = Data1.Recordset!nrp
Text2.Text = Data1.Recordset!nama
Text3.Text = Data1.Recordset!jurusan
End Sub

Jika semua kode program sudah di ketikkan pada jendela kode,,setelah itu jalankan program dengan mengklik tombol run atau tombol F5 pada keyboard.

Sampai disini dulu pembahasan nya, semoga bisa bermanfaat buat teman-teman yang ingin belajar  Pemprograman Visual Basic 6.0.

Source :  http://fadilcrows.blogspot.com/2012/03/program-sederhana-simpan-edit-hapus.html
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Program Sederhana Memilih Makanan Dengan VB.Net 10

Langsung saja di buka Vb.Net 10 kamu,
VB.Net 2010
Pilih di menu Windows Form Application Visual basic
Isi pada kolom Nama, Trus OK
Buat Form seperti tampilan berikut
VB.Net 2010.1
Kodenya seperti ini
VB.Net 2010.2
VB.Net 2010.3
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add(”Pagi”)
ListBox1.Items.Add(”Siang”)
ListBox1.Items.Add(”Malam”)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
CheckedListBox1.Items.Add(”Tiwul”)
CheckedListBox1.Items.Add(”Nasi”)
CheckedListBox1.Items.Add(”Baso”)
Dim pilihan As String
pilihan = “Pilihanya….” + ListBox1.SelectedItem
TextBox1.Text = ListBox1.SelectedItem
MessageBox.Show(pilihan, “Menu saat ini adalah”, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim jumlah As Integer
jumlah = CheckedListBox1.CheckedItems.Count
MessageBox.Show(CStr(jumlah), “Pilihan Berjumlah”,
MessageBoxButtons.OK, MessageBoxIcon.Information)
If jumlah = 2 Then
CheckedListBox1.Items.Add(”Cukup”)
End If
End Sub
End Class
Coba di Debug ( Run ), jika benar hasilnya seperti ini
VB.Net 2010.4
Selamat mencoba

Source:  http://ekosuhartono.blogdetik.com/?p=575
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Aplikasi Perhitungan Sederhana Menggunakan Visual Basic

Visual Basic adalah suatu bahasa pemrogramman yang mudah dan efisien.Visual basic sangat mudah dipelajari.
Salah satu contoh aplikasi visual basic paling sederhana Aplikasi perhitungan melalui Visual Basic Sebagai contoh Kalkulator
1. Pastikan  PC anda telah  terinstal Microsoft Visual basic 6.0
2. Lalu buka Start-Progam-Microsoft Visual Studio  6.0-Microsoft Visual Basic 6.o
3. Akan ada Tampilan utama,pilih standard EXE untuk memulai membuat aplikasi bru.klik open untuk memulainya.
4. Setelah klik open,akan tampak tampilan form1 untuk memulai aplikasi.
jika ingin membuat tulisan,klik Label pada toolbox.
caption untuk mengganti tulisan pada form.
5. jika kita akan membuat aplikasi kalkulator, maka membuat desainnya terlebih dahulu.
tambahkan textbox,untuk memasukkan bilangan.
6. Susun semua desain utama untuk mempermudah memasukkan rumus atau kode pada tombol command button.

7. Tambahkan empat command button untuk tombol penambahan,pengurangan,pembagian,dan perkalian.

8. Tambahkan label bertuliskan “hasil” dan texbox untuk tempat pengisian hasil perhitungan.

9.Tambahkan command botton bertuliskan hapus,untuk menghapus bilangan yang telah diproses.

10. Pada command button berlambang (+),untuk tombol penambahan.
- klik dua kali
-masukkan rumus atau kode:
Text3.Text = Val(Text1) + Val(Text2)
11. Pada command button berlambang (-)untuk tombol pengurangan.
- klik dua kali
-masukkan rumus atau kode:
Text3.Text = Val(Text1) – Val(Text2)
12.Pada command button berlambang (*),untuk tombol perkalian.
- klik dua kali
-masukkan rumus atau kode:
Text3.Text = Val(Text1) * Val(Text2)
13.Pada command button berlambang (/),untuk tombol pembagian.
- klik dua kali
-masukkan rumus atau kode:
Text3.Text = Val(Text1) / Val(Text2)
14. Pada command button bertuliskan “hapus”(tombol untuk menghapus bilangan yang ada pada textbox)
-klik dua kali pada command button tersebut,
-masukkan rumus atau kode:
text1.text = clear
text2.text = clear
text3.text = clear
jika dilihat pada daftar kode akan tampil seperti pada gambar berikut:

15. jika seluruh kode telah dimasukkan,untuk menjalankan aplikasinya adalah dengan cara:
-klik tombol Start pada toolbar,atau langsung tekan F5.
-maka aplikasi akan berjalan seperti contoh berikut:

16.berikan bilangan pertama dan kedua,untuk memulai perhitungan.
klik tombol penambahan untuk memprosesnya.

17. berikan bilangan pertama dan kedua,untuk memulai perhitungan.
klik tombol pengurangan untuk memprosesnya.

18. berikan bilangan pertama dan kedua,untuk memulai perhitungan.
klik tombol perkalian untuk memprosesnya.

19. Berikan bilangan pertama dan kedua,untuk memulai perhitungan.
klik tombol pembagian untuk memprosesnya.

Selamat mencoba,aplikasi ini adalah Sebagian kecil dari aplikasi pemrograman Visual Basic.

Source :  http://54ll1.wordpress.com/2008/08/02/program-sederhana-pada-visual-basic/
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Program IF Sederhana Pada QBasic

Pada kesempatan kali ini ada beberapa Contoh Program IF Sederhana Pada QBasic jika pada artikel  sebelumnya sudah membahas mengenai Contoh Program Sederhana Menggunakan Visual Basic kali ini  akan berikan sedikit Program Sederhana QBasic dengan membahas mengenai Contoh Program IF Sederhana Pada QBasic.

Program IF Sederhana Pada QBasic ini sebenarnya tidak jauh berbedan dengan penggunaan fungsi IF pada beberapa bahasa program yang ada seperti Visual Basic,Visual Foxpro dan lain sebagainya, yang membedakan hanyalah bagaimana Penulisan Struktur IF dalam bahasa tersebut.

Contoh Program IF berikut ini sangat mudah,tergantung teman – teman mengeksplorasi mengenai bagaimana menemukan kondisi dan hasilnya,berikut ini beberapa Contoh Program IF Sederhana Pada QBasic :

Ada sebuah pertanyaan yang hasilnya ditentukan dari sebuah kondisi,misal seperti ini Kita masukan nilai A.Jika kita masukan nilai A < 10 maka Nilai B tersebut adalah Nilai A + 10,Namun Jika nilai A > 10 maka hasil nilai B adalah nilai A itu sendiri. Berikut ini contohnya :



Kita masukan nilai A.Jika kita masukan nilai A < 10 maka Nilai B tersebut adalah Nilai A + 10,Jika kita masukan nilai A = 10 maka Nilai B tersebut adalah Nilai A + 1 Namun Jika nilai A > 10 maka hasil nilai B adalah nilai A itu sendiri. Berikut ini contohnya :


Itu tadi ada contoh sederhana dari Program If dalam QBasic.
 Selamat Mencoba

Source :  http://aldyputra.net/2011/12/contoh-program-if-sederhana-pada-qbasic/
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Wednesday, June 13, 2012

Tanggal Ekspor Untuk Excel Dengan Vb?

Saya menggunakan kode berikut untuk mengekspor data dari sebuah query untuk unggul. Semua karya besar kecuali tanggal di excel adalah salah. Ini menunjukkan tanggal impor seperti "83480" kapan harus 2005/4/10, saya tidak tahu kenapa?

Hanya pikiran adalah mungkin aku harus mengatur format untuk itu beberapa kolom di excel.

Saya telah tiga kali diperiksa untuk memastikan ia mendapatkan itu data dari kolom yang tepat dalam database. Jenis data dalam kolom database "DateDone" diatur ke Tanggal / Waktu.

Code:

Dim db As Database
Dim rs As Recordset
Dim WS As Workspace
Dim Max As Long

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim row As Integer

'Start a new workbook in Excel
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add


'Add data to cells of the first worksheet in the new workbook
Set oSheet = oBook.Worksheets(1)

'Get data
Set WS = DBEngine.Workspaces(0)
Set db = DBEngine.OpenDatabase(dbfile, False, False, ";PWD=" & pwdstring)

Set rs = db.OpenRecordset("Select * from production where " & mnsearchfield & " Like " & Searchmore & " Order by " & mnsearchfield & " ASC")


If rs.RecordCount = 0 Then
MsgBox ("No records to send!"), vbInformation, "Finished"
rs.Close
Exit Sub
End If


rs.MoveFirst
'formating column size and putting in column names
oSheet.Range("A1:Z1").Font.Bold = True
oSheet.Range("b1").Value = "Employee Name"
oSheet.Range("C1").Value = "WorkCenter"
oSheet.Range("D1").Value = "# of Parts Done"
oSheet.Range("E1").Value = "Date Done"
oSheet.Range("F1").Value = "Job Order"
oSheet.Range("G1").Value = "Total EFF"
oSheet.Range("H1").Value = "Emp #"
oSheet.Range("I1").Value = "Shift"
oSheet.Range("J1").Value = "Part #"

oSheet.Range("b1").columnWidth = 15
oSheet.Range("c1").columnWidth = 15
oSheet.Range("d1").columnWidth = 12
oSheet.Range("e1").columnWidth = 15
oSheet.Range("f1").columnWidth = 12
oSheet.Range("g1").columnWidth = 12
oSheet.Range("h1").columnWidth = 10
oSheet.Range("i1").columnWidth = 10
oSheet.Range("j1").columnWidth = 10

'sets row as 3 so it starts putting fields in at row 3 not row one where the names are
row = 3

'looping the data into excel
Do Until rs.EOF = True
oSheet.Range("B" & row).Value = rs("fullname")
oSheet.Range("C" & row).Value = rs("workcenter")
oSheet.Range("D" & row).Value = rs("numofpartsdone")
oSheet.Range("E" & row).Value = rs("datedone")
oSheet.Range("F" & row).Value = rs("joborder")
oSheet.Range("G" & row).Value = rs("totaleff")
oSheet.Range("H" & row).Value = rs("empnum")
oSheet.Range("I" & row).Value = rs("workshift")
oSheet.Range("J" & row).Value = rs("partnum")
row = row + 1
rs.MoveNext
If rs.AbsolutePosition >= 500 Then
Exit Do
End If
Loop

'adding sum & avg labels and formula
oSheet.Range("D" & row).Font.Bold = True
oSheet.Range("D" & row).Value = "Sum of Parts"
oSheet.Range("D" & row + 1).Value = "=Sum(D2:D" & row & ")"

oSheet.Range("G" & row).Font.Bold = True
oSheet.Range("G" & row).Value = "Avg Eff"
oSheet.Range("G" & row + 1).Value = "=Average(G2:G" & row & ")"

rs.Close
db.Close


'Save the Workbook and View Excel
oBook.SaveAs (App.Path & " emp.xls")
oExcel.Visible = True

Rem oExcel.Quit

End Sub

Apa ada pertanyaan tambahan ? Apakah ini tampaknya seperti cara yang baik untuk pergi untuk melakukan apa yang saya inginkan harus dilakukan? Aku tidak tahu bahwa ini bahkan mungkin sampai aku melihat sebuah posting di sini tentang hal itu hari ini. Jadi aku mencobanya.

Source : http://www.bigresource.com/

Terima kasih sebelumnya
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.