perhatikan juga kalau disitu tiap server punya ketentuan sendiri sendiri , dan buruan bikin kalau ga mau kehabisan stok ,,hehe
2. kalau sudah klik CREATE , silahkan isikan yang diminta
kalau berhasil akan muncul begini
kalau gagal biasanya ada teks dengan background merah , tulisannya saya lupa tapi intinya suruh coba server lainnya karena stok di hari itu sudah habis ,,
coba saja yang lainnya ,,
masa aktif SSH PREMIUM GRATIS ini tidak SELAMANYA , tapi hanya 3 hari sejak dibuat dan ingat , jangan dibagikan ke teman atau siapaun , soalnya jika digunakan oleh lebih dari 2 orang bakal diskonek ntar ,, maka dari itu saya bilang pribadi ,, met mencoba saja
cara pakai
tambahan : bikin akun yang gampang gampang aja lah ,,pake huruf kecil semua , minal 4 huruf / angka , misal username = salman password = faris gitu aja biar ga ribet , jangan salah meletakan usernama dan host ,, contoh Username SSH : fastssh.com-salman Password SSH : faris
Host IP Addr : ca-1.fastssh.com
port = 443
port otomatis 443 / ssh dropbear ,,atau terkadang ada yg port 80 , 22
Percabangan adalah metode yang ada pada semua
bahasa pemrograman yang mengijinkan user untuk memilih dan mengeksekusi blok
kode dan mengabaikan blok kode yang lain. Sedangkan Perulangan adalah metode
yang terdapat pada semua bahasa pemrograman yang mengijinkan kita untuk
mengeksekusi blok code berulang-ulang dalam kurun nilai tertentu.
Macam-macam bentuk
percabangan pada Visual Basic 6 :
1. If ....Then
Digunakan untuk memilih
dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat
pada kondisi 1 bernilai benar ( True ) maka program akan menjalankan pernyataan
1, jika kondisi 1 bernilai salah ( False ) maka program akan memeriksa kondisi
2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan
pernyataan 2 jika kondisi 2 benilai salah ( False ) maka program akan memeriksa
kondisi berikutnya dan seterusnya hingga kondisi terakhir pada
percabangan.
Bentuk Umum :
If Kondisi1 Then
Statement1
ElseIf Kondisi2 Then
Statement2
Else
Statement3
End if
2.Select Case
Kegunaannya sama dengan
bentuk If....Then namun Select Case digunakan dalam alurprogram yang membutuhkan banyak percabangan.
Bentuk Umum :
Select Case Pilihan
Case 1 Statement1 …
Case 2 Statement2 …
Case 3 Statement3 …
End Select
Macam-macam bentuk perulangan :
1. Do While … Loop
Kata while dalam
pernyataan Do While merintahkan program untuk melakukan perulangan apabila
kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai
False maka program akan keluar dari perulangan dan berpindah ke kode program
berikutnya. Bentuk umum :
Do While Kondisi Pernyataan … Loop
Sintaks di atas adalah
bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan
bentuk Do While yang letak kondisi akhirnya di akhir adalah sbb : Do Statement …… Loop While Kondisi
2. Do Until … Loop
Pada dasarnya, perulangan DO Until adalah sama
dengan perulangan DO While. Yang membedakannya adalah pada perulangan Do While
perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti
jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan
terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi
bernilai True.
Bentuk Umum :
Do Until Kondisi Pernyataan … Loop
Perulangan
Do Until juga memiliki bentuk sintaks yang lain dimana kondisi diletakkan di
akhir pernyataan perulangan. Bentuk sintaksnya adalah sbb : Do Pernyataan …… Loop Until Kondisi
3. While … Wend
Perulangan While … Wend digunakan saat kita ingin pernyataan pada
program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai
True.
Bentuk Umum :
Pernyataan … Wend
4. For … Next
Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah
tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang
akan digunakan sebagai indeks untuk perulangan.
Bentuk Umum :
For Indeks = NilaiAwal To
NilaiAkhir Pernyataan ….. Next Indeks
Contoh Programnya pada
Visual Basic 6 :
1.Buat Form seperti pada gambar berikut
2. 2X klik pada dimana saja pada form untuk membuka code editor dan tuliskan
code :
Private Sub Form_Load() Combo1.AddItem
("A") Combo1.AddItem
("B") Combo1.AddItem
("C") End Sub
3. 2X klik pada command
button "Hitung" untuk membuka code editor
Private Sub
Command1_Click() Dim upah As Long jk = Text2.Text
If Text1.Text =
"" Or Text2.Text = "" Or Combo1.Text = "" Then MsgBox "data belum
lengkap", vbCritical, "error" Exit Sub End If
If Not
IsNumeric(Text2.Text) Then MsgBox " Jam kerja
harus angka", vbCritical, "error" Else Label5.Caption =
Text1.Text Label6.Caption =
Combo1.Text Label7.Caption =
Text2.Text Select Case Combo1.Text Case "A" If jk < 48 Then upah = jk * 2000 Else upah = Val(48) * 2000 +
(jk - 48) * 2000 End If Label8.Caption = upah Case "B" If jk < 48 Then upah = jk * 3000 Else upah = Val(48) * 3000 +
(jk - 48) * 2000 End If Label8.Caption = upah Case "C" If jk < 48 Then upah = jk * 4000 Else upah = Val(48) * 4000 +
(jk - 48) * 2000 End If Label8.Caption = upah End Select End If End Sub
4. 2X Klik pada tombol
"Exit: untuk membuka jendela code editor
Private Sub
Command2_Click() End End Sub
Percabangan dan Perulangan pada Visual Basic
Percabangan adalah metode yang ada pada semua
bahasa pemrograman yang mengijinkan user untuk memilih dan mengeksekusi blok
kode dan mengabaikan blok kode yang lain. Sedangkan Perulangan adalah metode
yang terdapat pada semua bahasa pemrograman yang mengijinkan kita untuk
mengeksekusi blok code berulang-ulang dalam kurun nilai tertentu.
Macam-macam bentuk
percabangan pada Visual Basic 6 :
1. If ....Then
Digunakan untuk memilih
dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat
pada kondisi 1 bernilai benar ( True ) maka program akan menjalankan pernyataan
1, jika kondisi 1 bernilai salah ( False ) maka program akan memeriksa kondisi
2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan
pernyataan 2 jika kondisi 2 benilai salah ( False ) maka program akan memeriksa
kondisi berikutnya dan seterusnya hingga kondisi terakhir pada
percabangan.
Bentuk Umum :
If Kondisi1 Then
Statement1
ElseIf Kondisi2 Then
Statement2
Else
Statement3
End if
2.Select Case
Kegunaannya sama dengan
bentuk If....Then namun Select Case digunakan dalam alurprogram yang membutuhkan banyak percabangan.
Bentuk Umum :
Select Case Pilihan
Case 1 Statement1 …
Case 2 Statement2 …
Case 3 Statement3 …
End Select
Macam-macam bentuk perulangan :
1. Do While … Loop
Kata while dalam
pernyataan Do While merintahkan program untuk melakukan perulangan apabila
kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai
False maka program akan keluar dari perulangan dan berpindah ke kode program
berikutnya. Bentuk umum :
Do While Kondisi Pernyataan … Loop
Sintaks di atas adalah
bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan
bentuk Do While yang letak kondisi akhirnya di akhir adalah sbb : Do Statement …… Loop While Kondisi
2. Do Until … Loop
Pada dasarnya, perulangan DO Until adalah sama
dengan perulangan DO While. Yang membedakannya adalah pada perulangan Do While
perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti
jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan
terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi
bernilai True.
Bentuk Umum :
Do Until Kondisi Pernyataan … Loop
Perulangan
Do Until juga memiliki bentuk sintaks yang lain dimana kondisi diletakkan di
akhir pernyataan perulangan. Bentuk sintaksnya adalah sbb : Do Pernyataan …… Loop Until Kondisi
3. While … Wend
Perulangan While … Wend digunakan saat kita ingin pernyataan pada
program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai
True.
Bentuk Umum :
Pernyataan … Wend
4. For … Next
Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah
tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang
akan digunakan sebagai indeks untuk perulangan.
Bentuk Umum :
For Indeks = NilaiAwal To
NilaiAkhir Pernyataan ….. Next Indeks
<![if !supportLineBreakNewLine]>
<![endif]>
Private Sub
Command1_Click() Dim upah As Long jk = Text2.Text
If Text1.Text =
"" Or Text2.Text = "" Or Combo1.Text = "" Then MsgBox "data belum
lengkap", vbCritical, "error" Exit Sub End If
If Not
IsNumeric(Text2.Text) Then MsgBox " Jam kerja
harus angka", vbCritical, "error" Else Label5.Caption =
Text1.Text Label6.Caption =
Combo1.Text Label7.Caption =
Text2.Text Select Case Combo1.Text Case "A" If jk < 48 Then upah = jk * 2000 Else upah = Val(48) * 2000 +
(jk - 48) * 2000 End If Label8.Caption = upah Case "B" If jk < 48 Then upah = jk * 3000 Else upah = Val(48) * 3000 +
(jk - 48) * 2000 End If Label8.Caption = upah Case "C" If jk < 48 Then upah = jk * 4000 Else upah = Val(48) * 4000 +
(jk - 48) * 2000 End If Label8.Caption = upah End Select End If End Sub
4. 2X Klik pada tombol
"Exit: untuk membuka jendela code editor
0 komentar:
Post a Comment