Visual Basic ( mendisplay sebuah tampilan )

Koding :

Private Sub Command2_Click() 'Clear
Text1.Text = ""

End Sub

Private Sub Command3_Click() 'Exit
Unload Me

End Sub

Private Sub Command1_Click() 'Display
Dim Tampil1, Tampil2, Tampil3, Tampil4, Enter
Enter = Chr(13) + Chr(10)
Tampil1 = ""
Tampil2 = "STIE - STMIK IBBI"
Tampil3 = "Jln. Sei Deli No.18"
Tampil4 = "Medan - Indonesia"
Text1.Text = Tampil1 + Enter + Tampil2 + Enter + Tampil3 + Enter + Tampil4
End Sub

Tampil Run

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.
<a href="https://baim-blogs.blogspot.com/2013/09/visual-basic-mendisplay-sebuah-tampilan.html">Visual Basic ( mendisplay sebuah tampilan )</a>

Visual Basic ( Input Bilangan Dan Cetak )

Salam Sahabat Blogger..
Kali ini saya kembali isi absen untuk memposting beberapa pengalaman project sederhana yang saya pelajari selama menjadi mahasiswa Teknik Informatika di IBBI Medan..
Project sederhana visual basic kali ini merupahkan pengurutan bilangan dan melakukan penampilan dalam bentuk cetak.. Dalam project ini saya menerapkan konsep perulangan untuk menghasilkan tampilan visual yang penuh dalam percetakan..
Selamat Mencoba Sahabat..
Semangat3x..
Rezpec N Peace !!!

Koding :

Private Sub Check1_Click()
If Check1.Value = 0 Then
Text3.Text = ""
End If
End Sub

Private Sub Command1_Click() 'Ulang
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click() 'Cetak
Dim bill, bil2, bil3
bil1 = Val(Text1.Text)
bil2 = Val(Text2.Text)

Text3.Text = ""
For i = bil1 To bil2
Text3 = Text3 + Str(i)
Next i

If Check1.Value = 0 Then
Text3.Text = ""
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Check1.Value = 1
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.
<a href="https://baim-blogs.blogspot.com/2013/09/visual-basic-input-bilangan-dan-cetak.html">Visual Basic ( Input Bilangan Dan Cetak )</a>

Visual Basic ( Loading Splash Screen using Progress Bar in VB 6.0 )

Salam Sahabat Blogger...
Suasana Malam ini tepat untuk membuat project maupun program yang unik-unik dan menarik,nah..mari kita konsep sebuah VB project berbentuk animasi sederhana..
Semangat3x..

RezpeC N PeacE !!!
















CODE

Option Explicit

Private Sub Form_Load()
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
    If ProgressBar1.Value = 80 Then
      ProgressBar1.Value = ProgressBar1 + 20

        If ProgressBar1.Value >= ProgressBar1.Max Then
            Timer1.Enabled = False
        End If
      'In this are you may call the form to be loaded next!
      MsgBox "Loading Complete!", vbInformation, "Info"
      Unload Me
   End If
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.
<a href="https://baim-blogs.blogspot.com/2013/09/visual-basic-loading-splash-screen.html">Visual Basic ( Loading Splash Screen using Progress Bar in VB 6.0 )</a>

Visual Basic ( ADD, EDIT, UPDATE, DELETE, SEARCH and NAVIGATION in VB 6.0 to MS ACCESS using ADO )

Salam Sahabat Blogger...
Sebagai programmer pemula pasti kita sering menemukan jalan buntu terhadap beberapa coding yang tidak terselesaikan dan menemukan jalan buntu ( Pingin Teriak ) WuuaaaH !!! Ga tahu harus mengadu kemana " Resiko Sebagai Programmer " tapi yakinlah sobat ketika didalam hidup kita selalu berfikiran positif dan jujur dan memiliki attitude baik dalam banyak hal itu akan membuat Logika kita semakin Jernih..
Ibarat sebuah pepatah " Banyak Jalan Menuju Roma " begitulah keluh kesah saya menikmati perkuliahan di bidang Informatika,sebuah coding dapat diselesaikan oleh 1 2 3 4 5 atau lebih logika sehinggah kadang kita memikirkan hal yg sulit tapi ternyata ada cara yang gampang belum lagi project yang gampang tapi di persulit " HeHeHe " tapi semua akan TEROBATI ketika Project terselesaikan " PUAS " Semangat3x...

Kali ini saya akan mengajak sahabat blogger mengenal lebih Visual Basic Programming menggunakan data base yang terhubung dalam proses Input and Output..
Skala kali ini lumayan cetar membahana lho sobat,dibutuhkan ketelitian dan konsep yang betul-betul matang disetiap coding...

Berikut Proses Yang Akan Kita Ciptakan :
-Add record 
-Delete record
-Search and Filter record
-Edit and Update record
-Navigate into record

NB : Kita akan menggunakan ADO yang terhubung pada Ms.Acces
NB : Persiapkan Sebuah Data Base Ms Access yang berisi sebuah keterangan data kepegawaian..

 

CODE

MODULE

Option Explicit

Public conn As ADODB.Connection
Public rs As ADODB.Recordset

Sub connect()
Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myDatabase.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
    rs.ActiveConnection = conn
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.Source = "SELECT * FROM MyTable"
    rs.Open
End Sub

Sub main()
connect
frmMain.Show
End Sub

FORM 1

Private Sub cmdDelete_Click()
On Error Resume Next
If MsgBox("Data is not recoverable!", vbExclamation + vbOKCancel, "Confirm Delete") = vbOK Then
rs.Delete
End If
End Sub

Private Sub cmdFirst_Click()
rs.MoveFirst
Call stat
End Sub

Private Sub cmdLast_Click()
rs.MoveLast
Call stat
End Sub

Private Sub cmdNext_Click()
If rs.EOF = True Then
    rs.MoveFirst
    Call stat
Else
    rs.MoveNext
    Call stat
End If
End Sub

Private Sub cmdPrevious_Click()
If rs.BOF = True Then
    rs.MoveLast
    Call stat
Else
    rs.MovePrevious
    Call stat
End If
End Sub

Private Sub Command1_Click()
rs.Filter = adFilterNone
rs.Requery
End Sub

Private Sub Command2_Click()
If MsgBox("Close Applect?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    End
End If
End Sub

Private Sub Form_Load()

Set DataGrid1.DataSource = rs

End Sub

Sub stat()
StatusBar1.Panels(1).Text = "Record " & rs.AbsolutePosition & " of " & rs.RecordCount
End Sub

Private Sub mnuAdd_Click()
frmAdd.Show
End Sub

Private Sub cmdSave_Click()
If txtid.Text = "" Or txtFn.Text = "" Or txtMi.Text = "" Or txtLn.Text = "" Then
    MsgBox "Some fields are still empty!", vbExclamation, "Input Error"
Else
rs.AddNew
rs("studId") = txtid.Text
rs("FirstName") = txtFn.Text
rs("MI") = txtMi.Text
rs("LastName") = txtLn.Text
rs.Update
MsgBox "Record Added Successfusly!", vbInformation, "Add Record"
Call clear
End If
End Sub

Sub clear()
txtid.Text = ""
txtFn.Text = ""
txtMi.Text = ""
txtLn.Text = ""
txtFn.SetFocus
End Sub

Private Sub txtSearch_Change()
If txtSearch.Text = "" Then
Call Form_Load
Me.Show
Else
rs.Filter = "FirstName LIKE '" & Me.txtSearch.Text & "*'"
Set DataGrid1.DataSource = rs
End If
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.
<a href="https://baim-blogs.blogspot.com/2013/09/visual-basic-add-edit-update-delete.html">Visual Basic ( ADD, EDIT, UPDATE, DELETE, SEARCH and NAVIGATION in VB 6.0 to MS ACCESS using ADO )</a>