Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Fungsi Pembulatan angka di Visual Basic

Share on :
Sebelumnya saya sudah membuat artikel tentang pembulatan angka di php, nah kali ini saya akan membahas tentang pembulatan angka di VISUAL BASIC,tentunya sebuah software, seringkali kita membutuhkan fungsi untuk menggenapkan/membulatkan sebuah bilangan.Langkah awalnya kalian ikuti step by step berikut.

Buatlah satu Fungsi untuk menggenapkan bilangan
  1. Private Function buletin(ByVal Number As DoubleOptional Range = 10) As double  
  2.   buletin = (Round((Number / Range) + 0.49)) * Range  
  3. End Function  
Contoh Fungsi untuk menggenapkan bilangan dalam sebuah aplikasi:
  1. Private Sub Form_Load()  
  2.   MsgBox buletin(456565656, 10) 'ini untuk menggenapkan puluhan  
  3.   MsgBox buletin(456565656, 100) 'ini untuk menggenapkan ratusan  
  4.   MsgBox buletin(456565656, 1000) 'ini untuk menggenapkan ribuan  
  5.   MsgBox buletin(456565656, 10000) 'ini untuk menggenapkan puluhan ribu  
  6.   MsgBox buletin(456565656, 100000) 'ini untuk menggenapkan  ratusan ribu  
  7.   MsgBox buletin(456565656, 1000000) 'ini untuk menggenapkan jutaan  
  8.   MsgBox buletin(456565656, 10000000) 'ini untuk menggenapkan pulahan juta  
  9.   'dan seterusnya  
  10. End Sub  

Klik Like/share jika anda menyukai tulisan Share

0 komentar on Fungsi Pembulatan angka di Visual Basic :

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini