Membuat Aplikasi Menggunakan Visual Basic (Data Mahasiswa)

nah mungkin teman-teman ingin mencoba membuat aplikasi menggunakan Visual Basic. disini saya ada contoh yaitu tentang Data Mahasiwa, bagi teman teman yang tertarik silahan lihat gambar dibawah, atau silakan dowload langsung file VB Data Mahasiswa.

untuk membuat aplikasi Data mahasiswa sendiri saya menggunakan coding seperti ini. bisa teman teman lihat dibawah ini.

Dim ket As String


Private Sub cmbjurusan_click()
    Select Case cmbjurusan
        Case "Manajemen Informatika"
            If cmdsave Then
                cmdsave_Click
                DataGrid1.Columns(5) = "Manajemen Informatika"
            End If
        Case Else
            If cmdsave Then
                cmdsave_Click
                DataGrid1.Columns(5) = "Komputerisasi Akuntansi"
            End If
    End Select

txtsmt.SetFocus
End Sub

Private Sub cmdadd_Click()
    Call aktif
    Call bersih
    txtnim.SetFocus
    cmdadd.Enabled = False
    cmdsave.Enabled = True
    cmdedit.Enabled = False
    cmddel.Enabled = False
    cmdundo.Enabled = True
    cmdexit.Enabled = True
End Sub
Sub aktif()
    txtnim.Enabled = True
    txtnama.Enabled = True
    txtalamat.Enabled = True
    txttempat.Enabled = True
    txtttl.Enabled = True
    cmbjurusan.Enabled = True
    txtsmt.Enabled = True
    cmdedit.Caption = "&Edit"
End Sub

Private Sub cmddel_Click()
    p = MsgBox("Do you want to delete this record?", vbQuestion + vbYesNo, "Warning")
    If p = vbYes Then
        adodtmhs.Recordset.Delete
        MsgBox "Record was delete succesfully!", vbInformation, "Feed Back"
        bersih
        nonaktif
    End If
End Sub

Private Sub cmdedit_Click()
      
    If cmdedit.Caption = "&Edit" Then
        aktif
        cmdedit.Caption = "&Update"
        cmdundo.Enabled = True
        txtnim.Enabled = False
        txtnama.SetFocus
    ElseIf cmdedit.Caption = "&Update" Then
    txtnim.Enabled = False
    With adodtmhs.Recordset
        !Nama = txtnama.Text
        !Alamat = txtalamat.Text
        !Tempat_Lahir = txttempat.Text
        !Tanggal_Lahir = txtttl.Text
        !Jurusan = cmbjurusan.Text
        !Semester = txtsmt.Text
        .Update
        End With
        MsgBox "Data telah diperbarui", , "Informasi"
        nonaktif
        cmdundo.Enabled = False
        cmdedit.Caption = "&Edit"
      
    If txtnama.Text = "" Or txtttl.Text = "" Then
        MsgBox "Pastikan NIM, Nama dan Tanggal Lahir tidak kosong", , "Penting"
    End If
 
    End If
 
    cmdadd.Enabled = True
    cmdsave.Enabled = False
    cmdedit.Enabled = True
    cmddel.Enabled = False
End Sub

Private Sub cmdexit_Click()
    p = MsgBox("Do you want to exit?", vbQuestion + vbOKCancel, "Data Mahasiswa")
    If p = vbOK Then
        End
    End If
End Sub

Sub tampil()
    DataGrid1_Click
End Sub

Private Sub cmdfind_Click()
adodtmhs.Recordset.Find "NIM = '" & txtfind.Text & "'"
    If Not adodtmhs.Recordset.EOF Then
        tampil
        aktif
        cmdadd.Enabled = True
        cmdsave.Enabled = True
        cmdedit.Enabled = True
        cmdsave.Enabled = True
        cmdundo.Enabled = True
        cmdexit.Enabled = True
        cmddel.Enabled = True
        txtfind.Text = ""
    Else
        MsgBox "kode barang tidak ada", vbInformation, "info"
        txtfind.Text = ""
    End If
End Sub

Private Sub cmdsave_Click()
    cmdadd.Enabled = False
    cmdsave.Enabled = True
    adodtmhs.Recordset.Find "NIM= '" & txtnim.Text & "'"
    If txtnim.Text = "" Or txtnama.Text = "" Or txtttl.Text = "" Then
        MsgBox "Mohon isi data dengan lengkap", vbInformation, "Penting"
      
    ElseIf Len(txtnim.Text) < 8 Then
        MsgBox "NIM Harus 8 angka!", , "Penting"
    Else
        If adodtmhs.Recordset.EOF Then
            simpan
            MsgBox "Data tersimpan", , "Informasi"
            cmdsave.Enabled = False
            cmdadd.Enabled = True
            bersih
            nonaktif
        Else
            MsgBox "NIM sudah ada!", vbCritical, "Informasi"
            txtnim.Text = Empty
            txtnim.SetFocus
        End If
    End If
  
    cmdundo.Enabled = False
End Sub
Sub simpan()
    With adodtmhs.Recordset
        .AddNew
        !NIM = txtnim.Text
        !Nama = txtnama.Text
        !Alamat = txtalamat.Text
        !Tempat_Lahir = txttempat.Text
        !Tanggal_Lahir = txtttl.Text
        !Jurusan = cmbjurusan.Text
        !Semester = txtsmt.Text
        .Update
    End With
End Sub

Private Sub cmdundo_Click()
    bersih
    nonaktif
    cmdadd.Enabled = True
    cmdexit.Enabled = True
    cmdsave.Enabled = False
    cmdundo.Enabled = False
End Sub

Private Sub DataGrid1_Click()
    txtnim.Text = DataGrid1.Columns(0)
    txtnama.Text = DataGrid1.Columns(1)
    txtalamat.Text = DataGrid1.Columns(2)
    txttempat.Text = DataGrid1.Columns(3)
    txtttl.Text = DataGrid1.Columns(4)
    cmbjurusan.Text = DataGrid1.Columns(5)
    txtsmt.Text = DataGrid1.Columns(6)
    If DataGrid1 = ActiveControl Then
        cmdedit.Enabled = True
        cmddel.Enabled = True
        cmdsave.Enabled = False
    End If
    nonaktif
End Sub
Sub bersih()
    txtnim.Text = Empty
    txtnama.Text = Empty
    txtalamat.Text = Empty
    txttempat.Text = Empty
    txtttl.Text = Empty
    cmbjurusan.Text = Empty
    txtsmt.Text = Empty
End Sub

Sub nonaktif()
    txtnim.Enabled = False
    txtnama.Enabled = False
    txtalamat.Enabled = False
    txttempat.Enabled = False
    txtttl.Enabled = False
    cmbjurusan.Enabled = False
    txtsmt.Enabled = False
End Sub

Private Sub Form_Activate()
    txtfind.SetFocus
    ket = "  " & Label10.Caption
    cmbjurusan.AddItem "Manajemen Informatika"
    cmbjurusan.AddItem "Komputerisasi Akuntansi"
    Label12.Caption = Time
Label11.Caption = Format(Date, "dddd,dd-mmmm-yyyy")
End Sub

Private Sub Form_Load()
    Call nonaktif
    cmdadd.Enabled = True
    cmdsave.Enabled = False
    cmdedit.Enabled = False
    cmddel.Enabled = False
    cmdundo.Enabled = False
    cmdexit.Enabled = True
End Sub


Private Sub Timer1_Timer()
ket = Right(ket, Len(ket) - 1) & Left(ket, 1)
Label10.Caption = ket
End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txttempat.SetFocus
    End If
End Sub

Private Sub txtjur_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtsmt.SetFocus
    End If
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtalamat.SetFocus
    End If
End Sub

Private Sub txtnim_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtnama.SetFocus
    End If
End Sub

Private Sub txttempat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtttl.SetFocus
    End If
End Sub

Private Sub txtttl_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        cmbjurusan.SetFocus
    End If
End Sub

silakan langsung dowload disini : Mari Dowload

Membuat Aplikasi Menggunakan Visual Basic (Biro Perjalan)

nah mungkin teman-teman ingin mencoba membuat aplikasi menggunakan Visual Basic. disini saya ada contoh yaitu tentang biro perjalan, bagi teman teman yang tertarik silahan lihat gambar dibawah, atau silakan dowload langsung file VB Biro Perjalanan.

 untuk membuat aplikasi Biro Perjalan sendiri saya menggunakan coding seperti ini. bisa teman teman lihat dibawah ini.

Sub otomatis()
With Adodc1.Recordset
Dim a As String
If .EOF Then
Text2.Text = "TR" + "001"
Else
.MoveLast
a = Val(Right(!notrans, 3)) + 1
Text2.Text = "TR" + Right("000" & a, 3)
End If
End With
End Sub

Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Combo1.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
End Sub
Sub mati()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Combo1.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
End Sub
Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
End Sub
Sub simpan()
     With Adodc1.Recordset
          .AddNew
          !Tanggal = Text1.Text
          !notrans = Text2.Text
          !Nama_pembeli = Text3.Text
          !Alamat = Text4.Text
          !Tujuan = Combo1.Text
          !harga = Text6.Text
          !Jumlah = Text6.Text
          .Update
     End With
End Sub


Private Sub Combo1_Click()
If Combo1.Text = "Pontianak-Singkawang" Then
            Text5.Text = "95000"
    ElseIf Combo1.Text = "Pontianak-Sintang" Then
            Text5.Text = "160000"
    ElseIf Combo1.Text = "Pontianak-Sanggau" Then
            Text5.Text = "110000"
        End If
End Sub

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MoveLast
End Sub

Private Sub Command5_Click()
Call aktif
Call otomatis
Text2.SetFocus
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.Find "Notrans='" & Text2.Text & "'"
If Adodc1.Recordset.EOF Then
    simpan
Else
    MsgBox "Kode Sudah Ada"
    Text1.Text = Empty
    Text2.SetFocus
End If
Call bersih
End Sub

Private Sub Command7_Click()
Call mati
End Sub

Private Sub Command8_Click()
 p = MsgBox("Do you want to delete this record?", vbQuestion + vbYesNo, "Warning")
    If p = vbYes Then
        Adodc1.Recordset.Delete
        MsgBox "Record was delete succesfully!", vbInformation, "Feed Back"
    End If
End Sub

Private Sub Command9_Click()
p = MsgBox("Do you want to exit?", vbQuestion + vbOKCancel, "Data Mahasiswa")
    If p = vbOK Then
        End
    End If
End Sub

Private Sub Form_Load()
Call mati
Combo1.AddItem "Pontianak-Singkawang"
    Combo1.AddItem "Pontianak-Sintang"
    Combo1.AddItem "Pontianak-Sanggau"
Text1.Text = Format(Date, "dddd,dd-mmmm-yyyy")
End Sub


Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7 = Val(Text5) * Val(Text6)
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9 = Val(Text8) - Val(Text7)
End If
End Sub

silakan langsung dowload disini : DOWLOAD DISINI

MUDAHNYA KERJA ONLINE

Ayo semua, buruan gabung di poin-web sekarang juga!

* Apa itu poin-web ?
poin-web adalah situs dimana kamu bisa kumpulin poin gratis dengan menyenangkan dan konten yang menarik.
Tukar poin yang terkumpul dengan hadiah gratis !

* Cara dapetin poin ?
Gampang kok! Kamu bisa dapet poin hanya dengan melakukan berbagai aktivitas seperti main game, lihat iklan, ikutan kuisioner, ikutan promo, dan masih banyak lagi!!

* Poin nya untuk apa ?
Tukar poin kamu dengan gratis voucher belanja, makanan, game online, tiket nonton bioskop dan masih banyak lagi!

* Voucher apa aja ?
Voucher belanja di  : Carrefour, zara, sogo, adidas dan lainnya
Voucher makanan     : KFC, Starbucks, BurgerKing, Domino Pizza, dan lainnya
Voucher game online : Indomog, Gudang voucher, dan lainnya
Pulsa gratis        : Telkomsel, Xl, Axis, Indosat dan lainnya

dan masih banyak lagiii!!!

* Gimana cara daftarnya ?
Cukup klik button dibawah ini dan dapatkan bonus 2.500 poin jika kamu melengkapi pendaftarannya.
Tunggu apa lagi, daftar sekarang juga dan jangan lupa ajak teman - teman kamu yaa~
   

CARA CEPAT MENAMBAH TINGGI BADAN ALAMI

TIPS MENAMBAH TINGGI BADAN SECARA ALAMI

Tubuh dengan tinggi badan yang ideal tentu dambaan setiap orang. Kecepatan pertambahan tinggi badan berbeda tiap orang tergantung usaha kita masing-masing. Sebelum saya sampaikan tips cara cepat meninggikan badan perlu diketahui beberapa hal di bawah ini.

Faktor-faktor yang mempengaruhi tinggi badan

1. Cukup Gizi. Pastikan kita kecukupan protein, lemak, vitamin (seperti vitamin A dan D) dan mineral (seperti zat besi, kalsium, seng dan yodium) karena sangat mempengaruhi peninggian badan.

2. Faktor Keturunan juga menentukan tinggi badan seseorang. Orang tua yang memiliki tinggi badan ideal membuka potensi memilik anak dengan tinggi pula.

3. Hormon pertumbuhan berfungsi merangsang pertumbuhan tulang. Hormon tiroid dibutuhkan untuk dalam melancarkan proses metabolismetubuh. Hormon seks, yang terdiri dari hormon estrogen, progesteron dan androgen, bertugas dalam proses pematangan seksual.

4. Dukungan lingkungan. Kurangnya imunisasi, kasih sayang yang cukup dan kebutuhan ekonomi dapat mempengaruhi nafsu makan, kebutuhan kesehatan. Sehingga proses peninggian badan pun terhambat.

Aktifitas yang dapat mengoptimalkan tinggi badan

1. Stretching : gerakan meregangkan badan. Sehingga tulang-tulang punggung tertarik memanjang. Jika gerakan ini dilakukan secara rutin dan intensif maka dapat membantu merangsang penambahan panjang tulang-tulang punggung.

2. Hanging : bergantung dengan kedua tangan. Gerakan ini sangat merangsang pemanjangan tulang-tulang punggung.

3. Kicking : menendang-nendangkan kan kaki. Gerakan ini merangsang pertumbuhan tulang kaki sehingga memanjang secara optimal.

4. Biking : bersepeda dapat merangsang pertambahan panjang kaki. Menapak pedal secara rata, tidak jinjit. Punggung tegap, tidak membungkuk. Jika setiap hari bersepeda dalam jarak yang cukup jauh, dapat membantu merangsang pertambahan panjang kaki.

5. Swimming : Pada waktu berenang, seluruh badan mengalami peregangan dari badan sampai ujung kaki. Disamping itu, gerakan renang hampir melibatkan semua otot-otot tubuh.

6. Olahraga basket atau voli sangat baik merangsang pertumbuhan badan. karena tubuh sering melakukan loncatan-loncatan keatas. Loncatan melawan gravitasi, menimbulkan peregangan pada seluruh tubuh.

CARA CEPAT MENAMBAH TINGGI BADAN ALAMI

1. Perbanyak olahraga di pagi hari. Jogging, senam, voli, terutama basket dan renang.
2. Cukup istirahat tidur 7-8 jam sehari secara teratur dan bangun pagi.
3. Cukupi gizi dengan konsumsi nutrisi dan vitamin. Banyak minum susu berkalsium tinggi dan zat besi.
4. Makan teratur dan hindari stress.
5. Kalau perlu minum obat peninggi badan alami.
6. Jangan lupa berdoa.

Demikian beberapa cara menambah tinggi badan yang dapat kita lakukan. Semoga bermanfaat.***

7 Keajaiban Dunia Yang Mungkin Belum Kita Ketahui

1.Banaue Rice Terraces di Filipina

Dari gambar ini kelihatan luar biasa, ya, sawah irigasi kuno yang berumur 2000 tahun. Terletak di gunung IfugaoFilipina, terkenal dengan sebutan Banaue Rice Terraces. Tidak muluk-muluk, tapi Filipina merasa cukup puas seandainya Banaue Rice Terracesditempatkan sebagai “Keajaiban Dunia ke Delapan".

Diperkirakan, sawah yang ‘diukir’ di gunung Ifugo ini, dibuat dengan peralatan yang sangat tradisional oleh nenek moyang bangsa Filipin. Sawah petak ini berada di 1.500 meter di atas permukaan laut dan mengelilingi lereng gunung sejauh 10.360 kilometer persegi.

Yang luar biasa, nenek moyang sudah mengatur sedemikian rupa pengairan sawah yang berasal dari hutan yang berada atas persawahan itu. Penduduk setempat sampai hari ini masih menanam pati juga sayuran di sawah itu.

Erosi, merupakan salah satu ancaman bagi keberadaan sawah kuno ini. Karenanya, pemerintah juga warga sekitar sangat peduli hal ini, perawatan serta rekonstruksi dilakukan terus menerus, untuk menjaga kelestariannya.

2.Sigiriya di Sri Langka

Ini adalah sisa-sisa peninggalan istana kuno yang terletak di atas bukit batu. Sigiriya atau Batu Singa, begitu sebutannya. Terletak di Matale District, Sri Lanka, dikelilingi hutan, waduk, juga kebun. Letaknya yang unik, ditambah dengan pemandangan menakjubkan, membuat Sigiriya banyak dikunjungi wisatawan. Melihat dari udara, Sigiriya seperti lukisan kuno yang mengingatkan orang pada Ajanta Caves di India.

Sigiriya dibangun pada masas pemerintahan Raja Kassapa I yang memerintah dari 477-495 AD. Tempat ini adalah satu dari tujuh peninggalan kuno yang dimiliki Sri Langka. Diduga, Sirigiya didiami sejak masa pra-sejarah. Lalu, pada abad ke-5 BC, tempat ini dipakai sebagai biara.

3. Tower of Hercules di Spanyol

Menara Hercules adalah mercu suar kuno peninggalan Romawi yang terletak di semenanjung, sekitar 2,4 kilometer (1,5 mil) dari pusat Corunna,Galicia, barat laut Spanyol. Nama Corunna berasal dari kolom kuno. Tinggi tower ini 55 meter menghadap pantai Atlantik Utara, Spanyol. Mercusuar Hercules berusia 1900 tahun, peninggalan Romawi yang masih beroperasi hingga kini Konon, usia tower ini sudah mencapai 1900 tahun, direhabilitasi tahun 1791. Ini adalah mercu suar peninggalan Romawi yang hingga kini masih difungsikan.

4. Toru, Kota Kuno di Polandia Utara yang Masih Eksis

Toru adalah kota di Polandia utara, persisnya di Vistula River. Ini adalah kota kuno yang telah ada sejak 1100 BC yang sampai sekarang masih eksis. Kota ini adalah kota kelahiran Nicolaus Copernicus (Seorang astronom, matematikawan, dan ekonom. Teorinya yang terkenal adalah matahari sebagai pusat Tata Surya, menjungkirbalikkan teori geosentris tradisional —yang menempatkan Bumi di pusat alam semesta— dianggap sebagai salah satu penemuan yang terpenting sepanjang masa, dan merupakan titik mula fundamental bagi astronomi modern dan sains modern.

Teori ini menimbulkan revolusi ilmiah) Torun kota kuno di Polandia masih eksis hingga kini. Diduga kota ini sudah ada tahun 1100 BC Toru menjadi cikal bakal pemukiman pertama di daerah itu, diperkirakan telah ada sejak 1100 BC. Kota itu berkembang pada abad pertengahan, yakni abad ke 7 hingga ke 13. Kemudian Kesatria Teutonic membangun benteng di sekitar pemukiman, antara tahun 1230-31. Pada 1263, biarawan Franciscan menetap di daerah itu mengikuti Dominika pada 1239.

Kota ini semakin berkembang dengan dibangunnya kota baru di dekat Toru. Kedua kota ini berkembang menjadi pusat perdagangan penting pada abad pertengahan.

Kalau anda melihat potret ini, sungguh menarik. Tempat ini sejak dulu hingga sekarang banyak dikunjungi. Kalau dulu karena menjadi kota dagang, sedang sekarang menjadi kota wisata yang sarat dengan sejarah masa lalu.

5.Ajanta Caves di India

Goa Ajanta di Maharashtra, salah satu dari banyak peninggalan kuno yang ada di India. Yang menakjubkan di goa ini banyak terdapat lukisan juga patung-patung Buddha bernilai seni tinggi. Diperkirakan, monumen-monumen yang ada dalam goa ini mulai digarap pada abad ke 2 BC.

Tapi goa di Ajanta ini kemudian ditinggalkan. Selama 1300 tahun goa ini terbengkalai, di bagian luar, belukar tumbuh tinggi, akhirnya menjadi hutan yang otomatis menyembunyikan keberadaan goa ini. Tidak ada yang pernah tahu bahwa di sana tersimpan ‘warisan dunia’ yang luar biasa. Sampai akhirnya pada musim semi tahun 1819 seorang perwira Inggris, tanpa sengaja memasuki ngarai yang curam.

Semakin dalam dia masuk ke sana, dan dia luar biasa kaget karena ia menemukan sebuah pintu tersembunyi di salah satu gua. Inilah kunjungan pertama manusia setelah ribuan tahun. Ketika ditemukan goa itu hanyalah ‘rumah’ burung dan kalelawar serta binatang lainnya. Kapten Smith kemudian melakukan eksplorasi pertama untuk mengetahui ‘isi’ dari goa misterius itu. Nama Kapten Smith ini diketahui, karena yang bersangkutan menuliskan namanya pada dinding goa dan tahun kedatangannya. Ia menulis, “Kapten Smith, April 1819”.

6. Lembah Bunga di Himalaya

Lembah Bunga adalah lembah yang berada di ketinggian Himalaya. Para pendaki juga ahli botani menggambarkan lembah itu luar biasa indah, sudah ada sejak lebih dari seabad lebih, bahkan dalam mitologi Hindu, penggambaran keberadaan lembah ini sudah ada sejak jaman dahulu kala.

Hamparan yang lembut, padang rumput di selingi bunga-bungaan warna warni, sangat indah dan nyaris menyesakkan nafas memandangnya. Lembah bunga yang indah semakin lengkap dengan adanya backgroundgunung dan hutan. Lembah bunga ini dinyatakan taman nasional (Nanda Devi National Park) pada 1982. Masyarakat setempat mengetahui keberadaan lembah bunga ini, mereka meyakini bahwa tempat itu dihuni oleh kawanan peri.

7. Metéora, Bangunan di Puncak Gunung Batu Athos, Yunani

Lihat gambar-gambar ini, pasti anda takjub. Bagaimana bisa sebuah castile bisa berdiri di puncak gunung batu. Terbayangkan betapa sulitnya pembangunan castle ini, padahal usianya sudah ratusan tahun. Ini adalah kompleks biara-biara ortodoks Timur paling besar dan paling penting di Yunani. Persisnya, biara-biara ini dibangun di puncak gunung batu Athos.

Ada enam biara di kompleks ini. Persisnya berada di kawasan Thessaly, dekat sunagi Pineios, pinggir baratlaut Yunani Tengah.Yang cuku menarik adalah akses menuju biara yang sangat sulit. Konon, dulunya untuk mencapai biara digunakan tanggap panjang atau semacam jala yang dipakai untuk menaikkan dan menurunkan barang, termasuk manusia. Dibutuhkan kekuatan iman untuk bisa mencapai biara ini.