Minggu, 02 Oktober 2011

tugas visual besic perulangan do while




Tugas visual besic
Nama : anggie meylanda dea
Npm:43a87067100004
D3/ka/3/m


1.Macam - Macam Bentuk Perulangan

 Dalam visual basic terdapat beberapa macam struktur kondisi perulangan, diantaranya adalah Do … Loop dan For … Next. Untuk lebih jelasnya berikut adalah macam – macam bentuk perulangan dalam visual basic :
a.Do While … Loop

 Kata while dalam pernyataan Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan dan berpindah ke kode program berikutnya.
 Bentuk sintaks perulangan Do While adalah




 Do While Kondisi
 Pernyataan
 …..
 Loop
 Sintaks di atas adalah bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan bentuk Do While yang letak kondisi akhirnya di akhir adalah sebagai berikut :
 Do
 Pernyataan
 …

 Loop While Kondisi


 b.Do Until … Loop
 Pada dasarnya perulangan Do Until sama dengan perulangan Do While yang membedakannya adalah pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi bernilai True. 
 Sintaks dari perulangan Do Until adalah :
 Do Until Kondisi
 Pernyataan
 …..
 Loop
 Seperti halnya perulangan Do While, perulangan Do Until juga memiliki dua bentuk sintaks yaitu bentuk seperti di atas dan bentuk lainnya dimana kondisi diletakkan di akhir pernyataan perulangan yaitu sebagai berikut :
 Do 
 Pernyataan
 ……
 Loop Until Kondisi


 c.While … Wend
 Perulangan While … Wend digunakan apabila kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True. Sintaks perulangan While Wend adalah :
 While Ekspresi
 Pernyataan
 …..
 Wend



 d.For … Next
 Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan sebagai indeks untuk perulangan. Sintaks perulangan For … Next adalah :
 For Indeks = NilaiAwal To NilaiAkhir
 Pernyataan
 …..
 Next Indeks
 Secara default pada perulangan For … Next pertambahan indeks perulangan adalah 1, untuk menentukan pertambahan sesuai yang kita inginkan kita dapat menambahkan Step dari perulangan menjadi 2 atau – 1 untuk melakukan perhitungan mundur pada perulangan. Sintaksnya menjadi sebagai berikut :
 For Indeks = NilaiAwal To NilaiAkhir Step -1
 Pernyataan
 ….. 
 Next Indeks


Contoh perulangan dengana menggunakan while do


Codingnya sebagai berikut!

Dim i, n As Integer
Private Sub Command1_Click()
n = Val(Text1)
i = 1
Do While i <= n
If i Mod 2 = 0 Then
List1.AddItem 1
Else
List1.AddItem -1
End If
i = i + 1
Loop
End Sub

Private Sub Command2_Click()
a = 2
n = Val(Text2)
i = 2
Do While i <= 7
If i Mod 2 = 0 Then
List2.AddItem a
Else
List2.AddItem -a
End If
a = a + 2
i = i + 1
Loop
End Sub

Private Sub Command3_Click()
a = 1
n = Val(Text3)
i = 1
Do While i <= n
List3.AddItem a
If a = 1 Then
a = 3
Else
a = a + 3
End If
i = i + 1
Loop
End Sub

Private Sub Command4_Click()
a = 2
n = Val(Text4)
i = 1
Do While i <= n
List4.AddItem a
a = a * a
i = i + 1
Loop
End Sub


Private Sub Text1_Click()
Text1.Text = 6
End Sub

Private Sub Text2_Click()
Text2.Text = 6
End Sub

Private Sub Text3_Click()
Text3.Text = 5
End Sub

Private Sub Text4_Click()
Text4.Text = 4
End Sub

Contoh tampilan form awal






contoh form setelah run...

































































































































Diposting oleh di Tidak ada komentar:

Selasa, 27 September 2011

tugas visual besic



TUGAS VISUAL BESIC
NPM  :43a87067100004
Nama       :anggie meylanda dea



Langkah – langkah membuat program kalkulator
1.Buka program visual besic klik file >> new projec
            ‘’Seperti tampilan dibawah ini









2.kemudian akan tampil tampilan seperti dibawah ini











3. Kemudian buatlah objec texbox dan 16 buah comment button









4.Agar terlihat rapi setting textox dan commant button ,seperti gambar di bawah ini sesuai dengan textbox dan comment button








5. kemudian double klik pada form dan akan muncul tampilan seperti di bawah..
ketiklah sesuai tulisan dibawah
DIM St, st2 As string

Private Sub command1_click ()
If st = “T” then
Text1.text = 1
Else
If st2 = “T” then
Text2.text  = 1
End if
End if
End sub

Private sub command 10_click ()
If st = “T” then
Text1.text =0
Else
If st2 = “T” then
Text2.text = 0
End if
End if
End sub

Private sub command11_click ()
Label1.caption = “+”
End sub

Private sub command12_click ()
Label1.caption = “-”
End sub

Private sub command13_click ()
Label1.caption = “*”
End sub

Private sub command14_click ()
Label1.caption = “/”
End sub

private sub command15-click ()
if label1.caption = “+” then
text3.text = val (text1.text) + (text2.text)
else
if label1.caption = “-” then
text3.text = val (text1.text) -(text2.text)
else
if label1.caption = “*” then
text3.text = val (text1.text) * (text2.text)
else

text3.text = val (text1.text) / (text2.text)
end if
end if
end sub

private sub command2_click()
if st = “T” then
text1.text =2
else
if st2 = “T” then
text2.text = 2
end if
end if
end sub

 private sub command3_click()
if st = “T” then
text1.text =3
else
if st2 = “T” then
text2.text = 3
end if
end if
end sub

private sub command4_click()
if st = “T” then
text1.text =4
else
if st2 = “T” then
text2.text = 4
end if
end if
end sub

private sub command5_click()
if st = “T” then
text1.text =5
else
if st2 = “T” then
text2.text = 5
end if
end if
end sub

private sub command6_click()
if st = “T” then
text1.text =6
else
if st2 = “T” then
text2.text = 6
end if
end if
end sub

private sub command7_click()
if st = “T” then
text1.text =7
else
if st2 = “T” then
text2.text = 7
end if
end if
end sub

private sub command8_click()
if st = “T” then
text1.text =8
else
if st2 = “T” then
text2.text = 8
end if
end if
end sub


private sub command9_click()
if st = “T” then
text1.text =9
else
if st2 = “T” then
text2.text = 9
end if
end if
end sub




private sub label1_click()

end sub


private sub text1_click()
st = “T”
st2 = “F”
end sub

private sub text2_click()
st = “F”
st2 =”T”
end sub

private sub text3_change()

End sub




6.setelah itu buka tampilan kalkulator yang telah di buat dan run program satu persatu tetapi terlebih dahulu hapus tulisan text 1 yang ada d textbox dan ganti dengan angka sesuai angka yang anda inginkan..
dan kalkulator siap beroperasi seperti contoh dibawah ini









7.ganti tulisan text1 dengan angka 9 dan text2 dengan angka 2 kemudian klik (-)  lalu klik tanda (=) maka akan muncul hasilnya seperti gambar dibawah ini








Baca selengkapnya »
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)