FOR.....NEXT PENGULANGAN DALAM m vfr9.0
Pengulangan ini biasanya digunakan apabila jumlah pengulangan diketahui. Nilai awal pengulangan, kenaikan pengulangan, nilai akhir pengulangan yang terdapat dalam sintaks For....Next.
1.Buat sebuah project baru dalam m vfr9.0
2.Klik satu kali pada area form pada form designer.
3.Untuk memudahkan dalam merancang dalam form ini, sebaiknya grid dihilangkan dahulu, dan pilih Menu Lines.
4.Kemudian buat sebuah program sederhana dengan menggunakan variabel ini.
5.Pada Properti, Pengaturanya seperti ini umpamanya :
OBJEK PROPERTI NILAI
Form Caption Pangkat suatu bilangan
Label1 Caption A
Label1 AutoSize T (true)
Label1 FontBold T (true)
Label2 Caption Pangkat
Label2 AutoSize T (true)
Label2 FontBold T (true)
Text1 Name TxtA
Text2 Name TxtPangkat
Cmd1 Caption Mulai
Cmd1 FontBold T (true)
Cmd2 Caption Hitung
Cmd2 Name CmdHitung
Cmd2 FontBold T (true)
Cmd3 Caption Selesai
Cmd3 Name CmdSelesai
Cmd3 FontBold T (true)
Setelah kita mengatur propertinya seperti pengaturan diatas tadi, maka kita sekarang akan mengisi perintah- perintah pada objek tersebut :
1.Ketik pada Event Click CmdMulai, dnegan mengklik ganda pada objek tersebut, kemudian kita tuliskan perintahnya ;
WITH Thisform
.txtA.value=” “
.txtPangkat.value=” ”
.txtA.setFocos
ENDWITH
Ini maksudnya adalah, perintah untuk mengosongkan seluruh objek dan kursor di fokus ke txtA.
2.Simpan dengan mengklik save atau dengan menekan tombol Ctrl+W.
3.Ketik pada Event Click CmdHitung, klik ganda objek tersebut dan kemudian isi perintah perogramnya :
WITH Thisform
F=2
A=VAL(.txtA.value)
IF (A<0) Then
.txtPangkat.value=”Penginputan Salah”
ELSE
IF (=0) then
F=1
ELSE
IF (A=1) Then
.txtPangkat.Value=STR(F)
ELSE
FOR I=2 TO a
F=F*2
NEXT
ENDIF
ENDIF
ENDIF
.txtPangkat.value=F
ENDWITH
Maksudnya adalah memberi nilai awal pada variabel F dengan nilai 2. Nilai A dari data objek TxtA yang sebelumnya di konversi atau diubah menjadi bilangan (numeric), Jika nilai yang dinputkan lebih kecil dari 0, maka tampil tulisan “Penginputan Salah”. Sebaliknya periksa kembali apakah nilai A sama dengan 0.
4.Simpan dengan menekan Ctrl+W.
5.Ketik pada Event Click Cmdselesai. Klik ganda objek Cmdselesai dengan perintah :
Thisform.Release
6.Kemudian kita simpan project tersebut.
mari berbagi........ikhlas........
