Saya sangat mengharapkan saran dan Kritik dari para pembaca Blog saya..
Silahkan sampaikan apa keluhan anda di sini..
Semoga membuat saja lebih kreatif dalam membuat program..
Dan maaf, tidak semua program yang saya buat di masukan di sini.
Silahkan bila ada permintaan dari para pembaca blog yang setia.
Terima kasih
Sylvia
Saya membuat data base dengan nama olah dokter.
Di sini saya menggunakan data base dengan office access 2003 dan juga crystal Repot untuk laporan dari data dokter.
Semoga bermanfaat untuk anda.
silahkan download, klik aja
sylvia
syntax nya yaitu :Public Class Form1
Private intPosition As Integer
Private Sub cmdFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles cmdFile.Click
OpenFileDialog1.Filter = "Text Documents (*.txt)|*.txt|All Files (*.*)|*.*"
OpenFileDialog1.Title = "Select a Text Document"
Try
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
txtText.Text = sr.ReadToEnd
sr.Close()
End If
Catch eror As Exception
MessageBox.Show(Err.Description, "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
If Me.txtSearch.Text = "" Then
MessageBox.Show("Enter Search String.", "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.txtSearch.Focus()
Exit Sub
End If
Static intStart As Integer
Dim objType As Object
If optInsensitive.Checked = True Then
objType = CompareMethod.Text
ElseIf optSensitive.Checked = True Then
objType = CompareMethod.Binary
End If
Select Case UCase(Me.cmdSearch.Text)
Case "SEARCH"
Me.cmdSearch.Text = "Search Next"
intPosition = 1
intStart = InStr(intPosition, Me.txtText.Text, Me.txtSearch.Text, objType)
Case "SEARCH NEXT"
intPosition = intStart + Me.txtSearch.Text.Length
intStart = InStr(intPosition, Me.txtText.Text, Me.txtSearch.Text, objType)
End Select
If intStart > 0 Then
Me.txtText.SelectionStart = intStart - 1
Me.txtText.SelectionLength = Me.txtSearch.Text.Length
Me.txtText.Select()
Me.txtText.ScrollToCaret()
Else
Call OptionsChanged(Me, Nothing)
MessageBox.Show("Search String NOT Found.", "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.txtSearch.SelectAll()
End If
End Sub
Private Sub OptionsChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles optInsensitive.CheckedChanged, optSensitive.CheckedChanged, txtSearch.TextChanged
If UCase(Me.cmdSearch.Text) = "SEARCH NEXT" Then
Me.txtText.Select(1, 0)
Me.txtText.ScrollToCaret()
Me.cmdSearch.Text = "Search"
intPosition = 1
Me.txtSearch.Focus()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
kalo susah download aja file nya disini
Sylvia
Vi membuat blog ini bertujuan untuk berbagi dan belajar bersama.. Karena bila ilmu kita bagi dengan yang lain tentu nya bila bermanfaat untuk orang tersebut maka kita pun ikut senang...
Semoga saja ilmu ini bermanfaat.. dan Vi tunggu bagi yang ingin berbagi ilmu nya di sini..
Sementara vi membagikan pelajaran
1. Visual Basic.Net
2. C++
berhubung Vi juga masih dalam taraf belajar nih..
kritik dan saran di perlukan, untuk kemajuan Vi tentunya
Thx
