Skip to main content

Kamus VB 6.0

Image
By
Private Sub About_Click()
frmAbout.Show
End Sub

Private Sub cmdTerjemahkan_Click()
Dim kata As String

Open App.Path & "\kamus.txt" For Input As #1

kata = Me.txtInggris.Text
Do While Not EOF(1)
  Input #1, Data
  hasil = Split(Data, "=")
  If Trim(hasil(0)) = kata Then
   Me.txtIndonesia.Text = hasil(1)
    Exit Do
  End If
Loop

Close #1
End Sub

Private Sub ReadMe_Click()
Open App.Path & "\README!!.txt" For Output As Read
End Sub
Labels:

Comments

Post a Comment

Popular posts from this blog

Tutorial Java Servlet

By
Post a Comment
Read more

Kumpulan Video Coding

By
https://www.youtube.com/user/TheGeekStyle/playlists https://www.youtube.com/playlist?list=PLxOOFFsKqfQQfgkcRBS0gJZv7Eo4DlzW-
Post a Comment
Read more

Database Configuration CodeIgniter for Oracle

By
Ini adalah contoh script database.php di folder config CodeIgniter untuk Oracle Database. <?php defined('BASEPATH') OR exit('No direct script access allowed'); $active_group = 'default'; $query_builder = TRUE; $db['default'] = array( 'dsn' => ' oci :dbname=// IP:PORT/IBSIBASE ;charset= UTF8 ', 'hostname' => '', 'username' => 'programmer', 'password' => 'pwdProgrammer', 'database' => '', 'dbdriver' => ' pdo ', 'dbprefix' => '', 'pconnect' => FALSE, 'db_debug' => (ENVIRONMENT !== 'production'), 'cache_on' => FALSE, 'cachedir' => '', 'char_set' => 'utf8', 'dbcollat' => 'utf8_general_ci', 'swap_pre' => '', 'encrypt' => FALSE, 'compress' => FALSE, 'stricton'...
Post a Comment
Read more