Membuat Text Box dengan menulis karakter dibatasi.

-
cara Membuat kotak teks untuk menulis kata atau
kalimat dengan jumlah karakter dibatasi hanya sampai 160 karakter, setelah itu tidak bisa menulis lagi. seperti di sms/twitter sederhana.














Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text) & " /160"
If Len(Text1.Text) >= 160 Then
MsgBox "Sudah habis", vbCritical

End If
Text1.Text = Left(Text1.Text, 160)


End Sub

Comments

Post a Comment

Popular posts from this blog

Cara Mengatasi Galat: Index hilang pada kolom di phpMyAdmin

-
Image
SQL FOREIGN KEY Constraint Kalau kamu menemui kasus seperti itu, biasanya indeks memang gak  ada jadi buat indeks dulu 1. Pada tabel yang akan dijadikan foreign key, klik indeks data yang ingin dihubungkan menjadi foreign key. 2. Buka data tabel yang akan dijadikan primary. Klik struktur>pilih relation view. Disana akan ada foreign key constraint. Pilih data tabel pertama sebagai primary key,lalu pilih database, pilih kolom tabel kedua sebagai foreign key lalu data tabel. Jangan lupa pilih on delete cascade on delete cascade Semoga berhasil. Galat : Index hilang pada kolom
Read more

Program C++ Menghitung Diskon Pembelian oleh Pelanggan

-
Image
Contoh Program C++ untuk Menghitung Diskon Pembelian oleh Pelanggan , dimana pelanggan yang melakukan pembelian sama dengan atau diatas 50000 akan mendapatkan diskon 10% dari total belinya. Program menggunakan perulangan while dan fungsi if - else . program perkasiran, swalayan, supermarket sederhana . kasir. pembeli. beli. #include <conio.h> #include <iostream.h> main(){ char nama_brg [20]; int jmlh_beli=0,tot_beli=0, x, y; long int harga=0,hrg_brg=0,total=0,bayar=0,diskon; cout<<" ==== Program Perkasiran untuk Menghitung Diskon Sederhana ==== \n\n"; cout<<"Masukkan jumlah macam barang yang sudah dibeli:";cin>>y; x=1;
Read more