PERTEMUAN 16

* dekalarasi Variabel
PUBLIC Kalimat, Kalimat1 as String
PUBLIC i,j,k,nilai as Integer



* Beri Nilai pada Variabel
kalimat ="LEZAT "
kalimat1 ="Rumah makan"
i = 1
nilai = 1
j = 1
k = 1


rumus timer 2 :
thisform.Label2.Caption = SUBSTR(Kalimat, 1,i)
i = i + 1
IF i = LEN(kalimat)
i = 0
ENDIF


rumus timer 1 :
SET CENTURY ON
Thisform.label1.caption=DMY(DATE())
thisform.label2.caption=TIME()

rumus timer 3 :
IF j=1
thisform.label1.Caption=SPACE(k) + kalimat1
k = k + 1
IF k = 23
j = 2
ENDIF
ELSE
thisform.label1.Caption = SPACE(k) + Kalimat1
k = k - 1
IF k = 0
j = 1
ENDIF
Endif

rumus timer 4 :

IF nilai=1
thisform.image1.Picture='E:\BAHAN_AJARKUPEMOGRAMAN_LANJUT\MANTAP\1.PNG'
nilai=2
ELSE
thisform.image1.Picture='E:\BAHAN_AJARKUPEMOGRAMAN_LANJUT\MANTAP\1.PNG'
nilai=1
Endif

pertemuan 15

MENCARARI RUMUS MENGGUNAKAN REPORT CONTOL AB :

RUMUS MENCARI JUMLAH :

MENCARI NAMA MENU :

RUMUS BAYAR :

cara kedua :

cara ketiga :

rumus simpan :
WITH thisform
*Rekam Data Ketabel : HeaderPesan
SELECT 2
APPEND BLANK
replace NoNota with.text1.value
replace Tanggal with.text2.value
replace Potongan with.text4.value

*Simpan data pada grid ketabel DetailPesan
SELECT temp
GO top
DO while! EOF()
SELECT 3
APPEND BLANK
replace NoNota with.text1.value
replace KodeMenu WITH temp.KodeMenu
replace Harga WITH temp.Harga
replace Jumlah WITH temp.Jumlah

SELECT temp
SKIP && Maju 1 Record
ENDDO
cetak=ALLTRIM(thisform.text1.value)
thisform.text1.value=""
thisform.text2.value={}
thisform.text3.value=0
thisform.text4.value=0
thisform.text5.value=0
thisform.text1.setfocus
thisform.init
MESSAGEBOX("Data Telah Disimpan",64,"Informasi")

SELECT 2
SET FILTER TO nonota=cetak
REPORT FORM rptpesan.frx PREVIEW IN screen
endwith

pertemuan 10

GIRD
--> Mengatur data untuk tabel.

Properties Gird1:
-AllowAddnew==>False
-DeleteMark==>False
-ReadOnly==>True
-ColumnCount==>7
-RecordSourceType ==> PROMPT
-Recordsource==>Namatabelygdibuat

Beri nama Form : FrmLihatPegawai

latihan 9

rumus :
use mahasiswa && Tabel : Mahasiswa NPM
APPEND BLANK && Menimpan Rscord Kosong
WITH thisform
REPLACE nip WITH .text1.value && Mengisi nip
REPLACE nama WITH .text2.value &&Mengisi Nama
REPLACE tanggal lahir WITH .text3.value &&Mengisi tanggal lahir
replace alamat with.text4.value &&Mengisi alamat
replace golongan with.combo1.value &&Mengisi gololongan


.text1.value=""
.text2.value=""
.Text3.Value={}
ENDWITH
MESSAGEBOX("Data Telah direkam",64,"info")
IF thisform.optiongrup1.option1.value=1 then
replace jenis WITH "Laki-Laki"
ELSE
Replace jenis WITH "perempuan"
ENDIF

pertemuan 9

untuk membuat table pada command windows
CREATE mahasiswa2 (NPM c(10),Nama c(35),Lahir D)

rumus :
CREATE DATABASE CONTOH
CREATE PROJECT
MODIFY DATABASE

CREATE mahasiswa2 (NPM c(10),Nama c(35),Lahir D)
CREATE TABLE mahasiswa2 (NPM c(10),Nama c(35),Lahir D)
USE mahasiswa2
MODIFY structure
USE mahasiswa

LIST STRUCTURE
LIST STRUCTURE mahasiswa2
USE mahasiswa2
LIST STRUCTURE
USE mahasiswa2
APPEND
USE mahasiswa AGAIN IN 0
SELECT mahasiswa
BROWSE last
APPEND
USE mahasiswa AGAIN IN 0
SELECT mahasiswa
BROWSE last

rumus
use mahasiswa && Tabel : Mahasiswa NPM
APPEND BLANK && Menimpan Rscord Kosong
WITH thisform
REPLACE npm WITH .text1.value && Mengisi NPM
REPLACE nama WITH .text2.value &&Mengisi Nama
REPLACE lahir WITH .text3.value &&
.text1.value=""
.text2.value=""
.Text3.Value={}
ENDWITH
MESSAGEBOX("Data Telah direkam",64,"info")

Pertemuan 6

jawaban No.Pendaftaran:
*Plihan pada List2,List3=Pilihan List1
WITH Thisform
.List2.ListIndex=.List1.ListIndex
.List3.ListIndex=.List1.ListIndex
EndWith

Jawaban Nama Peserta:
*Plihan pada List2,List3=Pilihan List1
WITH Thisform
.List2.ListIndex=.List2.ListIndex
.List3.ListIndex=.List2.ListIndex
EndWith

Jawaban Hapus Data:
*menghapus data yg dipilih pada list
WITH Thisform
.List1.removeitem(.List1.Listindex)
.List2.removeitem(.List2.Listindex)
.List3.removeitem(.List3.Listindex)

*Refersh Jumlah Data
.Text3.Value=.list1.listcount
Endwith

Jawaban Pasan :
*Pesan
WITH Thisform
*Mengisi List5 dengan nilai pilihan list4
.List5.Additem(.List4.Value)
*Menghapus pilihan List4
.List4.removeitem(.List4.ListIndex)
Endwith

Jawaban Bayar :
*Pesan
WITH Thisform
*Mengisi List5 dengan nilai pilihan list4
.List4.Additem(.List5.Value)
*Menghapus pilihan List4
.List5.removeitem(.List5.ListIndex)
Endwith

WITH Thisform
*Menghilangkan Pilihan pada List5
.List5.Listindex=0
ENDWITH

PERTEMUAN 4 FORM PERCABANGAN

MD :\Percabangan\
SET DEFAULT TO c:\pertemuan1\
CREATE PROJECT
DO FORM f:\Percabangan\form1.scx
RESUME
DO FORM f:\Percabangan\form1.scx
CLOSE ALL
CLEAR ALL
CLOSE ALL
CLEAR ALL
CANCEL
DO FORM f:\Percabangan\form1.scx
MODIFY PROJECT c:\Percabangan\prjKondisi.pjx
CREATE PROJECT
MD f:\OPERATOR\
SET DEFAULT TO f:\OPERATOR\
CREATE PROJECT f:\PRJHITUNG\
CREATE FORM FRMHITUNG]

CREATE FORM FRMHITUNG]
CREATE FORM FormNilaiUjian]
DO FORM "c:\documents and settings\internet\my documents\visual foxpro projects\formnilaiujian].scx"


rumus Nilai :
IF Thisform.text3.Value>54
Thisform.text5.Value="LULUS"

ELSE
thisform.text5.Value="TIDAK LULUS"
ENDIF

Mencari Nilai Abjad Berdasarkan Nilai Akhir :
Jika lebih dari 84 -> A
Jika lebih dari 69 -> B
Jika lebih dari 54 -> C
Jika lebih dari 39 -> D
Selain itu E

Rumusnya
IF Thisform.text3.Value>84
Thisform.text4.Value="A"
ELSE

IF Thisform.text3.Value>69
Thisform.text4.Value="B"
ELSE

IF Thisform.text3.Value>54
Thisform.text4.Value="C"
ELSE

IF Thisform.text3.Value>39
Thisform.text4.Value="D"


ELSE
thisform.text5.Value="E"
ENDIF
ENDIF
ENDIF
ENDIF

materi Percabangan

Proses Percabangan Bersyarat

Seandainya sebuah instruksi perlu meloncat atau mengerjakan sebuah instruksi dengan suatu syarat tertentu, maka diperlukan suatu perintah pengulangan dan perintah percabangan.
Struktur Percabangan
Percabangan kondisional memungkinkan kita memeriksa suatu kondisi, kemudian berdasarkan hasil pemeriksaan tersebut membentuk operasi berbeda. Terdapat dua perintah di
Visual Foxpro yang dipakai untuk membuat percabangan kondisional.
Perintah Logika IF
Perintah ini mengeksekusi secara kondisional sekumpulan perintah berdasarkan nilai ekspresi logika. Secara umum, perintah percabangan bersyarat yang biasa digunakan antara
lain :
• IF … ENDIF
• IF … ELSE … ENDIF
Perintah IF … ENDIF
Sintak perintah ini adalah :
IF
………………………
……………………… Bagian program yang dijalankan bila
……………………… kodisi terpenuhi/benar
ENDIF
Perintah IF … ELSE … ENDIF
Sintak perintah ini adalah :
IF

ELSE

ENDIF
Perintah DO CASE … ENDCASE
Perintah ini mengeksekusi sejumlah perintah pertama yang ekspresi kondisinya bernilai
True (.T).
Sintak perintah ini adalah :
DO CASE
CASE

CASE

…
CASE

OTHERWISE

ENDCASE

Pertemuan 3

RUMUS MENCARI TOTAL HARGA

Total = Hargajual X Jumlah
Kembali = Bayar - Total

Text6==> Jumlah
Object:Text6 Procedure:InteractiveChange
*TotalBayar = HargaJual X Jumlah
Thisform.text7.Value=Thisform.Text5.Value*Thisform.tect6.value

TOMBOL : BATAL
Object : Command1 Procedure:Click
* Mengosongkan isi Text1 s/d Text9 (Kalau tipe Data Character-->"";kalau numeric-->0)
Thisform.Tex1.value=""
Thisform.Tex2.value=""
Thisform.Tex3.value=""
Thisform.Tex4.value=""
Thisform.Tex5.value=""
Thisform.Tex6.value=""
Thisform.Tex7.value=""
Thisform.Tex8.value=""
Thisform.Tex9.value=""

Tombol : KELUAR
Object : Command2 Procedure : Click
Thisfom.Release()

pertemuan 1 dan 2

MD c:\pertemuan1\
SET DEFAULT TO c:\pertemuan1\
CREATE PROJECT
DO FORM c:\pertemuan1\form1.scx
RESUME
DO FORM c:\pertemuan1\form1.scx
CLOSE ALL
CLEAR ALL
CLOSE ALL
CLEAR ALL
CANCEL
DO FORM c:\pertemuan1\form1.scx
MODIFY PROJECT c:\pertemuan1\prjpertemuan1.pjx
CREATE PROJECT
MD C:\OPERATOR\
SET DEFAULT TO C:\OPERATOR\
CREATE PROJECT C:\PRJHITUNG\
CREATE FORM FRMHITUNG]

pertemuan2
MD C:\-->Membuat Directory atau folder
Set Default to C:\-->Menentukan Durasi default tempat penyimpanan
Create project -->Masuk folder
do form-->untuk membuat form baru.

untuk type data pada texBox:
-klik textbox
-klik kanan mouse
1.format
-data type character--->pilih type data
date
logical
numeric
-klik OK.

rumus Tambah texBox -->Thisform.Text3.Value=Thisform.text1.Value+Thisform.text2.Value

jika error-->anda klik suspend-->lihat errornya-->klik cancel-->klik modify form