Tugas vb 2

Dipublikasi pada 21 November 2013 oleh lucianaritongaa

biodata

Private Sub AKHIR_Click()
Data1.Recordset.MoveLast
End Sub

 

Private Sub AWAL_Click()
Data1.Recordset.MoveFirst
End Sub

 

Private Sub CETAK_Click()
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub

 

Private Sub Command1_Click()

 

Dim Cari As String
Cari = Text6.Text
If Option1.Value = True Then
With Data1.Recordset
.Index = “NPMX”
.Seek “=”, Cari

 

If .NoMatch Then
MsgBox “maaf data yang anda cari tidak ditemukan, tolong di cek kembali!”, vbOKOnly + vbInformation, “HAY”
End If
End With
ElseIf Option2.Value = True Then
With Data1.Recordset
.Index = “NAMAX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “maaf data yang anda cari tidak ditemukan, tolong di cek kembali!”, vbInformation
End If
End With
Else
With Data1.Recordset
.Index = “AGAMAX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “maaf data yang anda cari tidak ditemukan, tolong di cek kembali!”, vbInformation
End If
End With
End If
End Sub

 

Private Sub Form_Activate()
SIMPAN.Enabled = False
PERBAIKAN.Enabled = True
HAPUS.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
Frame3.Enabled = True
Command1.Enabled = False
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub

 

Private Sub Form_Load()
Combo1.AddItem “Laki-laki”
Combo1.AddItem “Perempuan”
Combo2.AddItem “Islam”
Combo2.AddItem “Khatolik”
Combo2.AddItem “Protestan”
Combo2.AddItem “Hindu”
Combo2.AddItem “Budha”
Combo2.AddItem “Kong Hu Chu”
End Sub

 

Private Sub HAPUS_Click()
perhatian = MsgBox(“Yakin akan dihapus?”, vbYesNo + vbExclamation, “Perhatian”)
If perhatian = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
Else
Data1.Refresh
End If
End Sub

 

Private Sub MAJU_Click()
With Data1.Recordset
.MoveNext
If .EOF Then
.MoveLast
MsgBox “Data sudah yang paling akhir!”, vbOKOnly + vbInformation, “Perhatian”
End If
End With
End Sub

 

Private Sub MUNDUR_Click()
With Data1.Recordset
.MovePrevious
If .BOF Then
.MoveFirst
MsgBox “Data sudah yang paling awal!”, vbOKOnly + vbInformation, “Perhatian”
End If
End With
End Sub

 

Private Sub Option1_Click()
Text6.Visible = True
Text6.SetFocus
Text6.Width = 1400
Command1.Enabled = True
End Sub

 

Private Sub Option2_Click()
Text6.Visible = True
Text6.SetFocus
Text6.Width = 2655
Command1.Enabled = True
End Sub

 

Private Sub Option3_Click()
Text6.Visible = True
Text6.SetFocus
Text6.Width = 1000
Command1.Enabled = True
End Sub

 

Private Sub perbaikan_Click()
Data1.Recordset.Edit
SIMPAN.Enabled = True
PERBAIKAN.Enabled = False
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
Frame3.Enabled = False
End Sub

 

Private Sub Selesai_Click()
Form8.Show
Form3.Hide
End Sub

 

Private Sub SIMPAN_Click()
Data1.Recordset.Update
SIMPAN.Enabled = False
PERBAIKAN.Enabled = True
HAPUS.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
Frame3.Enabled = True
End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Len(Text1.Text) <> 8 Then
MsgBox “Maaf harus 8 karakter”, vbOKOnly, “Error”
Text1.SetFocus
Else
Text2.SetFocus
End If
End If
End Sub

cetak

Data1.Recordset.MoveLast
End Sub

Private Sub AWAL_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub CETAK_Click()
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub

Private Sub Command1_Click()
Dim Cari As String
Cari = Text4.Text
If Option1.Value = True Then
With Data1.Recordset
.Index = “KODEX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Maaf Data yang anda cari belum terdaftar!”, vbOKOnly + vbInformation, “Hallo”
End If
End With
ElseIf Option2.Value = True Then
With Data1.Recordset
.Index = “NAMAX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Maaf Data yang anda cari belum terdaftar!”, vbInformation, “Hallo”
End If
End With
Else
With Data1.Recordset
.Index = “SKSX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Maaf Data yang anda cari belum terdaftar!”, vbInformation, “Hallo”
End If
End With
End If

SIMPAN.Enabled = False
HAPUS.Enabled = True
perbaikan.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True

End Sub

Private Sub Form_Activate()
Command1.Enabled = False
SIMPAN.Enabled = False
HAPUS.Enabled = True
perbaikan.Enabled = True
HAPUS.Enabled = True
SELESAI.Enabled = True
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub

Private Sub HAPUS_Click()
perhatian = MsgBox(“Pastikan data yang akan anda hapus adalah benar. Jika anda yakin Klik Yes, jika tidak klik No!”, vbYesNo + vbCritical, “Perhatian”)
If perhatian = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
Else
Data1.Refresh
End If
End Sub

Private Sub MAJU_Click()
With Data1.Recordset
.MoveNext
If .EOF Then
.MoveLast
MsgBox “Ini adalah Data yang paling akhir!”, vbInformation, “Hay!”
End If
End With
End Sub

Private Sub MUNDUR_Click()
With Data1.Recordset
.MovePrevious
If .BOF Then
.MoveFirst
MsgBox “Ini adalah Data yang paling awal!”, vbInformation, “Hay!”
End If
End With
End Sub

Private Sub Option1_Click()
Text4.Visible = True
Text4.SetFocus
Text4.Width = 1400
Command1.Enabled = True
End Sub

Private Sub Option2_Click()
Text4.Visible = True
Text4.SetFocus
Text4.Width = 1695
Command1.Enabled = True
End Sub

Private Sub Option3_Click()
Text4.Visible = True
Text4.SetFocus
Text4.Width = 615
Command1.Enabled = True
End Sub

Private Sub perbaikan_Click()
Data1.Recordset.Edit
SIMPAN.Enabled = True
HAPUS.Enabled = False
perbaikan.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
End Sub

Private Sub Selesai_Click()
Form8.Show
Form4.Hide
End Sub

Private Sub SIMPAN_Click()
Data1.Recordset.Update
SIMPAN.Enabled = False
HAPUS.Enabled = True
perbaikan.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Len(Text1.Text) <> 9 Then
MsgBox “Maaf harus 9 karakter”, vbOKOnly, “Error”
Text1.SetFocus
Else
Text2.SetFocus
End If
End If
End Sub

data mata kuliah

Private Sub Command2_Click()
With Data1.Recordset
.Edit
.Fields!am = am.Caption
.Fields!HM = Text3.Text
.Fields!kam = kam.Caption
.Update
End With
DBGrid1.Refresh
End Sub

Private Sub Command3_Click()
Form10.Show
Form6.Hide
End Sub

Private Sub LANJUT_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Kode.Caption = “”
am.Caption = “”
kam.Caption = “”
Nama.Caption = “”
kuliah.Caption = “”
End Sub

Private Sub Selesai_Click()
Form6.Hide
Form8.Show
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
Dim Cari As String
Cari = “NPM= ‘” & Text1.Text & ” ‘ And KD_MK = ‘” & Text2.Text & “‘”
With Data1.Recordset
.FindFirst Cari
If .NoMatch Then
MsgBox “Data yang dicari tidak ada”, vbInformation + vbOKOnly, “Perhatian”
Else
Text1.Text = .Fields!npm
Text2.Text = .Fields!KD_MK
sks.Caption = .Fields!sks
Kode.Caption = .Fields!SMSTER
Nama.Caption = .Fields!NM_MHS
kuliah.Caption = .Fields!NM_MK
Text3.SetFocus
End If
End With
End If
End Sub

Private Sub Text3_Change()
Dim totalnilai, totalsks, ip As Variant
Dim mutu, beban, skam As Long
Dim HM As String
HM = Text3.Text
beban = Val(sks.Caption)
If HM = “A” Or HM = “a” Then
mutu = 4
ElseIf HM = “B” Or HM = “b” Then
mutu = 3
ElseIf HM = “C” Or HM = “c” Then
mutu = 2
ElseIf HM = “D” Or HM = “d” Then
mutu = 1
Else
mutu = 0
End If
skam = beban * mutu
am.Caption = mutu
kam.Caption = skam

End Sub

logo

Private Sub CETAK_Click()
Form9.Show
Form5.Hide
End Sub

Private Sub Combo1_Click()
Text3.SetFocus
End Sub

Private Sub Form_Load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
Combo1.AddItem “V”
Combo1.AddItem “VI”
End Sub

Private Sub HAPUS_Click()
perhatian = MsgBox(“Yakin ingin dihapus?”, vbYesNo + vbInformation, “Peringatan”)
If perhatian = vbYes Then
khs.Recordset.Delete
khs.Recordset.MoveNext
Else
khs.Refresh
End If
End Sub

Private Sub perbaikan_Click()
SIMPAN.Caption = “Simpan Ulang”
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub

Private Sub Selesai_Click()
Form8.Show
Form5.Hide
End Sub

Private Sub SIMPAN_Click()
If SIMPAN.Caption = “Simpan” Then
With khs.Recordset
.AddNew
.Fields!KD_MK = Text2.Text
.Fields!npm = Text1.Text
.Fields!NM_MK = Label9.Caption
.Fields!NM_MHS = Label8.Caption
.Fields!sks = Label10.Caption
.Fields!pembimbing = Text3.Text
.Fields!SMSTER = Combo1.Text
.Update
End With
Else
With khs.Recordset
.Edit
.Fields!KD_MK = Text2.Text
.Fields!npm = Text1.Text
.Fields!NM_MK = Label9.Caption
.Fields!NM_MHS = Label8.Caption
.Fields!sks = Label10.Caption
.Fields!pembimbing = Text3.Text
.Fields!smseter = Combo1.Text
.Update
End With
End If
TAMBAH.Enabled = True
SIMPAN.Enabled = False
HAPUS.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
PERBAIKAN.Enabled = True
End Sub

Private Sub TAMBAH_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Combo1.Text = “”
Label8.Caption = “”
Label9.Caption = “”
Label10.Caption = “”
Text1.SetFocus
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub

Private Sub TAMBAHKULIAH_Click()
Text2.Text = “”
Label9.Caption = “”
Label10.Caption = “”
Text2.SetFocus
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Cari As String
If KeyAscii = 13 Then
Cari = Text1.Text
With mhs.Recordset
.Index = “NPMX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “NPM yang anda masukkan tidak terdaftar, silahkan cek NPM anda!”, vbInformation, “Perhatian”
Text1.Text = “”
Text1.SetFocus
Else
Label8.Caption = .Fields!NM_MHS
End If
End With
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim Cari As String
If KeyAscii = 13 Then
Cari = Text2.Text
With kuliah.Recordset
.Index = “KODEX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Kode yang anda masukkan tidak terdaftar, silahkan cek Kode dengan benar!”, vbInformation, “Perhatian”
Text2.Text = “”
Text2.SetFocus
Else
Label9.Caption = .Fields!NM_MK
Label10.Caption = .Fields!sks
End If
End With
End If

End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

pengolahan data mhs

Private Sub InputMHS_Click()
Form1.Show
Form8.Hide
End Sub

 

Private Sub InputMK_Click()
Form2.Show
Form8.Hide
End Sub

 

Private Sub khs_Click()
Form6.Show
Form8.Hide
End Sub

 

Private Sub KRS_Click()
Form5.Show
Form8.Hide
End Sub

 

Private Sub mahasiswa_Click()
Form3.Show
Form8.Hide
End Sub

 

Private Sub MK_Click()
Form4.Show
Form8.Hide
End Sub

Private Sub Selesai_Click()
End
End Sub

pengisian khs

Private Sub CETAK_Click()
Form9.Show
Form5.Hide
End Sub

 

Private Sub Combo1_Click()
Text3.SetFocus
End Sub

 

Private Sub Form_Load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
Combo1.AddItem “V”
Combo1.AddItem “VI”
End Sub

 

Private Sub HAPUS_Click()
perhatian = MsgBox(“Yakin ingin dihapus?”, vbYesNo + vbInformation, “Peringatan”)
If perhatian = vbYes Then
khs.Recordset.Delete
khs.Recordset.MoveNext
Else
khs.Refresh
End If
End Sub

 

Private Sub perbaikan_Click()
SIMPAN.Caption = “Simpan Ulang”
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub

 

Private Sub Selesai_Click()
Form8.Show
Form5.Hide
End Sub

 

Private Sub SIMPAN_Click()
If SIMPAN.Caption = “Simpan” Then
With khs.Recordset
.AddNew
.Fields!KD_MK = Text2.Text
.Fields!npm = Text1.Text
.Fields!NM_MK = Label9.Caption
.Fields!NM_MHS = Label8.Caption
.Fields!sks = Label10.Caption
.Fields!pembimbing = Text3.Text
.Fields!SMSTER = Combo1.Text
.Update
End With
Else
With khs.Recordset
.Edit
.Fields!KD_MK = Text2.Text
.Fields!npm = Text1.Text
.Fields!NM_MK = Label9.Caption
.Fields!NM_MHS = Label8.Caption
.Fields!sks = Label10.Caption
.Fields!pembimbing = Text3.Text
.Fields!smseter = Combo1.Text
.Update
End With
End If
TAMBAH.Enabled = True
SIMPAN.Enabled = False
HAPUS.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
PERBAIKAN.Enabled = True
End Sub

 

Private Sub TAMBAH_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Combo1.Text = “”
Label8.Caption = “”
Label9.Caption = “”
Label10.Caption = “”
Text1.SetFocus
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub

 

Private Sub TAMBAHKULIAH_Click()
Text2.Text = “”
Label9.Caption = “”
Label10.Caption = “”
Text2.SetFocus
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Cari As String
If KeyAscii = 13 Then
Cari = Text1.Text
With mhs.Recordset
.Index = “NPMX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “NPM yang anda masukkan tidak terdaftar, silahkan cek NPM anda!”, vbInformation, “Perhatian”
Text1.Text = “”
Text1.SetFocus
Else
Label8.Caption = .Fields!NM_MHS
End If
End With
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim Cari As String
If KeyAscii = 13 Then
Cari = Text2.Text
With kuliah.Recordset
.Index = “KODEX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Kode yang anda masukkan tidak terdaftar, silahkan cek Kode dengan benar!”, vbInformation, “Perhatian”
Text2.Text = “”
Text2.SetFocus
Else
Label9.Caption = .Fields!NM_MK
Label10.Caption = .Fields!sks
End If
End With
End If

End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

 

Dipublikasi di Uncategorized | Meninggalkan komentar

Data Buku STMIK Pringsewu

Dipublikasi pada 18 Februari 2013 oleh lucianaritongaa

LUCI

 

Coding :

Private Sub ccmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdbatal_Click()
txtkode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
txtkode.SetFocus
End Sub Baca lebih lanjut →

Dipublikasi di tugas 2 VB | Meninggalkan komentar

Perkalian dua bilangan

Dipublikasi pada 10 Februari 2013 oleh lucianaritongaa

luci

 

coding :

Private Sub Command1_Click()
Dim A, B, C, D, E, F As Double
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * (0.1)
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub Baca lebih lanjut →

Dipublikasi di Uncategorized | Meninggalkan komentar

Huruf Mutu Mahasiswa-Mahasiswi STMIK PRINGSEWU

Dipublikasi pada 29 Januari 2013 oleh lucianaritongaa

Untitled

Code :

Private Sub Combo1_Click()

Dim nama, jurusan As String
Select Case Combo1.Text
Case “12100333”
nama = “RINI MANDA SARI”
jurusan = “SISTEM INFORMASI”
Case “12201094”
nama = “DESPIN YULIANCE”
jurusan = “SISTEM INFORMASI”
Case “12100421”
nama = “LUCIANA RITONGA”
jurusan = “MANAJEMEN INFORMATIKA”
End Select Baca lebih lanjut →

Dipublikasi di tugas 2 VB | Meninggalkan komentar

Keterangan Jurusan Mahasiswa-Mahasiswi STMIK PRINGSEWU

Dipublikasi pada 29 Januari 2013 oleh lucianaritongaa

Untitled

 

Code :

Private Sub Command1_Click()
Dim s As String
Text5.Text = “20” & Left(Text2.Text, 2)
s = Mid(Text2.Text, 3, 1)
If s = “1” Then
Text3.Text = “Sistem informatika”
ElseIf s = “2” Then
Text3.Text = “Manajemen informatika”
ElseIf s = “4” Then
Text3.Text = “Tehnik infprmatika”
ElseIf s = “5” Then
Text3.Text = “manajemen informatika”
End If Baca lebih lanjut →

Dipublikasi di tugas 2 VB | Meninggalkan komentar

Aplikasi Perhitungan Setelah Diskon

Dipublikasi pada 29 Januari 2013 oleh lucianaritongaa

Untitled

 

Code :

Private Sub Command1_Click()
Dim a, b, c As Double
Text2.Text = Val(Text1.Text) * (0.1)
Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub Baca lebih lanjut →

Dipublikasi di Uncategorized | Meninggalkan komentar

Perkalian Dua Bilangan

Dipublikasi pada 29 Januari 2013 oleh lucianaritongaa

Untitled

Code :

Private Sub Command1_Click()
Dim A, B As Double
Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Baca lebih lanjut →

Dipublikasi di tugas 2 VB | Meninggalkan komentar

Perokok tidak dapat HAK Jamkesmas

Dipublikasi pada 23 Januari 2013 oleh lucianaritongaa

Menkes: Perokok Rebut Hak Jamkesmas Orang Lain

 

Jakarta  – Menteri Kesehatan Nafsiah Mboi mengatakan para perokok telah merebut hak Jamkesmas bagi orang lain karena seharusnya biaya yang digunakan oleh para perokok itu dapat digunakan untuk orang lain yang lebih membutuhkan.

“Kalau dia memilih untuk merokok, jatuh sakit dan bayar sendiri, itu tidak apa-apa, urusan dia sendiri. Tapi jika dibayar oleh pemerintah (lewat Jamkesmas) itu mengurangi hak orang lain,” kata Menkes dalam acara Sosialisasi PP No 109/2012 tentang Pengamanan Bahan yang Mengandung Zat Adiktif Berupa Produk Tembakau bagi Kesehatan di gedung Kementerian Kesehatan di Jakarta, Rabu.

Kontroversi mengenai apakah perokok seharusnya tidak dijamin Jamkesmas muncul karena rokok diketahui merupakan faktor resiko bagi lebih dari 25 penyakit sehingga beberapa pihak mengusulkan agar para perokok tidak mendapatkan Jamkesmas untuk menimbulkan efek jera hingga berhenti.

“Jamkesmas kita tahun ini Rp7,4 triliun, itu jumlah yang besar. Tapi jika saja Rp2 triliun harus dipakai untuk (penyakit akibat) rokok, itu luar biasa kan,” kata Menkes.

Namun Menkes mengaku ia belum dapat menentukan apakah para perokok seharusnya dicabut haknya untuk mendapatkan Jamkesmas karena berdasarkan UU Kesehatan, semua orang berhak mendapatkan jaminan kesehatan yang tidak diskriminatif.

“(Masalah perokok) Ini merupakan satu pertanyaan, satu isu moral yang masih perlu dibahas. Apakah seseorang yang tahu (resiko merokok) dan mau merokok masih berhak mendapatkan jamkesmas. Saya mempersilakan kepada masyarakat untuk dapat membahas ini,” ujar Menkes.

Meski demikian, Menkes juga menegaskan bahwa dalam UU Kesehatan juga dinyatakan bahwa semua orang berkewajiban untuk menjaga lingkungan yang sehat atau bebas dari asap rokok dan wajib berperilaku hidup sehat dengan berhenti merokok.

Sementara itu, aktivis tembakau dan mantan ketua Ikatan Dokter Indonesia (IDI) Kartono Muhammad mengatakan bahwa klausul tidak diskriminatif dalam UU Kesehatan itu dapat diartikan bahwa seluruh masyarakat berhak mendapatkan layanan kesehatan, bukan tentang biaya kesehatan yang ditanggung Jamkesmas.

“Jadi saya kira Menteri tidak melanggar HAM jika mengatakan perokok tidak berhak mendapatkan jamkesmas,” ujarnya.

Perokok Jangan Dibenci

Dalam acara sosialisasi terhadap awak media masa tersebut, Menkes juga menyebutkan bahwa para perokok tidak seharusnya dibenci masyarakat tapi malah disayang.

“Saya tidak benci perokok, karena saya tahu mereka itu adiksi (terlanjur kecanduan rokok),” kata Menkes.

Nafsiah menambahkan bahwa seharusnya para perokok itu disayang oleh masyarakat dan salah satu cara untuk menunjukkan rasa sayang itu adalah dengan meminta dan membantu para perokok itu untuk berhenti merokok.

“Karena kita sayang mereka, makanya kita harus mengingatkan. Jangan sampai terlambat dan menderita luar biasa hanya karena rokok,” kata Menkes.

Berdasarkan berbagai penelitian, sebatang rokok diketahui mengandung lebih dari 4.000 zat racun dan merupakan faktor resiko lebih dari 25 jenis penyakit termasuk jantung dan berbagai jenis kanker.(rr)

Dipublikasi di Uncategorized | Meninggalkan komentar

INDONESIA – JEPANG

Dipublikasi pada 23 Januari 2013 oleh lucianaritongaa

Perhiasan Indonesia Punya Peluang di Pasar Jepang

 

Tokyo (ANTARA) – Dutabesar RI di Tokyo Muhammad Lutfi mengakui peluang perhiasan Indonesia di Jepang cukup besar, para perusahaan pengrajin dan disainer perhiasan perlu membuka pasar baru.

Hal itu disampaikannya usai acara pembukaan International Jewelry Tokyo (IJT) 2013 yang berlangsung di Tokyo Big Sight, Tokyo, Jepang dari tanggal 23 hingga 26 Januari 2013.

IJT merupakan pameran seputar produk perhiasan yang terbesar di dunia yang diikuti sekitar 1.050 peserta dari 30 negara berlangsung selama 24 tahun.

“KBRI Tokyo berupaya mendorong adanya pengrajin untuk membuka pasar baru,” ujarnya kepada ANTARA, Rabu.

Menurut mantan Kepala BKPM ini, Jepang merupakan salah satu pusat konsumsi perhiasan dunia dan dengan keikutsertaan para pengusaha pengrajin perhiasan serta disainer Indonesia diharapkan bisa melihat pasar dunia, agar produk perhiasan Indonesia juga bisa bersaing.

Diharapkannya pengrajin dan pengusaha perhiasan Indonesia yang mengikuti pameran juga terus bertambah dari tahun ke tahun.

“Pada tahun 2011 yang ikut baru enam orang pengrajin dan tahun ini meningkat dua kali lipat dan semoga tahun depan jumlah peserta lebih banyak lagi,”katanya.

Apalagi produk kerajinan Indonesia cukup kompetitif, dengan adanya krisis di Eropa maka para pengusaha perhiasan perlu melihat pasar ke Jepang.

Sementara itu Atase Perdagangan KBRI Tokyo Julia Silalahi mengatakan bahwa keikutsertaan Indonesia dalam pameran perhiasan internasional Tokyo (IJT) sudah yang ke 8 kalinya.

Menurut Julia Silalahi, bagi orang Jepang, perhiasan merupakan bagian bagi “life style” khususnya kaum wanitanya. Meskipun ekonomi nya belum sepenuhnya pulih namun perhiasan sudah menjadi kebutuhan .

KBRI Tokyo berupaya menfasilitasi para pengusaha pengrajin perhiasan tidak saja dari Jakarta tetapi juga dari seluruh daerah yang memiliki potensi di bidang perhiasan seperti propinsi Bali, Yogyakarta, Jawa Barat, Jawa Timur dan Lombok.(rr)

Dipublikasi di Uncategorized | Tag | Meninggalkan komentar

LEBEL PALSU !!

Dipublikasi pada 23 Januari 2013 oleh lucianaritongaa
Label Produk Makanan di AS Banyak yang Palsu
 
Harga jual yang murah menjadi tanda produk menggunakan bahan palsu.
Mona Indriyani ,  Anda Nurlaila (Bogor)
 
Tidak semua jus lemon mengandung 100 perses air lemon asli.  

Tidak semua jus lemon mengandung 100 perses air lemon asli.  
 

 Label seringkali menjadi pertimbangan konsumen yang sadar kesehatan sebelum membeli produk makanan atau minuman. Tetapi label tak banyak membantu, sebab banyak produsen yang melakukan penipuan label.  

Sebuah lembaga nirlaba yang mengawasi penipuan makanan di AS, US Pharmacopeial Convention (USP), menemukan peningkatan jumlah bahan palsu dalam produk yang populer di AS seperti minyak zaitun dan jus buah. “Label produk makanan tidak selalu menampilkan apa yang sebenarnya ada di dalamnya,” ujar Markus Lipp, direktur senior Food Standart kepada ABC News.

Dalam laporan terbaru yang dirilis, USP memperingatkan konsumen, bahwa penipuan makanan di AS meningkat 60 persen selama 2012. Lipp menyatakan, ada minuman jus delima yang menyatakan mengandung ekstrak delima. Padahal uji lab menemukan tak ada kandungan jus delima asli sama sekali dalam minuman. Menurut USP, jenis produk yang paling mudah dipalsukan berupa cairan seperti minyak zaitun dan jus buah.

-Minyak zaitun seringkali dicairkan dengan minyak zaitun berkualitas lebih rendah atau minyak lain yang lebih murah.

-Jus lemon dan buah lainnya dicairkan dengan air dan gula.

-Teh dicairkan dengan makanan berwarna sama seperti rumput dan daun pakis.

-Rempah-rempah seperti paprika atau kunyit dicampur dengan pewarna makanan berbahaya untuk meniru warnanya

-Produk susu, madu, kopi dan sirup juga terdaftar sebagai produk yang sering dicampur dengan bahan pewarna lain.

Liga Konsumen AS yang menguji jus lemon tahun lalu menemukan fakta senada. Tes laboratorium menemukan empat produk berbeda dan berlabel 100 persen jus lemon ternyata memiliki kandungan yang jauh dari jus murni.

“Salah satu produk memiliki 10 persen jus lemon. Ada yang 15 persen, 25 persen dan 35 persen,” ujar Direktur Eksekutif Liga Konsumen Nasional Sally Greenberg. “Tapi semua produk menulis dalam labelnya mengandung 100 persen jus lemon.”

Greenberg menjelaskan, ada beberapa hal yang bisa menjadi panduan bagi konsumen dalam memilih makanan. Dia menjelaskan, jika botol zaitun berwarna gelap, perhatikan apakah ada tanggal panen.

Sementara untuk produk lain seperti jus atau madu, lebih sulit untuk membedakan. Sarannya, “Jika harganya terlalu murah, kemungkinannya itu adalah produk yang isinya mengandung bahan palsu dan tak sesuai label.”

Dipublikasi di Uncategorized | Tag | Meninggalkan komentar