• Membuat Aplikasi Melalui Vicual Basic 6.0

    Read More
    0

    Cara membuat Aplikasi Media Player di vb 6.0
    Tanpa basa-basi langsung menuju cara pembuatan :

    1.      Jalankan program VB 6.0 >> buat new project >> pilih standar.exe
    2.      Klik Menu Project >> Components (CTRL+T) >> tandai/centang Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> Microsoft HTML Library, Microsoft Internet Control,  Microsoft Windows Common Control 6.0 >> OK


    3.      Pada form1 tambahkan  2 buah label, 7 commandbutton, 1 CommonDialog, Windows MediaPlayer, 2 ListBox >> desain tataletaknya



    >> Ganti Propertis
    Nama Control
    Propertis
    Setting
    Lebel 1
    Caption
    MepNet_SV
    Lebel 2
    Caption
    BorderStyle
    (kosongkan)
    1-FixedSingle
    Command1
    Caption
    Open
    Command2
    Caption
    Add
    Command3
    Caption
    Visible
    Add File
    False
    Command4
    Caption
    Visible
    Add Folder
    False
    Command5
    Caption
    Exit
    Command6
    Caption
    Scan
    Command7
    Caption
    Network
    CommondDialog
    CancelError
    Filter
    True
    *.mp3
    Windows MediaPlayer
    EjectEnabled
    EjectVisible
    PauseEnabled
    PauseVisible
    PlayEnabled
    PlayVisible
    StopEnabled
    StopVisible
    True
    True
    True
    True
    True
    True
    True
    True
    List1
    Caption
    (kosongkan)
    List2
    Caption
    (kosongkan)

    4.      Buat Form2 ( form untuk Menambahkan File ) >> Tutup Form1 >> Buka Menu Project dan Pilih Add Form >> Berikan komponen berikut pada Form2 , 1 buah DriveListBox, 1 Buah DirListBox, 1 Buah FileListBox, 2 Buah CommandButton >> atur tataletaknya




    >> Ganti Properties
    Nama Control
    Propertis
    Setting
    Command1
    Caption
    Add File
    Command2
    Caption
    Close

     5.      Buat Form3 (untuk menambahkan Folder) >>  tutup form2 >> Buka Menu Project dan Pilih Add Form >> Berikan komponen berikut pada Form3 , 1 buah DriveListBox, 1 Buah DirListBox,  2 Buah CommandButton >> atur tataletaknya


    >>  Ganti Propertis
    Nama Control
    Propertis
    Setting
    Command1
    Caption
    Add Folder
    Command2
    Caption
    Close

    *silahkan melanjutkan pnambahan Form4 & form5 ntuk menambahkan scan virus & web browser 
    6.      Buat Form4 (untuk menambahkan Scan Virus) >>  tutup form3 >> Buka Menu Project dan Pilih Add Form >> Berikan komponen berikut pada Form4 , 1 buah DriveListBox, 1 Buah DirListBox, 1 buah listbox, 4 buah textbox dan  2 Buah CommandButton >> atur tataletaknya




    >> Ganti Propertis
    Nama Control
    Propertis
    Setting
    Command1
    Caption
    Add Folder
    Command2
    Caption
    Close
    Tex2
    Caption
    Control Text2

    7.      Buat Form5 (untuk web browser) >>  tutup form4 >> Buka Menu Project dan Pilih Add Form >> Berikan komponen berikut pada Form5, 2 Label, 1 Text box, 1 Button 1, Webbrowser, 1 Progress Bar >> atur tataletaknya




    >> Ganti Propertis
    Nama Control
    Propertis
    Setting
    Command1
    Caption
    GO..!!!
    TexBox
    Caption
    (kosongkan)

    PEMBERIAN CODE
    1.      Form1

    Private Sub add_Click()
    Form2.Show
    End Sub

    Private Sub Command1_Click()
    On Error Resume Next
    CommonDialog1.ShowOpen
    WindowsMediaPlayer1.URL = CommonDialog1.FileName
    Exit Sub
    End Sub

    Private Sub Command2_Click()
    If Command2.Caption = "ADD" Then
    Command3.Visible = True
    Command4.Visible = True
    Command2.Caption = "Hide"
    Else
    Command3.Visible = False
    Command4.Visible = False
    Command2.Caption = "ADD"
    End If
    End Sub

    Private Sub Command3_Click()
    Form2.Show
    End Sub

    Private Sub Command4_Click()
    Form3.Show
    End Sub

    Private Sub Command5_Click()
    Form4.Show
    End Sub

    Private Sub Command6_Click()
    End
    End Sub

    Private Sub Command7_Click()
    Form5.Show
    End Sub

    Private Sub exit_Click()
    End
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    WindowsMediaPlayer1.URL = "stop"
    End Sub

    Private Sub List2_DblClick()
    List1.ListIndex = List2.ListIndex
    WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
    End Sub

    Private Sub open_Click()
    On Error Resume Next
    CommonDialog1.ShowOpen
    WindowsMediaPlayer1.URL = CommonDialog1.FileName
    Exit Sub
    End Sub

    Private Sub project_Click()
    Command7 = True
    End Sub

    2.      Form2

    Private Sub Command1_Click()
    Form1.List1.AddItem Dir1.path & "\" & File1
    Form1.List2.AddItem File1
    End Sub

    Private Sub Command2_Click()
    Unload Me
    End Sub

    Private Sub Dir1_Change()
    File1.path = Dir1.path
    End Sub

    Private Sub Drive1_Change()
    Dir1.path = Drive1.Drive
    End Sub

    Private Sub File1_DblClick()
    Form1.List2.AddItem Dir1.path & "\" & File1.FileName
    Form1.List1.AddItem File1.FileName
    End Sub

    Private Sub Form_Load()

    End Sub

    3.      Form3

    Private Sub Command1_Click()
    Form1.List2.AddItem Form1.List1 & "\" & Dir1.Path
    Form1.List2.AddItem Dir1.Path
    End Sub

    Private Sub Command2_Click()
    Unload Me
    End Sub

    Private Sub Dir1_Change()
    Form1.List1.AddItem Dir1.path
    End Sub

    Private Sub Drive1_Change()
    Dir1.path = Drive1.Drive
    End Sub

    Private Sub Form_Load()

    End Sub

    4.      Form4

    Option Explicit

    Function FindFilesAPI(path As String, SearchStr As String, _
    FileCount As Integer, DirCount As Integer)
    Dim FileName As String   ' Walking filename variable...
    Dim DirName As String    ' SubDirectory Name
    Dim dirNames() As String ' Buffer for directory name entries
    Dim nDir As Integer   ' Number of directories in this path
    Dim i As Integer      ' For-loop counter...
    Dim hSearch As Long   ' Search Handle
    Dim WFD As WIN32_FIND_DATA
    Dim Cont As Integer
    Dim FT As FILETIME
    Dim ST As SYSTEMTIME
    Dim DateCStr As String, DateMStr As String

    If Right(path, 1) <> "\" Then path = path & "\"
    ' Search for subdirectories.
    nDir = 0
    ReDim dirNames(nDir)
    Cont = True
    hSearch = FindFirstFile(path & "*", WFD)
    If hSearch <> INVALID_HANDLE_VALUE Then
    Do While Cont
    DirName = StripNulls(WFD.cFileName)
    ' Ignore the current and encompassing directories.
    If (DirName <> ".") And (DirName <> "..") Then
    ' Check for directory with bitwise comparison.
    If GetFileAttributes(path & DirName) And _
    FILE_ATTRIBUTE_DIRECTORY Then
    dirNames(nDir) = DirName
    DirCount = DirCount + 1
    nDir = nDir + 1
    ReDim Preserve dirNames(nDir)
    ' Uncomment the next line to list directories
    'List1.AddItem path & FileName
    End If
    End If
    Cont = FindNextFile(hSearch, WFD)  ' Get next subdirectory.
    Loop
    Cont = FindClose(hSearch)
    End If
    ' Walk through this directory and sum file sizes.
    hSearch = FindFirstFile(path & SearchStr, WFD)
    Cont = True
    If hSearch <> INVALID_HANDLE_VALUE Then
    While Cont
    FileName = StripNulls(WFD.cFileName)
    If (FileName <> ".") And (FileName <> "..") And _
    ((GetFileAttributes(path & FileName) And _
    FILE_ATTRIBUTE_DIRECTORY) <> FILE_ATTRIBUTE_DIRECTORY) Then
    FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * _
    MAXDWORD) + WFD.nFileSizeLow
    FileCount = FileCount + 1
    ' To list files w/o dates, uncomment the next line
    ' and remove or Comment the lines down to End If
    'List1.AddItem path & FileName

    ' Include Creation date...
    FileTimeToLocalFileTime WFD.ftCreationTime, FT
    FileTimeToSystemTime FT, ST
    DateCStr = ST.wMonth & "/" & ST.wDay & "/" & ST.wYear & _
    " " & ST.wHour & ":" & ST.wMinute & ":" & ST.wSecond
    ' and Last Modified Date
    FileTimeToLocalFileTime WFD.ftLastWriteTime, FT
    FileTimeToSystemTime FT, ST
    DateMStr = ST.wMonth & "/" & ST.wDay & "/" & ST.wYear & _
    " " & ST.wHour & ":" & ST.wMinute & ":" & ST.wSecond
    List1.AddItem path & FileName & vbTab & _
    Format(DateCStr, "mm/dd/yyyy hh:nn:ss") _
    & vbTab & Format(DateMStr, "mm/dd/yyyy hh:nn:ss")
    End If
    Cont = FindNextFile(hSearch, WFD)  ' Get next file
    Wend
    Cont = FindClose(hSearch)
    End If
    ' If there are sub-directories...
    If nDir > 0 Then
    ' Recursively walk into them...
    For i = 0 To nDir - 1
    FindFilesAPI = FindFilesAPI + FindFilesAPI(path & dirNames(i) _
    & "\", SearchStr, FileCount, DirCount)
    Next i
    End If
    End Function
    Private Sub Command1_Click()
    Dim SearchPath As String, FindStr As String
    Dim FileSize As Long
    Dim NumFiles As Integer, NumDirs As Integer
    Screen.MousePointer = vbHourglass
    List1.Clear
    SearchPath = Text1.Text
    FindStr = Text2.Text
    FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
    Text3.Text = NumFiles & " Files found in " & NumDirs + 1 & _
    " Directories"
    Text4.Text = "Size of files found under " & SearchPath & " = " & _
    Format(FileSize, "#,###,###,##0") & " Bytes"
    Screen.MousePointer = vbDefault
    End Sub

    Private Sub Command2_Click()
    Unload Me
    End Sub

    Private Sub Drive1_Change()
    Dir1.path = Drive1.Drive
    End Sub

    Private Sub Form_Load()

    End Sub

    5.      Form5

    Private Sub back_Click()
    On Error Resume Next
    WebBrowser1.GoBack
    End Sub

    Private Sub Command1_Click()
    On Error Resume Next
    WebBrowser1.Navigate (Text1.Text)
    End Sub

    Private Sub Command2_Click()

    End Sub

    Private Sub exit_Click()
    Unload Me
    End Sub

    Private Sub forward_Click()
    On Error Resume Next
    WebBrowser1.GoForward
    End Sub

    Private Sub home_Click()
    On Error Resume Next
    WebBrowser1.GoHome
    End Sub

    Private Sub refresh_Click()
    On Error Resume Next
    WebBrowser1.refresh
    End Sub

    Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    On Error Resume Next

    If Progress = -1 Then ProgressBar1.Value = 100

    Label1.Caption = "Done"

    ProgressBar1.Visible = False

    If Progress > 0 And ProgressMax > 0 Then

    ProgressBar1.Visible = True

    Image1.Visible = False

    ProgressBar1.Value = Progress * 100 / ProgressMax

    Label1.Caption = "Loading... " & Int(Progress * 100 / ProgressMax) & "%"

    End If

    Exit Sub
    End Sub

    6.      Modul1

    Declare Function FindFirstFile Lib "kernel32" Alias _
    "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData _
    As WIN32_FIND_DATA) As Long

    Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
    (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

    Declare Function GetFileAttributes Lib "kernel32" Alias _
    "GetFileAttributesA" (ByVal lpFileName As String) As Long

    Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) _
    As Long

    Declare Function FileTimeToLocalFileTime Lib "kernel32" _
    (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long

    Declare Function FileTimeToSystemTime Lib "kernel32" _
    (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

    Public Const MAX_PATH = 260
    Public Const MAXDWORD = &HFFFF
    Public Const INVALID_HANDLE_VALUE = -1
    Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
    Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
    Public Const FILE_ATTRIBUTE_HIDDEN = &H2
    Public Const FILE_ATTRIBUTE_NORMAL = &H80
    Public Const FILE_ATTRIBUTE_READONLY = &H1
    Public Const FILE_ATTRIBUTE_SYSTEM = &H4
    Public Const FILE_ATTRIBUTE_TEMPORARY = &H100

    Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
    End Type

    Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
    End Type

    Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
    End Type

    Public Function StripNulls(OriginalStr As String) As String
    If (InStr(OriginalStr, Chr(0)) > 0) Then
    OriginalStr = Left(OriginalStr, _
    InStr(OriginalStr, Chr(0)) - 1)
    End If
    StripNulls = OriginalStr
    End Function

    By : Unknown

    On :

  • Membuat Program Menggunakan Netbeans

    Read More
    1

    Cara Membuat Program Olah Data menggunakan Netbeans
    Setelah sebelumnya saya membahas cara membuat aplikasi notepad, pada pembahasan java kali ini saya akan membahas tentang cara membuat program Olah Data menggunakan Netbeans.
    A. Membuat form
    Cara membuat form adalah klik kanan pada nama projek yang telah dibuat, kemudian klik new dan pilih other, seperti gambar dibawah ini :

    Kemudian akan muncul jendela untuk menentukan categori file dan tipenya pilih swing GUI forms dengan tipe Jframe form.


    Next.........
    Buat nama Jframe form baru dengan tugas, kemudian klik finish.


    dari sini akan muncul form yang akan kita kerjakan nantinya, dan buatlah form seperti dibawah ini :


    B. Mengisi Kode Button.
    Dari gambar form diatas, yang harus dikerjakan adalah button dengan urutan HITUNG, SIMPAN, HAPUS, SEARCH, NEW, EXIT.
    1. HITUNG
    Kodenya adalah sebagai berikut :
    private void jButton4ActionPerformed(java.awt.event.ActionEvent evt) {                                   
            // TODO add your handling code here:
    double a=Double.parseDouble(jTextField2.getText());
            double b=Double.parseDouble(jTextField3.getText());
            double c=Double.parseDouble(jTextField4.getText());
            double hasil=(a+b+c)/3;
            jTextField6.setText(hasil+"");
            jTextField5.setText(jTextField1.getText());
    {    
    if (hasil >= 90  )
                jTextField7.setText("A");
    if (hasil > 80 && hasil <= 90)
                jTextField7.setText("B");
    if (hasil > 70 && hasil <= 80)
                jTextField7.setText("C");
    if (hasil > 60 && hasil <= 70)
                jTextField7.setText("D");
    if (hasil > 50 && hasil <= 60)
                jTextField7.setText("E");
    if (hasil <= 50 )
                jTextField7.setText("F");
    if (hasil >=60 )
            jTextField8.setText("lulus");
    else
            jTextField8.setText("tidak lulus");
    }
        }

    Dimana pada kode diatas menunjukkan pengambilan text inputan “getText()” yang ada pada jTextField2 (UTS), jTextField3 (UAS), dan jTextField3 (Tugas) yang diwakili oleh huruf (a,b,c) yang pada hasilnya dirata-rata menjadi hasil=(a+b+c)/3; dan outputnya ada pada jTextField6.setText(hasil+””); jTextField6.setText(jTextField5.getText()); dst.
    2. SIMPAN
    Kodenya sebagai berikut:
    String Data[] = new String[9];
    int row =0;
    //Kode yang menentukan jumlah 9 string data yang akan disimpan .
        private void jButton3ActionPerformed(java.awt.event.ActionEvent evt) {                                   
    // TODO add your handling code here:
           Data[0]=jTextField1.getText();
            Data[1]=jTextField2.getText();
            Data[2]=jTextField3.getText();
            Data[3]=jTextField4.getText();
            Data[4]=jTextField5.getText();
            Data[5]=jTextField6.getText();
            Data[6]=jTextField7.getText();
            Data[7]=jTextField8.getText();
            Data[8]=jTextField10.getText();
            //Kode diatas menunjukkan pengambilan data yang akan disimpan ke database.
    try{
         stat.executeUpdate("insert into tbipk values('"+Data[0]+"','"+Data[1]+"','"+Data[2]+"','"+Data[3]+"','"+Data[4]+"','"+Data[5]+"','"+Data[6]+"','"+Data[7]+"','"+Data[8]+"')");
                JOptionPane.showMessageDialog(null,"file berhasil disimpan");
            }catch(SQLException err){
                JOptionPane.showMessageDialog(null, "Error di insert, "+err.getMessage());

            }
               //Kode diatas adalah proses insert kedatabase yang akan kita buat nantinya dengan urutan dimulai dari Data[0] sampai Data[8]tergantung jumlah columpada tabel database yang telah dibuat.
        }
    3. Hapus
    Kodenya adalah sebagai berikut:
        private void jButton5ActionPerformed(java.awt.event.ActionEvent evt) {                                   
            // TODO add your handling code here:
    try{
                stat.executeUpdate("delete from tbipk where nim='"+jTextField10.getText()+"'");
                JOptionPane.showMessageDialog(null,"file berhasil dihapus");
              }catch(SQLException err){
                JOptionPane.showMessageDialog(null, "Error di insert, "+err.getMessage());
            }
    //Kode diatas bermaksud menghapus semua data dari tabel tbipk sesuai dengan nim mahasiswa yang telah diketik dikolom jTextField10 (kolom NIM).
    jTextField1.setText("");
              jTextField2.setText("");
              jTextField3.setText("");
              jTextField4.setText("");
              jTextField5.setText("");
              jTextField6.setText("");
              jTextField7.setText("");
              jTextField8.setText("");
              jTextField9.setText("2010-51-");
              jTextField10.setText("2010-51-");
    //Kode diatas bertujuan untuk mengosongkan text field dan mengisi jTextField9, dan jTextField10 dengan text “2010-51-“.
        }
    4. SEARCH
    Kodenya adalah sebagai berikut :
        private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {                                   
            // TODO add your handling code here:
    try{
                ResultSet rs=stat.executeQuery("select*from tbipk where nim='"+jTextField9.getText()+"'");
                if(rs.next()){
                    Data[0]=rs.getString("nm");
                    Data[1]=rs.getString("uts");
                    Data[2]=rs.getString("tgs");
                    Data[3]=rs.getString("uas");
                    Data[4]=rs.getString("lnama");
                    Data[5]=rs.getString("lrata");
                    Data[6]=rs.getString("lhuruf");
                    Data[7]=rs.getString("lhasil");
                    Data[8]=rs.getString("nim");
    //Kode diatas bermaksud mencari dari tabel tbipk berdasarkan nim yang diketikkan dikotak pencariandan dan mengambil string dari kolom kolom yang ada pada tabel tbipk (nm, uts, tgs, uas, lnama, lrata, lhuruf, lhasil, nim).
                    jTextField1.setText(Data[0]);
                    jTextField2.setText(Data[1]);
                    jTextField3.setText(Data[2]);
                    jTextField4.setText(Data[3]);
                    jTextField5.setText(Data[4]);
                    jTextField6.setText(Data[5]);
                    jTextField7.setText(Data[6]);
                    jTextField8.setText(Data[7]);
                    jTextField10.setText(Data[8]);
            }else{
                    JOptionPane.showMessageDialog(null, "Data Tidak Ada");
                }
            }catch(SQLException err){
                JOptionPane.showMessageDialog(null, "Error di insert, "+err.getMessage());
            }
    //Kode diatas bermaksud menampilkan seluruh data dari Data[0] sampai Data[8] dikolom 1,2,3,4,5,6,7,8, dan 10.
        }
    5. NEW
    Kodenya adalahs sebagai berikut :
    private void jButton2ActionPerformed(java.awt.event.ActionEvent evt) {                                   
            // TODO add your handling code here:
    jTextField1.setText("");
            jTextField2.setText("");
            jTextField3.setText("");
            jTextField4.setText("");
            jTextField5.setText("");
            jTextField6.setText("");
            jTextField7.setText("");
            jTextField8.setText("");
            jTextField9.setText("2010-51-");
            jTextField10.setText("2010-51-");
    //kode bertujuan mengosongkan semua text field dan pada jTextField9 dan jTextField10diisi dengan text "2010-51-".
        }
    6. EXIT
    Kodenya adalah sebagai berikut :
    private void jButton6ActionPerformed(java.awt.event.ActionEvent evt) {                                   
            // TODO add your handling code here:
    this.dispose();
        }
    C. Mengisi kode Windowdan MySQL Database anager.
    Setelah semua kode yang dutuhkan untuk form berhasil diisikan sekarang yang harus dilakukan adalah mengisikan kode windows dibawah ini :
        private void formWindowOpened(java.awt.event.WindowEvent evt) {                            
            // TODO add your handling code here:
    try{
                  Class.forName("com.mysql.jdbc.Driver").newInstance();
              }catch(Exception e){
                  JOptionPane.showMessageDialog(null, "Error di driver "+e.getMessage());
              }
              try{
                  koneksi=DriverManager.getConnection("jdbc:mysql://localhost/dbmhs","root","");
                  stat=koneksi.createStatement();
              }catch(Exception e){
                  JOptionPane.showMessageDialog(null, "Error di driver "+e.getMessage());
              }
        }
    Caranya adalah dengan memilih desain dan klik kanan pada gambar form dan pilih Events > Windows > windowOpened dobel klik dan masukkan kode diatas:


    Kemudian jangan lupa masukkan kode berikut ini tepat dibawahpackage prjmhs;
    package prjmhs;
    import java.sql.*;
    import java.sql.DriverManager;
    import javax.swing.JOptionPane;

    Dan masukkan kode :

    public class Tugas extends javax.swing.JFrame {
    public static Connection koneksi=null;
    public static Statement stat=null;
    D. Membuat Database MySQL Menggunakan Netbean.
    Syarat-syarat :
    • Service Apache dan MySQL harus dalam keadaan running.
    • Terinstall aplikasi XAMPP Control Panel
    Lihat gambar :


    Selanjutnya kita buat database dengan klik service > klik kanan pada databases > new connection



    Gambar diatas adalah window new database connection, yang kali ini akan kita isi seperti diatas dengan nama data base dbmhs dan username root dan password dikosongkan saja dan jadilah dbmhs yang nantinya akan kita isi dengan tabel tbipk untuk diisi beberapa kolom untuk insrting data form yang kita buat, dan kolom-kolomnya adalah sebagai berikut:


    Keterangan :
    •        nm adalah kolom untuk menyimpan data Nama type: VARCHAR
    •        uts adalah kolom untuk menyimpan data  UTS type: INT
    •        uas adalah kolom untuk menyimpan data UAS type: INT
    •        tgs adalah kolom untuk menyimpan data Tugas type: INT
    •        lnama adalah kolom untuk menyimpan data lnama type: VARCHAR
    •        lrata adalah kolom untuk menyimpan data lrata type: Real
    •        lhurufadalah kolom untuk menyimpan data lhuruf type: CHAR
    •        lhasil adalah kolom untuk menyimpan data lhasil type: VARCHAR
    •        nim adalah kolom untuk menyimpan data NIM type: VARCHAR
    Lihat gambar :

    Keterangan:
    Name : nama kolom
    Type : tipe kolom yang dibuat
    Size : Panjang maksimal karakter kolom

    Tinggal jalankan form, isikan data sebanyak mungkin dan cari data yang sudah diinput tadi....
    Demikian yang dapat saya sampiakan tentang Cara Membuat Program Olah Data menggunakan Netbeans

    By : Unknown

    On :

  • Basis Data

    Read More
    0
    BASIS DATA

    Untuk totorial microsoft access saya akan share cara membuat form beserta fungsi tombol-tombol standart yang biasanya di temui dalam form aplikasi access, seperti misalnya fungsi dari tombol tambah field, tombol save field, tombol edit field, tombol delete field, tombol print data dan tombol close. Pada artikel sebelumnya juga sudah dijelaskan mengenai pengertian access itu sendiri, cara membuat database access, membuat query access, jadi jika rekan belum paham pastikan untuk membaca artikel tentang tutorial access sebelumnya.
    Jadi untuk membuat form dalam access ada beberapa hal yang harus rekan lakukan, pertama sudah membuat database dan tabel dari ms access jika belum tahu caranya bisa membaca artikel sebelumnya tentang cara membuat database dan tabel di access, jika sudah selajutnya atau yang kedua rekan sudah membuat query access, meskipun ini tidak harus tapi setidaknya rekan sudah bisa membuatnya. Oke jika sudah langsung ke tutorial utama cara membuat form di ms access.
    Tutorial Microsoft Access Cara membuat Form di Ms Access
    1. Silahkan buka database dan tabel yang sudah pernah rekan bikin sebelumnya menggunakana ms access
    2. Kemudian pilih menu Create >> Form Wizard, maka akan tampil halaman seperti ini
    3. Pada bagian Tables/Queries rekan pilih salah satu, jika ingin mengambil data dari tabel berarti pilih tabel, namun jika ingin mengambil data dari query berarti pilih query.
    4. kemudian masukkan semua field yang ada di query ataupun tabel yang rekan pilih tadi dengan dengan menekan tombol >> lalu pilih tombol Next untuk melanjutkan, detail seperti ini :
    5. Selanjutnya rekan akan dihadapkan dengan pilihan form desagn yang ingin digunakan, misal disini saya pilih yang mode columnar "standart" dan klik Next untuk melanjutkan ke proses selanjutnya.
    6. Setelah itu akan tampil untuk pengisian judul form yang akan digunakan pada pilhan What title... lalu klik tombol Finish untuk mengakhiri.
    Disini rekan sudah bisa membuat form di access, selanjutnya biasanya dalam form program aplikasi database diperlukan tombol perintah yang biasa digunakan untuk menambah, mengedit, menghapus ataupun mencetak halaman field yang sudah ada.
    Menambahkan Perintah (Tambah, Simpan, Hapus dan Print) dengan Button di Ms Access
    1. Rekan pilih form yang akan ditambahkan perintahnya, kemudian pilih menu View >> Design View, seperti ini
    2. Pada bagian Form Design Tool, pilih tab menu Design >> Button, maka akan muncul tampilan seperti ini
    3. Selanjutnya pilih pada bagian Record Operations >> Add New Record untuk menambahkan perintah "Tambah/Add" field. lalu klik tombol Next
    4. Maka akan dihadapkan untuk tambilan button yang ingin rekan tampilkan, disini ada 2 mode biasanya yang pertama Text biasa dan yang kedua mode gambar, misal disini saya pilih yang mode text saja dengan mengisikan perintah "TAMBAH"
    5. Kemudian klik tombol Finish, buatlah perintah standart dari button hingga hasilnya seperti ini
    Ulangi cara no 2 diatas, untuk membuat perintah Simpan "Save Record", Hapus "Delete Record", dan Close seperti langkah diatas, namun untuk perintah "print preview" pilih categories Report Operations >> Preview Report.
    Dan untuk menjalankan apakah fungsi tombol (tambah, hapus, simpan, print preview dan close) sudah berjalan dengan normal atau tidak rekan bisa mengetesnya melalui View >> Form View.


    Sumber Artikel: husnunauliasutandi.blogspot.com

    By : Unknown

    On :

    • Diberdayakan oleh Blogger.

    Infor

    Popular Posts

    • Fungsi Logika dan Aplikasi
            Fungsi Logika merupakan sebuah fungsi yang digunakan untuk menguji suatu kondisi dengan menggunakan syarat tertentu. Pada Microsoft...
    • Tipe / Jenis JOIN TABLE pada MySQL 5.0
      Jika Anda telah memahami fungsi  join  pada database relasional untuk menghubungkan berbagai table, maka artikel berikut akan menjelaskan ...
    • Kalimat Logika 2 dan 3 variabel & nilai kalimatnya
      ARTI KALIMAT Arti kalimat = nilai kebenaran. Setiap kalimat pada logika proposisi memiliki salah satu dari nilai {true, false}. Art...
    • Metode Tabulasi
            Tabulasi adalah proses menempatkan data dalam bentuk tabel dengan cara membuat tabel yang berisikan data sesuai dengan kebutuhan a...
    • Himpunan dan Operasi Himpunan
             Himpunan adalah kumpulan dari objek-objek tertentu yang tercakup dalam satu kesatuan dengan keterangan yang jelas. Untuk menyatakan ...
    • Membuat Program Menggunakan Netbeans
      Cara Membuat Program Olah Data menggunakan Netbeans Setelah sebelumnya saya membahas  cara membuat aplikasi notepad , pada pembahasan  j...
    • Basis Data
      BASIS DATA Untuk   totorial microsoft access saya akan share cara membuat form beserta fungsi tombol-tombol standart yang biasanya ...
    • Dasar Logika
             Logika Matematika    adalah sebuah cabang matematika yang merupakan gabungan dari ilmu logika dan ilmu matematika. Logika matematika...

    Blogger templates

    Efek

    body, a:hover {cursor: url(http://cur.cursors-4u.net/anime/ani-12/oth1127.ani), url(http://cur.cursors-4u.net/anime/ani-12/oth1127.png), progress !important;}Naruto Uzumaki Running

    Copyright © - INFORMATIKA

    INFORMATIKA - Powered by Blogger - Designed by Johanes Djogan