Penggunaan To Be “Is, Am, Are” Dalam Bahasa Inggris

Penggunaan To Be “Is, Am, Are” Dalam Bahasa Inggris – Oke, kali ini materi yang akan kita bahas adalah seputar penggunaan to be (be), dan pembahasan akan kita fokuskan pada penggunaan is, am, dan are. Berdasarkan tenses yang ada, perlu kita ketahui bahwa penggunaan to be “is,am, dan are” ini hanya digunakan pada simple present tense, present continuous tense, dan simple future tense saja. Jadi untuk tenses lainnya tidak akan pernah menggunakan is/am/are. Untuk lebih jelasnya, simak pembahasan penggunaan to be “is, am, are” dibawah ini :

Penggunaan To Be “Is, Am, Are” Dalam Simple Present Tense
Rumus yang digunakan dalam simple present tense adalah :

1. S + is/am/are + Non verb
2. S + Verb1 (s/es)

Keterangan :
S adalah subjek

Dari rumus-rumus diatas, rumus yang pertamalah yang menggunakan is/am/are. Kita akan menggunakan rumus yang pertama ketika tidak ada kata kerja utama didalam sebuah kalimat. Untuk lebih memudahkan, coba kalian perhatikan contoh dibawah ini :

• I am Indonesian (Saya orang Indonesia)
• She is beautiful. (Dia cantik.)
• They are smart. (Mereka pintar.)
• It is a dog. (Ini adalah seekor anjing.)
• I am not Indonesian. (Saya bukan orang Indonesia.)
• She is not beautiful. (Dia tidak cantik.)
• They are not smart. (Mereka tidak pintar.)
• It is not a dog. (Ini bukan anjing.)
• Am I Indonesian? (Apakah saya orang Indonesia?)
• Is she beautiful? (Apakah dia cantik?)
• Are they smart? (Apakah mereka pintar?)
• Is it a dog? (Apakah ini seekor anjing?)

Untuk rumus yang kedua, kita tidak menggunakan is,am, ataupun are karena dalam rumus ini terdapat kata kerja utama. Contoh “I read books”, “She always comes on time”. Read dan comes merupakan kata kerja utama. Kalian harus mempelajari materi kata kerja terlebih dahulu untuk memudahkan pemahaman kalian.

Baca selengkapnya materi simple present tense.

Penggunaan To Be “Is, Am, Are” Dalam Present Continuous Tense
Rumus yang digunakan untuk present continuous tense adalah S + is/am/are + Verb.ing.  Dalam tense ini, penggunaan is/am/are menjadi wajib karena jika kita tidak menggunakannya malah akan menjadi sebuah kalimat yang salah.

Contoh :

• I am studying English. (Saya sedang belajar bahasa inggris.)
• We are discussing a problem. (Kami sedang mendiskusikan sebuah masalah.)
• He is reading a book. (Dia sedang membaca sebuah buku.)
• I am not studying English. (Saya tidak sedang belajar bahasa inggris.)
• We are not discussing a problem. (Kami tidak sedang mendiskusikan sebuah masalah.)
• He is not reading a book. (Dia tidak sedang membaca sebuah buku.)
• Is He reading a book? (Apakah dia sedang membaca sebuah buku?)

Baca selengkapnya materi present continuous tense.

Penggunaan To Be “Is, Am, Are” Dalam simple future tense dapat kalian baca pada materi berikut ini:

Materi simple future tense.

Penggunaan To Be “Is, Am, Are” Berdasarkan Subjeknya
Penggunaan is/am/are dalam kedua tenses diatas tergantung dengan subjeknya, maksudnya apakah sebuah subjek tertentu menggunakan is atau am ataukah are, kita harus memilih salah satunya, sedangkan subjek sendiri dapat berupa noun, pronoun, ataupun noun phrase. Coba kalian perhatikan tabel dibawah ini :

Subjek	Is/am/are
I	Am
You	Are
She	Is
He	Is
It	Is
We	Are
They	Are
Girl	Is
Girls	Are
Beautiful girl	Is
Beautiful girls	Are
Boy	Is
Boys	Are
Shinta (nama seseorang)	Is
Budi (nama seseorang)	Is
Etc…

Selanjutnya: Soal latihan penggunaan is, am, are.

By the way, mungkin hanya itu saja materi penggunaan to be “is, am, are” dalam bahasa inggris yang dapat saya berikan. Semoga materi diatas bermanfaat.

cara mengembalikan file flash disk yang hilang

sering kali saat kita mengcopi file dari laptop teman kemudian yang terjadi adalah file di flas disk kita kosong.. pdahal terisi.. berikut tipsnya.

Buka note pad :

ketikan:attrib -s -h *.* /S /D
save dengan extension .bat


jalankan di flasdisk,,



semoga berguna

membuat auto resize

Public Type ctrObj

  Name As String

  Index As Long

  Parrent As String

  Top As Long

  Left As Long

  Height As Long

  Width As Long

  ScaleHeight As Long

  ScaleWidth As Long

End Type

Private FormRecord() As ctrObj

Private ControlRecord() As ctrObj

Private bRunning As Boolean

Private MaxForm As Long

Private MaxControl As Long

Private Function ActualPos(plLeft As Long) As Long

  If plLeft < 0 Then

    ActualPos = plLeft + 75000

  Else

    ActualPos = plLeft

  End If

End Function

Private Function FindForm(pfrmIn As Object) As Long

  Dim i As Long

 

  FindForm = -1

  If MaxForm > 0 Then

    For i = 0 To (MaxForm - 1)

      If FormRecord(i).Name = pfrmIn.Name Then

        FindForm = i

        Exit Function

      End If

    Next i

  End If

End Function

Private Function AddForm(pfrmIn As Object) As Long

  Dim FormControl As Control

  Dim i As Long

  ReDim Preserve FormRecord(MaxForm + 1)

  FormRecord(MaxForm).Name = pfrmIn.Name

  FormRecord(MaxForm).Top = pfrmIn.Top

  FormRecord(MaxForm).Left = pfrmIn.Left

  FormRecord(MaxForm).Height = pfrmIn.Height

  FormRecord(MaxForm).Width = pfrmIn.Width

  FormRecord(MaxForm).ScaleHeight = pfrmIn.ScaleHeight

  FormRecord(MaxForm).ScaleWidth = pfrmIn.ScaleWidth

  AddForm = MaxForm

  MaxForm = MaxForm + 1

  For Each FormControl In pfrmIn

    i = FindControl(FormControl, pfrmIn.Name)

    If i < 0 Then i = AddControl(FormControl, pfrmIn.Name)

  Next FormControl

End Function

Private Function FindControl(inControl As Control, inName As String) As Long

  Dim i As Long

 

  FindControl = -1

  For i = 0 To (MaxControl - 1)

    If ControlRecord(i).Parrent = inName Then

      If ControlRecord(i).Name = inControl.Name Then

        On Error Resume Next

       

        If ControlRecord(i).Index = inControl.Index Then

          FindControl = i

          Exit Function

        End If

        On Error GoTo 0

     

      End If

    End If

  Next i

End Function

Private Function AddControl(inControl As Control, inName As String) As Long

  ReDim Preserve ControlRecord(MaxControl + 1)

  On Error Resume Next

 

  ControlRecord(MaxControl).Name = inControl.Name

  ControlRecord(MaxControl).Index = inControl.Index

  ControlRecord(MaxControl).Parrent = inName

  If TypeOf inControl Is Line Then

    ControlRecord(MaxControl).Top = inControl.Y1

    ControlRecord(MaxControl).Left = ActualPos(inControl.X1)

    ControlRecord(MaxControl).Height = inControl.Y2

    ControlRecord(MaxControl).Width = ActualPos(inControl.X2)

  Else

    ControlRecord(MaxControl).Top = inControl.Top

    ControlRecord(MaxControl).Left = ActualPos(inControl.Left)

    ControlRecord(MaxControl).Height = inControl.Height

    ControlRecord(MaxControl).Width = inControl.Width

  End If

  inControl.IntegralHeight = False

 

  On Error GoTo 0

  AddControl = MaxControl

  MaxControl = MaxControl + 1

End Function

Private Function PerWidth(pfrmIn As Object) As Long

  Dim i As Long

 

  i = FindForm(pfrmIn)

  If i < 0 Then i = AddForm(pfrmIn)

 

  PerWidth = (pfrmIn.ScaleWidth * 100) \ FormRecord(i).ScaleWidth

End Function

Private Function PerHeight(pfrmIn As Object) As Single

  Dim i As Long

 

  i = FindForm(pfrmIn)

  If i < 0 Then i = AddForm(pfrmIn)

 

  PerHeight = (pfrmIn.ScaleHeight * 100) \ FormRecord(i).ScaleHeight

End Function

Private Sub ResizeControl(inControl As Control, pfrmIn As Object)

  On Error Resume Next

  Dim i As Long

   Dim yRatio, xRatio, lTop, lLeft, lWidth, lHeight As Long

 

  yRatio = PerHeight(pfrmIn)

  xRatio = PerWidth(pfrmIn)

  i = FindControl(inControl, pfrmIn.Name)

  If inControl.Left < 0 Then

    lLeft = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000)

  Else

    lLeft = CLng((ControlRecord(i).Left * xRatio) \ 100)

  End If

  lTop = CLng((ControlRecord(i).Top * yRatio) \ 100)

  lWidth = CLng((ControlRecord(i).Width * xRatio) \ 100)

  lHeight = CLng((ControlRecord(i).Height * yRatio) \ 100)

 

  If TypeOf inControl Is Line Then

    If inControl.X1 < 0 Then

      inControl.X1 = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000)

    Else

      inControl.X1 = CLng((ControlRecord(i).Left * xRatio) \ 100)

    End If

   

    inControl.Y1 = CLng((ControlRecord(i).Top * yRatio) \ 100)

    If inControl.X2 < 0 Then

      inControl.X2 = CLng(((ControlRecord(i).Width * xRatio) \ 100) - 75000)

    Else

      inControl.X2 = CLng((ControlRecord(i).Width * xRatio) \ 100)

    End If

    inControl.Y2 = CLng((ControlRecord(i).Height * yRatio) \ 100)

  Else

    inControl.Move lLeft, lTop, lWidth, lHeight

    inControl.Move lLeft, lTop, lWidth

    inControl.Move lLeft, lTop

  End If

End Sub

Public Sub ResizeForm(pfrmIn As Object)

 

  Dim FormControl As Control

  Dim isVisible As Boolean

  Dim StartX, StartY, MaxX, MaxY As Long

  Dim bNew As Boolean

 

 

  If Not bRunning Then

    bRunning = True

   

     

   

    If FindForm(pfrmIn) < 0 Then

      bNew = True

    Else

      bNew = False

    End If

    If pfrmIn.Top < 30000 Then

      isVisible = pfrmIn.Visible

      On Error Resume Next

     

      If Not pfrmIn.MDIChild Then

        On Error GoTo 0

        'pfrmIn.Visible = False

       

      Else

        If bNew Then

          StartY = pfrmIn.Height

          StartX = pfrmIn.Width

          On Error Resume Next

         

          For Each FormControl In pfrmIn

            If FormControl.Left + FormControl.Width + 200 > MaxX Then _

              MaxX = FormControl.Left + FormControl.Width + 200

            If Xctrl.Top + FormControl.Height + 500 > MaxY Then _

              MaxY = FormControl.Top + FormControl.Height + 500

            If FormControl.X1 + 200 > MaxX Then _

              MaxX = FormControl.X1 + 200

            If FormControl.Y1 + 500 > MaxY Then _

              MaxY = FormControl.Y1 + 500

            If FormControl.X2 + 200 > MaxX Then _

              MaxX = FormControl.X2 + 200

            If FormControl.Y2 + 500 > MaxY Then _

              MaxY = FormControl.Y2 + 500

             

          Next FormControl

          On Error GoTo 0

         

          pfrmIn.Height = MaxY

          pfrmIn.Width = MaxX

        End If

        On Error GoTo 0

      End If

     

      For Each FormControl In pfrmIn

        ResizeControl FormControl, pfrmIn

                    

      Next FormControl

      On Error Resume Next

      If Not pfrmIn.MDIChild Then

        On Error GoTo 0

        pfrmIn.Visible = isVisible

      Else

        If bNew Then

          pfrmIn.Height = StartY

          pfrmIn.Width = StartX

         

          For Each FormControl In pfrmIn

            ResizeControl FormControl, pfrmIn

          Next FormControl

        End If

      End If

      On Error GoTo 0

     

    End If

    bRunning = False

  End If

  EventActive = False

End Sub

Public Sub SaveFormPosition(pfrmIn As Object)

  Dim i As Long

  If MaxForm > 0 Then

    For i = 0 To (MaxForm - 1)

      If FormRecord(i).Name = pfrmIn.Name Then

        FormRecord(i).Top = pfrmIn.Top

        FormRecord(i).Left = pfrmIn.Left

        FormRecord(i).Height = pfrmIn.Height

        FormRecord(i).Width = pfrmIn.Width

        Exit Sub

      End If

    Next i

    AddForm (pfrmIn)

  End If

End Sub

Public Sub RestoreFormPosition(pfrmIn As Object)

  Dim i As Long

  If MaxForm > 0 Then

    For i = 0 To (MaxForm - 1)

      If FormRecord(i).Name = pfrmIn.Name Then

        If FormRecord(i).Top < 0 Then

          pfrmIn.WindowState = 2

        ElseIf FormRecord(i).Top < 30000 Then

          pfrmIn.WindowState = 0

          pfrmIn.Move FormRecord(i).Left, FormRecord(i).Top, FormRecord(i).Width, FormRecord(i).Height

        Else

          pfrmIn.WindowState = 1

        End If

        Exit Sub

      End If

    Next i

  End If

End Sub

Membatasi Masukan Agar tetap angka Pada VB6

Sering kali saat pembuatan form program vb6 ada kalanya kita membutuh kan sebuah text box yang hanya bisa diisi oleh angka, bagaimana caranya ??

berikut source kodenya 

private sub tnotelp_keypress (keyascii as integer)

If Not (KeyAscii >= Asc(“0″) _
And KeyAscii <= Asc(“9″) _
Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End Sub

Sekian dari saya semoga bermanfaat...

Sebuah saran untuk Melamar Pekerjaan

Bismillahirrahmanirrohim...
Saya mulai berfikir untuk menulis topik tentang melamar pekerjaan ini sejak saya merasakan paitnya pailit
setelah 5 tahun lamanya bekerja di perusahaan penerbangan.
Mungkin bagi sebagian orang yang punya channel atau orang dalam di perusahaan perusahaan tertentu tidak sulit untuk mereka mencari pekerjaan di perusahhan tersebut, namun untuk kita yang bukan siapa siapa atau sebagai perantau yang baru pertama kali datang ke suatu daerah tentu akan lain ceritanya.

Ada cerita beberapa teman yang sama-sama dari kampung saya berucap mencari pekerjaan itu sulit, tetapi jika dikembalikan kembali pada usaha mereka , sangatlah tidak pas . Karena melamar pekerjaan pun tidak.
Tidak ada usaha yang kongkrit dan nyata dari mereka untuk melamar pekerjaan, mereka mengandalkan teman teman yang sudah bekerja lalu berusaha menitipkan lamaran pekerjaan tersebut , hal ini yang menurut saya tidak efektif.

Cara yang paling manjur yang saya sudah pakai adalah carilah pekerjaan di internet , mendaftarlah di situs-situs seperti JObstreet.com atau jobsdb.com dan setelah mendapat akun lamarlah pekerjaan sebanyak dan se kontinyu mungkin dalam kasus saya rata-rata saya melamar di 5 perusahaan setiapa hari.

Saran saya lamarlah pekerjaan yang sesuai denagn bidang keahlian anda dan jangan lah bosan untuk mengikuti test dan interview di perusahaan yang memanggil anda dan jangan lupa berdoa.

Yakinlah satu dari sekian banyak perusahaan tersebut akan menerima anda jika anda terus berusaha dan berdo'a. 

Cara menggunakan keyboard onscreen

Halo ,

Sering kali kita kesal ketika mengalami masalah pada keyboard laptop kita,

Ketika beberapa tombol pada keyboard kita mati dan tidak bisa digunakan lagi,

Sedangkan pada beberapa kasus kita sangat membutuhkan tombol tersebut semisal print screen,

Ok baiklah berikut  cara menggunakan onscreen keyboard :

Klik kanan pada dekstop kemuadian pilih NEW >> Shortcut 

Lalu ketikan OSK >> klik NEXT,

Dan onscreen keyboard pun siap digunakan.

Selamat mencoba,

Low cost To JOGJAKARTA

Tegal, 12 February 2013

Ini tulisan pertama ku di blog ini ,, 

Ceritanya sih pengen ngisi waktu luang sambil belajar,

Oke kali ini  saya pengen bercerita tentang perjalan super murah ke jogjakarta dari jakarta.

Kami adalah  sekelompok pelajar sekaligus pekerja dari jakarta.

kebetulan waktu itu sedang liburan jadi kami putuskan untuk pergi ke kota jogjakarta untuk refresing.

Setelah melewati perdebatan panjang, dan mempertimbangkan biaya, akirnya kami putusakan untuk naik kereta progo , untuk dicatat kereta ekonomi sekarang sudah nyaman banyak tempat duduk yang kosong, 

saya masih ingat bagaiman kereta ekonomi itu bagai pasar berjalan, penuh sesak panas , semua bau ada disitu ,bau ketek bau kringet, semuanya sudah hilang sekarang.

Untuk menghemat biaya dan waktu kami menggunakan kereta api , ongkos kereta untuk sekali jalan Senen-Lempuyangan Rp.35.000 . Dengan adanya kebijakan baru dari PT.KAI kereta ekonomi sekarang jauh lebih nyaman. semua tiket sudah disesuaikan dengan nomor kursi yang tertera. dan sudah jarang pedagang yang mondar mandir.  waktu tempuh jakarta jogja sekitar 10 jam bisa kita gunakan untuk istirahatdan tidur.

Kereta berangkat pukul 20:30 dan tiba di jogja jam 07:30 pagi. setibanya di lempuyangan kami langsung ditawari mobil-mobil carteran , setelah tawar menawar akhirnya kami sepakat dengan harga Rp.350.000  untuk dua tujuan wisata bisa dipilih borobudur-prambanan-kaliurang,menggunakan mobil panter dan sudah termasuk supir (jumlah kami 11 orang ). Kamar mandi di stasiun Lempuyangan biasanya di gunakan para  bagpacker untuk mandi dan bersih,lagi-lagi untuk menghemat biaya.

Tiba di Borobudur pukul 09.30 , kami sarapan di perjalanan karna pasti di tempat wisata nanti harga makanan akan melambung tinggi, kami juga membeli beberapa camilan dan air minum ( cuaca di borobudur relatif panas). tiket masuk borobudur adalah Rp.30.000.

Dari borobudur perjalan kami lanjutkan ke kali urang, cauca disini relatif dingin ongkos masuk ke kawasan kaliurang adalah Rp.10.000 / mobil.  di kali urang kita akan menjumpai banyak monyet monyet liar,

dan saat mendaki disarankan untuk tidak membawa barang-barang yang akan direbut oleh monyet.

Berangkat pulang ke jogja sore hari kami putuskan untuk menginap di penginapan di belakang plaza malioboro . ongkos semalam untuk 4 orang adalah Rp.110.000. 

Suasana malam di malioboro sayat menyenangkan ,kami putuskan untuk mengungjungi alun alun kidul .

perjalanan kami tempuh dengan menyewa delman Rp.40.000 untuk 8 orang.

Selanjutnya kami menghabiskan malam di malioboro.

Pagi hari kami putuskan untuk berbelanja oleh oleh di pasar beringharjo.

Jam 10.00 kami pergi ke keraton jogja karta dan ke taman sari.

Jam 15:00 kami berangkat ke stasiun,, dan selamat tinggal jogja.