السَّلاَمُ
عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Membuat Geomatri Dengan Visual Studio 2012
Jumpa lagi dengan
saya,
baiklah saat ini kita akan membuat aplikasi geomatri dengan Visual Studio atau VS,
baiklah saat ini kita akan membuat aplikasi geomatri dengan Visual Studio atau VS,
Visual Studio yang
saya punya versi 2012 yaitu Visual Studio 2012
Baiklah, Langsung
ke ruang Operasi .
Buat lah lah 6 form
Form1, form2, form3, form4,
form5, form6,
Form 1
Script nya sebagai berikut
Public
Class Form1
Private Sub Button1_Click(sender As Object,
e As EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(sender As Object,
e As EventArgs) Handles Button2.Click
Form3.Show()
End Sub
Private Sub Button3_Click(sender As Object,
e As EventArgs) Handles Button3.Click
Form4.Show()
End Sub
Private Sub Button4_Click(sender As Object,
e As EventArgs) Handles Button4.Click
Form5.Show()
End Sub
Private Sub Button5_Click(sender As Object,
e As EventArgs) Handles Button5.Click
Form6.Show()
End Sub
Private Sub Button6_Click(sender As Object,
e As EventArgs) Handles Button6.Click
end
End Sub
End
Class
Form 2
Script nya sebagai berikut
Public
Class Form2
Private Sub BT1_Click(sender As Object, e
As EventArgs) Handles BT1.Click
TB2.Text = 3.14 * Val(TB1.Text) *
Val(TB1.Text)
TB3.Text = 2 * 3.14 * Val(TB1.Text)
End Sub
Private Sub BT2_Click(sender As Object, e
As EventArgs) Handles BT2.Click
TB1.Text = ""
TB2.Text = ""
TB3.Text = ""
End Sub
Private Sub BT3_Click(sender As Object, e
As EventArgs) Handles BT3.Click
Me.Close()
End Sub
End
Class
Form 3
Script nya sebagai berikut
Public
Class Form3
Private Sub BT1_Click(sender As Object, e
As EventArgs) Handles BT1.Click
TB3.Text = 0.5 * Val(TB1.Text) *
Val(TB2.Text)
End Sub
Private Sub BT2_Click(sender As Object, e
As EventArgs) Handles BT2.Click
TB1.Text = ""
TB2.Text = ""
TB3.Text = ""
End Sub
Private Sub BT3_Click(sender As Object, e
As EventArgs) Handles BT3.Click
Me.Close()
End Sub
End
Class
Form 4
Script nya sebagai berikut
Public
Class Form4
Private Sub BT1_Click(sender As Object, e
As EventArgs) Handles BT1.Click
TB3.Text = Val(TB1.Text) * (TB2.Text)
End Sub
Private Sub BT2_Click(sender As Object, e
As EventArgs) Handles BT2.Click
TB1.Text = ""
TB2.Text = ""
TB3.Text = ""
End Sub
Private Sub BT3_Click(sender As Object, e
As EventArgs) Handles BT3.Click
Me.Close()
End Sub
End
Class
Form 5
Script nya sebagai berikut
Public
Class Form5
Private Sub BT1_Click(sender As Object, e
As EventArgs) Handles BT1.Click
TB2.Text = 4 * Val(TB1.Text)
TB3.Text = Val(TB1.Text) *
Val(TB1.Text)
End Sub
Private Sub BT2_Click(sender As Object, e
As EventArgs) Handles BT2.Click
TB1.Text = ""
TB2.Text = ""
TB3.Text = ""
End Sub
Private Sub BT3_Click(sender As Object, e
As EventArgs) Handles BT3.Click
Me.Close()
End Sub
Private Sub Form5_Load(sender As Object, e
As EventArgs) Handles MyBase.Load
End Sub
End
Class
Form 6
Script nya sebagai berikut
Public Class Form6
Private Sub BT1_Click(sender As Object, e
As EventArgs) Handles BT1.Click
TB2.Text = Val(TB1.Text) *
Val(TB1.Text) * Val(TB1.Text)
End Sub
Private Sub BT2_Click(sender As Object, e
As EventArgs) Handles BT2.Click
TB1.Text = ""
TB2.Text = ""
End Sub
Private Sub BT3_Click(sender As Object, e
As EventArgs) Handles BT3.Click
Me.Close()
End Sub
End Class
Cara membuat jam dan tanggal digital dengan Visual Studio Klik Disini
Note :
Untuk Setiap Formnya
Bisa kalian desain sebaik Mungkin, Karena Untuk enak di pandang.
Bisa digunakan Photoshop untuk
mendesain formnya .
Terima Kasih , atas kunjungan nya.
Semoga bermanfaat buat anda
Saya pamit dulu dilain kesempatan update lagi
السَّلاَمُ
عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ