Friday, July 20, 2012

Contoh Program menghitung factorial angka menggunakan visual basic

Pada posting sebelumnya, saya mencoba menerjemahkan alogaritma dari buku kedalam bahasa visual basic, namun ternyata dengan logaritma if then else, lumanyan susah untuk menyusun bilangan factorial, alogaritma yang lebih mudah dapat diterjemahkan menggunakan while di visual basic.


HOT INFO

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

Program Aplikasi Bangun Datar Sederhana Berbasis Visual Basic 6.0

sebuah media pembelajaran berbasis visual basic 6.0 dengan materi Bangun Datar yang terdiri dari Persegi, Persegi Panjang, Jajargenjang, Belah Ketupat, Layang-Layang dan Trapesium. jadi dengan menggunakan program ini kalian bisa mempelajari Bangun Datar dengan sederhana dengan dilengkapi kuis untuk menguji kemampuan kalian. semoga bermanfaat ya bagi kalian semua 
Silahkan download programnya disini :
Download Program Aplikasi Bangun Datar Sederhana
Oia masukkan
Password installation : 123456789
username : melajahmatik dan password : melajahmatik
Nich sedikit gambaran tentang program yang akan di download 




Semoga bermanfaat ya
Salam Sukses untuk kita semua 

Source :  http://melajahmatik.wordpress.com/

HOT INFO

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

Pengertian Microsoft .NET dan Contoh Program Visual Basic .Net dengan Console

Microsoft .NET yang awalnya disebut Next Generation Windows Services (NGWS) adalah suatu platform untuk membangun dan menjalankan generasi penerus aplikasi-aplikasi terdistribusi. Microsoft .NET merupakan framework (kerangka) pengembangan yang menyediakan antarmuka pemrograman baru untuk layanan Windows dan API (Application Programming Interface). Microsoft .NET merupakan strategi Microsoft untuk menghubungkan sistem, informasi, dan alat (device), sehingga orang dapat berkomunikasi serta berkolaborasi dengan lebih efektif. Teknologi .NET terintegrasi penuh melalui produk-produk Microsoft, dan menyediakan kemampuan untuk mengembangkan solusi dengan menggunakan Web service. Platform Microsoft .NET terdiri dari lima komponen utama yang tersusun dalam tiga lapisan (layer) yaitu:
a. Visual Studio .NET
Microsoft Visual Studio .NET merupakan kumpulan lengkap tools pengembangan untuk membangun aplikasi Web ASP.NET, XML Web Services, aplikasi dekstop, dan aplikasi mobile. Di dalam Visual Studio inilah bahasa-bahasa pemrograman .NET seperti Visual Basic, Visual C++, Visual C# (CSharp), dan Visual J# (JSharp) semuanya menggunakan lingkungan pengembangan terintegrasi atau IDE yang sama sehingga memungkinkan untuk saling berbagi tools dan fasilitas.

b. Visual Basic .NET
Visual Basic .NET (atau VB.NET) merupakan salah satu bahasa pemrograman yang bisa digunakan untuk membangun aplikasi-aplikasi
.NET di platform Microsoft .NET. Tidak seperti generasi sebelumnya Visual Basic versi 6.0 ke bawah yang lebih difokuskan untuk pengembangan aplikasi desktop, Visual Basic .NET memungkinkan para pengembang membangun bermacam aplikasi, baik desktop maupun aplikasi web. Seiring dengan perkembangan aplikasi perangkat lunak yang semakin kompleks, saat ini Visual Basic .NET memasuki versi kelima (Visual Basic 2008).

c. IDE Visual Basic
IDE (Integrated Development Environment), atau juga disebut sebagai Integrated Design/Debugging Environment, adalah perangkat lunak komputer yang berfungsi untuk membantu pemrogram dalam mengembangkan perangkat lunak. Singkatnya, IDE merupakan suatu lingkungan pengembangan aplikasi yang terintegrasi; lengkap dengan beragam tools atau utilitas pendukung

Komponen Dari .Net Framework
.Net framework adalah landasan kerja bagi aplikasi-aplikasi .net yang dibuat dengan bahasa pemrograman berbasis .net tanpa terpengaruh oleh bahasa pemrograman yang digunakan. Didalam .Net Framework inilah semua coding yang telah dikembangkan oleh programmer akan dieksekusi berdasarkan urutan-urutan proses komponen yang bekerja saling melengkapi.

Berikut adalah komponen-komponen dari .Net Framework
a. Common Language Runtime (CLR)
CLR merupakan jembatan antara aplikasi .Net dengan sistem operasi. CLR menyediakan library-library yang diperlukan oleh aplikasi .Net.
b. Microsoft Intermediate Language (MSIL)
Ketika dikompilasi menggunakan berbagai compiler spt VB.Net, C#, C++.Net dan lainnya, program tidak diterjemahkan langsung kedalam bahasa biner yang dapat langsung dijalankan, namun diterjemahkan terlebih dahulu oleh CLR kedalam bentuk MSIL, baru kemudian MSIL menerjemahkan lagi kedalam bahasa binner untuk dijalankan. Mengapa perlu MSIL? karena MSIL bersifat multiplatform (dapat dijalankan diberbagai OS ). Jadi hasil terjemahan CLR kedalam MSIL itu bersifat independen terhadap hardware dan OS, misalnya MSIL untuk Linux akan berbeda dengan MSIL untuk MacOS.

c. Just in Time Compiler (JITers)
JIT Compiler akan mengkompilasi kode IL kedalam kode yang dapan dijalankan langsung (.exe atau .dll), yang disesuaikan dengan hardware dan OS. Kelebihan JIT dibanding compiler lainnya adalah JIT hanya melakukan kompilasi ketika dibutuhkan saja. Sehingga lebih efisien.

d. Framework Class Library (CLS)
Merupakan kumpulan class-class yg berjumlah ribuan didalam.Net framework. Ini merupakan library yang lebih dari sekedar standar yang pernah disertakan pada bahasa pemrograman tertentu. FCL menyediakan akses ke Win API dan fungsi-fungsi umum seperti struktur data, string manipulation, IO, Stream, thread, security, network, web,data akses, dan lainnya. Penggunakan class-class ini sangat mudah dengan menerapkan konsep inheritance dan polimorphism.

Prinsif Kerja .Net Framework
Source code --> MSIL compiler --> MSIL code
MSIL code --> JIT compiler --> Source code
source code --> code compiler --> aplication

Membuat Project Baru
langkah-langkah berikut:
1. Jalankan Visual Basic 2008
2. Klik menu File > Create Project untuk membuat project baru atau Open project jika ingin membuka project yang suda kita buat dan save sebelumnya.

3. Pada kotak dialog New Project, maka akan banyak ada pilihan templates seperti gambar berikut ini.

Penjelasan masing-masing template
• Windows Application.
Untuk menciptakan aplikasi-aplikasi windows yang berjalan secara lokal di komputer user.
• Class Library.
Untuk menciptakan kelas-kelas atau komponen komponen reusable yang dapat di-share dengan project lainnya.
• Console Application.
Untuk membuat aplikasi-aplikasi command-line.
• My Movie Collection Starter Kit
Untuk menciptakan aplikasi pre-built My Movie Collection, dan bisa di-customize sesuai kebutuhan.
• Screen Saver Starter Kit
Untuk menciptakan aplikasi pre-built Screen Saver, dan bisa di-customize sesuai kebutuhan.

4. Pada pratikum II ini menggunakan consule, maka pilih tempalate consule kemudian klik OK.


Latihan Program
Program 1
Module Module1

Sub Main()
'write => tulisannya disamping klo writeline tulisannya dibawah
Console.Write("Masukkan Nama Anda : ")
Dim xNama As String
Dim xKelas As String
xNama = Console.ReadLine()
Console.WriteLine()
Console.WriteLine("Halo " & xNama & ".Selamat datang di matakuliah Pemrograman Visual II.")
Console.WriteLine()
Console.WriteLine("Masukkan Kelas Anda : ")
xKelas = Console.ReadLine()
Console.WriteLine()
Select Case UCase(xKelas)
Case "K081"
Console.WriteLine("Anda kuliah tiap hari jumat pk 08.00-11.00")
Case "A091"
Console.WriteLine("Anda kuliah tiap hari kamis pk 08.00-11.00")
Case Else
Console.WriteLine("Amda salah memasukkan kelas.")
End Select
Console.WriteLine("-------------------------------------")
Console.WriteLine("TEKAN ENTER UNTUK KELUAR")
Console.ReadLine()
End Sub

End Module



Program 2
Module Module1

Sub Main()
Console.Write("Masukkan Nama Anda : ")
Dim xNama As String
xNama = Console.ReadLine()
Console.WriteLine()
Console.WriteLine("Halo " & xNama & ". Selamat datang di matakuliah Pemorograman Visual II.")
Console.WriteLine()
InputKelas()
Console.WriteLine()
Console.WriteLine("----------------------------------------")
Console.WriteLine("Tekan enter untuk keluar")
Console.ReadLine()
End Sub

Private Function CekKelas(ByVal xKelas As String) As Boolean
Dim xCek As Boolean
xCek = True
Select Case UCase(xKelas)
Case "K081"
Console.WriteLine()
Console.WriteLine("Anda kuliah tiap hari jumat pk 08.00-11.00")
Case "P092"
Console.WriteLine()
Console.WriteLine("Anda kuliah tiap hari kamis pk 08.00-11.00")
Case Else
Console.WriteLine()
Console.WriteLine("Anda salah memasukkan kelas")
Console.WriteLine()
xCek = False
End Select
Return xCek
End Function

Private Sub InputKelas()
Dim xKelas As String
Console.Write("Masukkan Kelas Anda : ")
xKelas = Console.ReadLine()
If CekKelas(xKelas) = False Then
InputKelas() 'rekursif => proses memanggil diri sendiri
End If
End Sub
End Module


 
Source : http://allaboutalgoritma.blogspot.com/

HOT INFO

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

Contoh program Mencari Bilangan Prima dengan Visual Basic 6.0

bilangan-prima
Contoh program untuk mencari bilangan prima dengan visual basic 6.0.
Script Code:
Dim x, y As Integer
Private Sub cmdBersih_Click()
List1.Clear
txtCari.Text = “”
txtCari.SetFocus
End Sub
Private Sub cmdCari_Click()
batas = Val(txtCari.Text)
For x = 2 To batas
z = 0
For y = 2 To x
hasil = x Mod y
If hasil = 0 Then
z = z + 1
End If
Next y
If z <= 1 Then
List1.AddItem x
End If
Next x
End Sub
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Download programnya di sini
http://www.4shared.com/file/yt8rT4eg/_2__Program_Menampilkan_Bilang.html

Source :  http://oktava.blogdetik.com/



HOT INFO

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

Contoh Program Konversi Jarak Dengan Visual Basic 6.0

Share lagi program visual basic 6.0 konversi jarak.
jarak
Silahkan download di sini
http://www.4shared.com/file/pPV8F3d0/Program_Konversi_Jarak_dengan_.html

Source :  http://oktava.blogdetik.com/

HOT INFO

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

Contoh Program Aplikasi Ramalan Jodoh Menggunakan Visual Basic 6.0

Silahkan yang mau coba bisa di download disini ya :-D :-D
Nich sedikit screenshootnya saya perlihatkan agar kalian tertarik. hehe :-D
 

Source : http://melajahmatik.wordpress.com/

HOT INFO

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

Contoh Program sederhana Memilih Menu Makan 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

Source : http://ekosuhartono.blogdetik.com/

HOT INFO

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

Contoh Pembuatan Program di Visual Basic

Ini salah satu contoh dari program di Visual Basic, Saya telah membuat sebuah contoh yang dapat mengetahui suatu barang dengan cara mengisi kode barangnya saja. Bila kode barangnya sudah di input (diisi) maka, akan tampil nama barang yang sesuai dengan kode barangnya dan sebuah harga dari barang tersebut. Setelah nama barang dan harganya terlihat, anda bisa menginput (memasukan) jumlah unit (barang) yang di beli. Selanjutnya anda bisa mengetahui jumlah harga setelah anda memasukan jumlah barang yang di beli. Anda juga dapat mengetahui berapa diskon yang di dapat dan jumlah dari harga sebenarnya. Anda dapat memasukan koding (kode) dari sebuah program tersebut, koding (kodenya) adalah, sebagai berikut :
Private Sub Command1_Click()
If Text1.Text = “CPU” Then
Text2.Text = “Central Processing Unit”
Text3.Text = “275000″
ElseIf Text1.Text = “RAM” Then
Text2.Text = “Random Access Memory”
Text3.Text = “225000″
ElseIf Text1.Text = “HDD” Then
Text2.Text = “Hard Disk”
Text3.Text = “425000″
ElseIf Text1.Text = “MTR” Then
Text2.Text = “Monitor”
Text3.Text = “750000″
ElseIf Text1.Text = “CDR” Then
Text2.Text = “Cd Room”
Text3.Text = “175000″
ElseIf Text1.Text = “PRT” Then
Text2.Text = “Printer”
Text3.Text = “500000″
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Text7.Text = (Text3.Text) * (Text4.Text)
Text6.ForeColor = vbBlue
If Text7.Text >= 2000000 Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Option4.Value = False
Text5.Text = “20″
Text6.Text = (Text7.Text) – ((Text7.Text) * (Text5.Text) / 100)
ElseIf (Text7.Text < 2000000) And (Text7.Text > 1000000) Then
Option1.Value = False
Option2.Value = True
Option3.Value = False
Option4.Value = False
Text5.Text = “10″
Text6.Text = (Text7.Text) – ((Text7.Text) * (Text5.Text) / 100)
ElseIf (Text7.Text < 1000000) And (Text7.Text > 500000) Then
Option1.Value = False
Option2.Value = False
Option3.Value = True
Option4.Value = False
Text5.Text = “5″
Text6.Text = (Text7.Text) – ((Text7.Text) * (Text5.Text) / 100)
ElseIf Text7.Text < 500000 Then
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = True
Text5.Text = “0″
Text6.Text = Val(Text7.Text)
End If
End Sub
Private Sub Command5_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command6_Click()
Text4.Text = “”
Text7.Text = “”
End Sub
Private Sub Command7_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
Karena contoh tersebut mempunyai lebih dari 2 pengulangan, maka saya menggunakan contoh dari pengulangan If .. Then .. Else ..
pengulangan tersebut bisa melakukan pengulangan lebih dari 2 pengulangan.
Akan tampil seperti gambar di bawah ini……





HOT INFO

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

Program Antrian bank menggunakan visual basic

Program Antrian bank menggunakan visual basic - Kali ini saya mau share suatu program yang di buat menggunakan Visual basic,yaitu program antrian pada suatu bank.Contoh program ini cuma penggunakan teller 2 buah saja,kalau ingin menambahkan nya,silahkan di edit kembali program nya.


Bagi anda yang mau belajar,silahkan download source kode nya




DOWNLOAD 






HOT INFO

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

Contoh Program Pada Visual Basic

Form1
Private Sub Command1_Click()
Username = Text1.Text
Password = Text2.Text
If Username = "Tri" And Password = "03061992" Then
MsgBox "Username Dan Password Diterima", vbInformation, "Info"
Form1.Hide
Form2.Show
Else
MsgBox "Username Dan Password Ditolak", vbCritical, "Warning"
End If
End Sub

Form2
Private Sub Command1_Click()
Text1.Text = Int(Rnd * 10)
Text2.Text = Int(Rnd * 10)
Text3.Text = Int(Rnd * 10)
If Text1.Text = "7" And Text2.Text = "7" And Text3.Text = "7" Then
MsgBox "Hore", vbInformation, "Info"
End If
End Sub

Private Sub Command2_Click()
Form2.Hide
Form3.Show
End Sub

Form3
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Top = Rnd * 4000
Command1.Left = Rnd * 4000
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 100
If Shape1.Left >= 5000 Then
Shape1.Left = -Shape1.Width
End If
End Sub

Pada saat program dijalankan akan tampil Form1. Kemudian masukkan Username dan Password sesuai isi coding. Misalnya Username “Tri” dan Password “03061992”.


Jika Username dan Password salah, akan tampil pesan seperti ini!


Jika Username dan Password benar, akan tampil pesan seperti ini!


Kemudian Form1 tertutup dan masuk ke Form 2 dan akan tampil seperti ini!
Klik OK untuk menjalankan program yang ada. Kemudian angka pada text1, text2 dan text3 muncul secara acak dari 0 sampai 10


Jika angka yang muncul pada text1, text2 dan text3 7 7 7 maka akan muncul pesan Hore. Kemudian klik OK lalu klik Masuk, maka akan tampil Form3


Kemudian Form2 tertutup dan masuk ke Form 3 dan akan tampil seperti ini!


Pada saat ingin klik tombol Klik, tombol Klik akan berpindah-pindah pada jarak yang diinginkan. Misalnya 4000 horizontal dan 4000 vertikal. Tekan Spacebar untuk menjalankan program. Kemudian bola akan berjalan ke arah kanan dengan dengan kecepatan 100 sampai jarak 5000. Jika melebihi jarak 5000 maka bola akan berulang kembali ke awal. Klik Keluar untuk keluar dari program.
 
Source :  http://trimaaja.blogspot.com/




HOT INFO

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