0 Rabu, (09/01/2013)

---

Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!

---

Hari ini saya menemukan cara untuk mengatur font dan size. . . 
script di bawah ini...

1. buka visual basic
2. buat form seperti di bawah ini. . .

1. TNim
2. tNama
3. tJurusan
4. tSemester
5. tAlmt

  3. buat buat 1 form lagi bernama cetak

  4. di form yang pertama buat script seperti di bawah ini di bawah ini. . .

-----------------------------------------------------------------

sub Alvanz ()
cetak.Font = "courier new"
     cetak.CurrentX = 0
     cetak.CurrentY = 0
     cetak.FontSize = 13
     cetak.Font = "CW Ciung Wanara Sejati"
     cetak.Print Tab(13); "BIODATA";
     cetak.Print Tab(2); " "
     cetak.FontSize = 9.5
     cetak.Font = "Tahoma"
     cetak.Print Tab(6); "MAHASISWA BSI          "; Format(Time, "hh:mm:ss AM/PM");
     cetak.Print Tab(2); "===================================";
     cetak.Print Tab(5); "NIM           :"; TNim;
     cetak.Print Tab(5); "NAMA        :"; tNama;
     cetak.Print Tab(5); "JURUSAN    :"; tJurusan;
     cetak.Print Tab(5); "SEMESTER    :"; tSemester;
     cetak.Print Tab(5); "ALAMAT      :"; tAlmt;
     cetak.Print Tab(2); "===================================";
cetak.FontSize = 9.5
     cetak.Print Tab(7); "*Ini hanya sebuah contoh sederhana*";
     cetak.Print Tab(7); "*yang dapat kalian kembangkan lagi*";
 cetak.FontSize = 9.5
    cetak.Print Tab(2); "===================================";
 cetak.Font = "Courier New"
    cetak.Print Tab(2); "===================================";
 cetak.Print Tab(13); "Deni Indrawan";
 cetak.Print Tab(11); "www.indrawan21.tk";
End Sub
-----------------------------------------------------------------

 5. klik double pada button
 6. masukkan script seperti di bawah ini. . . .
-----------------------------------------------------------------
Call Alvanz
-----------------------------------------------------------------

Semoga berhasil. . . . 
Good Luck. . .