Reuni Akbar Alumni SMAN 2 Karawang

Silahkan para alumni SMAN 2 Karawang hadiri acara tersebut. Kalau tidak ada perubahan tanggal pelaksanaan 11 Oktober 2009. Tolong sebar luaskan informasi ini.

Untuk mendapatkan keterangan lebih jelas, Anda bisa menghubungi Panitia. Berikut nama-nama dan nomor/tempat yang bisa dihubungi:

* R. Nurhadi (2001) 087879060015
* Setia Purwadi (Ketua/2007) 08567801744
* Asen Maulana MIS, Am.Pd (Wk. 2004) 085710628299
* Ricky Abdurrahman (OSIS) di SMAN 2 Karawang
* Fajar Sahamba (Bendahara/ 2004) 08568959216
* Tatang Kosasih (2004) Jl. Wirasaba no.2 samping SPBU
* Abimanyu Kresna Mukti (2006) 085691667048
* Fauzan Azima (2006) di UNSIKA
* Marcentia Pradita Alam (Didit) (2006) di UNSIKA
* Agus Fathoni (2002) STIE Budi Pertiwi
* Santi (2005) 08567528190
* Dindin (2008) 085694424407

Atau Anda bisa menghubungi SMAN 2 Karawang tlp. 0267 – 400447 contact person :

* SUHERDI (1997)
* RICKA ENGGAR RAMALIATI (2003)

Continue reading Reuni Akbar Alumni SMAN 2 Karawang

sepertinya sih kalkulator (vb 6.0)

Option Explicit
Dim x As String
Dim y As String
Dim z As String

Private Sub Command1_Click()
x = Label1.Caption
Label1.Caption = x & "1"
End Sub

Private Sub Command10_Click()
x = Label1.Caption
Label1.Caption = x & "0"
End Sub

Private Sub Command11_Click()
y = Label1.Caption
z = "+"
Label1.Caption = ""
End Sub

Private Sub Command12_Click()
y = Label1.Caption
z = "-"
Label1.Caption = ""
End Sub

Private Sub Command13_Click()
y = Label1.Caption
z = "X"
Label1.Caption = ""
End Sub

Private Sub Command14_Click()
y = Label1.Caption
z = "/"
Label1.Caption = ""
End Sub

Private Sub Command15_Click()
If z = "-" Then
Label1.Caption = Val(y) - Label1.Caption
ElseIf z = "+" Then
Label1.Caption = Val(y) + Label1.Caption
ElseIf z = "X" Then
Label1.Caption = Val(y) * Label1.Caption
ElseIf z = "/" Then
Label1.Caption = Val(y) / Label1.Caption
End If
End Sub

Private Sub Command2_Click()
x = Label1.Caption
Label1.Caption = x & "2"
End Sub

Private Sub Command3_Click()
x = Label1.Caption
Label1.Caption = x & "3"
End Sub

Private Sub Command4_Click()
x = Label1.Caption
Label1.Caption = x & "4"
End Sub

Private Sub Command5_Click()
x = Label1.Caption
Label1.Caption = x & "5"
End Sub

Private Sub Command6_Click()
x = Label1.Caption
Label1.Caption = x & "6"
End Sub

Private Sub Command7_Click()
x = Label1.Caption
Label1.Caption = x & "7"
End Sub

Private Sub Command8_Click()
x = Label1.Caption
Label1.Caption = x & "8"
End Sub

Private Sub Command9_Click()
x = Label1.Caption
Label1.Caption = x & "9"
End Sub

Continue reading sepertinya sih kalkulator (vb 6.0)