data base

A

Private Sub cmdproses_Click()

Dim eksekutif, reguler, tahun, jurusan, study, kelas, no As String

n = Left(txtnpm.Text, 1)

If n = “E” Or n = “e” Then

kelas = “Eksekutif”

ElseIf n = “R” Or n = “r” Then

kelas = “Reguler”

End If

tahun = “20” & Mid(txtnpm.Text, 3, 2)

txtthn.Text = tahun

txtkel.Text = kelas

n = Mid(txtnpm.Text, 5, 1)

If n = “1” Then

jurusan = “Sistem Informasi”

ElseIf n = “2” Then

jurusan = “Manajemen Informatika”

ElseIf n = “3” Then

jurusan = “Manajemen dan Kom. Akuntansi”

End If

txtjur.Text = jurusan

n = Mid(txtnpm.Text, 6, 2)

If n = “01” Or n = “00” Then

study = “Strata Satu”

ElseIf n = “02” Then

study = “Diploma Tiga”

ElseIf n = “03” Then

study = “Diploma Satu”

End If

txtpro.Text = study

no = Right(txtnpm.Text, 3)

txtno.Text = no

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtkel.Text = “”

txtjur.Text = “”

txtpro.Text = “”

txtthn.Text = “”

txtno.Text = “”

 

Private Sub cmdkeluar_Click()

End

End Sub

Advertisements

tugas 6

Image

 

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtkel.Text = “”

txtjur.Text = “”

txtpro.Text = “”

txtthn.Text = “”

txtno.Text = “”

txtup.Text = “”

txtbipes.Text = “”

txtub.Text = “”

txtbipa.Text = “”

txttot.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtkel.Text = “”

txtjur.Text = “”

txtpro.Text = “”

txtthn.Text = “”

txtno.Text = “”

txtup.Text = “”

txtbipes.Text = “”

txtub.Text = “”

txtbipa.Text = “”

txttot.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim eksekutif, reguler, tahun, jurusan, study, kelas, no As String

n = Left(txtnpm.Text, 1)

If n = “E” Or n = “e” Then

kelas = “Eksekutif”

bangunan = “1250000”

ElseIf n = “R” Or n = “r” Then

kelas = “Reguler”

bangunan = “1000000”

End If

property = “600000”

txtbipa.Text = property

txtub.Text = bangunan

tahun = “20” & Mid(txtnpm.Text, 3, 2)

txtthn.Text = tahun

txtkel.Text = kelas

n = Mid(txtnpm.Text, 5, 1)

If n = “1” Then

jurusan = “Sistem Informasi”

ElseIf n = “2” Then

jurusan = “Manajemen Informatika”

ElseIf n = “3” Then

jurusan = “Manajemen dan Kom. Akuntansi”

End If

txtjur.Text = jurusan

n = Mid(txtnpm.Text, 6, 2)

If n = “01” Or n = “00” Then

study = “Strata Satu”

biaya = “200000”

ElseIf n = “02” Then

study = “Diploma Tiga”

biaya = “150000”

ElseIf n = “03” Then

study = “Diploma Satu”

biaya = “150000”

End If

If kelas = “Eeksekutif” And study = “strata satu” Then

pendidikan = “1900000”

ElseIf kelas = “Eeksekutif” And study = “Diploma Tiga” Then

pendidikan = “1650000”

ElseIf kelas = “Eeksekutif” And study = “Diploma satu” Then

pendidikan = “1350000”

ElseIf kelas = “Reguler” And study = “Strata Satu” Then

pendidikan = “1500000”

ElseIf kelas = “Reguler” And study = “Diploma Tiga” Then

pendidikan = “1250000”

ElseIf kelas = “Reguler” And study = “Diploma Satu” Then

pendidikan = “1250000”

 

End If

txtkel.Text = kelas

txtpro.Text = study

txtbipes.Text = pendidikan

 

no = Right(txtnpm.Text, 3)

txtno.Text = no

txtup.Text = biaya

txttot.Text = Val(txtup.Text) + Val(txtbipes.Text) + Val(txtub.Text) + Val(txtbipa.Text)

End Sub

 

 

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

Penjualan Laptop Apple

penjualan laptop

Private Sub Cbokode_Click()

txtjj.SetFocus

End Sub

 

Private Sub cmdproses_Click()

Dim penjualan, discount, kode, merk, bayar, a, b As String

Dim hasa As Variant

kode = Mid(Cbokode.Text, 7, 5)

If kode = “MC965” Then

merk = “Apple MacBook Air MC965?”

harga = “12800000?”

ElseIf kode = “MC966” Then

merek = “Apple MacBook Air MC966?”

harga = “15800000?”

ElseIf kode = “MC968” Then

merk = “Apple MacBook Air MC968?”

harga = “9900000?”

ElseIf kode = “MC969” Then

merk = “Apple MacBook Air MC969?”

harga = “11900000?”

ElseIf kode = “MC700” Then

merk = “Apple MacBook Air MC700?”

harga = “10800000?”

ElseIf kode = “MC721” Then

merk = “Apple MacBook Air MC721?”

harga = “15900000?”

ElseIf kode = “MC723” Then

merk = “Apple MacBook Air MC723?”

harga = “19300000?”

ElseIf kode = “MC724” Then

merk = “Apple MacBook Air MC724?”

harga = “13700000?”

ElseIf kode = “MC311” Then

merk = “Apple MacBook Air MC311?”

harga = “24200000?”

ElseIf kode = “MC313?” Then

merk = “Apple MacBook Air MC313?”

harga = “11900000?”

ElseIf kode = “MC314” Then

merk = “Apple MacBook Air MC314?”

harga = “14700000?”

ElseIf kode = “MC318” Then

merk = “Apple MacBook Air MC318?”

harga = “17600000?”

ElseIf kode = “MC322” Then

merk = “Apple MacBook Air MC322?”

harga = “21300000?”

ElseIf kode = “MC965” Then

merk = “Apple MacBook Air MC965?”

harga = “12800000?”

ElseIf kode = “MC966” Then

merk = “Apple MacBook Air MC966?”

harga = “15800000?”

End If

txtmerk.Text = merk

txths.Text = harga

a = Val(txtjj.Text)

b = Val(txths.Text)

penjualan = a * b

txthp.Text = penjualan

Select Case txthp.Text

Case Is > 140000000

discount = 0.15 * penjualan

Case Is > 135000000

discount = 0.1 * penjualan

Case Is > 130000000

discount = 0.05 * penjualan

Case Is > 125000000

discount = 0.02 * penjualan

End Select

penjualan = Val(txthp.Text)

txtdis.Text = discount

txttb.Text = Val(txthp.Text) – Val(txtdis.Text)

End Sub

 

Private Sub Form_Load()

Cbokode.AddItem “Apple MC965 MasBook Air”

Cbokode.AddItem “Apple MC966 MasBook Air”

Cbokode.AddItem “Apple MC968 MasBook Air”

Cbokode.AddItem “Apple MC969 MasBook Air”

Cbokode.AddItem “Apple MC700 MasBook Pro”

Cbokode.AddItem “Apple MC721 MasBook Pro”

Cbokode.AddItem “Apple MC723 MasBook Pro”

Cbokode.AddItem “Apple MC724 MasBook Pro”

Cbokode.AddItem “Apple MC311 MasBook Pro”

Cbokode.AddItem “Apple MC313 MasBook Pro”

Cbokode.AddItem “Apple MC314 MasBook Pro”

Cbokode.AddItem “Apple MC318 MasBook Pro”

Cbokode.AddItem “Apple MC322 MasBook Pro”

Cbokode.AddItem “Apple MC965 MasBook Air”

Cbokode.AddItem “Apple MC966 MasBook Air”

End Sub

 

Private Sub cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

txtmerk.Text = “”

txths.Text = “”

txtjj.Text = “”

txtdis.Text = “”

txttb.Text = “”

txthp.Text = “”

 

End Sub

 

 

Private Sub cmdkeluar_Click()

End

End Sub

PT. Pulang Petang Setiap Hari

PT PULANG PETANG SETIAP HARI

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

 

Private Sub cmdproses_Click()

Select Case a = Mid(txtnik.Text, 5, 1)

Case a = “A”

txtgol = “A”

txtjabatan.Text = “MANAGER”

txtgapok.Text = “4000000”

txttunjangan.Text = “1025000”

Case a = “B”

txtgol.Text = “B”

txtjabatan.Text = “Ka.SEKSI”

txtgapok.Text = “3500000”

txttunjangan.Text = “975000”

Case a = “C”

txtgol.Text = “C”

txtjabatan.Text = “STAFF”

txtgapok.Text = “3000000”

txttunjangan.Text = “925000”

End Select

a = Right(txtnik.Text, 3)

If a = “KEU” Then

txtbagian.Text = “ACCOUNTING”

ElseIf a = “ADM” Then

txtbagian.Text = “ADMINISTRASI”

ElseIf a = “SDM” Then

txtbagian.Text = “GENERAL AFFAIR”

ElseIf a = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf a = “SPM” Then

txtbagian.Text = “SECURITY”

End If

Select Case a = Mid(txtnik.Text, 7, 1)

Case a = “S”

kode = “S”

Status = “SINGEL”

Case a = “M”

kode = “M”

Status = “MENIKAH”

Case a = “J”

kode = “J”

Status = “JANDA”

Case a = “D”

kode = “D”

Status = “DUDA”

End Select

txtkode.Text = kode

txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotal.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

End Sub

Private Sub Form_Activate()

txtnama.SetFocus

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

 

Private Sub Form_Activate()

txtnama.SetFocus

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

 

End Sub

 

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtjabatan.Text = “”

txtbagian.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtjabatan.Text = “”

txtbagian.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

tugas 4

Image

Private Sub cmdproses_Click()

koti = Left(Txtkt.Text, 3)

If koti = “bim” Then

jek = “bima”

hati = “50000”

jab = “16.00”

ElseIf koti = “eko” Then

jek = “ekonomi”

hati = “35000”

jab = “19.00”

ElseIf koti = “mut” Then

jek = “mutiara”

hati = “23000”

jab = “17.00”

ElseIf koti = “sen” Then

jek = “senja”

hati = “15000”

jab = “17.00”

End If

Txtkt.Text = koti

Txtjk.Text = jek

Txtht.Text = hati

Txtjb.Text = jab

Txtjt.SetFocus

End Sub

 

 

Private Sub Txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)

Txttotalp.SetFocus

End If

End Sub

 

Private Sub Cmdlagi_Click()

Txtkt.SetFocus

Txtht = “”

Txtjk = “”

Txtjb = “”

Txtjt = “”

Txttotalp = “”

Txtkt = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

perkalian2bil

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_Change()

End Sub

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

 

 

 

 

 

 

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text2_Change()

End Sub

 

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

perhitungan setelah diskon

Private Sub Text1_keypress(keypress As Integer)

If keyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.1

End If

End Su

b

Private Sub Text2_Change()

End Sub

Private Sub cmdHitung_Click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

apliksi perhitungan gaji

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

 

End Sub

Private Sub Text2_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text3.SetFocus

End If

 

End Sub

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text + Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

MVB

Private Sub Option1_Click()

Lblteks.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Option3_Click()

Lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Option4_Click()

Lblteks.ForeColor = vbYellow

End Sub

 

Private Sub Option5_Click()

If Option5.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Option6_Click()

If Option6.Value = 1 Then

lbltextFontItalyc = True

Else

lbltextFontItalyc = False

End If

End Sub

 

Private Sub Option7_Click()

If Option7.Value = 1 Then

lbltextFontUnderline = True

Else

lbltextFontUnderline = False

End If

End Sub

 

Private Sub Option8_Click()

If Option8.Value = 1 Then

lbltextFontStrikeout = True

Else

lbltextFontStrikeout = False

End If

End Sub

 

Private Sub check1_Click()

If check1.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Check2_Click()

If Check2.Value = 1 Then

Lblteks.FontItalic = True

Else

Lblteks.FontItalic = False

End If

End Sub

 

Private Sub Check3_Click()

If Check3.Value = 1 Then

Lblteks.FontUnderline = True

Else

Lblteks.FontUnderline = False

End If

End Sub

 

Private Sub Check4_Click()

If Check4.Value = 1 Then

Lblteks.FontStrikethru = True

Else

Lblteks.FontStrikethru = False

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

 

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

 

End Sub

 

Private Sub Option1_Click()

Lblteks.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Option3_Click()

Lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Option4_Click()

Lblteks.ForeColor = vbYellow

End Sub

 

Private Sub Option5_Click()

If Option5.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Option6_Click()

If Option6.Value = 1 Then

lbltextFontItalyc = True

Else

lbltextFontItalyc = False

End If

End Sub

 

Private Sub Option7_Click()

If Option7.Value = 1 Then

lbltextFontUnderline = True

Else

lbltextFontUnderline = False

End If

End Sub

 

Private Sub Option8_Click()

If Option8.Value = 1 Then

lbltextFontStrikeout = True

Else

lbltextFontStrikeout = False

End If

End Sub

 

 

 

 

 

 

 

Private Sub CboNPM_Change()

Select Case CboNPM.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

End Sub

 

Private Sub CmdBatal_Click()

CboNPM.SetFocus

CboNPM.Text = ” ”

TxtNMH.Text = ” ”

TxtJurusan.Text = ” ”

TxtQuis.Text = ” ”

TxtTugas.Text = ” ”

TxtUTS.Text = ” ”

TxtUAS.Text = ” ”

TxtAkhir.Text = ” ”

TxtMutu.Text = ” ”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim Akhir As Integer

Dim Mutu As String

QUIS = Val(TxtQuis.Text)

TUGAS = Val(TxtTugas.Text)

UTS = Val(TxtUTS.Text)

UAS = Val(TxtUAS.Text)

Akhir = (QUIS + TUGAS + UTS + UAS) / 4

TxtAkhir.Text = Akhir

End Sub

 

Private Sub Form_Load()

CboNPM.AddItem “09100027”

CboNPM.AddItem “09200048”

CboNPM.AddItem “09300024”

End Sub

Private Sub TxtMutu_Change()

Select Case TxtAkhir.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

End Sub

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTugas.SetFocus

End If

End Sub

 

Private Sub txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUTS.SetFocus

End If

End Sub

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUAS.SetFocus

End If

End Sub

 

 

 

 

 

 

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text2_Change()

End Sub

 

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

 

 

 

 

 

 

 

 

 

Private Sub Text1_keypress(keypress As Integer)

If keyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.1

End If

End Su

b

Private Sub Text2_Change()

End Sub

Private Sub cmdHitung_Click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

 

End Sub

Private Sub Text2_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text3.SetFocus

End If

 

End Sub

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text + Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

 

 

 

 

 

 

 

 

Private Sub Option1_Click()

Lblteks.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Option3_Click()

Lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Option4_Click()

Lblteks.ForeColor = vbYellow

End Sub

 

Private Sub Option5_Click()

If Option5.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Option6_Click()

If Option6.Value = 1 Then

lbltextFontItalyc = True

Else

lbltextFontItalyc = False

End If

End Sub

 

Private Sub Option7_Click()

If Option7.Value = 1 Then

lbltextFontUnderline = True

Else

lbltextFontUnderline = False

End If

End Sub

 

Private Sub Option8_Click()

If Option8.Value = 1 Then

lbltextFontStrikeout = True

Else

lbltextFontStrikeout = False

End If

End Sub

 

Private Sub check1_Click()

If check1.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Check2_Click()

If Check2.Value = 1 Then

Lblteks.FontItalic = True

Else

Lblteks.FontItalic = False

End If

End Sub

 

Private Sub Check3_Click()

If Check3.Value = 1 Then

Lblteks.FontUnderline = True

Else

Lblteks.FontUnderline = False

End If

End Sub

 

Private Sub Check4_Click()

If Check4.Value = 1 Then

Lblteks.FontStrikethru = True

Else

Lblteks.FontStrikethru = False

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

 

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

 

End Sub

 

Private Sub Option1_Click()

Lblteks.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Option3_Click()

Lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Option4_Click()

Lblteks.ForeColor = vbYellow

End Sub

 

Private Sub Option5_Click()

If Option5.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Option6_Click()

If Option6.Value = 1 Then

lbltextFontItalyc = True

Else

lbltextFontItalyc = False

End If

End Sub

 

Private Sub Option7_Click()

If Option7.Value = 1 Then

lbltextFontUnderline = True

Else

lbltextFontUnderline = False

End If

End Sub

 

Private Sub Option8_Click()

If Option8.Value = 1 Then

lbltextFontStrikeout = True

Else

lbltextFontStrikeout = False

End If

End Sub

 

huruf mutu mahasiswa

Private Sub CboNPM_Change()

Select Case CboNPM.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

End Sub

 

Private Sub CmdBatal_Click()

CboNPM.SetFocus

CboNPM.Text = ” ”

TxtNMH.Text = ” ”

TxtJurusan.Text = ” ”

TxtQuis.Text = ” ”

TxtTugas.Text = ” ”

TxtUTS.Text = ” ”

TxtUAS.Text = ” ”

TxtAkhir.Text = ” ”

TxtMutu.Text = ” ”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim Akhir As Integer

Dim Mutu As String

QUIS = Val(TxtQuis.Text)

TUGAS = Val(TxtTugas.Text)

UTS = Val(TxtUTS.Text)

UAS = Val(TxtUAS.Text)

Akhir = (QUIS + TUGAS + UTS + UAS) / 4

TxtAkhir.Text = Akhir

End Sub

 

Private Sub Form_Load()

CboNPM.AddItem “09100027”

CboNPM.AddItem “09200048”

CboNPM.AddItem “09300024”

End Sub

Private Sub TxtMutu_Change()

Select Case TxtAkhir.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

End Sub

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTugas.SetFocus

End If

End Sub

 

Private Sub txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUTS.SetFocus

End If

End Sub

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUAS.SetFocus

End If

End Sub

Private Sub Text1_keypress(keypress As Integer)

If keyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.1

End If

End Su

b

Private Sub Text2_Change()

End Sub

Private Sub cmdHitung_Click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

 

 

 

 

 

 

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text2_Change()

End Sub

 

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

 

 

 

 

 

 

 

 

 

Private Sub Text1_keypress(keypress As Integer)

If keyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.1

End If

End Su

b

Private Sub Text2_Change()

End Sub

Private Sub cmdHitung_Click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

 

End Sub

Private Sub Text2_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text3.SetFocus

End If

 

End Sub

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text + Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

 

 

 

 

 

 

 

 

Private Sub Option1_Click()

Lblteks.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Option3_Click()

Lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Option4_Click()

Lblteks.ForeColor = vbYellow

End Sub

 

Private Sub Option5_Click()

If Option5.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Option6_Click()

If Option6.Value = 1 Then

lbltextFontItalyc = True

Else

lbltextFontItalyc = False

End If

End Sub

 

Private Sub Option7_Click()

If Option7.Value = 1 Then

lbltextFontUnderline = True

Else

lbltextFontUnderline = False

End If

End Sub

 

Private Sub Option8_Click()

If Option8.Value = 1 Then

lbltextFontStrikeout = True

Else

lbltextFontStrikeout = False

End If

End Sub

 

Private Sub check1_Click()

If check1.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Check2_Click()

If Check2.Value = 1 Then

Lblteks.FontItalic = True

Else

Lblteks.FontItalic = False

End If

End Sub

 

Private Sub Check3_Click()

If Check3.Value = 1 Then

Lblteks.FontUnderline = True

Else

Lblteks.FontUnderline = False

End If

End Sub

 

Private Sub Check4_Click()

If Check4.Value = 1 Then

Lblteks.FontStrikethru = True

Else

Lblteks.FontStrikethru = False

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

 

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

 

End Sub

 

Private Sub Option1_Click()

Lblteks.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Option3_Click()

Lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Option4_Click()

Lblteks.ForeColor = vbYellow

End Sub

 

Private Sub Option5_Click()

If Option5.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Option6_Click()

If Option6.Value = 1 Then

lbltextFontItalyc = True

Else

lbltextFontItalyc = False

End If

End Sub

 

Private Sub Option7_Click()

If Option7.Value = 1 Then

lbltextFontUnderline = True

Else

lbltextFontUnderline = False

End If

End Sub

 

Private Sub Option8_Click()

If Option8.Value = 1 Then

lbltextFontStrikeout = True

Else

lbltextFontStrikeout = False

End If

End Sub

 

 

 

 

 

 

 

Private Sub CboNPM_Change()

Select Case CboNPM.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

End Sub

 

Private Sub CmdBatal_Click()

CboNPM.SetFocus

CboNPM.Text = ” ”

TxtNMH.Text = ” ”

TxtJurusan.Text = ” ”

TxtQuis.Text = ” ”

TxtTugas.Text = ” ”

TxtUTS.Text = ” ”

TxtUAS.Text = ” ”

TxtAkhir.Text = ” ”

TxtMutu.Text = ” ”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim Akhir As Integer

Dim Mutu As String

QUIS = Val(TxtQuis.Text)

TUGAS = Val(TxtTugas.Text)

UTS = Val(TxtUTS.Text)

UAS = Val(TxtUAS.Text)

Akhir = (QUIS + TUGAS + UTS + UAS) / 4

TxtAkhir.Text = Akhir

End Sub

 

Private Sub Form_Load()

CboNPM.AddItem “09100027”

CboNPM.AddItem “09200048”

CboNPM.AddItem “09300024”

End Sub

Private Sub TxtMutu_Change()

Select Case TxtAkhir.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

End Sub

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTugas.SetFocus

End If

End Sub

 

Private Sub txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUTS.SetFocus

End If

End Sub

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUAS.SetFocus

End If

End Sub

Private Sub Text2_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text + Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Option1_Click()

Lblteks.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Lblteks.ForeColor = vbGreen

End Sub

Private Sub Option3_Click()

Lblteks.ForeColor = vbBlue

End Sub

Private Sub Option4_Click()

Lblteks.ForeColor = vbYellow

End Sub

Private Sub Option5_Click()

If Option5.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

Private Sub Option6_Click()

If Option6.Value = 1 Then

lbltextFontItalyc = True

Else

lbltextFontItalyc = False

End If

End Sub

Private Sub Option7_Click()

If Option7.Value = 1 Then

lbltextFontUnderline = True

Else

lbltextFontUnderline = False

End If

End Sub

Private Sub Option8_Click()

If Option8.Value = 1 Then

lbltextFontStrikeout = True

Else

lbltextFontStrikeout = False

End If

End Sub

Private Sub check1_Click()

If check1.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

Lblteks.FontItalic = True

Else

Lblteks.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

Lblteks.FontUnderline = True

Else

Lblteks.FontUnderline = False

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = 1 Then

Lblteks.FontStrikethru = True

Else

Lblteks.FontStrikethru = False

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()

Lblteks.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Lblteks.ForeColor = vbGreen

End Sub

Private Sub Option3_Click()

Lblteks.ForeColor = vbBlue

End Sub

Private Sub Option4_Click()

Lblteks.ForeColor = vbYellow

End Sub

Private Sub Option5_Click()

If Option5.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

Private Sub Option6_Click()

If Option6.Value = 1 Then

lbltextFontItalyc = True

Else

lbltextFontItalyc = False

End If

End Sub

Private Sub Option7_Click()

If Option7.Value = 1 Then

lbltextFontUnderline = True

Else

lbltextFontUnderline = False

End If

End Sub

Private Sub Option8_Click()

If Option8.Value = 1 Then

lbltextFontStrikeout = True

Else

lbltextFontStrikeout = False

End If

End Sub

Private Sub CboNPM_Change()

Select Case CboNPM.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

End Sub

Private Sub CmdBatal_Click()

CboNPM.SetFocus

CboNPM.Text = ” ”

TxtNMH.Text = ” ”

TxtJurusan.Text = ” ”

TxtQuis.Text = ” ”

TxtTugas.Text = ” ”

TxtUTS.Text = ” ”

TxtUAS.Text = ” ”

TxtAkhir.Text = ” ”

TxtMutu.Text = ” ”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim Akhir As Integer

Dim Mutu As String

QUIS = Val(TxtQuis.Text)

TUGAS = Val(TxtTugas.Text)

UTS = Val(TxtUTS.Text)

UAS = Val(TxtUAS.Text)

Akhir = (QUIS + TUGAS + UTS + UAS) / 4

TxtAkhir.Text = Akhir

End Sub

Private Sub Form_Load()

CboNPM.AddItem “09100027”

CboNPM.AddItem “09200048”

CboNPM.AddItem “09300024”

End Sub

Private Sub TxtMutu_Change()

Select Case TxtAkhir.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

End Sub

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTugas.SetFocus

End If

End Sub

Private Sub txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUTS.SetFocus

End If

End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUAS.SetFocus

End If

End Sub

TUGAS VISUAL BASIC

1. NPM :
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
2. Nama Mahasiswa:
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtps.SetFocus
End If
End Sub
3. Program Studi :
Private Sub txtps_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjurusan.SetFocus
End If
End Sub
4. Jurusan :
Private Sub txtjurusan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsemester.SetFocus
End If
End Sub
5. Semester :
Private Sub txtsemester_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub
6. Lagi :
Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub
7. Batal :
Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub
8. Keluar :
Private Sub cmdkeluar_Click()
end
End Sub

1. Kode Buah :
Private Sub txtkb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnb.SetFocus
End If
End Sub
2. Nama Buah :
Private Sub txtnb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthb.SetFocus
End If
End Sub
3. Harga Buah :
Private Sub txthb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjb.SetFocus
End If
End Sub
4. Jumlah Beli :
Private Sub txtjb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttb.Text = Val(txthb.Text) * (txtjb.Text)
End If
End Sub
5. Total Bayar :
Private Sub txttb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub

6. Lagi :
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb = “”
txtnb = “”
txthb = “”
txtjb = “”
txttb = “”
End Sub

7. Batal :
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb = “”
txtnb = “”
txthb = “”
txtjb = “”
txttb = “”
End Sub
8. Keluar :
Private Sub cmdkeluar_Click()
End
End Sub

menahan emosional

Emosi. Setiap orang pasti pernah merasakan kesal yang meletup-letup, menahan marah sekuat tenaga tapi waktu sudah tidak kuat emosi itu meledak menjadi kemarahan yang menakukan. Seperti kita kita tau marah bukanlah sesuatu yang mengenakan baik orang yang melakukannya ataupun orang yang kena marah. Disini kang salman ingin berbagi sedikit tips untuk menahan emosi simak selengkapnya di bawah ini :

1. BERWUDHU & SHOLAT

Berwudhu akan mengurangi panasnya “bara” amarah di dalam hati. Dan, sholat akan membuat pernafasan Anda menjadi lebih pelan dan lebih rileks. Ini sebuah cara ampuh untuk menurunkan tekanan psikologis maupun stress.

2. BERSIKAPLAH DEWASA

Umumnya mereka yang dewasa secara akal, pikiran, dan lebih matang memiliki pengendalian diri yang baik. Mungkin anda saat ini belum mempunyai pengendalian diri namun latihlah dari sekarang sebab dengan menahan diri untuk tidak marah Anda merupakan seorang pria yang jantan karena bisa mengendalian amarah dan hawa nafsu yang bergejolak.

3. PERGI KE KAMAR MANDI KEMUDIAN CUCI MUKA

Air dapat membersihakan kotoran dan mengalirkan segala sesutu. Jika anda sedang dalam keadaan marah sebaiknya lekaslah mengambil air.

4. LEBIH RELIGIUS

Jika selama ini Anda kurang aktif di pengajian ataupun kegiatan keagamaan lainnya, kenapa tidak segera memulainya lagi? Berada di Komunitas Spiritual, akan membantu diri kita mencapai prospek filosofi yang positif. Dan, ini pada akhirnya akan mengekang segala kesinisan, amarah, dan juga agresifi.

5. SERINGLAH TERTAWA

Amarah dan humor memang tidak sama dan tak mungkin dalam satu waktu. Sehingga jika Anda mau tertawa, dan tak ada salahnya Anda menertawakan diri sendiri pada saat suasana mulai tidak mengenakkan hati maka amarah yang siap keluar bakal mereda, jika Anda bisa menganggap tragedi itu hanyalah sebuah “banyolan” belaka.

6. MENDENGARKAN

Cobalah untuk menutup mulut, diam…mendengarkan. Sudah banyak bukti, bahwa diam sanggup meredam amarah, saat bersitegang dengan lawan bicara. Setelah itu, saat Anda berbicara, maka nada bicara Anda akan terdengar lebih bijak. Ini bisa membuat orang lain belajar kepada Anda.

7. TINGKATKAN EMPATI

Lihatlah situasinya menurut sudut pandang orang lain. Ini akan membuat Anda menemukan kecakapan baru, bahwa Anda bisa merasakan apa yang mereka rasakan. Maka, orang lain akan lebih menghargai Anda.

8. MEMAAFAKAN

Betapa pun Anda pernah luka di “hati” yang dalam membekas, cobalah untuk memaafkan…meskipun menurut Anda hal itu tidak mungkin untuk dimaafkan. Cobalah melepaskan amarah dengan memaafkannya. Percayalah, Anda akan merasakan “pelepasan beban” yang membuat hidup jauh lebih ringan untuk dijalani.

9. TOLERANSI

Belajar menerima orang lain seperti apa adanya, bukan ingin menjadikan mereka sesuai kehendak Anda. Dengan sikap toleran ini, maka pada saat Anda berbicara, itu akan lebih didengarkan oleh orang lain.

10. MILIKI SAHABAT KARIB

Seorang sahabat karib, bisa dipercaya, dan dapat memberikan dukungan buat Anda, pada saat diperlukan. Sahabat juga tempat untuk berbagi. Dengan berbagi (curhat), gemuruh amarah akan menemukan pelepasannya, sehingga bisa diredakan.

11. BAHASA POSITIF DAN LUGAS

Meskipun marah karena merasakan ketidak adilan pada diri Anda, tetaplah fokus dan selektif. Gunakan bahasa positif namun lugas, simple, dengan nada suara yang rendah. Ini bisa membuat rasa marah mereda, dan bicara Anda pun akan lebih diperhatikan, dibandingkan jika Anda mengungkapkannya dengan nada tinggi dan keras, apalagi jika sampai memaki dan menghujat…yang mana bisa saja “seluruh isi kebun binatang” keluar dari mulut Anda.

12. MEMELIHARA BINATANG

Nah, daripada “seluruh isi kebun binatang” keluar dari mulut Anda, saat marah…mendingan Anda memelihara hewan kesayangan. Ini tidak menuntut banyak, kecuali makanan dan perhatian. Memelihara hewan kesayangan adalah tindakan bagus dan baik, sebagai awal Anda untuk belajar memperhatikan lingkungan sekitar Anda. Penelitian psikologis, menunjukkan bahwa secara fisik dan emosi, pemilik hewan kesayangan lebih baik, dibandingkan yang tidak memilikinya.

Cara Mengetahui Karakter Sifat Dari Bicara

//
you’re reading…
Rahasia
Cara Mengetahui Karakter Sifat Dari Bicara
Posted by Penulis Super ⋅ 5 Juni ⋅ 21 Komentar
Filed Under cara cara, karakter, kepribadian, membaca, rahasia, sifat, watak

8 Votes

Disini penulis akan bercerita bagaimana mengetahui sifat seseorang dari cara berbicara dan tingkah laku, hanya dalam 1 menit anda melihat orang tersebut.ini bukan teori asal asalan,karena ini berdasar pengalaman penulis bertahun tahun, itulah kenapa penulis milih milih dalam berteman dan tidak punya banyak teman.karena penulis telah tau bagaimana sifat seseorang dari cara berbicara. 😀
Pada dasarnya ada juga cara penulis yang lain, yaitu hanya dengan Cara Mengetahui Karakter Seseorang Dari Wajah. tapi ini tidak 100% manjur,dan harus di gabungkan dengan cara yang paling atas.

Cara Mengetahui Karakter Sifat Dari Bicara

Cara mengetahui sifat seseorang ini sangat mudah untuk anda fahami.perhatikan teori yang di bawah.tapi ingat..ini berlaku jika anda sudah mendengar orang tersebut berbicara atau anda berbicara dengannya

1. TIDAK MAU MENDENGAR DAN HANYA MAU DI DENGAR

pastinya anda pernah jumpa orang seperti ini,misalnya dia berbicara berkobar kobar dan berbicara terus tanpa memberi orang lain bicara,dan kita hanya sebagai pendengar.ketika giliran kita berbicara,dia malah gak mau mendengarkan.nah sifat dan karakter tipe orang seperti ini adalah:

-pemalas

-cerdik

-pembohong/pembual.

-suka merendahkan orang lain.

-sombong merasa paling hebat

-tidak bertanggung jawab

-pemarah

-keras kepala

-mau menang sendiri

-pengecut,berani cuma dirumah,dah kayak guk..guk..

2. SELALU MEMOTONG PEMBICARAAN:

anda pasti pernah mengalaminya.ketika anda sedang berusaha menjelaskan cerita atau berbagi pendapat,tiba-tiba pembicara’an anda di potong atau di bantah,maka sifat dan karakter dari orang seperti ini adalah;

-matrealistis

-suka nyuruh nyuruh

-keras kepala

-tidak dapat di bantah

-tidak ada toleransi

-penjilat,licik.

-bermuka dua/musang berbulu domba.

-kejam

-manis di depan tapi menjelek jelekan di belakang.

-keinginannya kuat dan harus tercapai apapun caranya.

-mengorbankan orang lain demi ambisi.

-egois,pelit,serakah,kikir.

-berbicara menyakitkan hati,dan sombong serta membanggakan diri sendiri.

3. TIPE PENDENGAR

Jika anda mendapati seseorang betah menjadi pendengar,dengan ekspresi wajah sesuai dengan topik pembicara’an,serta hanya menjawab dengan anggukan,sambil tangan di dagu atau di kepala.maka sifat dan karakter tipe ini adalah:

-pemikir

-pengalah

-berwawasan

-tidak sombong

-rendah hati

-hemat,pelit

-empati tinggi

-suka melamun

-pemalu

-penyendiri

-tidak suka berdebat

-Pengalah

-punya toleransi

-keras kepala

-tidak mau di gurui

-pantang di rendahkan

-pendendam

-main tusuk belakang.

-Cerdik

-pandai memainkan peran

-susah di singkirkan

-Pemberontak pada sistem yang kaku.

-emosi labil

-jarang bicara,jika berbicara pedas,dan tajam.

-Suka protes dan kritikannya tajam dan terarah hingga target tak berkutik

-tidak berjalan sesuai pola

-susah di tebak

-tidak suka pembicara’an yang topiknya di ulang ulang.

-mudah bosan

-pemuak

4. DIAM TAPI TANPA EKSPRESI DAN TANPA UMPAN BALIK:

anda akan mendapati tipe orang seperti ini,maka tipe seperti ini punya karakter;

-penurut

-sabar

-gampang di yakinkan

-tidak punya ide

-otaknya kosong

-mengikuti sistem yang kaku

-baik

-pelit

-ramah

-mudah mema’afkan

-tulus

-berjalan sesuai pola

-tidak mau berfikir

Nah..sekarang udah tau blum,penulis tau karakter di atas karena penulis telah mengamati dengan cermat orang lain.makanya penulis gak punya teman dekat.

Demikian sekilas tentang Cara Mengetahui Karakter Sifat Dari Bicara dari penulis super . Mudah-mudahan tulisan singkat ini bermanfaat. 🙂

light painting

Anda ada diposisi: Belajar Fotografi / Tips dan Trik / Tips Foto: Light Painting Alias Melukis Dengan Cahaya
Tips Foto: Light Painting Alias Melukis Dengan Cahaya

Pernah mencoba memotret dengan teknik light painting? kalau belum anda harus mencobanya. Memotret dengan teknik light painting adalah hal yang sangat mengasyikkan dan salah satu penggunaan kreatif shutter speed. Dalam fotografi light painting, kita membuka shutter dalam waktu yang cukup lama (long exposure), memotret dalam kegelapan dan mengarahkan sumber cahaya terarah (misal lampu senter) pada beberapa titik obyek foto dalam rentang sepanjang shutter terbuka.

Hyperjump

Teknik foto light painting atau light graffiti tidak membutuhkan banyak biaya, hal utama yang membedakan foto light painting bagus dan yang biasa-biasa saja adalah kreatifitas dan kemauan kita untuk mencoba. Dengan teknik ini, kita menggunakan sumber cahaya sebagai kuas layaknya lukisan.

Tujuan utama teknik foto “melukis dengan cahaya” adalah kita menerangi beberapa area atau titik pada obyek sehingga hanya hanya daerah yang diterangi tersebut yang terekam di foto. Penggunaan kreatif lain adalah untuk membentuk pola cahaya yang unik. Semua tergantung visi anda.
Apa Saja Yang Dibutuhkan?

Beberapa peralatan yang dibutuhkan untuk mencoba teknik ligh painting:

Sebuah kamera dengan kontrol manual, terutama yang dilengkpai dengan mode bulb. Ini diperlukan karena waktu exposure bisa diatas 30 detik. Sebagai contoh, foto mobil diatas dihasilkan dengan 113 detik
Sebuah tripod
Sumber cahaya: lampu senter, flash eksternal, lampu belajar, obor elektrik, lilin dll sesuai selera. Makin beragam sumber cahaya serta pilihan warnanya makin banyak opsi kreatif kita.
Shutter release, atau jika tidak teman yang rela memencet tombol shutter

Fire