Skip to main content

Latihan05 (Fungsi Standar Visual Basic)

Latihan05 (Fungsi Standar Visual Basic) : VB6

Fungsi String
  • Left, mengambil karakter dari sebelah kiri
  • Right, mengambil karakter dari sebelah kanan
  • Mid, mengambil karakter dari tengah
  • LTrim, membuang semua spasi yang ada di sebelah kiri
  • RTrim, membuang semua spasi yang ada disebelah kanan
  • Trim. membuang semua spasi yang ada di sebelah kiri dan kanan
  • Len, memberikan nilai balik integer sebagai panjang string
  • LCase, mengubah string menjadi huruf kecil semua
  • UCase, mengubah string menjadi huruf besar semua
  • Str(int), mengubah bilangan menjadi string(konversi)
  • Chr(Asscii), konversi dari nilai ascii menghasilkan karakter

Fungsi Matematika


Fungsi Tanggal dan Waktu




Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :



Settinglah nama objek dan caption objek dengan Fomat di bawah ini:
catatan penting : caption adalah bacaan objek yang muncul di form sedangkan name adalah identitas nama objek yang digunakan untuk pengkodingan.



Ketentuaan Pengerjaan :
  • Pada saat form di jalankan maka tanggal dan jam tampil
  • Textbox input kata berisi kata yang akan dijadikan fungsi
  • Pada saat di input kata yang akan di jadikan fungsi maka textbox dikolom hasil otomatis akan terisi
  • Button bersih berguna untuk membersihkan isi di dalam textbox
  • Button keluar berfungsi untuk keluar dari program aplikasi
masukkan listing program seperti berikut :

Private Sub cmdbersih_Click()
txtleft = ""
txtright = ""
txtmid = ""
txtlen = ""
txtltrim = ""
txtrtrim = ""
txtlcase = ""
txtucase = ""
txtkata.SetFocus
End Sub
Private Sub cmdkeluar_Click()
x = MsgBox("Mau keluar dari form ini?", vbQuestion + vbOKCancel, "Informasi")
If x = vbOK Then
End
End If
End Sub

Private Sub Timer1_Timer()
ljam.Caption = Time
ltanggal.Caption = Format(Date, "dddd,d mmmm yyyy")
End Sub
Private Sub txtkata_Change()
txtleft = Left(txtkata, 5)
txtright = Right(txtkata, 5)
txtmid = Mid(txtkata, 5, 5)
txtlen = Len(txtkata)
txtltrim = LTrim(txtkata)
txtrtrim = RTrim(txtkata)
txtlcase = LCase(txtkata)
txtucase = UCase(txtkata)
End Sub
 Penjelasan koding :
txtleft = Left(txtkata,5) ; mengambil nilai txtkata berjumlah 5 huruf dari kiri dan ditampilkan di textbox txtleft
ljam.caption = time ; label jam diberi nilai waktu sesuai waktu komputer
Jika ada pertanyaan lain silakan melalui komentar :)





Lalu Klik Run - Start  atau tekan f5 :













MATERI VB6

Jika anda baru Belajar VB 6 silakan belajar dari materi pertama :

Labels:

Comments

Post a Comment

Popular posts from this blog

Menambahkan Peraturan Komentar Pada Blog

Menambahkan Peraturan Komentar Pada Blog : Ngblog Menulis sebuah artikel dan dikomentari dengan link aktif/promosi produk dan kata kata spam lainnya memang tidak mengenakan anda mungkin akan sangat merasa kecewa sekali, anda mungkin seperti menulis sebuah artikel namun tidak dihargai karyanya oleh orang lain. Mungkin membuat aturan berkomentar di blog adalah salah 1 cara menetralisirnya, mungkin jika ada aturan tersebut orang berpikir 2 kali untuk meninggalkan komentar Spam, lalu bagaimana cara membuat aturan komentar tersebut? langsung saja kita praktekan Ikuti langkah berikut : Login ke bloger,masuk ke blog yang anda inginkan, Klik Setelan -> POS-KOMENTAR   Scroll kebawah dan cari menu "pesan formulir komentar" klik tambahkan , dan isi kolom sesuai keinginan kalian atau peraturan yang kalian inginkan.  Setelah selesai silakan klik simpan setelan dipojok kanan atas. Lihat hasilnya di blog kalian ,akan seperti ini : Jika ada pertanyaan...
21 comments
Baca Lebih »

Contoh Program C++ : Konversi Bilangan Hexadesimal, Oktal , Biner.

Hai Pembaca FajarYusuf.Com yang pintar dan berwawasan tinggi, kali ini FajarYusuf.Com akan post Contoh Program C++ : Konversi Bilangan Hexadesimal, Oktal , Biner . Mari kita membuat program konversi bilangan yang sangat mudah di buat dengan menggunakan bahasa pemrograman C++. Yaitu dengan menggunakan type data long, untuk Hexadesimal dengan rumus : <<hex<<desimal (merubah dari bilangan Desimal ke Hexadesimal) , untuk Oktal dengan rumus : <<oct<<desimal (merubah dari bilangan Desimal ke Oktal). Dan untuk biner dilakukan pembagian 2. Contoh Coding Program C++ Konversi Bilangan: #include<iostream> using namespace std; int main() { long desimal, pembagi=1073741824, bit; cout<<"Nilai Desimal : "; cin>>desimal; cout<<"Hexadesimal = "<<hex<<desimal<<endl; cout<<"Oktal = "<<oct<<desimal<<endl; ...
Post a Comment
Baca Lebih »

Traha Infinity a lancé une campagne événementielle de pré-inscription

Moai Games a officiellement annoncé la sortie d’ un  nouveau  MMORPG  intitulé  Traha Infinity , dans la première moitié de 2022. Ce jeu mobile devrait se dérouler 200 ans avant les événements des précédents jeux  Traha , il a  des  graphismes  Full 3D  et optimisés performances haut de gamme pour smartphones. Traha a  été un énorme succès en Corée avec 4,2 millions de précommandes avant sa sortie officielle en 2019, le jeu mobile n’a jamais eu de sortie mondiale. Ce jeu a été développé par Moai Games et publié par  Nexon , et est devenu l’un des jeux les plus vendus de l’époque. Et maintenant,  Traha Infinity  continuera le même monde comme une suite, plutôt une préquelle. Le nouveau jeu présentera la même vision du monde et la même topographie que le jeu précédent, mais présentera un nouveau scénario. Ils se vantent d’ une qualité graphique  Full 3D haut  de gamme ainsi que d’un système optimisé pour les smartphones. Les joueurs pourront explorer l...
Post a Comment
Baca Lebih »