- Cara Membuat Program Akuntansi Dengan Visual Basic Untuk
- Cara Membuat Program Akuntansi Dengan Visual Basic Gratis
- Cara Download Visual Basic
- Cara Membuat Program Akuntansi Dengan Visual Basic Windows 10
Sekian contoh-contoh program Visual Basic yang kami jelaskan pada artikel kali ini. Semoga contoh-contoh di atas dapat membuat Anda paham tentang bahasa pemrograman Visual Basic. Jika Anda hendak melihat beberapa contoh bahasa pemrogaman lain yang mirip dengan Visual Basic dan bersifat multi platform, simak contoh program Delphi yang ada di. Your Blog Description here!
jadi coding ini buat nampilin nomor otomatis dengan format tanggal/bulan/tahunn+nomor urut..
gimana codingnya di vb.net ??
neh..
——————————————————————
Shared Function NomorBaru() As String
Dim intValue As Integer = 1
Dim Nota As String = Date.Now.ToString(“ddMMyy”)
Dim rValue As String
Using objConnection As New OleDb.OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;” & “Data Source=” & Application.StartupPath + “Master.mdb ; ” & “User Id=admin;”)
objConnection.Open()
Dim objCommand As OleDb.OleDbCommand = objConnection.CreateCommand()
objCommand.CommandText = String.Format(“SELECT NoService FROM [SO] WHERE NoService LIKE'{0}###’ ORDER BY NoService DESC”, Nota)
Dim objValue As Object = objCommand.ExecuteScalar()
If objValue IsNot Nothing Then
If objValue IsNot DBNull.Value Then
Dim strvalue As String = objValue.ToString().Remove(0, 6)
Integer.TryParse(strvalue, intValue)
intValue += 1
End If
End If
objCommand.Dispose()
End Using
rValue = Nota & intValue.ToString(“00#”)
Return rValue
End Function
—————————————————————————
ket :
warna Merah : untuk Database Yg Digunakan
warna Hijau : untuk nama Field yg digunakan
warna kuning : untuk Nama tabel yg digunakan
Terima kasih..
mudah2an berguna dah..
View
213Download
0
Embed Size (px)
DESCRIPTION
membuat warna
Text of Membuat Warna Visual Basic
Example 18
Example 18.1
The Code:Dim strColor As String
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChangedstrColor = 'Red'End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChangedstrColor = 'Green'End Sub
Cara Membuat Program Akuntansi Dengan Visual Basic Untuk
Private Sub RadioYellow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioYellow.CheckedChangedstrColor = 'Yellow'End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel2.Text = strColorEnd SubAlthough the user may only select one item at a time, he may make more than one selection if those items belong to different categories. For example, the user wish to choose T-shirt size and color, he needs to select one color and one size, which means one selection in each category. This is easily achieved in VB2008 by using the Groupbox control under the containers categories. After inserting the Groupbox into the form, you can proceed to insert the radio buttons into the Groupbox. Only the radio buttons inside the Groupbox are mutually exclusive, they are not mutually exclusive with the radio buttons outside the Groupbox. In Example 18.2, the users can select one color and one size of the T-shirt.Example 18.2
Dim strColor As StringDim strSize As String
Cara Membuat Program Akuntansi Dengan Visual Basic Gratis
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChangedstrColor = 'Red'End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChangedstrColor = 'Green'End Sub
Private Sub RadioYellow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioYellow.CheckedChangedstrColor = 'Yellow'End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel2.Text = strColorLabel4.Text = strSizeEnd Sub
Private Sub RadioXL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioXL.CheckedChangedstrSize = 'XL'End Sub
Private Sub RadioL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioL.CheckedChangedstrSize = 'L'End Sub
Cara Download Visual Basic
Private Sub RadioM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioM.CheckedChangedstrSize = 'M'End Sub
Cara Membuat Program Akuntansi Dengan Visual Basic Windows 10
Private Sub RadioS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioS.CheckedChangedstrSize = 'S'End Sub