Private Sub CMDBATAL_Click()
TXTNAMA.SetFocus
TXTNAMA.Text = “”
TXTNIK.Text = “”
TXTGOL.Text = “”
TXTKS.Text = “”
TXTST.Text = “”
TXTTH.Text = “”
TXTJB.Text = “”
TXTBAG.Text = “”
TXTGP.Text = “”
TXTTUN.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 = “”
TXTBAG.Text = “”
TXTGP.Text = “”
TXTTUN.Text = “”
TXTTG.Text = “”

End Sub

Private Sub CMDPROSES_Click()
Dim NK As String

TXTGOL.Text = Mid(TXTNIK.Text, 9, 1)
NK = Mid(TXTNIK.Text, 9, 1)
If NK = “A” Then
TXTGOL.Text = “A”
TXTJB.Text = “manajer”
TXTGP.Text = “3000000”
TXTTUN.Text = “875000”
ElseIf NK = “B” Then
TXTGOL.Text = “B”
TXTJB.Text = “Ka.seksi”
TXTGP.Text = “2500000”
TXTTUN.Text = “525000”
ElseIf NK = “C” Then
TXTGOL.Text = “C”
TXTJB.Text = “staft”
TXTGP.Text = “2000000”
TXTTUN.Text = “325000”
End If
TXTTUN.SetFocus

NK = Mid(TXTNIK.Text, 5, 4)
TXTTH.Text = NK

NK = Left(TXTNIK.Text, 3)
If NK = “KEU” Then
TXTBAG.Text = “Accounting”
ElseIf NK = “ADM” Then
TXTBAG.Text = “Administrasi”
ElseIf NK = “SDM” Then
TXTBAG.Text = “General Affair”
ElseIf NK = “EDP” Then
TXTBAG.Text = “It Unit”
ElseIf NK = “SPM” Then
TXTBAG.Text = “Security”
End If

NK = Right(TXTNIK.Text, 1)
If NK = “M” Then
TXTKS.Text = “M”
TXTST.Text = “Menikah”
ElseIf NK = “S” Then
TXTKS.Text = “S”
TXTST.Text = “Single”
ElseIf NK = “D” Then
TXTKS.Text = “D”
TXTST.Text = “Duda”
ElseIf NK = “J” Then
TXTKS.Text = “J”
TXTST.Text = “Janda”
End If

TXTTG = Val(TXTGP.Text) + Val(TXTTUN.Text)
TXTTG.SetFocus

End Sub

Private Sub TXTGOL_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNAMA.SetFocus
End If
End Sub

Private Sub TXTNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNIK.SetFocus
End If

End Sub

Private Sub TXTNIK_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CMDPROSES.SetFocus
End If
End Sub

Private Sub CMDHITUNG_Click()
Dim A, B, C As Double
TXTB.Text = Val(TXTA.Text) * 0.1
TXTC.Text = Val(TXTA.Text) – Val(TXTB.Text)
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDULANG_Click()
TXTA.Text = “”
TXTB.Text = “”
TXTC.Text = “”

End Sub

Private Sub CmdBersih_Click()
txtbil1.Text = “”
txtbil2.Text = “”
Txthasil.Text = “”
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdHitung_Click()
Txthasil.Text = Val(txtbil1.Text) * (txtbil2.Text)
End Sub

 

Private Sub ChkMIRING_Click()
Lbl2.FontItalic = ChkMIRING.Value
End Sub

Private Sub ChkTEBAL_Click()
Lbl2.FontBold = ChkTEBAL.Value

End Sub

Private Sub CMDOK_Click()
Lbl2.Caption = TXTNAMA.Text
End Sub

Private Sub CMDSLS_Click()
End
End Sub

Private Sub OptBIRU_Click()
Lbl2.ForeColor = vbBlue
End Sub

Private Sub OptRED_Click()
Lbl2.ForeColor = vbRed
End Sub

Private Sub ChkBOLD_Click()
If ChkBOLD.Value = 1 Then
LBLTEKS.FontBold = True
Else
LBLTEKS.FontBold = False
End If
End Sub

Private Sub ChkITALIC_Click()
If ChkITALIC.Value = 1 Then
LBLTEKS.FontItalic = True
Else
LBLTEKS.FontItalic = False
End If
End Sub

Private Sub ChkSTRIKE_Click()
If ChkSTRIKE.Value = 1 Then
LBLTEKS.FontStrikethru = True
Else
LBLTEKS.FontStrikethru = False
End If
End Sub

Private Sub ChkUNDER_Click()
If ChkUNDER.Value = 1 Then
LBLTEKS.FontUnderline = True
Else
LBLTEKS.FontUnderline = False
End If
End Sub

Private Sub CMDEXIT_Click()
Unload Me
End Sub

Private Sub OptBLUE_Click()
LBLTEKS.ForeColor = vbBlue

End Sub

Private Sub OptGREEN_Click()
LBLTEKS.ForeColor = vbGreen

End Sub

Private Sub OptRED_Click()
LBLTEKS.ForeColor = vbRed
End Sub

Private Sub OptYELLOW_Click()
LBLTEKS.ForeColor = vbYellow

End Sub

Private Sub CMDBATAL_Click()
TXTKB.SetFocus
TXTKB.Text = “”
TXTNB.Text = “”
TXTJS.Text = “”
TXTTJ.Text = “”
TXTHJ.Text = “”
TXTTH.Text = “”
TXTSS.Text = “”

End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
Dim NM As String

TXTNB.Text = Right(TXTKB.Text, 1)
NM = Right(TXTKB.Text, 1)

If NM = “S” Then
TXTNB.Text = “sound sistem”
TXTHJ.Text = 350000
ElseIf NM = “C” Then
TXTNB.Text = “Compact”
TXTHJ.Text = 480000
ElseIf NM = “T” Then
TXTNB.Text = “Tape”
TXTHJ.Text = 275000
End If
TXTJS.SetFocus
End Sub

Private Sub txtjs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTJ.SetFocus
End If

End Sub

Private Sub TXTTH_Click()
TXTTERBILANG.Text = TERBILANG(Val(TXTTH.Text))
End Sub

Private Sub TXTTJ_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim JS, TJ As Integer

TXTSS.Text = Val(TXTJS.Text) – Val(TXTTJ.Text)
TXTTH.Text = Val(TXTTJ.Text) * Val(TXTHJ.Text)
TXTTH.SetFocus
End If
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDLAGI_Click()
TXTKT.SetFocus
TXTKT.Text = “”
TXTHT.Text = “”
TXTJK.Text = “”
TXTJB.Text = “”
TXTJT.Text = “”
TXTTP.Text = “”

End Sub

Private Sub CMDPROSES_Click()
Dim KT As String

KT = Left(TXTKT.Text, 3)
If KT = “BIM” Then
TXTHT.Text = 50000
TXTJK.Text = “BIMA”
TXTJB.Text = “16.00”

ElseIf KT = “EKO” Then
TXTHT.Text = 35000
TXTJK.Text = “EKONOMI”
TXTJB.Text = “19.00”

ElseIf KT = “MUT” Then
TXTHT.Text = 23000
TXTJK.Text = “MUTIARA”
TXTJB.Text = “17.00”

ElseIf KT = “SEN” Then
TXTHT.Text = 15000
TXTJK.Text = “SENJA”
TXTJB.Text = “20.00”
End If
TXTJT.SetFocus

End Sub

Private Sub TXTJT_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTP = Val(TXTHT.Text) * Val(TXTJT.Text)
End If

End Sub

 

Private Sub CBONPM_Click()
Dim nama, jurusan As String

Select Case CBONPM.Text
Case “11100042”
nama = “FITRIYANI”
jurusan = “SISTEM INFORMASI”

Case “11200077”
nama = “PUSPITA DEWI”
jurusan = “MANAJEMEN INFORMATIKA”

Case “11300078”
nama = “SEPTIANA”
jurusan = “TEHNIK INFORMATIKA”

Case “11100079”
nama = “TOTO ISWANTO”
jurusan = ” SISTEM INFORMASI”

Case “11200081”
nama = “SUPRAPTO”
jurusan = “MANAJEMEN INFORMATIKA”

Case “11300082”
nama = “NOVI SUSANTI”
jurusan = “TEHNIK INFORMATIKA”

Case “11100084”
nama = “SUKMAWATI”
jurusan = “SISTEM INFORMASI”

Case “11200085”
nama = “LENI APRIYANI”
jurusan = “MANAJEMEN INFORMATIKA”

Case “11300086”
nama = “NURMALITA SARI”
jurusan = “TEHNIK INFORMATIKA”

Case “11200087”
nama = “HENI LESTARI”
jurusan = “MANAJEMEN INFORMATIKA”
End Select

TXTNAMA.Text = nama
TXTJURUSAN.Text = jurusan
TXTQUIS.SetFocus

End Sub

Private Sub CMDBATAL_Click()
CBONPM.SetFocus
TXTNAMA.Text = “”
TXTJURUSAN.Text = “”
TXTQUIS.Text = “”
TXTTUGAS.Text = “”
TXTUTS.Text = “”
TXTUAS.Text = “”
TXTNA.Text = “”
TXTHM.Text = “”
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
Dim Na As Integer
Dim hm As String

Quis = Val(TXTQUIS.Text)
tugas = Val(TXTTUGAS.Text)
Uts = Val(TXTUTS.Text)
Uas = Val(TXTUAS.Text)
Na = (Quis + tugas + Uts + Uas) / 4
TXTNA.Text = Na

Select Case TXTNA.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
TXTHM.Text = hm

End Sub

Private Sub Form_Load()
CBONPM.AddItem “11100042”
CBONPM.AddItem “11200077”
CBONPM.AddItem “11300078”
CBONPM.AddItem “11100079”
CBONPM.AddItem “11200081”
CBONPM.AddItem “11300082”
CBONPM.AddItem “11100084”
CBONPM.AddItem “11200085”
CBONPM.AddItem “11300086”
CBONPM.AddItem “11200087”

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 Command1_Click()

End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
Dim A, B, C, D, E, F As String
TXTD.Text = Val(TXTA.Text) + Val(TXTB.Text) – Val(TXTC.Text)
TXTE.Text = Val(TXTD.Text) * (0.1)
TXTF.Text = Val(TXTD.Text) – Val(TXTE.Text)

End Sub

Private Sub CMDULANG_Click()
TXTA.Text = “”
TXTB.Text = “”
TXTC.Text = “”
TXTD.Text = “”””
TXTE.Text = “”
TXTF.Text = “”
End Sub

Private Sub TXTA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTB.SetFocus
End If

End Sub

Private Sub TXTB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTC.SetFocus
End If

End Sub

Mukjizat Alquran: Tiga Tahapan Bayi dalam Rahim

Dalam Alquran dipaparkan bahwa manusia diciptakan melalui tiga tahapan dalam rahim ibunya.

“… Dia menjadikan kamu dalam perut ibumu kejadian demi kejadian dalam tiga kegelapan. Yang (berbuat) demikian itu adalah Allah, Tuhan kamu, Tuhan yang mempunyai kerajaan. Tidak ada Tuhan (yang berhak disembah) selain Dia; maka bagaimana kamu dapat dipalingkan?” (QS. Az-Zumar: 6).

Sebagaimana yang akan dipahami, dalam ayat ini ditunjukkan bahwa seorang manusia diciptakan dalam tubuh ibunya dalam tiga tahapan yang berbeda.

Sungguh, biologi modern telah mengungkap bahwa pembentukan embrio pada bayi terjadi dalam tiga tempat yang berbeda dalam rahim ibu. Sekarang, di semua buku pelajaran embriologi yang dipakai di berbagai fakultas kedokteran, hal ini dijadikan sebagai pengetahuan dasar.

Misalnya, dalam buku Basic Human Embryology, sebuah buku referensi utama dalam bidang embriologi, fakta ini diuraikan sebagai berikut: “Kehidupan dalam rahim memiliki tiga tahapan: pre-embrionik; dua setengah pekan pertama, embrionik; sampai akhir pekan kedelapan, dan janin; dari pekan kedelapan sampai kelahiran.” (Williams P, Basic Human Embryology, 3. edition, 1984, s. 64.)

Fase-fase ini mengacu pada tahap-tahap yang berbeda dari perkembangan seorang bayi. Ringkasnya, ciri-ciri tahap perkembangan bayi dalam rahim adalah sebagaimana berikut:

Tahap Pre-embrionik
Pada tahap pertama, zigot tumbuh membesar melalui pembelahan sel, dan terbentuklah segumpalan sel yang kemudian membenamkan diri pada dinding rahim. Seiring pertumbuhan zigot yang semakin membesar, sel-sel penyusunnya pun mengatur diri mereka sendiri guna membentuk tiga lapisan.

Tahap Embrionik
Tahap kedua ini berlangsung selama lima setengah pekan. Pada masa ini bayi disebut sebagai “embrio”. Pada tahap ini, organ dan sistem tubuh bayi mulai terbentuk dari lapisan-lapisan sel tersebut.

Tahap Fetus
Dimulai dari tahap ini dan seterusnya, bayi disebut sebagai “fetus”. Tahap ini dimulai sejak kehamilan bulan kedelapan dan berakhir hingga masa kelahiran. Ciri khusus tahapan ini adalah terlihatnya fetus menyerupai manusia, dengan wajah, kedua tangan dan kakinya. Meskipun pada awalnya memiliki panjang 3 cm, kesemua organnya telah nampak. Tahap ini berlangsung selama kurang lebih 30 pekan, dan perkembangan berlanjut hingga pekan kelahiran.

Informasi mengenai perkembangan yang terjadi dalam rahim ibu, baru didapatkan setelah serangkaian pengamatan dengan menggunakan peralatan modern. Namun, sebagaimana sejumlah fakta ilmiah lainnya, informasi-informasi ini disampaikan dalam ayat-ayat Alquran dengan cara yang ajaib. Fakta bahwa informasi yang sedemikian rinci dan akurat diberikan dalam Alquran pada saat orang memiliki sedikit sekali informasi di bidang kedokteran, merupakan bukti nyata bahwa Alquran bukanlah ucapan manusia tetapi Firman Allah.