PROGRAM SERVER
Dim ClientIndex As Byte
Dim cRequest As Integer
Dim cData As String
Dim i As Integer
Dim iGD As Integer
Sub MulaiServer()
WS(0).LocalPort = 3000
WS(0).Listen
cRequest = 1
ClientIndex = 1
End Sub
Private Sub Form_Load()
MulaiServer
GD.Rows = 41
For i = 1 To 40
GD.Col = 0
GD.Row = i
GD.Text = i
Next i
iGD = 1
End Sub
Private Sub Timer1_Timer()
For i = 1 To GD.Rows - 1
GD.Row = i
GD.Col = 4
If GD.Text = "START" Then
GD.Col = 3
GD.Text = Time
End If
Next i
End Sub
Private Sub Timer2_Timer()
WS.SendData "PAKAI-" & Pakai.Value & "/" & 3000
End Sub
Private Sub WS_ConnectionRequest(index As Integer, ByVal requestID As Long)
Load WS(cRequest)
WS(cRequest).Close
WS(cRequest).Accept requestID
cRequest = cRequest + 1 '
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
WS(index).GetData cData, vbString, bytesTotal
Call CekData(index)
End Sub
Sub CekData(index)
Dim kata() As String
kata = Split(cData, "-")
Select Case kata(0)
Case "START"
GD.Row = iGD
GD.Col = 1
GD.Text = kata(1) 'WS(index).RemoteHostIP
GD.Col = 2
GD.Text = Time
GD.Col = 4
GD.Text = "START"
GD.Col = 5
GD.Text = kata(2)
iGD = iGD
Case "STOP"
For i = 1 To GD.Rows - 1
GD.Row = i
GD.Col = 1
If GD.Text = kata(1) Then
GD.Col = 4
GD.Text = "STOP"
End If
Next i
End Select
End Sub
Private Sub WS_Error(index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
WS(index).Close
End Sub
PROGRAM CLIENT
Dim IPS As String
Dim User As String
Private Sub Command1_Click()
WS.SendData "START-" & User & "-Isna"
End Sub
Private Sub Command2_Click()
WS.SendData "STOP-" & User
End Sub
Private Sub Form_Load()
IPS = "127.0.0.1"
User = WS.LocalIP
WS.Connect IPS, 3000
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
WS.GetData xKirim, vbString, bytesTotal
Call CheckData
End Sub
Sub CheckData()
xdata1 = Split(xKirim, "-")
xdata2 = Split(xdata1(1), "/")
Select Case xdata1(0)
Case "PAKAI"
mulai.Value = xdata2(0)
selesai.Value = xdata2(1)
pakai.Value = xdata2(2)
biaya.Text = (Val(Hour(pakai.Value) * 60) + Val(Minute(pakai.Value) * 50))
End Select
End Sub
Link Soal :
http://mesran.wordpress.com/2012/01/26/soal-quiz-online-hari-jumat/
Mari Kita Belajar Bersama
sambutan
Selamat Datang Di Blog Saya
Jumat, 27 Januari 2012
Jawaban soal 2 (Beni Waldi)
1.Program Server
Form Barang
Listing program Module
Public Db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public sql As String
Sub OPENDB()
If Db.State = adStateOpen Then Db.Close
Db.CursorLocation = adUseClient
Db.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BelajarServer\Test.mdb;Persist Security Info=False "
End Sub
Sub ClearFORM(f As Form)
Dim ctl As Control
For Each ctl In f
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is ComboBox Then ctl.Text = ""
Next
End Sub
Sub Center(f As Form)
f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub
Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
f.cmdproses(0).Enabled = L0
f.cmdproses(1).Enabled = L1
f.cmdproses(2).Enabled = L2
f.cmdproses(3).Enabled = L3
End Sub
LIsting progam Server
Sub hapus()
kode.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&Simpan"
End Sub
Sub ProsesDB(Log As Byte)
Select Case Log
Case 0
sql = "insert into Barang(kode,nama,harga)" & _
"values('" & kode.Text & _
"','" & nama.Text & _
"','" & harga.Text & "')"
Case 1
sql = "update Barang set nama='" & nama.Text & "'," & _
"harga= '" & harga.Text & "'" & _
"where kode='" & kode.Text & "'"
Case 2
sql = "delete from Barang where kode='" & kode.Text & "'"
End Select
MsgBox "Pemrosesan record database telah berhasil...!", vbInformation, "data Barang"
Db.BeginTrans
Db.Execute sql, adCmdTable
Db.CommitTrans
Call hapus
Adodc1.Refresh
kode.SetFocus
End Sub
Sub TampilBarang()
On Error Resume Next
kode.Text = rs!kode
nama.Text = rs!nama
harga.Text = rs!harga
End Sub
2.Program Client
Gambar Form Client
Listing Module
Public SQL As String
Sub ClearFORM(f As Form)
Dim ctl As Control
For Each ctl In f
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is ComboBox Then ctl.Text = ""
Next
End Sub
Sub Center(f As Form)
f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub
Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
f.CmdProses(0).Enabled = L0
f.CmdProses(1).Enabled = L1
f.CmdProses(2).Enabled = L2
f.CmdProses(3).Enabled = L3
End Sub
Listing Program Client
Dim IPServer As String
Sub Hapus()
Kode.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
CmdProses(1).Caption = "&Simpan"
End Sub
Sub ProsesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO Barang(Kode,Nama,Harga)" & _
"values('" & Kode.Text & _
"','" & Nama.Text & _
"','" & Harga.Text & "')"
Case 1
SQL = "UPDATE Barang Set Nama='" & Nama.Text & "'," & _
"Harga='" & Harga.Text & "'," & _
"where Kode='" & Kode.Text & "'"
Case 2
SQL = " DELETE FROM Barang WHERE Kode='" & Kode.Text & "'"
End Select
MsgBox "Pemrosesan RECORD Database telah berhasil....!", vbInformation, "Data Barang"
Call Hapus
Kode.SetFocus
End Sub
Sub MulaiKoneksi()
IPServer = "127.0.0.1"
IPClient = WS.LocalIP
WS.Connect IPServer, 1000
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
DoEvents
End
End Sub
Private Sub Kode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Kode.Text = "" Then Exit Sub
WS.SendData "SEARCH-" & Kode.Text
End If
End Sub
Private Sub CmdProses_Click(Index As Integer)
Select Case Index
Case 0
Call Hapus
Kode.SetFocus
Case 1
If CmdProses(1).Caption = "&Simpan" Then
SQL = "INSERT INTO Barang(Kode,Nama,Harga) " & _
"values('" & Kode.Text & _
"','" & Nama.Text & _
"','" & Harga.Text & "')"
WS.SendData "INSERT-" & SQL
Else
SQL = "UPDATE Barang Set " & _
"nama='" & Nama.Text & _
"',harga='" & Harga.Text & _
"' where kode = '" & Kode.Text & "'"
WS.SendData "UPDATE-" & SQL
End If
Call Hapus
Kode.SetFocus
Case 2
X = MsgBox("Yakin RECORD Barang Akan Dihapus.....!", vbQuestion + vbYesNo, "Barang")
If X = vbYes Then
WS.SendData "DELETE-" & Kode.Text
End If
Call Hapus
Kode.SetFocus
Case 3
Call Hapus
Kode.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call Hapus
MulaiKoneksi
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim xKirim As String
Dim xData1() As String
Dim xData2() As String
WS.GetData xKirim, vbString, bytesTotal
xData1 = Split(xKirim, "-")
xData2 = Split(xData1(1), "/")
Select Case xData1(0)
Case "NOTHING"
X = Kode.Text
Call Hapus
Kode.Text = X
Call RubahCMD(Me, False, True, False, True)
CmdProses(1).Caption = "&Simpan"
Nama.SetFocus
Case "RECORD"
xData2 = Split(xData1(1), "/")
Nama.Text = xData2(0)
Harga.Text = xData2(1)
Call RubahCMD(Me, False, True, True, True)
CmdProses(1).Caption = "&Edit"
Kode.Enabled = False
Nama.SetFocus
Case "INSERT"
MsgBox "Penyimpanan Berhasil!"
Call Hapus
Case "DEL"
MsgBox "Penghapusan Data Berhasil!"
Call Hapus
Case "EDIT"
MsgBox "Pengeditan Record Berhasil!"
Call Hapus
End Select
End Sub
Form Barang
Listing program Module
Public Db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public sql As String
Sub OPENDB()
If Db.State = adStateOpen Then Db.Close
Db.CursorLocation = adUseClient
Db.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BelajarServer\Test.mdb;Persist Security Info=False "
End Sub
Sub ClearFORM(f As Form)
Dim ctl As Control
For Each ctl In f
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is ComboBox Then ctl.Text = ""
Next
End Sub
Sub Center(f As Form)
f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub
Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
f.cmdproses(0).Enabled = L0
f.cmdproses(1).Enabled = L1
f.cmdproses(2).Enabled = L2
f.cmdproses(3).Enabled = L3
End Sub
LIsting progam Server
Sub hapus()
kode.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&Simpan"
End Sub
Sub ProsesDB(Log As Byte)
Select Case Log
Case 0
sql = "insert into Barang(kode,nama,harga)" & _
"values('" & kode.Text & _
"','" & nama.Text & _
"','" & harga.Text & "')"
Case 1
sql = "update Barang set nama='" & nama.Text & "'," & _
"harga= '" & harga.Text & "'" & _
"where kode='" & kode.Text & "'"
Case 2
sql = "delete from Barang where kode='" & kode.Text & "'"
End Select
MsgBox "Pemrosesan record database telah berhasil...!", vbInformation, "data Barang"
Db.BeginTrans
Db.Execute sql, adCmdTable
Db.CommitTrans
Call hapus
Adodc1.Refresh
kode.SetFocus
End Sub
Sub TampilBarang()
On Error Resume Next
kode.Text = rs!kode
nama.Text = rs!nama
harga.Text = rs!harga
End Sub
2.Program Client
Gambar Form Client
Listing Module
Public SQL As String
Sub ClearFORM(f As Form)
Dim ctl As Control
For Each ctl In f
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is ComboBox Then ctl.Text = ""
Next
End Sub
Sub Center(f As Form)
f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub
Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
f.CmdProses(0).Enabled = L0
f.CmdProses(1).Enabled = L1
f.CmdProses(2).Enabled = L2
f.CmdProses(3).Enabled = L3
End Sub
Listing Program Client
Dim IPServer As String
Sub Hapus()
Kode.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
CmdProses(1).Caption = "&Simpan"
End Sub
Sub ProsesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO Barang(Kode,Nama,Harga)" & _
"values('" & Kode.Text & _
"','" & Nama.Text & _
"','" & Harga.Text & "')"
Case 1
SQL = "UPDATE Barang Set Nama='" & Nama.Text & "'," & _
"Harga='" & Harga.Text & "'," & _
"where Kode='" & Kode.Text & "'"
Case 2
SQL = " DELETE FROM Barang WHERE Kode='" & Kode.Text & "'"
End Select
MsgBox "Pemrosesan RECORD Database telah berhasil....!", vbInformation, "Data Barang"
Call Hapus
Kode.SetFocus
End Sub
Sub MulaiKoneksi()
IPServer = "127.0.0.1"
IPClient = WS.LocalIP
WS.Connect IPServer, 1000
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
DoEvents
End
End Sub
Private Sub Kode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Kode.Text = "" Then Exit Sub
WS.SendData "SEARCH-" & Kode.Text
End If
End Sub
Private Sub CmdProses_Click(Index As Integer)
Select Case Index
Case 0
Call Hapus
Kode.SetFocus
Case 1
If CmdProses(1).Caption = "&Simpan" Then
SQL = "INSERT INTO Barang(Kode,Nama,Harga) " & _
"values('" & Kode.Text & _
"','" & Nama.Text & _
"','" & Harga.Text & "')"
WS.SendData "INSERT-" & SQL
Else
SQL = "UPDATE Barang Set " & _
"nama='" & Nama.Text & _
"',harga='" & Harga.Text & _
"' where kode = '" & Kode.Text & "'"
WS.SendData "UPDATE-" & SQL
End If
Call Hapus
Kode.SetFocus
Case 2
X = MsgBox("Yakin RECORD Barang Akan Dihapus.....!", vbQuestion + vbYesNo, "Barang")
If X = vbYes Then
WS.SendData "DELETE-" & Kode.Text
End If
Call Hapus
Kode.SetFocus
Case 3
Call Hapus
Kode.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call Hapus
MulaiKoneksi
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim xKirim As String
Dim xData1() As String
Dim xData2() As String
WS.GetData xKirim, vbString, bytesTotal
xData1 = Split(xKirim, "-")
xData2 = Split(xData1(1), "/")
Select Case xData1(0)
Case "NOTHING"
X = Kode.Text
Call Hapus
Kode.Text = X
Call RubahCMD(Me, False, True, False, True)
CmdProses(1).Caption = "&Simpan"
Nama.SetFocus
Case "RECORD"
xData2 = Split(xData1(1), "/")
Nama.Text = xData2(0)
Harga.Text = xData2(1)
Call RubahCMD(Me, False, True, True, True)
CmdProses(1).Caption = "&Edit"
Kode.Enabled = False
Nama.SetFocus
Case "INSERT"
MsgBox "Penyimpanan Berhasil!"
Call Hapus
Case "DEL"
MsgBox "Penghapusan Data Berhasil!"
Call Hapus
Case "EDIT"
MsgBox "Pengeditan Record Berhasil!"
Call Hapus
End Select
End Sub
Selasa, 24 Januari 2012
Server (Mobil)
Listing program Login
Private Sub keluar_Click()
Unload Me
End Sub
Private Sub login_Click()
If username.Text = "iben" And pass.Text = "555" Then
Me.Hide
Menu.Show
Else
MsgBox "maaf username and pasword yg anda masukan tidak sesuai", vbInformation, "pemakai"
End If
End Sub
Listing program form mobil
Sub hapus()
kode.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&Simpan"
End Sub
Sub ProsesDB(Log As Byte)
Select Case Log
Case 0
sql = "insert into cars(kode,namamobil,jenismobil,seri,harga)" & _
"values('" & kode.Text & _
"','" & namamobil.Text & _
"','" & jenismobil.Text & _
"','" & seri.Text & _
"','" & harga.Text & "')"
Case 1
sql = "update cars set namamobil='" & namamobil.Text & "'," & _
"jenismobil= '" & jenismobil.Text & "'," & _
"seri= '" & seri.Text & "'," & _
"harga= '" & harga.Text & "'" & _
"where kode='" & kode.Text & "'"
Case 2
sql = "delete from cars where kode='" & kode.Text & "'"
End Select
MsgBox "Pemrosesan record database telah berhasil...!", vbInformation, "data cars"
Db.BeginTrans
Db.Execute sql, adCmdTable
Db.CommitTrans
Call hapus
Adodc1.Refresh
kode.SetFocus
End Sub
Sub Tampilnamamobil()
On Error Resume Next
kode.Text = rs!kode
namamobil.Text = rs!namamobil
jenismobil.Text = rs!jenismobil
seri.Text = rs!seri
harga.Text = rs!harga
End Sub
Private Sub cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kode.SetFocus
Case 1
If cmdproses(1).Caption = "&Simpan" Then
Call ProsesDB(0)
Else
Call ProsesDB(1)
End If
Case 2
X = MsgBox("Yakin RECORD namamobil akan dihapus...!", vbQuestion + vbYesNo, "cars")
If X = vbYes Then ProsesDB 2
Call hapus
kode.SetFocus
Case 3
Call hapus
kode.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
Call OPENDB
Call hapus
MulaiServer
End Sub
Private Sub kode_keypress(keyascii As Integer)
If keyascii = 13 Then
If kode.Text = "" Then
MsgBox "Masukkan kode mobil! ", vbInformation, "cars"
kode.SetFocus
Exit Sub
End If
sql = "SELECT * FROM cars WHERE kode='" & kode.Text & "' "
If rs.State = adStateOpen Then rs.Close
rs.Open sql, Db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
Tampilnamamobil
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kode.Enabled = True
Else
X = kode.Text
Call hapus
kode.Text = X
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&Simpan"
End If
namamobil.SetFocus
End If
End Sub
Sub MulaiServer()
ws.LocalPort = 1000
ws.Listen
End Sub
Private Sub namamobil_Change()
End Sub
Private Sub ws_connectionrequest(ByVal requestid As Long)
ws.Close
ws.Accept requestid
Me.Caption = "server-client" & ws.RemoteHostIP & "connect"
End Sub
Private Sub ws_dataarrival(ByVal bytestotal As Long)
Dim xKirim As String
Dim xData1() As String
Dim xData2() As String
ws.GetData xKirim, vbString, bytestotal
xData1 = Split(xKirim, "-")
Select Case xData1(0)
Case "SEARCH"
sql = "SELECT * FROM cars WHERE kode='" & xData1(1) & "' "
If rs.State = adStateOpen Then rs.Close
rs.Open sql, Db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
ws.SendData "RECORD-" & rs!namamobil & "/" & rs!jenismobil & "/" & rs!seri & "/" & rs!harga
Else
ws.SendData "NOTHING-DATA"
End If
Case "INSERT"
Db.BeginTrans
Db.Execute xData1(1), adCmdTable
Db.CommitTrans
ws.SendData " INSERT-xxx"
Adodc1.Refresh
Case "DELETE"
sql = " Delete * from cars " & _
" where kode = '" & xData1(1) & "' "
Db.BeginTrans
Db.Execute sql, adCmdTable
Db.CommitTrans
Adodc1.Refresh
ws.SendData "DEL-xxx"
Case "UPDATE"
Db.BeginTrans
Db.Execute xData1(1), adCmdTable
Db.CommitTrans
ws.SendData "EDIT-xxx"
Adodc1.Refresh
End Select
End Sub
Listing menu utama
Private Sub mnuexit_Click()
Unload Me
End Sub
Private Sub PembelianMobil_Click()
frmmobil.Show
End Sub
Kamis, 17 November 2011
Pendidikan
Saya Beni Waldi,adalah seorang mahasiswa di STMIK Budidarma Medan stambuk 2009.
saya mengikuti perkuliahan setiap hari,kecuali hari kamis dan minggu,mulai pukul 08.15 sampai pukul 13.00.
Tujuan saya kuliah di STMIK Budidarma yaitu untuk mendapatkan ilmu untuk bekal di masa depan saya.
sedari itu saya selalu mengikuti perkuliahan yg diberikan oleh para dosen dan berusaha untuk mengerti dan memahami nya.
^_^
saya mengikuti perkuliahan setiap hari,kecuali hari kamis dan minggu,mulai pukul 08.15 sampai pukul 13.00.
Tujuan saya kuliah di STMIK Budidarma yaitu untuk mendapatkan ilmu untuk bekal di masa depan saya.
sedari itu saya selalu mengikuti perkuliahan yg diberikan oleh para dosen dan berusaha untuk mengerti dan memahami nya.
^_^
Ekskull
selain mengkikuti perkuliahan,saya juga mengikuti kegiatan ekskull di kampus.
saya mengikuti organisasi BDMC(Budidarma desain grafis dan multi media club).
disini saya diangkat menjadi wakil ketua,dan saya juga ikut bantu2 mengajar,
dan berniat untuk menjadi pengajar di organisasi ini,karena saya ingin berbagi pengetahuan dengan adik2 kelas.
:)
saya mengikuti organisasi BDMC(Budidarma desain grafis dan multi media club).
disini saya diangkat menjadi wakil ketua,dan saya juga ikut bantu2 mengajar,
dan berniat untuk menjadi pengajar di organisasi ini,karena saya ingin berbagi pengetahuan dengan adik2 kelas.
:)
Kegiatan dirumah
setiap hari nya saya melakukan kegiatan sehari-hari selayak nya dirumah sendiri.
mulai dari bersikan kamar,rumah,nyuci pakaian,strika dan lain2.
untuk mengisi waktu luang biasa nya saya memperdalam pengetahuan miasal nya yg palaing sering di bidang desain grafis.
saya juga sering Online untuk mendonload tutorial2 atau sekedar baca komik.
dan juga facebook'an.
hehehe
mulai dari bersikan kamar,rumah,nyuci pakaian,strika dan lain2.
untuk mengisi waktu luang biasa nya saya memperdalam pengetahuan miasal nya yg palaing sering di bidang desain grafis.
saya juga sering Online untuk mendonload tutorial2 atau sekedar baca komik.
dan juga facebook'an.
hehehe
Pekerjaan
Alhamdulilah ya...
sekarang ini saya udah bekerja walaupun hanya paruh waktu.
saya bekerja di Smile's foto,tempat nya di tanjung morawa Medan.
saya bekerja dari pukul 14.30 sampai pukul 21.00.
lumayan lah untuk tambah2 pengetahuan,pengalaman dan uang jajan tentu nya.
:)
sekarang ini saya udah bekerja walaupun hanya paruh waktu.
saya bekerja di Smile's foto,tempat nya di tanjung morawa Medan.
saya bekerja dari pukul 14.30 sampai pukul 21.00.
lumayan lah untuk tambah2 pengetahuan,pengalaman dan uang jajan tentu nya.
:)
Langganan:
Postingan (Atom)