Jumat, 20 Mei 2011
Senin, 16 Mei 2011
Program VB.Net Dengan Membuat Class Dan Function Di 2 Form
Form1
Programnya :
Public Class Form1
Function Jumlah(ByVal Bill As Integer, ByVal Bil2 As Integer) As Integer
Jumlah = Bill + Bil2
Return Jumlah
End Function
Private Sub Function1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Function1.Click
txtHasil.Text = Jumlah(Bill:=TextBox1.Text, Bil2:=TextBox2.Text)
End Sub
Private Sub Function2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Function2.Click
TextBox5.Text = Jumlah(Bill:=TextBox6.Text, Bil2:=TextBox7.Text)
End Sub
Private Sub FunctionKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FunctionKali.Click
TextBox3.Text = perkalian(Bill:=TextBox8.Text, Bil2:=TextBox4.Text)
End Sub
Private Sub Form2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles formbtn.Click
Form2.Show()
End Sub
End Class
Form2
Programnya:
Public Class Form2
Private Sub FunctionKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FunctionKali.Click
TextBox3.Text = perkalian(Bill:=TextBox1.Text, Bil2:=TextBox2.Text)
End Sub
End Class
Module Module1
Public Function perkalian(ByVal Bill As Integer, ByVal Bil2 As Integer) As Integer
perkalian = Bill * Bil2
Return perkalian
End Function
End Module
Programnya :
Public Class Form1
Function Jumlah(ByVal Bill As Integer, ByVal Bil2 As Integer) As Integer
Jumlah = Bill + Bil2
Return Jumlah
End Function
Private Sub Function1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Function1.Click
txtHasil.Text = Jumlah(Bill:=TextBox1.Text, Bil2:=TextBox2.Text)
End Sub
Private Sub Function2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Function2.Click
TextBox5.Text = Jumlah(Bill:=TextBox6.Text, Bil2:=TextBox7.Text)
End Sub
Private Sub FunctionKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FunctionKali.Click
TextBox3.Text = perkalian(Bill:=TextBox8.Text, Bil2:=TextBox4.Text)
End Sub
Private Sub Form2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles formbtn.Click
Form2.Show()
End Sub
End Class
Form2
Programnya:
Public Class Form2
Private Sub FunctionKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FunctionKali.Click
TextBox3.Text = perkalian(Bill:=TextBox1.Text, Bil2:=TextBox2.Text)
End Sub
End Class
Module Module1
Public Function perkalian(ByVal Bill As Integer, ByVal Bil2 As Integer) As Integer
perkalian = Bill * Bil2
Return perkalian
End Function
End Module
Program Java Dengan Membuat Class Buku Alamat
Programnya:
class BukuAlamat
{
String nama;
String alamat;
String alamatEmail;
String noTelepon;
int BukuAlamat;
void cekBukuAlamat()
{
if (BukuAlamat==2)
nama= "ahmad firdausi";
alamatEmail="ahmad.firdausi@ymail.com";
}
void cetakAtribut()
{
System.out.println("Nama = "+nama);
System.out.println("Alamat = "+alamat);
System.out.println("alamat Email = "+alamatEmail);
System.out.println("no Telepon = "+noTelepon);
}
public static void main(String [] args)
{
BukuAlamat BukuAlamatNew = new BukuAlamat();
BukuAlamatNew.BukuAlamat=2;
BukuAlamatNew.nama="Ahmad Firdausi";
BukuAlamatNew.alamatEmail="ahmad.firdausi@ymail.com";
BukuAlamatNew.alamat="kp pulomangga";
BukuAlamatNew.noTelepon="02177880191";
BukuAlamatNew.cekBukuAlamat();
BukuAlamatNew.cetakAtribut();
}
}
OutPutnya:
Langganan:
Postingan (Atom)