Minggu, 10 November 2013

Source Code Tukar Tempat

Tukartempat

Download Program yang sudah jadi klik di SINI

Buka file dengan winzip atau winrar atau allzip

Program ini bertujuan untuk menukar tulisan dalam textbox1 ke textbox2 begitu juga sebaliknya.

clip_image002

Component

2 textbox

1 button

Source Code

Public Class Form1

'mendeklarasikan variable

'kanan untuk data org sebelah kanan

'kiri untuk data orang sebelah kiri

'yang menggunakan kutip 1 " ' " adalah comment, tidak perlu ditulis

'Credits : martinbandung.blogspot.com

'made by:martinbandung

Dim kanan As String

Dim kiri As String

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

'"kanan=textbox2.text" artinya data di memori untuk sebelah kanan diisi dengan text di tb2

'"kiri=textbox1.text" artinya data di memori untuk sebelah kiri diisi dengan text di tb1

kiri = TextBox1.Text

kanan = TextBox2.Text

'supaya tertukar maka pengkodean dibalik seperti di bawah ini

TextBox1.Text = kanan

TextBox2.Text = kiri

End Sub

End Class

Diagram sederhana

clip_image005