This is default featured slide 1 title

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam. blogger theme by Premiumblogtemplates.com

This is default featured slide 2 title

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam. blogger theme by Premiumblogtemplates.com

This is default featured slide 3 title

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam. blogger theme by Premiumblogtemplates.com

This is default featured slide 4 title

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam. blogger theme by Premiumblogtemplates.com

This is default featured slide 5 title

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam. blogger theme by Premiumblogtemplates.com

Rabu, 13 April 2016

MEMBUAT PROGRAM TULISAN BERJALAN MENGGUNAKAN VB 6.0

07.00 | Diposting oleh

Berikut ini adalah contoh tampilan yang dibuat :



Untuk membuat program ini, objek-objek yang dibutuhkan adalah :
  1. Satu buah form
  2. Satu buah label (untuk teks yang ingin dijalankan, dalam hal ini teks “Selamat Datang”)
  3. Satu buah CommandButton
  4. Satu buah Timer

Berikut ini adalah method-method yang diberikan agar program diatas dapat berjalan :

Method pada CommandButton :
Private Sub Command1_Click()
If Command1.Caption = "Mainkan" Then
    Timer1.Enabled = True
    Command1.Caption = "Stop"
Else
    Timer1.Enabled = False
    Command1.Caption = "Mainkan"
End If
End Sub


Method pada Timer :
Private Sub Timer1_Timer()
Select Case Label1
    Case "S"
    Label1.Caption = "SE"
    Case "SE"
    Label1.Caption = "SEL"
    Case "SEL"
    Label1.Caption = "SELA"
    Case "SELA"
    Label1.Caption = "SELAM"
    Case "SELAM"
    Label1.Caption = "SELAMA"
    Case "SELAMA"
    Label1.Caption = "SELAMAT"
    Case "SELAMAT"
    Label1.Caption = "SELAMAT "
    Case "SELAMAT "
    Label1.Caption = "SELAMAT D"
    Case "SELAMAT D"
    Label1.Caption = "SELAMAT DA"
    Case "SELAMAT DA"
    Label1.Caption = "SELAMAT DAT"
    Case "SELAMAT DAT"
    Label1.Caption = "SELAMAT DATA"
    Case "SELAMAT DATA"
    Label1.Caption = "SELAMAT DATAN"
    Case "SELAMAT DATAN"
    Label1.Caption = "SELAMAT DATANG"
    Case "SELAMAT DATANG"
    Label1.Caption = "S"
End Select

End Sub

Read More

MEMBUAT PROGRAM MENGGUNAKAN KONSEP OOP PADA VB .NET

05.41 | Diposting oleh

Contoh program yang dibuat adalah program untuk mengkonversi suhu, berikut ini adalah bentuk tampilan program yang saya buat :




Untuk membentuk tampilan program seperti diatas, objek-objek yang diperlukan adalah :
  1. Satu buah form
  2. Tiga buah Group Box (untuk 3 jenis konversi)
  3. Lima buah Button (3 button untuk tombol Convert, 2 Button untuk tombol Clear dan Exit.
  4. Enam buah Label
  5. Enam buah TextBox


Berikut ini adalah method-method yang diberikan untuk menjalankan program diatas :

Deklarasi :
Public Class konversi
        Public celcius, fahrenheit As Single
        Public Function celfah() As Double
            Return 1.8 * celcius + 32
        End Function
        Public Function celream() As Double
            Return celcius * 0.8
        End Function
        Public Function fahcel() As Double
            Return (fahrenheit - 32) / 1.8
        End Function
End Class

Form Load :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Welcome To The Temperature Conversion Program !!", vbInformation, "Warning !!!")
End Sub


Button Convert (GroupBox 1):
Private Sub convert1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles convert1.Click
Dim objcelfah As New konversi
With objcelfah
.celcius = textcel1.Text
textfah1.Text = .celfah
End With
textcel1.Enabled = False
convert1.Enabled = False
buttonclear.Enabled = True
End Sub


Button Convert (GroupBox 2):
Private Sub convert2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles convert2.Click
        Dim objcelream As New konversi
        With objcelream
            .celcius = textcel2.Text
            textreamur.Text = .celream
        End With
        textcel2.Enabled = False
        convert2.Enabled = False
        buttonclear.Enabled = True
End Sub


Button Convert (GroupBox 3):
Private Sub convert3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles convert3.Click
        Dim objfahcel As New konversi
        With objfahcel
            .fahrenheit = textfah3.Text
            textcel3.Text = .fahcel
        End With
        textfah3.Enabled = False
        convert3.Enabled = False
        buttonclear.Enabled = True
End Sub


Button Clear:
Private Sub buttonclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonclear.Click
        textcel1.Text = ""
        textcel2.Text = ""
        textcel3.Text = ""
        textfah1.Text = ""
        textfah3.Text = ""
        textreamur.Text = ""

        convert1.Enabled = True
        convert2.Enabled = True
        convert3.Enabled = True
        buttonclear.Enabled = False

        textcel1.Enabled = True
        textcel2.Enabled = True
        textfah3.Enabled = True
        textcel1.Focus()
End Sub


Button Exit:
Private Sub buttonexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonexit.Click
If MsgBox("Are You Sure Want to Quit ??", vbOKCancel, "Warning !!!") = MsgBoxResult.Ok Then
            Me.Close()
        Else
            Me.Show()
            textcel1.Focus()
        End If

End Sub

Read More

Clock

Gunadarma University

Gunadarma University

Popular Posts

Diberdayakan oleh Blogger.