program siswa

   ASSALAMUALAIKUM wr.wb

di sini saya ingin memberi sedikit pengetahuan saya tentang visual basic.

saya ingin melihatkan sedikit kemampuan saya membuat program siswa

ini adalah program yang sudah jadi

dan ini adalah kode dari program tersebut :

Private Sub tampil()
Me.Text1.Text = Me.Adodc1.Recordset!nis
Me.Text2.Text = Me.Adodc1.Recordset!nama
Me.Combo1.Text = Me.Adodc1.Recordset!program
End Sub

Private Sub Command1_Click()
Me.Adodc1.Recordset.MoveFirst
Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset!nis = Me.Text1.Text
Me.Adodc1.Recordset!nama = Me.Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update
MsgBox "data berhasil disimpan", vbInformation, "info"
End Sub

Private Sub Command2_Click()
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = ""
Me.Text1.SetFocus
End Sub

Private Sub Command3_Click()
Load DataReport1
DataReport1.Show
End Sub


Private Sub Command4_Click()
'tombol edit
Me.Adodc1.Recordset!nis = Me.Text1.Text
Me.Adodc1.Recordset!nama = Me.Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update
MsgBox "data berhasil di simpan", vbInformation, "info"
End Sub

Private Sub Command5_Click()
'tampil hapus
Me.Adodc1.Recordset.Delete
MsgBox "data berhasil dihapus", vbInformation, "info"
End Sub

Private Sub DataGrid1_Click()
If Not (Me.Adodc1.Recordset.BOF Or Me.Adodc1.Recordset.BOF) Then
tampil
End If
End Sub

Private Sub Form_Load()
Me.Combo1.AddItem "rekayasa perankat lunak"
Me.Combo1.AddItem "teknik kendaraan ringan"
Me.Combo1.AddItem "teknik komputer jaringan"
Me.Combo1.AddItem "akuntansi"
End Sub

  mungkin anda semua sudah tau tentang cara tersebut di sni saya juga masih belajar maaf yya kalu ada kesalahaan

 bagi anda yang belum pernah coba.  coba aja siapa tau bisaa........

      WASALAMUALAIKUM WR.WB

pengertian fungsi if.....then
   if....then merupakan logika pemograman yang berfungsi untuk menjalankan suatu pernyataan rukondisional.

di sini saya akan memberikan sedikit pengetahuan membuat program sederhana seperti gambar di atas:
1.pertama kita buka program ms.visual basic
2.lalu pilih standart exe
3.lalu desain dengan menggunakan 3 label, 3 text box , dan tambahkan 1 commandbutton
4.lalu klik 2 kali pada commandbutton
5.lalu tulis kode program seperti berikut

6.tuliskan kode program seperti berikut
 private sub command1,clik( )
if text1.text >=200000then
text2.text= text1.text*0,15
text3.text="gelas cantik"
else
text3.text="tidak ada bonus"
end if
end sub
 7.apabila kode tersebut di jalankan maka akan tampil kode program sbg berikut

 dalam kode di atas dijelaskan bahwa apabila kita membeli barang lebih dari harga 200000 maka mendapat potongan harga 15% dan mendapat hadiah gelas cantik dan apabila kita membeli barang kurang dari 200000 ribu maka tidak ada potongan harga dan tidak mendapat hadiah.

   

biodata

NAMA:NADILA AYU ANGGELINA
KELAS:IX RPL
TTL:BANYUWANGI,28 JULI 1999
ALAMAT:JAWA TIMUR BANYUWANGI GENTENG SUMBERWADUNG KALIGONDO RT.37 RW.14
NOMER TELEPON:087806592866
SEKOLAH;SMK AL AZHAR
AGAMA:ISLAM