Camilan Laris Logo dan Packaging

Camilan yang pedas-pedas lagi laris nich....terlebih dengan kemasan yang menarik....
berikut ini presentasi KKN ku tentang camilan tepi ni berupa PDF...didalamnya ada beberapa pengertin camilan , Logo dan Packaging

Corel

Saat pertama kali mengenal Corel...dan mulai mungutak-atik corel lahirlah gambar-gambar ini...

bikin form barang dengan Bahasa Pemprograman Voxpro

FORM BARANG

·         FORM

Init

PUBLIC baru,berhasil

baru=.t.

berhasil=.t.

            refresh

                        Scatter memvar

·         NEW.click

WITH thisform

      .txtKode.value=''

      .txtNama.value=''

      .txtHbeli.value=0

      .txtHjual.value=0

      .txtStok.value=0

      .cmbSatuan.value=''

      .buka()

      .txtKode.setfocus()

ENDWITH

baru=.t.

·         EDIT

Thisform.buka()

baru =.f.

·         SAVE

click

IF baru

      LOCATE FOR EMPTY(kode)

      IF !FOUND()

            APPEND BLANK

      ENDIF

endif

berhasil=.t.

GATHER memvar

IF berhasil

      thisform.tutup()

ELSe

      thisform.txtKode.SetFocus()

endif

thisform.Refresh()

                error

                                IF nerror==1884 then

      berhasil=.f.

      MESSAGEBOX('Kode '+m.kode+' sudah pernah digunakan.'+CHR(13)+'Masukkan kode lain',0+16,'Perhatian')

ELSE

      MESSAGEBOX('Terjadi kesalahan di nomor '+STR(nerror))

ENDIF

thisform.Refresh()

·         EDIT

Click

j=MESSAGEBOX('Anda yakin menghapus?',4+32,'Konfirmasi')

IF j==6

      DELETE

      IF berhasil=.t.

            PACK

            skip-1

            thisform.Refresh()

            MESSAGEBOX('Data sudah terhapus',0+64,'Informasi')

      endif

ELSE

      MESSAGEBOX('Data batal dihapus',0+64,'Informasi')

Endif

                Error

                                IF nerror==1539

                  berhasil=.f.

MESSAGEBOX('Maaf, tidak bisa dihapus'+CHR(13)+'Data sedang digunakan',0+48,'Perhatian')

ELSE

                  MESSAGEBOX('Terjadi kesalahan di nomor '+STR(nerror))

Endif

·         UNDO.click

thisform.tutup()

thisform.Refresh()

·         DELETE

Click

j=MESSAGEBOX('Anda yakin menghapus?',4+32,'Konfirmasi')

IF j==6

      DELETE

      IF berhasil=.t.

            PACK

            skip-1

            thisform.Refresh()

            MESSAGEBOX('Data sudah terhapus',0+64,'Informasi')

      endif

ELSE

      MESSAGEBOX('Data batal dihapus',0+64,'Informasi')

Endif

      Error

LPARAMETERS nError, cMethod, nLine

IF nerror==1539

      berhasil=.f.

      MESSAGEBOX('Maaf, tidak bisa dihapus'+CHR(13)+'Data sedang digunakan',0+48,'Perhatian')

ELSE

      MESSAGEBOX('Terjadi kesalahan di nomor '+STR(nerror))

endif

CARI BARANG

·         Txtkatakunci.interactivechange

IF !EMPTY(thisform.text1.Value)    

      IF thisform.combo1.Value='nama'

            SET FILTER TO UPPER(ALLTRIM(thisform.text1.value)) $UPPER(nama)

      ELSE

            SET FILTER TO UPPER(ALLTRIM(thisform.text1.value)) $UPPER(kode)

      ENDIF

ELSE

      SET FILTER TO

ENDIF

thisform.Refresh()

Bubuk Cabai

Proposal KKN

Setelah selama 40 hari menjalani kuliah kerja Nyata Universitas Kristen Duta Wacana, berikut adalah PROPOSAL yang kami susun, semoga membantu.....