validasi vb hanya input huruf

Public Sub CharacterValid(KeyAscii As Integer)

Const Character = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz <spasi>"

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

validasi vb hanya input angka dan huruf

Public Sub AlphaNumericValid(KeyAscii As Integer)

Const Character = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz "

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

validasi vb hanya input angka

Public Sub NumberValid(KeyAscii As Integer)

Const Number = "0123456789"

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Number, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

program visual basic penghitungan nilai

Nieahc,, liat dulu tampilanye ye,,

 

koding ini dengan penghitungan nilai akhir di ambil dari 30% nilai UTS, 30% nilai TUGAS dan 40% nilai UAS  lalu di jumlahkan,,, nich koding nya,,,

Private Sub INPUT_Click()

'untuk memberi niali kosong'

XNIM.Text = ""

XNAMA.Text = ""

XUTS.Text = ""

XTUGAS.Text = ""

XUAS.Text = ""

XAKHIR.Text = ""

'untuk mengaktifkan objec inputan'

XNIM.Enabled = True

XNAMA.Enabled = True

XUTS.Enabled = True

XTUGAS.Enabled = True

XUAS.Enabled = True

XAKHIR.Enabled = True

XAKTIVITAS.Caption = "INPUT DATA"

INPUT.Enabled = False

HITUNG.Enabled = True

KELUAR.Enabled = True

End Sub

 

Private Sub KELUAR_Click()

End

End Sub                                                                

 

Private Sub HITUNG_Click()

XAKTIVITAS.Caption = "HITUNG DATA"

XAKHIR.Text = 0.3 * Val(XTUGAS.Text) + 0.3 * Val(XUTS.Text) + 0.4 * Val(XUAS.Text)

End Sub

 

Private Sub Form_Load()

'untuk menonaktifkan objec di awal'

XNIM.Enabled = False

XNAMA.Enabled = False

XUTS.Enabled = False

XTUGAS.Enabled = False

XUAS.Enabled = False

XAKHIR.Enabled = False

XAKTIVITAS.Caption = ""

INPUT.Enabled = True

HITUNG.Enabled = False

KELUAR.Enabled = False

End Sub

 

Private Sub XAKHIR_Change()

XAKHIR.Text = 0.3 * Val(XTUGAS.Text) + 0.3 * Val(XUTS.Text) + 0.4 * Val(XUAS.Text)

End Sub

 

Private Sub XUAS_LostFocus()

XAKHIR.Text = 0.3 * Val(XTUGAS.Text) + 0.3 * Val(XUTS.Text) + 0.4 * Val(XUAS.Text)

End Sub

program visual basic pembayaran pdam

Liat dulu nihh tampilannya,,,

 nihhh baru koding nya,,,

 

Private Sub Form_Load()

xNO.Enabled = False

xMETERLALU.Enabled = False

xMETERSEKARANG.Enabled = False

xPAKAI.Enabled = False

xBAYAR.Enabled = False

End Sub

 

Private Sub INPUT_Click()

xNO.Enabled = True

xMETERLALU.Enabled = True

xMETERSEKARANG.Enabled = True

xPAKAI.Enabled = True

xBAYAR.Enabled = True

xNO.Text = ""

xMETERLALU.Text = ""

xMETERSEKARANG.Text = ""

xNO.SetFocus

xNO.BackColor = vbWhite

xMETERLALU.BackColor = vbWhite

xMETERSEKARANG.BackColor = vbWhite

xPAKAI.BackColor = vbWhite

xBAYAR.BackColor = vbWhite

End Sub

Private Sub xMETERSEKARANG_LostFocus()

xPAKAI.Text = Val(xMETERSEKARANG.Text) - Val(xMETERLALU.Text)

End Sub

 

Private Sub xPAKAI_LostFocus()

If Val(xPAKAI.Text) <= 10 Then

tarif1 = 5000 * Val(xPAKAI.Text)

tarif2 = 0

tarif3 = 0

End If

If (Val(xPAKAI.Text) > 10) And (Val(xPAKAI.Text) <= 20) Then

tarif1 = 5000 * Val(10)

tarif2 = 10000 * (Val(xPAKAI.Text) - 10)

tarif3 = 0

End If

If Val(xPAKAI.Text) > 20 Then

tarif1 = 5000 * Val(10)

tarif2 = 10000 * Val(10)

tarif3 = 15000 * (Val(xPAKAI.Text) - 20)

End If

xBAYAR.Text = tarif1 + tarif2 + tarif3

End Sub

 

Private Sub KELUAR_Click()

End

End Sub

cara membuat adonan dasar lekker

Bahan :
- Tepung terigu protein sedang 250 gram -
- Telur ayam 1 butir -
- Gula pasir 125 gram -
- Mentega/margarin cair 1 sdm -
- Air 250 ml -

Cara membuat :
1. Ayak dan masukkan terigu dalam mangkuk.
2. Masukkan gula pasir, aduk rata. Buat lubang di tengahnya.
3. Masukkan telur pada lubang, aduk perlahan ke arah tepi.
4. Masukkan air sedikit demi sedikit sambil diaduk hingga rata dan licin.
5. Tambahkan mentega, aduk rata.
6. Diamkan adonan selama 30 menit.
7. Adonan dasar siap digunakan.

Untuk 28 buah

membuat mail merge pada microsoft word 2077

1.   bukalah dulu program atau aplikasi microsoft word 2007, Klik tombol Start, pilih All Program, kemudian pilih Microsoft Office, kemudian klik pada Microsoft Office 2007.

2.  setelah Program Microsoft word 2007 terbuka, sebagai latihan ketiklah contoh data seperti di bawah ini.  Untuk teks yang saya beri tanda kurung seperti  <nama>, <alamat>, dan <kota>   itu nantinya sebagai tempat kode mail merge. jadi dikosongkan saja, tidak usah diketik.

3.  Sehingga hasilnya seperti gambar di bawah ini.

4.    Setelah data di atas selesai diketik, sekarang saatnya membuat data mail Merge.  Klik pada Menu Mailings, Kemudian klik pada Toolbar   Start maili Merge, lalu klik pada  Step by step Mail Merge Wizard…

5.  Kemudian perhatikan pada bagian kanan jendela Microsoft word 2007,  akan muncul jendela Mail Merge.  Pada Select document type pilih letters,  kemudian klik pada  Next: Starting document ,

6. Tahap selanjutnya pada  Select starting document  pilih Use the current document,  kemudian pilih Next: select recipients

7.  Tahap selanjutnya pada   Select recipents pilih pada Type a New list,  lalu klik pada Create …

8.   setelah kamu klik tombol create, Jendela  New Address list akan terbuka seperi gambar di bawah ini. karena pada latihan ini kita hanya menggunakan tiga address yaitu <nama>, <alamat>, dan <kota>, maka kita buat ketiga address tersebut secara manual, dengan cara klik pada tombol customize Columns

9.  Setelah kamu klik Customize Columns, akan terbuka jendela  Customize addres list seperti gambar di bawah ini. hapuslah semua yang ada pada Field names dengan cara Klik pada tombol Delete,

10. jika nanti muncul pertanyaan seperti gambar di bawah ini, klik saja Yes.

11.  Setelah kamu menghapus semua Field names , klik pada Add.. , untuk menambahkan Field baru, kemudian ketikkan nama Field dan klik tombol OK. (nama field pada latihan ini  “nama”, “alamat”, dan “kota” )

12.  Sehingga hasilnya seperti gambar di bawah ini.  kemudian klik tombol OK

13.  Address list yang baru pun akan tampak seperti gambar di bawah ini,  dan  Klik pada tombol OK

14.  Setelah kamu klik tombol Ok, akan muncul jendela penyimpanan file. berikan nama file nya pada kolom file name (pemberian nama filenya bisa sesukamu), kemudian klik tombol Save.

15.  Sekarang Data mail Merge telah selesai, kemudian klik pada tombol Ok
a

16. sekarang saatnya meletakkan kode mail merge pada ruang kosong yang telah kita sediakan tadi, yaitu untuk ruang <nama>, <alamat>, dan <kota>.  kita mulai dari <alamat> dulu.  Letakkan kursor pada ruangan kosong untuk alamat yaitu di bawah  tulisan  Yth. Bp/Ibu/Sdr.

17.  Setelah kamu letakkan kursor di situ, klik pada menu  Insert Merge Field, sehingga akan muncul daftar Fieldnya, pilih klik pada field nama. lakukan langkah yang sama untuk menampilkan alamat, dan Kota.

18.  Sehingga hasilnya akan tampak seperti gambar di bawah ini.

19.  Untuk merubah kode  <nama>, <alamat>, dan <kota> menjadi data yang sebenarnya klik pada Icon  Preview Result

20. Dan hasilnya akan tampak seperti gambar di bawah ini.

21. Sedangkan untuk menampilkan data urutan kedua, ketiga dan seterusnya, klik pada tanda panah ke kanan, sedangkan untuk kembali klik pada tanda panah ke kiri.

sekarang data mail merge telah selesai dibuat, semoga panduan di atas mudah dipahami.

contoh array dan sorting input nilai dalam C++

Soal:

Buatlah program  manipulasi nilai mhs dengan stuktur , array dan sorting

Desain :

                                    HEADER

           

Nim             : xxxxxx

          Nama           : xxxxxx

          Kehadiran    : xx

          Nilai Tugas   : xx

          Nilai UTS      : xx

          Nilai UAS      : xx

          Nilai Akhir    : proses

          Nilai Huruf    : proses

          Grade          : proses

          Keterangan   : proses

Laporan Nilai Mahasiswa Sistem Informasi

No.	NIM	NAMA	KE HADIRAN	N. TGS	N. UTS	N. UAS	N. AKHIR	N HURUF	GRADE	KET
99	XXXX	XXXXXXX	XX	999	999	999	999	XXXX
99	XXXX	XXXXXXX	XX	999	999	999	999	XXXX
…	…	…………….		…	…	…	…	…………….

Ketentuan Proses:

• Nim, nama,kehadiran, nilai tugas, nilai uts, nilai uas diinput lewat keyboard
• Nilai akhir  = 5% kehadiran+25% nilai tugas + 30% nilai uts + 40% nilai uas
• Nilai Huruf:

Jika nilai akhir >= 85, maka A

                        Jika nilai akhir >= 70, maka B

Jika nilai akhir >= 60, maka C

                        Jika nilai akhir >= 50, maka D

            Jika nilai akhir  < 50,  maka E

• Grade

A :  sangat memuaskan

B: memuaskan

C : cukup

D : kurang

E : gagal

• Keterangan

Jika nilai akhir >= 60, maka MHS dinyatakan LULUS

Jika nilai akhir <= 60, maka MHS dinyatakan GAGAL

penyelesaian :

#include <conio.h>

#include <iostream.h>

#include <stdio.h>

#include <iomanip.h>

#include <math.h>

void main()

{

   int nim[6],i,tmp;

          struct

   {

      char nama [15];

      float nilaitgs;

      float kehadiran;                  //struktur array

      float nilaiuts;

      float nilaiuas;       

      float nilaiakhir;

   }dtmhs[8];

gotoxy(27,3);cout<<"       Manipulasi Nilai Mahsiswa"<<endl;

gotoxy(27,5);cout<<"           Sistem Informasi"<<endl;

gotoxy(27,7);cout<<"       Universitas dian Nuswantoro "<<endl;

gotoxy(2,9);cout<<"___________________________________________________________________________"<<endl;

{

  for (i=1;i<=5;i++)   //nim yang akan di masukkan

  {

cout<<"    masukkan NIM  "<<i<<":";cin>>nim[i];

cout<<"          masukkan nama : "; cin>> dtmhs[i].nama;

cout<<"          masukkan kehadiran : "; cin>> dtmhs[i].kehadiran;

cout<<"          masukkan Nilai Tugas : "; cin>> dtmhs[i].nilaitgs;

cout<<"          masukkan Nilai UTS : "; cin>> dtmhs[i].nilaiuts;

cout<<"          masukkan Nilai UAS : "; cin>> dtmhs[i].nilaiuas;

 dtmhs[i].nilaiakhir = (dtmhs[i].kehadiran*0.05)+(dtmhs[i].nilaitgs * 0.25) + (dtmhs[i].nilaiuts * 0.3) + (dtmhs[i].nilaiuas * 0.4);//menghitung nilai akhir

      cout<<endl;

          }

                                       for (i=1;i<5;i++)

         for (i=1;i<5;i++)

            if (nim[i]>nim[i+1] )     //sortir

            {

            tmp=nim[i];

            nim[i]=nim[i+1];

            nim[i+1]=tmp;

                                      }

}

   cout<<"              Laporan Nilai Mahasiswa Sistem Informasi "<<endl;

   cout<<"________________________________________________________________________________"<<endl;

   cout<<"NIM   Nama  Kehadiran  Nilai  Nilai  Nilai  Nilai  Nilai  Grade  KET   "<<endl;

   cout<<"                       Tugas   UTS   UAS    Akhir  Huruf                           "<<endl;

   cout<<"________________________________________________________________________________"<<endl;

     for (i=1;i<=5;i++) //hasil pengurutan

{

      cout<<setiosflags(ios::left)<<setw(4)<<nim[i];

      cout<<setiosflags(ios::left)<<setw(7)<<dtmhs[i].nama;

      cout<<setiosflags(ios::left)<<setw(3)<<dtmhs[i].kehadiran;

      cout<<setprecision(2)<<"    "<<dtmhs[i].nilaitgs;

                   cout<<setprecision(2)<<"    "<<dtmhs[i].nilaiuts;

      cout<<setprecision(2)<<"    "<<dtmhs[i].nilaiuas;

      cout<<setprecision(2)<<"    "<<dtmhs[i].nilaiakhir;

if (dtmhs[i].nilaiakhir>=85)

 {

cout<<"     A "<<"   sngat memuaskan"<<" Lulus"<<endl;

 }

 else if (dtmhs[i].nilaiakhir>=70)

 {

cout<<"     B "<<"      memuaskan"<<" Lulus"<<endl;

 }

 else if (dtmhs[i].nilaiakhir>=60)

 {

cout<<"     C "<<"         cukup "<<" Lulus"<<endl;

 }

 else if (dtmhs[i].nilaiakhir>=50)

 {

cout<<"     D "<<"        kurang "<<" gagal "<<endl;

 }

 else

 {

cout<<"     E "<<"          gagal"<<" gagal"<<endl;

  }

   }

getch ();

}

//ada 5 kali perulangan

literasi         data 1          data2           data3           data4           data5

awal            ........                   ........                   ........                   ........                   ........

i=1               ........                   ........                   ........                   ........                   ........

i=2               ........                   ........                   ........                   ........                   ........

seterusnya... Tampilan nya 

                               taaaaraaaa