jump to navigation

MOTOR SE TERBAIK 29 Oktober 2012

Posted by anggit_susanto in Uncategorized.
add a comment

Dunia motocross tanah air memang tidak seriuh dunia motor trail offroad/enduro yang sedang booming. Namun paling tidak dalam 3 tahun terakhir kompetisi motocross di Indonesia mulai ramai lagi, apalagi sejumlah pembalap asing turut juga garuk tanah (meskipun sebagian besar pembalap asing itu mengasapi pembalap tanah air). Penggiat off road di Indonesia juga tidak sedikit yang memakai motor tipe cross untuk off road. Sejumlah motor tipe cross yang di Indonesia sering disebut motor special engine alias SE yang sering seliweran di jalur off road antara lain Kawasaki KXF 250, KTM 125 SX, Yamaha YZF 250, Kawasaki KX 85, KTM 85 dan Hoda CRF 250R.

Memakai motor SE untuk offroad memang butuh skill yang diatas rata-rata karena memang motornya dirancang untuk balap, jadi pasti kencang pol! Di kejuaraan enduro dunia, ada banyak pembalap yang memakai motor SE seperti KXF 250 dan KXF 450. Di kejuaraan enduro bergengsi Grand National Cross Country (GNCC) USA juga berkali-kali Suzuki RMZ 450 menduduki puncak tertinggi. Jadi motor SE sudah jamak dipakai untuk offroad atau enduro di berbagai belahan dunia.

Iklan

Generasi moto kross SE 29 Oktober 2012

Posted by anggit_susanto in Uncategorized.
add a comment

125/150 Dua Tak
• 1980 Yamaha YZ125
• 1981 Suzuki RM125
• 1982 Suzuki RM125
• 1983 Honda CR125
• 1984 Kawasaki KX125
• 1985 Kawasaki KX125
• 1986 Honda CR125
• 1987 Honda CR125
• 1988 Kawasaki KX125
• 1989 Honda CR125
• 1990 Kawasaki KX125
• 1991 Kawasaki KX125
• 1992 Suzuki RM125
• 1993 Kawasaki KX125
• 1994 Suzuki RM125
• 1995 Suzuki RM125
• 1996 Yamaha YZ125
• 1997 Yamaha YZ125
• 1998 Yamaha YZ125
• 1999 Yamaha YZ125
• 2000 Yamaha YZ125
• 2001 Yamaha YZ125
• 2002 Yamaha YZ125
• 2003 Yamaha YZ125
• 2004 KTM 125SX
• 2005 Yamaha YZ125
• 2006 Yamaha YZ125
• 2007 Yamaha YZ125
• 2008 Yamaha YZ125
• 2009 Yamaha YZ125
• 2010 Yamaha YZ125
• 2011 KTM 150SX
• 2012 KTM 150SX

250 Dua Tak
• 1980 Yamaha YZ250
• 1981 Suzuki RM250
• 1982 Suzuki RM250
• 1983 Honda CR250
• 1984 Honda CR250
• 1985 Honda CR250
• 1986 Honda CR250
• 1987 Honda CR250
• 1988 Yamaha YZ250
• 1989 Honda CR250
• 1990 Kawasaki KX250
• 1991 Yamaha YZ250
• 1992 Yamaha YZ250
• 1993 Honda CR250
• 1994 Kawasaki KX250
• 1995 Yamaha YZ250
• 1996 Suzuki RM250
• 1997 Kawasaki KX250
• 1998 Kawasaki KX250
• 1999 Kawasaki KX250
• 2000 Yamaha YZ250
• 2001 Yamaha YZ250
• 2002 Yamaha YZ250
• 2003 Yamaha YZ250
• 2004 Suzuki RM250
• 2005 Suzuki RM250
• 2006 Suzuki RM250
• 2007 Yamaha YZ250
• 2008 Yamaha YZ250
• 2009 Yamaha YZ250
• 2010 Yamaha YZ250
• 2011 KTM 250SX
• 2012 KTM 250SX

250 Empat Tak
• 2001 Yamaha YZ250F
• 2002 Yamaha YZ250F
• 2003 Yamaha YZ250F
• 2004 Yamaha YZ250F
• 2005 Yamaha YZ250F
• 2006 Kawasaki KX250F
• 2007 Kawasaki KX250F
• 2008 Kawasaki KX250F
• 2009 Honda CRF250
• 2010 Kawasaki KX250F
• 2011 Suzuki RM-Z250
• 2012 Kawasaki KX250F

450 Empat Tak
• 1998 Yamaha YZ400F
• 1999 Yamaha YZ400F
• 2000 Yamaha YZ400F
• 2001 Yamaha YZ426F
• 2002 Yamaha YZ426F
• 2003 Yamaha YZ450F
• 2004 Honda CRF450
• 2005 Honda CRF450
• 2006 Yamaha YZ450F
• 2007 Honda CRF450
• 2007 Honda CRF450
• 2008 Honda CRF450
• 2009 Kawasaki KX450F
• 2010 KTM 450SXF
• 2011 KTM 450SXF
• 2012 Kawasaki KX450F

KX 250F 28 Oktober 2012

Posted by anggit_susanto in Uncategorized.
add a comment
Rp 81.000.000
(OFF THE ROAD)

Ditenagai dengan mesin berpendingin cair, 4 tak, satu silinder, 249 cc yang menghasilkan tenaga responsif  Kawasaki KX250F adalah motor kompetisi yang telah dilengkapi oleh fitur-fitu hi-tech dan telah terbukti dalam dunia balap.

   Spesifikasi
FRAME
Suspensi Depan Suspensi Depan berbeda fungsi, 47 mm inverted, Twin – Chamber Cartridge, Titanium Oxide Coating
Suspensi Belakang New Uni – Trak Wirh Gas – Charged Shock Absorber dengan pengaturan Spring Preload, 17 Way re-bound dan 13 way (low speed) and 2 or more turns of high speed compression damping adjustment
Rem Depan Semi Floating 250 mm, Petal Disc & Twin Piston Calliper
Rem Belakang 240 mm Petal Disc & Single Piston Calliper
Ban Depan 80 / 100 – 21
Ban Belakang 100 / 90 – 91
Jarak Poros Roda 1.475 mm
Jarak ke Tanah 330 mm
Berat 105,7 kg (tangki dalam keadaan penuh)
Kapasitas Bensin 7,2 liter
ENGINE
Tipe 4 – Langkah, DOHC, 4 – Katup – Single, DFI
Karburator Keihin 43 x 1, Digital Fuel Injection
Diameter x Langkah 770.0 x 53,6 mm
Sistem Pengapian Digital DC-CDI
Perbandingan Kompresi 13,5 : 1
DRIVETRAIN
Jumlah Transmisi 5 – speed
© 2012 Kawasaki Motor Indonesia                                     | About Us | Disclaimer | Link Kawasaki Group | Term Of Condition | Career |                         Share to: facebook twitter

Kawasaki Ninja 250R FI 28 Oktober 2012

Posted by anggit_susanto in Uncategorized.
add a comment

Bro sekalian sore ini Kawasaki Ninja 250r new model change rilis di jakarta. Terlihat bagian depannya berubah drastisss … lebih mirip ke ZX10R/ZX6R . . . body samping berubah, Knalpot berubah, single seat berubah, lampu sen depan menyatu di body seperti Ninja 650, Tangki baru , SPidometer DIGITAL, Odometer analog, knalpot baru, . . . mantabbbb  . . . .Harga 49,9 jt yg rem biasa warna Lime Green, Ebony, Pearl Stardust White dan Passion Red . . . bisa dipesan mulai agustus 2012 ini dan 56,9 jt Ninja 250R rem abs dengan warna pilihan Lime Green/Ebony dan Passion Red/Stardust White namuan baru bisa dipesan Oktober 2012 nanti . . . cekidot galleri nya . . . [ Please Check The English Version  below ]

Terlihat lampu sennya mirip yang digunakan oleh ER6N, Detail panel meternya ada Takometer besar, Spidometer digita;l, ada trip meter digital, fuel meter digital, penunjuk jam digital , bahkan spionnya pun model baru . . .Spatbor belakang nggak terlalu panjaaang seperti versi lawas, pake rear hugger mini . . . dan yang sesuatu banget adalah . . . ada tombol pass light nya :D   sory baru diapdet sepulang taraweh :D

English Version

Introducing the all-new 2013 Ninja 250, a full-fairing sports bike with a powerful 249 cm3 Parallel Twin engine.
In addition to more aggressive new Ninja styling, the new Ninja 250 offers more exciting ride performance. The engine features new crankcases, new pistons and an all-new aluminium die-cast cylinder. And complementing its new frame, a wider rear tyre and numerous other chassis improvements significantly improve the bike’s overall performance.
Further, reduced vibration and new heat management technology result in ride quality and comfort that exceed the 250-class. Many small components were also redesigned and given better finishing for a higher quality appearance, ensuring new Ninja 250 outshines all other bikes in its class.

Kawasaki Indonesia got a privilege to launch the latest ninja 250 first because Indonesia is the largest Ninja 250 market, ahead of brazil and US. The research for the new ninja was first started in 2008. Just after the 2008 ninja 250 was launched, the development was based on the research in Indonesia and some other countries, the particularly took research took 2 years in Indonesia, it isn’t mentioned here whether it would be for the global market too or not but i am pretty sure it would But you can see that this ninja has been announced at Japan Kawasaki Website . . . so i think its a global motorcycle. The delivery start in late August for non ABS and October for ABS version.

from the press confrence it will be announced as a global market product. price in indonesia $ 4.990 and for ABS $ 5.690 Include Tax.

Specification
– Tipe mesin: 4 langkah, pendingin air, dua buah sejajar
– Isi silinder: 249 cc
– Diameter x langkah: 62.0×41.2 mm
– Rasio kompresi: 11.3:1
– Katup sistem: DOHC, 8 valve
– Pasokan bajan bakar: Fuel injection system dengan katup throttle ganda
– Pengapian: digital
– Sistem starter: elektrik
– Transmisi: 6-speed, return shift
– Daya maksimum: 23,5 kW (32 PS) / 11.000 rpm
– Torsi maksimum: 21,0 Nm / 10.000 rpm

 

ninja 28 Oktober 2012

Posted by anggit_susanto in Uncategorized.
add a comment

Kawasaki Ninja RR dengan motor yang dikenal ketangguhannya dari power, akselarasi, keseimbangan dan body sporty yang aerodinamis, memberikan sensasi berkendara yang berbeda dari motor lainnya.
Spesifikasi
FRAME
Suspensi Depan 41 mm Telescopic Fork
Suspensi Belakang Monoshock Suspension
Rem Depan Rem Cakram Twin Port
Rem Belakang Rem Cakram Twin Port
Ban Depan 90/90 – 17 49S Tube-Type
Ban Belakang 110/80 – 17 57S Tube-Type
Panjang x Lebar x Tinggi 1930 mm x 720 mm x 1095 mm
Jarak Poros Roda 1.305 mm
Jarak ke Tanah 145 mm
Berat 134 kg
Kapasitas Bensin 10.8 Liter
ENGINE
Tipe 2 – langkah, 1 silinder, Cranked case, Reed Valve,KIPS, HSAS
Maksimum Power 21 KW / 11.000 RPM, EURO II
Torsi Maksimum 20 Nm / 9.000 RPM, EURO II
Karburator Mikuni Vm 28
Diameter x Langkah 59,0 x 54,4 mm
Volume Silinder 149 cm3
Valve System –
Sistem Bahan Bakar –
Sistem Pengapian –
Sistem Pendinginan Pendingin dengan air
Perbandingan Kompresi 6,9 : 1
DRIVETRAIN
Jumlah Transmisi 6 – Speed
Rasio Gigi Ke-1 2.700 (27 / 10)
Rasio Gigi Ke-2 1.706 (29 / 17)
Rasio Gigi Ke-3 1.300 (26 / 20)
Rasio Gigi Ke-4 1.091 (24 / 22)
Rasio Gigi Ke-5 0.952 (20 / 21)
Rasio Gigi Ke-6 0.864 (19 / 22)
Tipe System Final Drive Chain Drive
Drive Rasio Keseluruhan 7.874 @ Top Gear
Kapasitas Oli Samping 0.8 Liter
Sistem Pelumasan Oli Oil Injection
Kapasitas Coolant 1.3 Liter

tugas vb entry penjualan komputer 24 April 2012

Posted by anggit_susanto in Uncategorized.
add a comment

Private Sub cbokode_Click()
Dim kode, merk, hs As String
Select Case cbokode.Text
Case “Asus A43SA”
txtmerk.Text = “Asus A43SA-VX090D”
txths.Text = “5500000”
Case “Asus A43SD”
txtmerk.Text = “Asus A43SD-VX052D”
txths.Text = “4500000”
Case “Asus A43SJ”
txtmerk.Text = “Asus A43SJ-VX792D”
txths.Text = “4300000”
Case “Asus A43TA”
txtmerk.Text = “Asus A43TA-VX034D”
txths.Text = “4900000”
Case “Asus N43SJ”
txtmerk.Text = “Asus N43SJ-VX264D”
txths.Text = “4300000”
Case “Asus U36SD”
txtmerk.Text = “Asus U36SD-VX090D”
txths.Text = “6600000”
Case “Apple MC965”
txtmerk.Text = “Apple Macbook Air MC965”
txths.Text = “12800000”
Case “Apple MC966”
txtmerk.Text = “Apple Macbook Air MC966”
txths.Text = “15800000”
Case “Apple MC969”
txtmerk.Text = “Apple Macbook Pro MC969”
txths.Text = “11900000”
Case “Apple MC700”
txtmerk.Text = “Apple Macbook Pro MC700”
txths.Text = “10800000”
Case “Apple MC723”
txtmerk.Text = “Apple Macbook Pro MC723”
txths.Text = “19300000”
Case “Apple MD311”
txtmerk.Text = “Apple Macbook Pro MD311”
txths.Text = “24200000”
Case “Apple MD313”
txtmerk.Text = “Apple Macbook Pro MD313”
txths.Text = “11900000”
Case “Apple MD314”
txtmerk.Text = “Apple Macbook Pro MD314”
txths.Text = “14700000”
Case “Apple MD322”
txtmerk.Text = “Apple Macbook Pro MD322”
txths.Text = “21300000”
End Select
txtjj.SetFocus
End Sub

Private Sub cmdhitunglagi_Click()
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”
txtterbilang.Text = “”

End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Dim hp As String
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
If txthp.Text > 140000000 Then
txtdis.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 135000000 Then
txtdis.Text = Val(txthp.Text) * 0.1
ElseIf txthp.Text > 130000000 Then
txtdis.Text = Val(txthp.Text) * 0.05
ElseIf txthp.Text > 125000000 Then
txtdis.Text = Val(txthp.Text) * 0.02
End If
Dim tb As String
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub

Private Sub Form_Load()
cbokode.AddItem “Asus A43SA”
cbokode.AddItem “Asus A43SD”
cbokode.AddItem “Asus A43SJ”
cbokode.AddItem “Asus A43TA”
cbokode.AddItem “Asus N43SL”
cbokode.AddItem “Asus U36SD”
cbokode.AddItem “Apple MC965”
cbokode.AddItem “Apple MC966”
cbokode.AddItem “Apple MC969”
cbokode.AddItem “Apple MC700”
cbokode.AddItem “Apple MC723”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”

End Sub

Private Sub txttb_Change()
txtterbilang.Text = terbilang(Val(txttb.Text))
End Sub
Private Function baca(X As Integer) As String
Dim i As Long
Dim ratus(9) As String
Dim belas(9) As String
Dim puluh(9) As String
Dim satuan(9) As String
Dim sbaca As String
satuan(1) = “satu”
satuan(2) = “dua”
satuan(3) = “tiga”
satuan(4) = “empat”
satuan(5) = “lima”
satuan(6) = “enam”
satuan(7) = “tujuh”
satuan(8) = “delapan”
satuan(9) = “sembilan”
For i = 1 To 9
If i = 1 Then
puluh(i) = “sepuluh”
Else
puluh(i) = satuan(i) & ” puluh”
End If
Next
For i = 1 To 9
If i = 1 Then
belas(i) = “sebelas”
Else
belas(i) = satuan(i) & ” belas”
End If
Next
For i = 1 To 9
If i = 1 Then
ratus(i) = “seratus”
Else
ratus(i) = satuan(i) & ” ratus”
End If
Next
If X >= 100 Then
sbaca = ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If
If X >= 20 Or X = 10 Then
sbaca = sbaca & ” ” & puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
sbaca = sbaca & ” ” & belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If
If X >= 1 Then
sbaca = sbaca & ” ” & satuan(Val((Str(X))))
End If
baca = sbaca
End Function
Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = “”
If Val(X) = 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & ” trilyun”
X = Val(Mid(Str(X), ptext + 2, 12))
End If
If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” milyar”
X = Val(Mid(Str(X), ptext + 2, 9))
End If
If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” juta”
X = Val(Mid(Str(X), ptext + 2, 6))
End If
If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = “seribu”
Else
sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” ribu”
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If
sterbilang = sterbilang & ” ” & baca(Val(X))
terbilang = Trim(sterbilang) & ” rupiah”
End Function

vb setok barang 26 Februari 2012

Posted by anggit_susanto in Uncategorized.
add a comment

 

KODE PROGRAM

Private Sub CMDBATAL_Click()

TxtKB.SetFocus

TxtNB.Text = “”

TxtJS.Text = “”

TxtTJ.Text = “”

TxtHJ.Text = “”

TxtHJ.Text = “”

TxtTH.Text = “”

TxtSS.Text = “”

End Sub

 

Private Sub CMDKELUAR_Click()

Unload Me

End Sub

 

Private Sub CMDPROSES_Click()

Dim KB As String

KB = Right(TxtKB.Text, 1)

If KB = “T” Then

TxtNB.Text = “TAPE”

TxtHJ.Text = “275000”

ElseIf KB = “S” Then

TxtNB.Text = “SOUND SISTEM”

TxtHJ.Text = “350000”

ElseIf KB = “C” Then

TxtNB.Text = “COMPACK”

TxtHJ.Text = “480000”

End If

End Sub

 

Private Sub TxtJS_KEYPRESS(KEYASCII As Integer)

If KEYASCII = 13 Then

TxtTJ.SetFocus

End If

End Sub

 

Private Sub TxtTJ_KEYPRESS(KEYASCII As Integer)

If KEYASCII = 13 Then

TxtSS.Text = Val(TxtJS.Text) – Val(TxtTJ.Text)

TxtTH.Text = Val(TxtHJ.Text) * Val(TxtTJ.Text)

End If

End Sub

vb 26 Februari 2012

Posted by anggit_susanto in Uncategorized.
add a comment

 

Kode program :

Private Sub CMDBATAL_Click()

TXTNAMA.SetFocus

TXTNAMA.Text = “”

TXTNIK.Text = “”

TXTGOL.Text = “”

TXTKS.Text = “”

TXTST.Text = “”

TXTTH.Text = “”

TXTJB.Text = “”

TXTBG.Text = “”

TXTGP.Text = “”

TXTTJ.Text = “”

TXTTG.Text = “”

End Sub

 

Private Sub CMDKELUAR_Click()

Unload Me

End Sub

 

Private Sub CMDLAGI_Click()

TXTNAMA.SetFocus

TXTNAMA.Text = “”

TXTNIK.Text = “”

TXTGOL.Text = “”

TXTKS.Text = “”

TXTST.Text = “”

TXTTH.Text = “”

TXTJB.Text = “”

TXTBG.Text = “”

TXTGP.Text = “”

TXTTJ.Text = “”

TXTTG.Text = “”

End Sub

 

Private Sub CMDPROSES_Click()

Dim NIK As String

NIK = Left(TXTNIK.Text, 3)

If NIK = “KEU” Then

TXTBG.Text = “ACCOUNTING”

ElseIf NIK = “ADM” Then

TXTBG.Text = “ADMINISTRASI”

ElseIf NIK = “SDM” Then

TXTBG.Text = “GENERAL AFFAIR”

ElseIf NIK = “EDP” Then

TXTBG.Text = “IT UNIT”

ElseIf NIK = “SPM” Then

TXTBG.Text = “SCURITY”

End If

NIK = Mid(TXTNIK.Text, 5, 4)

TXTTH.Text = NIK

NIK = Mid(TXTNIK.Text, 9, 1)

If NIK = “A” Then

TXTGOL.Text = “A”

TXTJB.Text = “MANAJER”

TXTGP.Text = “3000000”

TXTTJ.Text = “875000”

ElseIf NIK = “B” Then

TXTGOL.Text = “B”

TXTJB.Text = “K.A SEKSI”

TXTGP.Text = “2500000”

TXTTJ.Text = “525000”

ElseIf NIK = “C” Then

TXTGOL.Text = “C”

TXTJB.Text = “STAF”

TXTGP.Text = “2000000”

TXTTJ.Text = “325000”

End If

NIK = Right(TXTNIK.Text, 1)

If NIK = “S” Then

TXTKS.Text = “S”

TXTST.Text = “SINGLE”

ElseIf NIK = “M” Then

TXTKS.Text = “M”

TXTST.Text = “MENIKAH”

ElseIf NIK = “D” Then

TXTKS.Text = “D”

TXTST.Text = “DUDA”

ElseIf NIK = “J” Then

TXTKS.Text = “J”

TXTST.Text = “JANDA”

End If

TXTTG.Text = Val(TXTGP.Text) + Val(TXTTJ.Text)

End Sub

 

Private Sub TXTNAMA_KEYPRESS(KEYASCII As Integer)

If KEYASCII = 13 Then

TXTNIK.SetFocus

End If

End Sub

tugas vb … 26 Februari 2012

Posted by anggit_susanto in Uncategorized.
add a comment

Kode program :

Private Sub CMDBATAL_Click()

TXTNAMA.SetFocus

TXTNAMA.Text = “”

TXTNIK.Text = “”

TXTGOL.Text = “”

TXTKS.Text = “”

TXTST.Text = “”

TXTTH.Text = “”

TXTJB.Text = “”

TXTBG.Text = “”

TXTGP.Text = “”

TXTTJ.Text = “”

TXTTG.Text = “”

End Sub

Private Sub CMDKELUAR_Click()

Unload Me

End Sub

Private Sub CMDLAGI_Click()

TXTNAMA.SetFocus

TXTNAMA.Text = “”

TXTNIK.Text = “”

TXTGOL.Text = “”

TXTKS.Text = “”

TXTST.Text = “”

TXTTH.Text = “”

TXTJB.Text = “”

TXTBG.Text = “”

TXTGP.Text = “”

TXTTJ.Text = “”

TXTTG.Text = “”

End Sub

Private Sub CMDPROSES_Click()

Dim NIK As String

NIK = Left(TXTNIK.Text, 3)

If NIK = “KEU” Then

TXTBG.Text = “ACCOUNTING”

ElseIf NIK = “ADM” Then

TXTBG.Text = “ADMINISTRASI”

ElseIf NIK = “SDM” Then

TXTBG.Text = “GENERAL AFFAIR”

ElseIf NIK = “EDP” Then

TXTBG.Text = “IT UNIT”

ElseIf NIK = “SPM” Then

TXTBG.Text = “SCURITY”

End If

NIK = Mid(TXTNIK.Text, 5, 4)

TXTTH.Text = NIK

NIK = Mid(TXTNIK.Text, 9, 1)

If NIK = “A” Then

TXTGOL.Text = “A”

TXTJB.Text = “MANAJER”

TXTGP.Text = “3000000”

TXTTJ.Text = “875000”

ElseIf NIK = “B” Then

TXTGOL.Text = “B”

TXTJB.Text = “K.A SEKSI”

TXTGP.Text = “2500000”

TXTTJ.Text = “525000”

ElseIf NIK = “C” Then

TXTGOL.Text = “C”

TXTJB.Text = “STAF”

TXTGP.Text = “2000000”

TXTTJ.Text = “325000”

End If

NIK = Right(TXTNIK.Text, 1)

If NIK = “S” Then

TXTKS.Text = “S”

TXTST.Text = “SINGLE”

ElseIf NIK = “M” Then

TXTKS.Text = “M”

TXTST.Text = “MENIKAH”

ElseIf NIK = “D” Then

TXTKS.Text = “D”

TXTST.Text = “DUDA”

ElseIf NIK = “J” Then

TXTKS.Text = “J”

TXTST.Text = “JANDA”

End If

TXTTG.Text = Val(TXTGP.Text) + Val(TXTTJ.Text)

End Sub

Private Sub TXTNAMA_KEYPRESS(KEYASCII As Integer)

If KEYASCII = 13 Then

TXTNIK.SetFocus

End If

End Sub

visual basic 24 Februari 2012

Posted by anggit_susanto in Uncategorized.
add a comment

Private Sub cmdbatal_Click()
txtgol.SetFocus
txtgol.Text = “”
txtks.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjbt.Text = “”
txtbag.Text = “”
txtgapok.Text = “”
txttnj.Text = “”
txtgatot.Text = “”
txtnmakaryawan.Text = “”
txtnik.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtgol.SetFocus
txtgol.Text = “”
txtks.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjbt.Text = “”
txtbag.Text = “”
txtgapok.Text = “”
txttnj.Text = “”
txtgatot.Text = “”
txtnmakaryawan.Text = “”
txtnik.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim nik As String
nik = Left(txtnik.Text, 3)
If nik = “KEU” Then
txtbag.Text = “Accounting’”
ElseIf nik = “ADM” Then
txtbag.Text = “Administrasi”
ElseIf nik = “SDM” Then
txtbag.Text = “General Affair”
ElseIf nik = “EDP” Then
txtbag.Text = “IT Unit”
ElseIf nik = “SPM” Then
txtbag.Text = “Security”
End If

nik = Mid(txtnik.Text, 9, 1)
If nik = “A” Then
txtgol.Text = “A”
txtjbt.Text = “Manager”
txtgapok.Text = 2500000
txttnj.Text = 375000
ElseIf nik = “B” Then
txtgol.Text = “B”
txtjbt.Text = “KA. Seksi”
txtgapok.Text = “1500000″
txttnj.Text = 375000
ElseIf nik = “C” Then
txtgol.Text = “C”
txtjbt.Text = “Staff”
txtgapok.Text = 1000000
txttnj.Text = 250000
End If
txtgatot.Text = Val(txtgapok.Text) + Val(txttnj.Text)

nik = Mid(txtnik.Text, 5, 4)
txtth.Text = nik

nik = Right(txtnik.Text, 1)
If nik = “S” Then
txtks.Text = “S”
txtst.Text = “Single”
ElseIf nik = “M” Then
txtks.Text = “M”
txtst.Text = “Menikah”
ElseIf nik = “J” Then
txtks.Text = “J”
txtst.Text = “Janda”
ElseIf nik = “D” Then
txtks.Text = “D”
txtst.Text = “Duda”

End If

End Sub

Private Sub txtgol_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtks.SetFocus
End If
End Sub

Private Sub txtks_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtst.SetFocus
End If
End Sub
Private Sub txtst_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtth.SetFocus
End If
End Sub
Private Sub txtth_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjbt.SetFocus
End If
End Sub
Private Sub txtjbt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtbag.SetFocus
End If
End Sub
Private Sub txtbag_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgapok.SetFocus
End If
End Sub
Private Sub txtgapok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttnj.SetFocus
End If
End Sub
Private Sub txttnj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgatot.SetFocus
End If
End Sub

Private Sub txtnmakaryawan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub