Pembacaan Text File(Notepad) menggunakan Visual Basic 2005

Pada saat pembuatan program pasti dibutuhkan tempat penyimpanan file yang tetap ya paling tidak datanya tidak langsung hilang begitu program dijalankan dan data masih tetap ada jika program dibuka dikemudian hari mungkin bisa dibilang sih seperti file atau database lah. Nah kali ini saya akan coba bahas cara menghubungkan atau membuat file text yang dapat diisi dan dibaca datanya.
p>Untuk melakukan penyimpanan pada data otomatis yang pertama kali kita lakukan adalah menentukan tempat penyimpanan dan nama file, kemudian kita harus perhatikan apakah file tersebut sudah ada atau belum, jika filenya belum ada ya tinggal save saja tetapi kalau file sudah ada berarti ada dua kemungkinan yaitu mengganti nama file atau membiarkan file lama tertimpa alias menghilang karena digantikan file baru, pada Visual basic 2005 kita bisa membuat kemungkinan-kemungkinan seperti itu.

beberapa perintah standard pengaksesan file :

1. system.io.file.exists(namafile) berfungsi untuk mengecek keberadaan file apakah sudah ada apa belum.
   
2. system.io.streamwriter(namafile) berfungsi untuk membuat file baru atau membuka file untuk diisi/ditambahi
   
3. system.io.streamreader(namafile) berfungsi untuk membuat akses file yang medonya membaca
   

setelah kita membuat akses file maka kita perlu melakukan operasi terhadap file tersebut seperti mengisi dan membaca nah
Beberapa perintah pengolahan isi file

1. Readline berfungsi untuk membaca satu bari


2. readtoend berfungsi untuk membaca isi file sampai habis


3. endofstream berfungsi mengecek apakah cursor sudah berada pada data paling akhir



4. write berfungsi untuk menuliskan/menambah data ke file dengan posisi cursor berada paling kanan


5. writeline berfungsi untuk menuliskan/menambahkan data ke file dengan posisi cursor berada di baris berikutnya.

Contoh Program Pada Form1 buat tampilan seperti Berikut ini

Kode Programnya :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub

Untuk Form2 buatlah tampilan berikut ini

Kodenya:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If System.IO.File.Exists("BUKUTAMU.TXT") Then
Dim bf As New System.IO.StreamWriter("bukutamu.txt", True)
bf.WriteLine(TextBox1.Text)
bf.WriteLine(TextBox2.Text)
bf.WriteLine(TextBox3.Text)
bf.WriteLine(TextBox4.Text)
bf.Close
Else
Dim bf As New System.IO.StreamWriter("bukutamu.txt", False)
bf.WriteLine(TextBox1.Text)
bf.WriteLine(TextBox2.Text)
bf.WriteLine(TextBox3.Text)
bf.WriteLine(TextBox4.Text)
bf.Close()
End If
End Sub

Pada Form3 bentuk tampilan sebagai berikut ini:

Kodenya :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.IO.File.Exists("bukutamu.txt") Then
Dim bf As New System.IO.StreamReader("bukutamu.txt")
Do
TextBox1.Text = TextBox1.Text & bf.ReadLine
Loop While Not bf.EndOfStream
bf.Close()
Else
MsgBox("Maaf buku tamu masih kosong")
TextBox1.Enabled = False
End If
End Sub

array

array adalah sebuah variabel yang dapat menampung sekumpulan data/nilai

cara mendeklarasikan array
dim namaarray(jumlah) as tipe data
atau
dim namaarray()
contoh
1. dim nama(5) as string
2. dim alamat() as string

hasil dari no 1
nama(0)
nama(1)
nama(2)
nama(3)
nama(4)
nama(5)
jika sebuah array dideklarasikan dengan cara no 2 maka untuk menggunakannya digunakan perintah redim
contoh : redim alamat(5)

pada penggunaan perintah redim maka semua nilai array sebelumnya akan dikembalikan
menjadi 0 atau dikosongkan.
untuk menambah kapasitas array dapat digunakan perintah redim preserve namaarray
contoh: redim preserve alamat(10)

Game Snack Versi3

Setelah Game Snack Versi 1 dan 2 keluar ini versi tiga saya keluarkan, anda bisa menggunakan menggunakan game snack menggunakan versi CPP atau menggunakan Versi VB.net atau mau coba programnya ambil aja di Belajar Tik

Kode program CPP

#include<constream.h>

#include<dos.h>

#include<stdlib.h>

int p,tombol,pj;

int x[10],y[10];

int badan[10];

int xm,ym;

int skor,speed;

int arah;

int ax,ay;

int waktu,w,level;

void cetaku();

void bentukarah();

void skors();

void main()

{

         textbackground(0);

         clrscr();

         waktu=0;

         arah=0;

         w=0;

         speed=200;

         randomize();

         level=0;

         skor=0;

         _setcursortype(_NOCURSOR);

         ax=1;

         ay=0;

         pj=2;

         xm=random(45)+5;

         ym=random(15)+5;

         skor=0;

         for(p=0;p<=pj;p++)

         {

                  x[pj-p]=p+2;

                  y[p]=12;

         }

         int ss;

         textbackground(3);

         for(ss=1;ss<=51;ss++)

         {

                  gotoxy(ss,1);cprintf(" ");

                  gotoxy(ss,24);cprintf(" ");

         }

         for(ss=1;ss<=24;ss++)

         {

                  gotoxy(1,ss);cprintf(" ");

                  gotoxy(51,ss);cprintf(" ");

         }

         textbackground(0);

         do

         {

                  skors();

                  gotoxy(xm,ym);

                  cprintf("$");

                  cetaku();

                  bentukarah();

                  if(kbhit())

                  {

                           tombol=getch();

                           if(tombol==0)

                           {

                                    tombol=getch();

                                    if(tombol==75)

                                    {

                                             if(arah==3 || arah==4 || arah==0)

                                                      arah=2;

                                    }

                                    else if(tombol==77)

                                    {

                                             if(arah==3 || arah==4 || arah==0)

                                                      arah=1;

                                    }

                                    else if(tombol==72)

                                    {

                                             if(arah==1 || arah==2)

                                                      arah=3;

                                    }

                                    else if(tombol==80)

                                    {

                                             if(arah==1 || arah==2)

                                                      arah=4;

                                    }

                           }

                  }

                  if(x[0]==2 || x[0]==50 || y[0]==1 || y[0]==24)

                  {

                           gotoxy(20,12);

                           cout<<"Game Over";

                           tombol=27;

                  }

                  if(x[0]==xm && y[0]==ym && arah!=0)

                  {

                           skor=skor+10;

                           x[pj+1]=x[pj];

                           y[pj+1]=y[pj];

                           pj=pj+1;

                           xm=random(45)+5;

                           ym=random(15)+5;

                  }

                  waktu++;

                  if(waktu%(1000/speed)==0)

                           w=w+1;

                  if(pj==9)

                  {

                           pj=3;

                           if(speed>=60)

                                    speed=speed-10;

                           level=level+1;

                  }

         }while(tombol!=27);

         getch();

}

void cetaku()

{

         for(p=0;p<=pj;p++)

         {

                  gotoxy(x[p],y[p]);

                  cprintf("x");

         }

         delay(100);

         for(p=0;p<=pj;p++)

         {

                  gotoxy(x[p],y[p]);

                  cprintf(" ");

         }

}

void bentukarah()

{

          for(p=pj;p>0;p--)

         {

                  x[p]=x[p-1];

                  y[p]=y[p-1];

         }

         if(arah==1)

                  x[0]=x[0]+1;

         else if(arah==2)

                  x[0]=x[0]-1;

         else if(arah==3)

                  y[0]=y[0]-1;

         else if(arah==4)

                  y[0]=y[0]+1;

 }

void skors()

{

         gotoxy(53,3);

         cout<<"Skor : "<<skor;

         gotoxy(53,5);

         cout<<"Time : "<<w;

         gotoxy(53,7);

         cout<<"Level : "<<level;

}

 

Untuk VB.Net Inini kodenya

Module Module1

Dim p, tombol, pj

Dim x(10), y(10)

Dim badan(10)

Dim xm, ym

Dim skor, speed

Dim arah

Dim ax, ay

Dim waktu, w, level

Sub main()

         Console.BackgroundColor = ConsoleColor.Black

         Console.Clear()

         waktu = 0

         arah = 0

         w = 0

         speed = 200

         Randomize()

         level = 0

         skor = 0

         Console.CursorVisible = False

         ax = 1

         ay = 0

         pj = 2

         xm = CInt(Rnd() * 45) + 5

         ym = CInt(Rnd() * 15) + 5

         skor = 0

         For p = 0 To pj

                   x(pj - p) = p + 2

                  y(p) = 12

         Next

         Dim ss

         Console.BackgroundColor = ConsoleColor.Cyan

         For ss = 1 To 51

                  Console.CursorTop = 1

                  Console.CursorLeft = ss

                  Console.Write(" ")

                  Console.CursorTop = 24

                  Console.CursorLeft = ss

                  Console.Write(" ")

         Next

         For ss = 1 To 24

                  Console.CursorTop = ss

                  Console.CursorLeft = 1

                  Console.Write(" ")

                  Console.CursorTop = ss

                  Console.CursorLeft = 51

                  Console.Write(" ")

         Next

         Console.BackgroundColor = ConsoleColor.Black

         Do

                   skors()

                  Console.CursorTop = ym

                  Console.CursorLeft = xm

                  Console.Write("$")

                  cetaku()

                  bentukarah()

                  If (Console.KeyAvailable) Then

                           tombol = Console.ReadKey.Key

                           If (tombol = 37) Then

                                    If (arah = 3 Or arah = 4 Or arah = 0) Then arah = 2

                           ElseIf (tombol = 39) Then

                                    If (arah = 3 Or arah = 4 Or arah = 0) Then arah = 1

                           ElseIf (tombol = 38) Then

                                    If (arah = 1 Or arah = 2) Then arah = 3

                           ElseIf (tombol = 40) Then

                                    If (arah = 1 Or arah = 2) Then arah = 4

                           End If

               End If

         If (x(0) = 2 Or x(0) = 50 Or y(0) = 1 Or y(0) = 24) Then

                  Console.CursorTop = 12

                  Console.CursorLeft = 20

                  Console.Write("Game Over")

                  tombol = 27

         End If

         If (x(0) = xm And y(0) = ym And arah <> 0) Then

                  skor = skor + 10

                  x(pj + 1) = x(pj)

                  y(pj + 1) = y(pj)

                  pj = pj + 1

                  xm = CInt(Rnd() * 45) + 5

                  ym = CInt(Rnd() * 15) + 5

         End If

         waktu = waktu + 1

         If (waktu Mod (1000 / speed) = 0) Then

                  w = w + 1

                  If (pj = 9) Then

                            pj = 3

                          If (speed >= 60) Then speed = speed - 10

                           level = level + 1

                    End If

           End If

         Loop While (tombol <> 27)

         Console.ReadKey()

End Sub



Sub cetaku()

         For p = 0 To pj

                   Console.CursorTop = y(p)

                  Console.CursorLeft = x(p)

                  Console.Write("x")

         Next

         System.Threading.Thread.Sleep(100)

         For p = 0 To pj

                  Console.CursorTop = y(p)

                  Console.CursorLeft = x(p)

                  Console.Write(" ")

         Next

End Sub

Sub bentukarah()

         For p = pj To 1 Step -1

                  x(p) = x(p - 1)

                  y(p) = y(p - 1)

         Next

         If (arah = 1) Then

                  x(0) = x(0) + 1

         ElseIf (arah = 2) Then

                  x(0) = x(0) - 1

         ElseIf (arah = 3) Then

                  y(0) = y(0) - 1

         ElseIf (arah = 4) Then

                  y(0) = y(0) + 1

         End If

End Sub



sub skors()

         Console.CursorTop = 3

         Console.CursorLeft = 53

         Console.Write("Skor : " & skor)

         Console.CursorTop = 5

         Console.CursorLeft = 53

         Console.Write("Time : " & w)

         Console.CursorTop = 7

         Console.CursorLeft = 53

         Console.Write("Level : " & level)

End Sub



End Module

Game Snack Versi VBnet

Module Module1

Sub Main()
Dim x, y, ax, ay, skor, i
Dim x2, y2
Randomize()
Dim s
s = 300
x2 = CInt(Rnd() * 70) + 2
y2 = CInt(Rnd() * 21) + 2
Dim tombol As Integer
For i = 1 To 24
Console.BackgroundColor = ConsoleColor.Blue
Console.CursorLeft = 0
Console.CursorTop = i
Console.Write(" ")
Console.CursorLeft = 78
Console.CursorTop = i
Console.Write(" ")
Next
For i = 0 To 78
Console.CursorLeft = i
Console.CursorTop = 1
Console.Write(" ")
Console.CursorLeft = i
Console.CursorTop = 24
Console.Write(" ")
Next
skor = 0
x = 40
y = 12
ax = 0
ay = 0
Console.BackgroundColor = ConsoleColor.Black
Do
Console.CursorLeft = x2
Console.CursorTop = y2
Console.Write("$")
Console.CursorLeft = 10
Console.CursorTop = 0
Console.Write("skor : " & skor)
Console.CursorLeft = x
Console.CursorTop = y
Console.Write("~")
System.Threading.Thread.Sleep(s)
Console.CursorLeft = x2
Console.CursorTop = y2
Console.Write(" ")
Console.CursorLeft = x
Console.CursorTop = y
Console.Write(" ")
x = x + ax
y = y + ay
If (Console.KeyAvailable) Then
tombol = Console.ReadKey.Key
If tombol = 38 Then
ay = -1
ax = 0
ElseIf tombol = 40 Then
ay = 1
ax = 0
ElseIf tombol = 37 Then
ay = 0
ax = -1
ElseIf tombol = 39 Then
ay = 0
ax = 1
End If
End If
If (y <= 1 Or x <= 1 Or x >= 78 Or y >= 24) Then
Console.CursorTop = 12
Console.CursorLeft = 30
Console.Write("Game Over")
tombol = Console.ReadKey.Key
If tombol <> 32 Then
tombol = 27
Else
skor = 0
Console.CursorTop = 12
Console.CursorLeft = 30
Console.Write(" ")
x = 40
y = 12
ax = 0
ay = 0
End If
End If
If x = x2 And y = y2 Then
skor = skor + 10
x2 = CInt(Rnd() * 70) + 2
y2 = CInt(Rnd() * 21) + 2

End If
Loop While (tombol <> 27)
Console.ReadKey()
End Sub

End Module

Animasi Loading

Nah yang satu ini merupakan animasi Loading dimana yang beranimasi adalah kat loding itu sendiri, mau programnya Tik aja, atau kode lengkapnya klik Tik kemudian silahkan ganti namanya menjadi module1.vb atau Tik
Module Module1
Sub Main()
Dim x, posisi, I
x = 28
Console.CursorLeft = x
Console.CursorTop = 15
Dim TEKS = "L O A D I N G..."
posisi = 1
Console.ForegroundColor = ConsoleColor.Yellow
Console.Write(TEKS)
Do
Console.CursorTop = 15
Console.CursorLeft = x
For I = 1 To Len(TEKS)
If posisi = I Then
Console.ForegroundColor = ConsoleColor.Cyan
Else
Console.ForegroundColor = ConsoleColor.Yellow
End If
Console.Write(Mid(TEKS, I, 1))
Next
If posisi < Len(TEKS) Then
posisi = posisi + 1
Else
posisi = 1
End If
System.Threading.Thread.Sleep(200)
Loop Until (Console.KeyAvailable)
Console.ReadKey()
End Sub
End Module

Game Tembak

Keterangan Bermain :
tekan spasi untuk menembak
tekan esc untuk keluar
Mau Main Klik TIK dulu

ini nih kodenya :
Module Module1

Sub Main()
Console.Clear()
Console.BackgroundColor = 9
Dim i, x, y As Integer

For x = 30 To 45
Console.CursorLeft = x
Console.CursorTop = 11
Console.Write(" ")
System.Threading.Thread.Sleep(100)
Next
Console.BackgroundColor = 0
Console.Clear()
Dim tombol As Integer
Do
Console.Clear()
Console.CursorTop = 12
Console.CursorLeft = 30
Console.Write("tekan enter")
tombol = Console.ReadKey.Key
Loop While (tombol <> 13)

Console.BackgroundColor = ConsoleColor.White
For x = 1 To 78

Console.CursorLeft = x
Console.CursorTop = 1
Console.Write(" ")
Console.CursorLeft = x
Console.CursorTop = 23
Console.Write(" ")
Next
For i = 2 To 22

Console.CursorLeft = 1
Console.CursorTop = i
Console.Write(" ")
Console.CursorLeft = 78
Console.CursorTop = i
Console.Write(" ")
Next


Console.BackgroundColor = ConsoleColor.Black
Dim xs, ys
xs = 10
ys = 10
x = 42
y = 2
Dim ay
ay = 1
Dim sp, xp, yp
sp = 0
yp = 0 : xp = 0
Dim skor = 0
Do
Console.CursorTop = 3
Console.CursorLeft = 5
Console.Write("skor=" & skor)
If sp = 1 Then
Console.CursorTop = yp
Console.CursorLeft = xp
Console.Write("-")
End If
Console.CursorLeft = xs
Console.CursorTop = ys
Console.Write("*")
Console.CursorLeft = x
Console.CursorTop = y
Console.Write("0")
System.Threading.Thread.Sleep(10)
If sp = 1 Then
Console.CursorTop = yp
Console.CursorLeft = xp
Console.Write(" ")
End If
Console.CursorLeft = xs
Console.CursorTop = ys
Console.Write(" ")
Console.CursorLeft = x
Console.CursorTop = y
Console.Write(" ")
y = y + ay
If y = 2 Then
ay = 1
ElseIf y = 22 Then
ay = -1
End If

If Console.KeyAvailable Then
tombol = Console.ReadKey.Key
If tombol = 38 Then
If ys > 3 Then
ys = ys - 1
Else
ys = 3
End If
ElseIf tombol = 40 Then
If ys < ys =" ys" ys =" 23" tombol =" 32" sp =" 0" sp =" 1" xp =" xs" yp =" ys" sp =" 1" xp =" xp" sp =" 0" xp =" x" yp =" y" skor =" skor"> 27)



Console.ReadKey()
End Sub

End Module

Menggunakan seleksi IF

Pada pemograman ada namanya seleksi atau biasa juga disebut test kondisi.
test kondisi dibuat untuk melakukan pengecekan terhadap sejumlah nilai.
Test kondisi terdiri atas beberapa perintah yakni
1. if
2. select case
Nah yang bakal dibahas kali ini adalah test kondisi yang pertama yakni if.

if adalah sebuah perintah atau test kondisi yang akan menghasilkan nilai true atau false, dan jika hasil dari test kondisi tersebut menghasilkan nilai true(benar) maka blok pernyataan akan dikerjakan.
bentuk dari if
a.1. if 1 kondisi
if kondisi then pernyataan/perintah
artinya jika kondisi terpenuhi maka pernyataan atau perintah akan dikerjakan
a.2. if kondisi then
blok pernyataan
end if
penjelasan : jika digunakan bentuk diatas maka end if harus digunakan karena menggunakan blok perintah sedangkan pada a.1 tidak mempunyai end if karena tidak mempunyai blok pernyataan atau langsung dibuat disampingnya
contoh dari if 1 kondisi
bentuklah sebuah blok perintah yang menggunakan if 1 kondisi yang akan menghasilkan atau mencetak lulus pada kotak label jika nilai yang diinput bernilai lebih besar sama dengan 75
jawaban :
misalkan kotak tempat input diberi nama txtinput dan kotak yang akan menampilkan hasil diberi nama lblhasil maka program if yang benar adalah
if txtinput>=75 then lblhasil="lulus"
atau dapat juga
if txtinput>=75 then
lblhasil="lulus"
end if

String

Variabel String Pada Visual basic adalah adalah variabel yang dapat mengolah teks atau karakter. String dapat diolah menggunakan metode tertentu, Beberapa metode yang dimiliki oleh varaiabel string antara lain:
PadLeft Mengisi spasi atau karakter lain disebelah kiri string sampai string mencapai panjang tertentu.
PadRight Mengisi spasi atau karakter lain disebelah kanan string sampai string mencapai panjang tertentu.
ToLower Mengembalikan string yang telah diubah ke huruf kecil
ToUpper Mengembalikan string yang telah diubah ke huruf besar
Trim Mengembalikan string dengan membuang spasi didepan dan belakang string
TrimEnd Mengembalikan string dengan membuang spasi dibelakang string
TrimStart Mengembalikan string dengan membuang spasi didepan string
Substring Mengembalikan bagian dari string
contoh penggunaan (Tanda ' di sebelah kanan merupakan hasil dari perintah tersebut)

Sub Main()
Dim Nama As String = "Hendra Soewarno"
Dim Kota As String = " Medan "
Console.WriteLine(Nama.PadLeft(20,"-")) '-----Hendra Soewarno
Console.WriteLine(Nama.PadRight(20,"-")) 'Hendra Soewarno-----
Console.WriteLine(Nama.ToLower()) 'hendra soewarnao
Console.WriteLine(Nama.ToUpper()) 'HENDRA SOEWARNAO
Console.WriteLine(Kota.TrimEnd()) ' Medan
Console.WriteLine(Kota.TrimStart()) 'Medan------
End Sub

Program Bola Lambung

Module Module2
Sub main()
Dim x, y, ax, ay, a, x1, y1, ax1, ay1
x1 = 50
y1 = 2
ax1 = 1
ay1 = 1
x = 1
y = 1
ax = 1
ay = 1
Do
Console.CursorTop = y
Console.CursorLeft = x
Console.Write(a)
Console.CursorTop = y1
Console.CursorLeft = x1
Console.Write("*")
System.Threading.Thread.Sleep(100)
Console.CursorTop = y
Console.CursorLeft = x
Console.Write(" ")
Console.CursorTop = y1
Console.CursorLeft = x1
Console.Write(" ")

If x = 78 Then
ax = -1
a = Chr(Int(Rnd() * 26) + 65)
Console.ForegroundColor = Int(Rnd() * 14)
ElseIf x = 2 Then
ax = 1
a = Chr(Int(Rnd() * 26) + 65)
Console.ForegroundColor = Int(Rnd() * 14)
ElseIf y = 23 Then
ay = -1
a = Chr(Int(Rnd() * 26) + 65)
Console.ForegroundColor = Int(Rnd() * 14)
ElseIf y = 1 Then
ay = 1
a = Chr(Int(Rnd() * 26) + 65)
Console.ForegroundColor = Int(Rnd() * 14)
End If
If x1 = 78 Then
ax1 = -1
ElseIf x1 = 2 Then
ax1 = 1
ElseIf y1 = 23 Then
ay1 = -1
ElseIf y1 = 1 Then
ay1 = 1
End If
x = x + ax
y = y + ay
x1 = x1 + ax1
y1 = y1 + ay1

Loop While (Not Console.KeyAvailable)
End Sub
End Module

Operator

Operator
sebuah simbol (karakter atau kata kunci) yang mengoperasikan satu atau dua operand.

jenis-Jenis operator
        operator aritmatika
        operator relasi
        operator bitwise
        operator Logika

operator aritmatika
        * kali
        / bagi
        \ hasil bagi bulat
        ^ pangkat
        + tambah
        - kurang
        mod sisa bagi

operator relasi
        = sama dengan
        <> tdk sama dgn
        < lebih kecil
        > lebih besar
        <= lbh kecil sama dgn
        >= lbh besar sama dgn

operator bitwise
    and menghasilkan nilai 1 jika dua sisi bernilai 1
    or menghasilkan nilai 1 jk slh satu sisi atau dua sisi bernilai 1
    xor menghasilkan nilai 1 jk slh satu sisi bernilai 1

operator logika
    and menghasilkan nilai True jika kedua operand bernilai True
    Or menghasilkan nilai True jika slh satu atau operand bernilai True
    xor menghasilkan nilai True jika hanya salah satu atau operand bernilai True
    andalso menghasilkan nilai True jika kedua operand bernilai True
    Orelse menghasilkan nilai True jika slh satu atau operand bernilai True
    not menghasilkan nilai dari kebalikan

Prosedur

Prosedur digunakan untuk mengelompokkan baris-baris perintah yang dapat dipanggil sewaktu-waktu.

Bentuk umum dari sebuah prosedur
      sub NamaProsedur()
          perintah
      end sub
contohnya
      sub hapus()
          console.clear()
      end sub


Untuk memanggil sebuah prosedur digunakan nama prosedure tersebut.

Supaya sebuah prosedure dapat menyimpan nilai ketika dipanggil digunakan bentuk seperti berikut ini :
      Sub NamaProsedure([byval byref] variabel as type)
         perintah
      end sub

Contoh

      Sub cetak(byval i as string)
         Console.write(i)
      end sub

maka ketika Memakai atau memanggil prosedure tersebut digunakan cara

   cetak("kalimat yang akan dicetak")

Cara pengiriman Nilai ada 2 yakni:

   1.Byval

   2.ByRef


ByvalDigunakan untuk mengirimkan nilai ke prosedure kemudian nilai tersebut akan disimpan pada variabel penerima yang terdapat di prosedure tersebut.(jika anda menggunakan prosedur cetak yang diatas dan dipanggil dengan cara berikut

   a="selamat Tidur"
   cetak(a)

Maka Nilai yang terdapat di variabel a yaitu "selamat Tidur" akan disimpan di variabel i karena pada prosedure cetak variabelnya adalah i, sehingga nilai i adalah "selamat Tidur".

ByRefdigunakan untuk mengirimkan nilai ke variabel penampung pada prosedure dan jika variabel penampung tersebut diubah maka nilai variabel pemberi ikut diubah

contoh jika prosedure diubah menjadi seperti berikut

   sub cetak(byref i as string)
         console.write(i)
         i="Tidur aja terus"
      end sub

Variabel i adalah variabel penampung karena di kenalkan di dalam kurung sebuh prosedur. dan jika prosedure tersebut dipanggil dari sub utama dengan cara berikut
      a="selamat pagi"
      cetak(a)

maka nilai variabel a yang ada di sub main akan berubah menjadi "tidur aja terus".Variabel a disebut dengan variabel pemberi nilai

Perintah Pada Animasi

Dalam Pembuatan menggunakan Animasi dalam Visual Basic 2005 ada beberapa perintah yang digunakan seperti:
    1. Readkey
    2. KeyAvailable
    3. Sleep

ReadKey digunakan untuk menerima tombol atau bisa juga dibilang membuat program berhenti sampai ditekan sembarang tombol. Nilai tombol yang ditekan bisa disimpan ke dalam sebuah variabel dengan cara
      dim i = console.readkey
Nilai dari variabel i adalah nilai karakte dari tombol yang ditekan sedangkan jika hendak mengambil nilai angka dari tombol yang ditekan adalah
      dim i =console.readkey.key
misalkan jika kita menekan tombol enter maka nilai dari variabel i adalah 13 atau tombol esc yang bernilai 27

KeyAvailable berfungsi untuk memerika apakah ada tombol ditekan atau tidak. KeyAvailable akan bernilai true jika ada tombol ditekan dan akan bernilai false jika tidak ada tombol ditekan.

Sleep digunakan untuk membuat jeda/berhenti dalam selang waktu yang ditentukan, selang waktu dalam hitungan 1/1000 detik. jadi jika sleep diberi nilai yang tinggi maka akan membuat program benti dalam waktu yang lama.
Sleep digunakan dengan cara :
      system.Threading.Thread.Sleep(waktu)
      contoh : system.Threading.Thread.Sleep(100)