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.

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.