Rabu, 04 Januari 2012

Latihan 54 APKOM 4 D3C

Submit Here
Diposting oleh di

12 komentar:

  1. Younha Sangga31 Januari 2012 pukul 03.11

    Public Class Latihan_54_36109058

    Private Sub p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New LATIHAN_45_36109058
    Latihan_53_36109058.seung.ReportSource = laporan
    If Latihan_53_36109058.Visible = False Then
    Latihan_53_36109058.Show()
    Else
    Latihan_53_36109058.Activate() 'jika sudah muncul tapi dibelakang muncul
    End If
    End Sub
    End Class

    BalasHapus
  2. Pute_Zone1 Februari 2012 pukul 04.10

    Public Class Tugas_54_36109075

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Tugas_45_36109075

    Tugas_53_36109075.HONDA.ReportSource = laporan

    If Tugas_53_36109075.Visible = False Then
    Tugas_53_36109075.Show()
    Else
    Tugas_53_36109075.Activate() 'Jika Sudah Muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  3. kartikalady_croft1 Februari 2012 pukul 19.28

    Public Class latihan_54_059

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Laporan = New Latihan_45_36109059


    Latihan_53_059.HONDA.ReportSource = Laporan


    If Latihan_53_059.Visible = False Then
    Latihan_53_059.Show()
    Else
    Latihan_53_059.Activate() 'JIKA SUDAH MUNCUL TAPI DIBELAKANG

    End If
    End Sub

    BalasHapus
  4. 4nHyTomb3 Februari 2012 pukul 18.22

    Public Class latihan5436109062

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New LATIHAN4536109062
    LATIHAN5336109062.honda.ReportSource = laporan
    If LATIHAN5336109062.Visible = False Then
    LATIHAN5336109062.Show()
    Else
    LATIHAN5336109062.Activate() 'jika sudah muncul tapi dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  5. asni3 Februari 2012 pukul 18.31

    Public Class Form54068

    Private Sub preview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview.Click

    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New latihan45068

    Form53068.honda.ReportSource = laporan

    If Form53068.Visible = False Then
    Form53068.Show()
    Else
    Form53068.Activate() 'jika sudah muncul tp di belakang'
    End If

    End Sub
    End Class
    Public Class

    BalasHapus
  6. KrisnaSaman3 Februari 2012 pukul 18.48

    Public Class Latihan54

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Laporan = New Latihan45


    Latihan53.Honda.ReportSource = Laporan


    If Latihan53.Visible = False Then
    Latihan53.Show()
    Else
    Latihan53.Activate() 'JIKA SUDAH MUNCUL TAPI DIBELAKANG

    End If
    End Sub


    End Class

    BalasHapus
  7. Fatma Sari Adhy Surya3 Februari 2012 pukul 19.03

    Public Class Form54


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim LAPORAN As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    LAPORAN = New CrystalReport45

    Form53.honda.ReportSource = LAPORAN

    If Form53.Visible = False Then
    Form53.Show()
    Else
    Form53.Activate() 'JIKA SDH MUNCUL TP DI BELAKANG
    End If
    End Sub


    End Class

    BalasHapus
  8. catherine parubak3 Februari 2012 pukul 19.14

    Public Class Form54

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan046_36109079

    Form53.honda.ReportSource = laporan
    If Form53.Visible = False Then
    Form53.Show()
    Else
    Form53.Activate() 'JIKA SUDAH MUNCUL TAPI DIBELAKANG'

    End If
    End Sub
    End Class

    BalasHapus
  9. Anonim3 Februari 2012 pukul 20.45

    Public Class LATIHAN54

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New LATIHAN_45

    LATIHAN53.Honda.ReportSource = laporan

    If LATIHAN53.Visible = False Then
    LATIHAN53.Show()
    Else
    LATIHAN53.Activate() 'jika sudah muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  10. aditya.Deriel3 Februari 2012 pukul 21.14

    Public Class Form54_084

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Tugas45_36109084

    Form53_084.honda.ReportSource = laporan

    If Form53_084.Visible = False Then
    Form53_084.Show()
    Else
    Form53_084.Activate() 'jika sdh muncul tp dibelakang

    End If
    End Sub
    End Class

    BalasHapus
  11. Trioo Wijaya4 Februari 2012 pukul 03.44

    Public Class Form54_071

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Tugas45_36109071

    Form53_071.honda.ReportSource = laporan

    If Form53_071.Visible = False Then
    Form53_071.Show()
    Else
    Form53_071.Activate() 'jika sdh muncul tp dibelakang

    End If
    End Sub
    End Class

    BalasHapus
  12. Valenndut4 Februari 2012 pukul 03.58

    Public Class Latihan54

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim vhal As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    vhal = New latihan45

    Latihan53.Vavanet.ReportSource = vhal
    If Latihan53.Visible = False Then
    Latihan53.Show()
    Else
    Latihan53.Activate()
    End If
    End Sub
    End Class

    BalasHapus

Langganan: Posting Komentar (Atom)