Kategori

VB.NET

  • Jumlah Kode: 11
  • Update Kode Terbaru: Mar 28' 14
  • Jumlah Halaman : 2
  • Anda berada di halaman : 1

Say Love By VB.Net

  • 2014-03-28
  • 564

Module SayLoveSub main()Dim rows, point, limit As IntegerDim love, love1, color As StringDim counter As Integer = 20Dim repeat As String = "Y"Dim say() As String = {"Say", "Love", "Colourfully", "by", "VB.Net", "!!!!!"}        limit = 25        rows = 1        For i = 0 To say.GetUpperBound(0)            If i = 0 Then                Baca kanjut


Search Data Array (Static)

  • 2014-03-24
  • 517

Module SearchArray_Static Sub main() Dim test(,), count As String Dim j As Integer Dim average, midtest, endtest As Decimal Dim colmn As Integer = 3 Console.BackgroundColor = ConsoleColor.White Console.ForegroundColor = ConsoleColor.Black Console.WriteLine("APPLICATION STUDENT'S SCORE TEST", Console.Title) Baca kanjut


List Data Student By Array Multidimensi

  • 2014-03-21
  • 578

Modul ListDataStudent Sub main() Dim Student(,), age, gender, count As String Dim colmn As Integer colmn = 3 Console.Write("How many Student data to be entered = ") count = Console.ReadLine() Do Until IsNumeric(count) Console.WriteLine("Sorry Couldn Be Continued, Must be Enter Number!") Console.Write("How Baca kanjut


Find The Maximun, Minimum and Average by Array Season II

  • 2014-03-20
  • 505

Modul Array2 Sub main() Dim number(), limit, num As Integer Console.Write("Input The Count of Number: ") limit = Console.ReadLine ReDim number(limit - 1) Console.WriteLine() For i As Integer = 0 To limit - 1 num = i + 1 Console.Write("Input Number of " & num & ": ") number(i) = Baca kanjut


Find The Maximun, Minimum and Average by Array

  • 2014-03-19
  • 579

Modul Array Sub Main() Dim a() As Integer Dim i, index, max1, min1 As Integer Dim b As Double Dim temp As VariantType Console.Write("Input The Count of Number: ") index = Console.ReadLine ReDim a(index) Console.WriteLine() For i = 1 To index Console.Write("Input Number of " & i & ": ") Baca kanjut


Know the number of odd or even !

  • 2014-03-18
  • 471
  • vb,desktop

  Module Number Sub main() Dim Num As Integer Console.Write(" Input the Number = ") Num= Console.ReadLine() Console.WriteLine() If Num Mod 2 = 0 Then Console.WriteLine("The Number is even") Else Console.WriteLine("The Number is odd") End If End Sub End Baca kanjut


Create FTP Download

  • 2014-01-11
  • 321
  • vb,ftp,download,internet

Imports System.IO Imports System.Net Imports System.Text Public Class SimpleFTPClient Public Function Download(ByVal destinationFile As String, ByVal downloadUri As Uri) As FtpStatusCode Try ' Check if the URI is and FTP site If Not (downloadUri.Scheme = Uri.UriSchemeFtp) Then Throw New ArgumentException("URI is not an FTp Baca kanjut


Drive Info

  • 2014-01-11
  • 287
  • drive,hdd,information

Imports System.IO Imports System.Net Imports System.Text Public Class SimpleFTPClient Public Function Download(ByVal destinationFile As String, ByVal downloadUri As Uri) As FtpStatusCode Try ' Check if the URI is and FTP site If Not (downloadUri.Scheme = Uri.UriSchemeFtp) Then Throw New ArgumentException("URI is not an FTp site") Baca kanjut


Get Network Info

  • 2014-01-11
  • 310
  • network,info

  Source code Imports System.Text Imports System.Net.NetworkInformation Imports Microsoft.VisualBasic.ApplicationServices Imports Microsoft.VisualBasic.Devices Public Class Form1 Public Sub New() ' This call is required by the Windows Form Designer. InitializeComponent() ' get a list of all network interfaces on this computer If Baca kanjut


Stopwatch Using VB

  • 2014-01-11
  • 292
  • stopwatch,time,timer

  source code Public Class Form1 Public Sub New() ' This call is required by the Windows Form Designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. LoadStaticInfo() m_stopWatch = New Stopwatch() LoadInstanceInfo() Me.Timer1.Enabled = True Me.Timer1.Interval = Baca kanjut




Kategori