Trailer "HABIBIE & AINUN"



Genre:
Drama
Produser:
Manoj Punjabi
Sutradara:
Hanung Bramantyo
Faozan Rizal
Perusahaan film:
MD Entertainment
Pemain:
Pemain dalam film ini melibatkan pemeran utama Reza Rahadian sebaga Bj Habibie dan Bunga Citra Lestari sebagai Ainun Habibie. Pemilihan Reza Rahardian dipilih karena sesui dengan karakter Habibie. Bapak Habibie pun kabarnya terlibat secara langsung dengan proses casting.
Sinopsis
Film Habibie dan Ainun, yang menceritakan kisah cinta Ibu Ainun hingga beliau pergi. Dari masa muda hingga bagaimana Ibu Ainun tinggal di Jerman, dan mendukung Habibie dalam kesulitan. Syuting film juga dilaksankan di Di Jerman dan Indonesia. Di Jerman berlokasi Muenchen, Arkhen, dan Hamburg. Sedangkan di Indonesia ada di Jakarta, Bandung, dan IPTN

0 komentar | edit post
Latihan_13_46110007

A. Langkah-Langkah Penyelesaian Form Latihan_13
 
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini 

·  Ketik nama form "Latihan_13_46110007" pada name kemudian click add


·  Buat form seperti berikut 
 

·         Kemudian beri nama pada data grid view
 
 
·  Setelah form selesai masukkan rumus seperti dibawah ini 
Public Class Latihan_13_46110007
    Dim AFANTY As New DataSet

    Dim TK1 As New DataTable
    Dim TK2 As New DataTable
    Dim TK3 As New DataTable

    Dim SKA1 As New BindingSource
    Dim SKA2 As New BindingSource
    Dim SKA3 As New BindingSource

    Private Sub Latihan_13_46110007_HandleDestroyed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TK1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        TK1.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        TK2.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        TK2.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        TK2.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        TK3.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        TK3.Columns.Add(New DataColumn("Kode Rekening sub", GetType(String)))
        TK3.Columns.Add(New DataColumn("Kode Rekening Sub-sub", GetType(String)))
        TK3.Columns.Add(New DataColumn("Nama Rekening Sub-sub", GetType(String)))

        Dim SKA As New Random
        For RI As Integer = 1 To 9
            TK1.Rows.Add(RI, "Nama Rekening" & RI)
            For RS As Integer = 1 To SKA.Next(1, 9)
                TK2.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To SKA.Next(1, 9)
                    TK3.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next

        AFANTY.Tables.Add(TK1)
        AFANTY.Tables.Add(TK2)
        AFANTY.Tables.Add(TK3)

        TK1.TableName = "ICA"
        TK2.TableName = "DIS"
        TK3.TableName = "OCA"

        AFANTY.Relations.Add(New DataRelation("TA", AFANTY.Tables("ICA").Columns("kode rekening induk"), AFANTY.Tables("dis").Columns("kode rekening induk")))
        AFANTY.Relations.Add(New DataRelation("HI", AFANTY.Tables("DIS").Columns("kode rekening sub"), AFANTY.Tables("oca").Columns("kode rekening sub")))

        SKA1.DataSource = AFANTY
        SKA1.DataMember = "ica"

        SKA2.DataSource = SKA1
        SKA2.DataMember = "TA"

        SKA3.DataSource = SKA2
        SKA3.DataMember = "HI"

        DataGridView1_46110007.DataSource = SKA1
        DataGridView2_46110007.DataSource = SKA2
        DataGridView3_46110007.DataSource = SKA3
    End Sub

End Class

·  Untuk menjalankan form tekan F5 

B. Deskripsi Form Latihan 13
Pada form latihan 13 hanya 1 object yang digunakan yaitu Data Grid View.

Object DataGridView
Terdapat 3 object datagridview yang berfungsi untuk menampilkan data

Script Unique
 
Untuk membuat data set
Dim AFANTY As New DataSet

Membuat data tabel
Dim TK1 As New DataTable

Membuat binding source
Dim SKA1 As New BindingSource

Membuat kolom pada data tabel
TK1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

Menambah baris (isi) pada data table
 For RI As Integer = 1 To 9
            TK1.Rows.Add(RI, "Nama Rekening" & RI)
Next
 
Menambahkan data table di data set
 AFANTY.Tables.Add(TK1)

Membuat nama lain data table
TK1.TableName = "ICA"

Membuat Relationship
AFANTY.Relations.Add(New DataRelation("TA", AFANTY.Tables("ICA").Columns("kode rekening induk"), AFANTY.Tables("dis").Columns("kode rekening induk")))

Saat data set menjadi data source
SKA1.DataSource = AFANTY
        SKA1.DataMember = "ica"

Saat binding source menjadi data source pada data grid view
DataGridView1_46110007.DataSource = SKA1

Even
Formload
Table click

Property
Default




Label: 0 komentar | edit post