Belajar VB dari nol

[andretans]

Bagi temen2 yang merasa tau soal script2 VB, please sharing disini ya...
aku lagi belajar ni, butuh bantuan temen2 semua.
mulai aja dari script sederhana, misalnya :

Bikin message box :

MsgBox " Mohon bantuannya ya.. terima kasih..."
hasilnya :

http://uwixku.com/download/preview%20mohon%20bantuan.jpg

[Koza]

sekarang kita membuat operasi text atau angka
yang sama pada textbox
1. siapkan 2 textbox dan satu tombol
2. jangan dikasih nama untuk sementara
3. isi text pada text1 di jendela properties contoh "selamat datang di vb"
4. buka jendela kode pada tombol.... dengan cara dobel klik tombol tersebut
5 isi kode pada tombol tersebut dengan
text2.text=text1.text
jalankan program dan tekan tombol yang sudah anda buat

maka text yang kosong tadi akan terisi seperti yang text pada text 1

[Koza]

sekarang... kita akan membuat program timer... sederhana yang hanya memiliki second ajah
1.buat label kecil jangan besar besar...
2.dan buatlah tool timer...
Timer : berfungsi mengeksekusi suatu script dalam timer itu sendiri dalam interval yang ditentukan
3.isi label1 dengan anggka 0
tentukan timer dengan intervel 1000 (1000 artinya script akan dieksekusi dalam waktu 1 detik sekali
4. ketikkan script dibawah ini
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
End Sub

note : bisa dikembangkan

[dewaphobia]

kang, banyak koq forum yang menyediakan cource code VB6 gratis.... :o_o:

[andretans]

kang, banyak koq forum yang menyediakan cource code VB6 gratis.... :o_o:
kalo di forum lain banyak, kenapa disini enggak? kita bikin forum ANSAV makin pinter dan berkualitas
kang dewa kan jago VB, share donk kang

[dewaphobia]

kalo di forum lain banyak, kenapa disini enggak? kita bikin forum ANSAV makin pinter dan berkualitas
kang dewa kan jago VB, share donk kang

baiklah tuanku... :worship:

kita sharing bareng2....

[Heart stealer]

wah...ijin nyimak deh bro....:)

maju terus forum ansav !!

[andretans]

dim status
status = InputBox ("Status kamu di forum ANSAV apa?")
if (status) = "newbie" then
MsgBox " Selamat bergabung, mari kita sama2 belajar disini "
ElseIf (status) = "ansaver junior" then
MsgBox " Tingkatkan kreatifitas mu dan kembangkan pengetahuanmu disini "
ElseIf (status) = "moderator" then
MsgBox " Selamat ya... "
ElseIf (status) = "global moderator" then
MsgBox " Wah, pak satpam ya... "
ElseIf (status) = "administrator" then
MsgBox " hehehe...pagi kang anvie..."
Else
MsgBox " siapa sih kamu ini???"
End If
Preview :
http://uwixku.com/download/if.jpg

Penjelasan :
maksud script diatas adalah apabila pada input box kita menjawab newbie, maka akan muncul message box dengan tulisan "Selamat bergabung, mari kita sama2 belajar disini" (tanpa tanda kutip)
Begitu pula dengan jawaban2 lain yang ada dalam daftar.
Bila jawabannya tidak ada dalam daftar kemungkinanan (IF) maka akan muncul message box dengan tulisan " siapa sih kamu ini???"

[antwa]

dim status
status = InputBox ("Status kamu di forum ANSAV apa?")
if (status) = "newbie" then
MsgBox " Selamat bergabung, mari kita sama2 belajar disini "
ElseIf (status) = "ansaver junior" then
MsgBox " Tingkatkan kreatifitas mu dan kembangkan pengetahuanmu disini "
ElseIf (status) = "moderator" then
MsgBox " Selamat ya... "
ElseIf (status) = "global moderator" then
MsgBox " Wah, pak satpam ya... "
ElseIf (status) = "administrator" then
MsgBox " hehehe...pagi kang anvie..."
Else
MsgBox " siapa sih kamu ini???"
End If
Preview :
http://uwixku.com/download/if.jpg

Penjelasan :
maksud script diatas adalah apabila pada input box kita menjawab newbie, maka akan muncul message box dengan tulisan "Selamat bergabung, mari kita sama2 belajar disini" (tanpa tanda kutip)
Begitu pula dengan jawaban2 lain yang ada dalam daftar.
Bila jawabannya tidak ada dalam daftar kemungkinanan (IF) maka akan muncul message box dengan tulisan " siapa sih kamu ini???"

nie nambahin yang kang andretans.yang nie make select case

dim status as string
status = inputbox (Apa Status kamu diforum ansav..?)
select case Ucase$(status)
case "NEWBIE"
MsgBox " allow plen...statusnya sama kaya saya...mari kita belajar bareng =)"
case "ANSAVER JUNIOR"
MsgBox "Waow..dah senior nih....tingkatin lagi kreatifitasnya....! "
case "MODERATOR"
MsgBox " Good one...=) "
case "GLOBAL MODERATOR"
MsgBox " wah...ada satpam...kabur.............. "
case "ADMINISTRATOR"
MsgBox " wah...ada master nieh...saya pengen belajar dunx.....=)"
end select
penjelasan:
sebenernya hampir sama ma mas adretans, yang ngebedain cuma make struktur select case aja.
untuk yang Ucase$(str):fungsi ini untuk merubah semua string jadi Uppercase atau bhs kitanya jadi huruf kapital semua.:D
tips....
pada saat mendeklarasikan sesuatu harus menggunakan type data yang tepat karena kalau tidak penggunaan resource program akan menjadi lebih besar.
contoh: pada code mas andretans:

dim status

declarasi tersebut tidak disertakan type datanya maka visual basic akan mengangapnya sebagai type data variant(memang type data yang satu nie fleksibel tapi type data nie paling banyak makan memory).
untuk lebih jelasnya silahkan mampir ke blog saya di.

http://antwablog.blogspot.com/2009/03/cara-memperkecil-ukuran-program-vb.html

jangan diketawain yah blognya cos baru bikin....:D
segitu aja dan maaf klo ada yang salah....regard

[void]

saya ikut boleh ga? mudah2an kodenya benar soalnya sudah lama ga sentuh VB6
if (MsgBox("Kamu mau jadi pacarku ga?", vbYesNo + vbQuestion, "Jomblow v1.0") = vbYes) then
MsgBox("Horee, selamat tinggal status jomblow :D")
else
MsgBox("Hikss.... jomblow forever... T_T")
end if
maaf kodenya cupu, soalnya hanya ingin menjelaskan tentang penggunaan button vbYesNo dan icon vbQuestion.

[darkzeus]

maaf cuma nubie..
jadi share vbscript aja y..... :think:

CONST HKEY_LOCAL_MACHINE = &H80000002
CONST SEARCH_KEY = "DigitalProductID"
Dim arrSubKeys(4,1)
Dim foundKeys
Dim iValues, arrDPID
foundKeys = Array()
iValues = Array()
arrSubKeys(0,0) = "Microsoft Windows Product Key"
arrSubKeys(0,1) = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
arrSubKeys(2,0) = "Microsoft Office XP"
arrSubKeys(2,1) = "SOFTWARE\Microsoft\Office\10.0\Registration"
arrSubKeys(1,0) = "Microsoft Office 2003"
arrSubKeys(1,1) = "SOFTWARE\Microsoft\Office\11.0\Registration"
arrSubKeys(3,0) = "Microsoft Office 2007"
arrSubKeys(3,1) = "SOFTWARE\Microsoft\Office\12.0\Registration"
arrSubKeys(4,0) = "Microsoft Exchange Product Key"
arrSubKeys(4,1) = "SOFTWARE\Microsoft\Exchange\Setup"


strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

For x = LBound(arrSubKeys, 1) To UBound(arrSubKeys, 1)
oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1), SEARCH_KEY, arrDPIDBytes
If Not IsNull(arrDPIDBytes) Then
call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
Else
oReg.EnumKey HKEY_LOCAL_MACHINE, arrSubKeys(x,1), arrGUIDKeys
If Not IsNull(arrGUIDKeys) Then
For Each GUIDKey In arrGUIDKeys
oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1) & "\" & GUIDKey, SEARCH_KEY, arrDPIDBytes
If Not IsNull(arrDPIDBytes) Then
call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
End If
Next
End If
End If
Next
MsgBox("Finished")


Function decodeKey(iValues, strProduct)

Dim arrDPID
arrDPID = Array()


For i = 52 to 66
ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
arrDPID( UBound(arrDPID) ) = iValues(i)
Next


Dim arrChars
arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")


For i = 24 To 0 Step -1
k = 0
For j = 14 To 0 Step -1
k = k * 256 Xor arrDPID(j)
arrDPID(j) = Int(k / 24)
k = k Mod 24
Next
strProductKey = arrChars(k) & strProductKey
If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
Next

ReDim Preserve foundKeys( UBound(foundKeys) + 1 )
foundKeys( UBound(foundKeys) ) = strProductKey
strKey = UBound(foundKeys)
MsgBox strProduct & vbNewLine & vbNewLine & foundKeys(strKey)
End Function

[antwa]

nie tambahin lagi.
buat bikin fungsi yang make parameter dan memiliki nilai balik


private function ngitung (byval angka1 as long, byval angka2 as long) as long
ngitung=angka1 + angka2
end function


nie contoh buat manggilnya

dim a as long,b as long
dim hasil as long
a= inputbox "Masukan Angka Pertama....?"
b= inputbox "masukan Angka kedua.....?"
hasil = gitung(a,b)
msgbox "Hasil penjumlahan " & a & " + "& b & " = " & hasil, _ vbinformation,"hasil penjumlahan"


keterangan :
pada fungsi
-a = parameter pertama
-b = parameter kedua
ngitung=angka1 + angka2
fungsi ngitung memiliki nilai balik berupa angka1+angka2 dengan type data long.

[antwa]

maaf cuma nubie..
jadi share vbscript aja y..... :think:

CONST HKEY_LOCAL_MACHINE = &H80000002
CONST SEARCH_KEY = "DigitalProductID"
Dim arrSubKeys(4,1)
Dim foundKeys
Dim iValues, arrDPID
foundKeys = Array()
iValues = Array()
arrSubKeys(0,0) = "Microsoft Windows Product Key"
arrSubKeys(0,1) = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
arrSubKeys(2,0) = "Microsoft Office XP"
arrSubKeys(2,1) = "SOFTWARE\Microsoft\Office\10.0\Registration"
arrSubKeys(1,0) = "Microsoft Office 2003"
arrSubKeys(1,1) = "SOFTWARE\Microsoft\Office\11.0\Registration"
arrSubKeys(3,0) = "Microsoft Office 2007"
arrSubKeys(3,1) = "SOFTWARE\Microsoft\Office\12.0\Registration"
arrSubKeys(4,0) = "Microsoft Exchange Product Key"
arrSubKeys(4,1) = "SOFTWARE\Microsoft\Exchange\Setup"


strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

For x = LBound(arrSubKeys, 1) To UBound(arrSubKeys, 1)
oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1), SEARCH_KEY, arrDPIDBytes
If Not IsNull(arrDPIDBytes) Then
call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
Else
oReg.EnumKey HKEY_LOCAL_MACHINE, arrSubKeys(x,1), arrGUIDKeys
If Not IsNull(arrGUIDKeys) Then
For Each GUIDKey In arrGUIDKeys
oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1) & "\" & GUIDKey, SEARCH_KEY, arrDPIDBytes
If Not IsNull(arrDPIDBytes) Then
call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
End If
Next
End If
End If
Next
MsgBox("Finished")


Function decodeKey(iValues, strProduct)

Dim arrDPID
arrDPID = Array()


For i = 52 to 66
ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
arrDPID( UBound(arrDPID) ) = iValues(i)
Next


Dim arrChars
arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")


For i = 24 To 0 Step -1
k = 0
For j = 14 To 0 Step -1
k = k * 256 Xor arrDPID(j)
arrDPID(j) = Int(k / 24)
k = k Mod 24
Next
strProductKey = arrChars(k) & strProductKey
If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
Next

ReDim Preserve foundKeys( UBound(foundKeys) + 1 )
foundKeys( UBound(foundKeys) ) = strProductKey
strKey = UBound(foundKeys)
MsgBox strProduct & vbNewLine & vbNewLine & foundKeys(strKey)
End Function


waduh.....
mas kasih penjabaranya donk biar semuanya bisa tau dan mengerti apa masksud scripnya.

[void]

waduh.....
mas kasih penjabaranya donk biar semuanya bisa tau dan mengerti apa masksud scripnya.
kalau diperhatikan sejenak, kode itu fungsinya untuk men-decode alias menampilkan serial produk yang ada pada array yaitu Microsoft(R) Windows(R), Office(R) [XP, 2003, 2007] dan Exchange (cmiiw). secara singkat, nge-recover serial dari registry (mohon dikoreksi kalau salah)

[Koza]

ooo jadi kalo pengen buat kotak pesan yang ada text boxnya itu pake inputbox...
baru tahu aq

[garismiring]

waduh ada vb mania disini, ketinggalan lagi nih :(
pada jago2 ya, tolong dong saya diajarin gituh ganti :)

mohon bimbingannya ya :)

[nyiurmelambai]

sekarang... kita akan membuat program timer... sederhana yang hanya memiliki second ajah
1.buat label kecil jangan besar besar...
2.dan buatlah tool timer...
Timer : berfungsi mengeksekusi suatu script dalam timer itu sendiri dalam interval yang ditentukan
3.isi label1 dengan anggka 0
tentukan timer dengan intervel 1000 (1000 artinya script akan dieksekusi dalam waktu 1 detik sekali
4. ketikkan script dibawah ini
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
End Sub
note : bisa dikembangkan

kode di atas itu tidak bisa dijalankan bro, bisa error.
Ngak mungkin string+integer

[dylavig]

#17 : hmm bro da coba ? soalnya barusan coba bisa kok..

[antwa]

kode di atas itu tidak bisa dijalankan bro, bisa error.
Ngak mungkin string+integer

klo untuk

label1.caption+1


ini sih masih mungkin tapi hasilnya bukanya di jumlah tapi cuma di gabungin.
misalnya isi

label1.caption=1
label2.caption= label1.caption+1
debug.print label2.caption


hasilnya


11


mungkin kaya gini deh yang bener

label1.caption=1
label2.caption= int(label1.caption)+1
debug.print label2.caption


hasilnya

2


keterangan:
int(label1.caption)
"int" disini adalah fungsi buat mengkonversi type data menjadi integer.
bisa juga make val(label1.caption)+1.

klo salah mohon diperbaiaki.:pisangdance:

[dylavig]

klu dgn codenya bro antwa.. itu malah utk skli tmbh aja deh ? jadi bukan jadi timer gt ..

[bacotnet]

kode di atas itu tidak bisa dijalankan bro, bisa error.
Ngak mungkin string+integer

Ah melihat sekilas kode dan sedikit penjelasan Koza, gwa rasa bisa jalan koq, memang betul nggak mungkin menjumlahkan string+integer, tapi bukankah value yang Koza isi adalah berbentuk bukan karakter (string) tetapi angka numeric?. "3.isi label1 dengan anggka 0" Perhatikan..

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
End Sub

pada kode tersebut gwa sama sekali tidak melihat pendeklarasian, bukankah begitu? nah aplikasi visual basic mengkondisikan setiap variabel atau konstanta dengan type Variant apabila variabel atau konstanta tersebut tidak dideklarasikan, yang artinya value tersebut bisa dianggap sebagai type string, integer, long, double, dsb. Karena nilai caption yang dimasukkan adalah murni numeric yaitu angka 0, maka visual basic masih bisa mendefinisikannya sebagai nilai integer, long ataupun double.

[Koza]

Ah melihat sekilas kode dan sedikit penjelasan Koza, gwa rasa bisa jalan koq, memang betul nggak mungkin menjumlahkan string+integer, tapi bukankah value yang Koza isi adalah berbentuk bukan karakter (string) tetapi angka numeric?. "3.isi label1 dengan anggka 0" Perhatikan..

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
End Sub

pada kode tersebut gwa sama sekali tidak melihat pendeklarasian, bukankah begitu? nah aplikasi visual basic mengkondisikan setiap variabel atau konstanta dengan type Variant apabila variabel atau konstanta tersebut tidak dideklarasikan, yang artinya value tersebut bisa dianggap sebagai type string, integer, long, double, dsb. Karena nilai caption yang dimasukkan adalah murni numeric yaitu angka 0, maka visual basic masih bisa mendefinisikannya sebagai nilai integer, long ataupun double.

makasih mas... sebenarnya bisa juga...
tapi karena pembuat thread masih nyubi kayak saya.. jadi saya beri yang sederhana, yang penting mengerti syntaxnya dulu...
kode diatas sama dengan ini...

Private Sub Timer1_Timer()
Dim a As Integer
a = Label1.Caption
Label1.Caption = a
Label1.Caption = a + 1
End Sub


kita belajar sama2 yach...

[kambinx]

saya malah udah lupa sama skali soal vb..:D

trakhir waktu kuliah dulu...itupun cuman 1tahun

[antwa]

makasih mas... sebenarnya bisa juga...
tapi karena pembuat thread masih nyubi kayak saya.. jadi saya beri yang sederhana, yang penting mengerti syntaxnya dulu...
kode diatas sama dengan ini...

Private Sub Timer1_Timer()
Dim a As Integer
a = Label1.Caption
Label1.Caption = a
Label1.Caption = a + 1
End Sub
kita belajar sama2 yach...

nah klo gitu sih bener...!kesimpulanya nahwa type data string ga bisa dijumlah dengan type data numerik (long,integer,double,float) keculai dilakukan konversi terlebih dahulu. kaya strconv.int(),val() maaf huga klo salah.namanya juga belajar bareng

[antwa]

sekarang ngebahas tentang perulangan menggunakan loop dan for untuk for, yang dipelukan cuma 1 combobox yang diberi nama Combo1.


Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
Combo1.AddItem "angka " & i
Next i
i = 0
End Sub

untuk yang loop sama aja tapi make fungsi do while-loop


Private Sub Form_Load()
Dim i As Integer
i = 0 Do While i < 11
i = i + 1
Combo1.AddItem "angka " & i
Loop
i = 0 End Sub
selamat mencoba......:D

[M2R]

tips doank, hati2 ma infinite loops, ntar malah ngehang klo g ditangani dgn baik

[antwa]

yup bener mas....hati-hati dlam melakukan perulangan karena bisa berakibat hang karena syarat perulanganya ga pernah kesampean.

contohnya infinite loop

dim i as integer
do while i < 11
combo1.additem "angka" & i
loop


keterangan. pada nilai [i] ga kan berubah cos ga dikasih nilai peubah disaat looping jadi puter-puteran terus tuh...!beware.....

[APTX]

perhatikan juga running time, makin pendek makin baik ... "Big Oh".

[antwa]

ngebahas apalagi yah.....Control udah.msgbox udah,input box juga udah.....belajar database ajah...
sebelum kita belajar database di vbnya kita kudu ngerti dulu apa tu database dan teori-teorinya (coz penting banget nih, jagan asal langsung ke vbnya, ntar malah acak-acakan) sambil sharing hasil PKL kuliah nie....let's start
Untuk pengertian Databasenya sendiri



Database adalah himpunan kelompok data atau arsip yang saling berhubungan yang disimpan secara bersama-sama pada suatu media yang diorganisasikan sedemikian rupa dan tanpa pengulangan agar kelak data dapat dimamfaatkan kembali dengan cepat, mudah dan terkontrol (Sutanta, 2004).

dan DBMS ( Database Management System)



Database Management System (DBMS) adalah suatu elemen dalam sistem basis data yang dibangun untuk melakukan fungsi pengaturan, pengawasan, pengendalian, pengolahan dan koordinasi terhadap semua proses yang terjadi pada sistem basis data. (Mcleod, 1995).



DBMS merupakan perangkat lunak yang digunakan untuk menghubungkan pengguna program aplikasi dengan basis data. DBMS menyediakan fasilitas-fasilitas, antara lain:

A.Mengizinkan pengguna untuk mendefinisikan basis data melalui sebuah Data Definition Language (DDL). Data Definition Language mengizinkan pengguna untuk menentukan tipe data, struktur data, dan constraint data yang disimpan pada basis data.

B.Mengizinkan pengguna untuk menyisipkan, memperbaharui, menghapus, dan mengambil kembali data dari basis data yang umumnya dilakukan melalui Data Manipulation Language (DML).



Dalam tahap perancangan basis data ini menggunakan Entity Relationship Diagram (ERD). Entity Relationship Diagram (ERD) merupakan suatu model data yang dikembangkan berdasarkan objek yang dapat diterjemahkan atau ditransformasikan dengan memanfaatkan sejumlah perangkat konseptual menjadi sebuah diagram data. Tujuan utamanya adalah menunjukan objek data dan relationship pada objek tersebut. (Sutanta, 2004).


untuk diagram ERD or DFDnya ga saya posting disini coz cape bikinya
sekarang kita masuk ke vbnya....(akhirnya)....

sebelum masuk ke DDL(Data Definition Language), DML(Data Manipulation Language) maka kita kudu tau bagaimana cara VB berintaksi dengan Database.

1.ADO (ActiveX Data Object)
2.RDO (Remote Data Object)
3.DAO (Data Access Object)

nah sekarang masuk ke bagian Conection Stringnya.....
disini dibahas CN buat database yang saya inget aja.

1.MYSQL =["Provider=MySQLProv;" & "Data Source=mySQLDB;" & "User Id=username;" & "Password=Pass"]

2.MS Access(ODBC Driver)= ["Provider=MSDASQL;" & "Driver={Microsoft Access Driver (*.mdb)};" & "Dbq=c:\path\nama database.mdb;" & "Uid=Username;" & "Pwd=Pass"]

3.Oracle (Microsft) =["Provider=msdaora;" & "Data Source=OracleDB;" & "User Id=Username;" & "Password=Pass"]

4.SQL Server (OLEDB)=["Provider=sqloledb;" & "Data Source=nama server;" & "Initial Catalog=nama catalog/database;" & "User Id=Username;" & "Password=Pass"]

5. FOXPro (v.7)=["Provider=vfpoledb;" & "Data Source=C:\path\namadatabasefoxpro.dbc;" & "Mode=ReadWrite|Share Deny None;" & "Collating Sequence=MACHINE;" & "Password=pass''"].

aduh dah dulu yah ntar sambung lagi coz cape banget ngetiknya...

[APTX]

^
nih sih udah OOP ...
mata kuliahan nich ...

[M2R]

perhatikan juga running time, makin pendek makin baik ... "Big Oh".

maksudnya??? :wew:

[antwa]

ia...maksudnya runetime yang pendek gimana??????

[APTX]

maksudnya buat algoritma yang seefisien mungkin (mengurangi pemakaian memory) ... sepeti kayak cari faktorial, lebih cepat menggunakan rekursif daripada "for" looping.

kalo pake rekursif kalo gak salah running timenya sekitar N Log N milidetik.
kalo pake "for looping" running timenya sekitar N^2 milidetik.

misalnya N itu banyaknya masukan ...
rekursif jauh lebih cepat menghasilkan jawaban daripada "for looping" biasa.

[M2R]

tergantung kebutuhan sie, klo mw baca isi file text, lebih cepat pke Open # (tp lbih banyak memori yg dibutuhkan)

[widnyana putra]

+menyimak, otak ga nampung+

[Koza]

mas mas, caranya membuat tombol open file gimana yach
ditambah dengan pengoprasian file yang udah diopen
atau mau dikasih action apa pada file tersebut
thx

[tahara]

saya malah udah lupa sama skali soal vb..:D

trakhir waktu kuliah dulu...itupun cuman 1tahun

Ya saya juga belajar baru taon kemaren, dari buku, contoh-contoh program (otodidak). :shy: Taon 2009 ini rada2 lupa.
Tapi boleh ya saya menyimak, takut kasih contoh listing code_nya.
Maklum masih cupu

[M2R]

@koza

tambahin common dialog (bwt browse file) n image (bwt contoh mengolah file yg dibuka) ya

Private Sub cmdBrowse_Click()
On Error GoTo Hell:
With CommonDialog1
.FileName = ""
.DefaultExt = ".jpg"
.DialogTitle = "Browse Foto"
.Filter = "JPEG|*.JPG"
.FilterIndex = 1
.CancelError = True
.Flags = FileOpenConstants.cdlOFNHideReadOnly + _
FileOpenConstants.cdlOFNCreatePrompt + _
FileOpenConstants.cdlOFNOverwritePrompt

.InitDir = "C:\"
.ShowOpen

Image1.Stretch = True
Image1.Picture = LoadPicture(.FileName)

End with
Hell :

'Nothing todo
end sub

[garismiring]

^
maaf om, "End With" nya?? :)

[Koza]

@m2r
kalo pake itu, file jpegnya diapain mas sama programnya
trus script mana yang mengolahnya

[½life]

ada yg tau cr ngebaca isi file tipe doc,trs di salin ke textbox
kan biasanya vb cm baca file tipe text doang gt(klo ga salah)

ni cth script bwt baca file tipe text :

Option Explicit
Dim bytes() As Byte
Dim file_length As Long
Dim txt As String

Private Sub cmdReadValues_Click()
Dim file_name As String
Dim i, fnum As Integer

file_name = "boot.ini" 'misalnya nama filenya boot.ini
file_length = FileLen(file_name)

fnum = FreeFile
ReDim bytes(1 To file_length)

Open file_name For Binary As #fnum
Get #fnum, 1, bytes
Close fnum

For i = 1 To file_length
If Not Asc(bytes(i)) = 10 Or Asc(bytes(i)) = 13 Then
txt = txt & Chr(bytes(i))
End If

If bytes(i) = 10 Then
txtV.Text = txtV.Text & txt
txt = ""
End If
Next i
End Sub

di formnya tambahin textbox,ksh nama txtV.tambahin jg commandbutton pke nama cmdReadValues
maap klo ada yg salah:D

[M2R]

@m2r
kalo pake itu, file jpegnya diapain mas sama programnya
trus script mana yang mengolahnya

seperti yg terlihat d script Image1.Picture = LoadPicture(.FileName)

maka file jpeg akan diload / ditampilakn di image1

[piloes]

iaa neh ..

aq jg mau beLajar ..

mohon dukungannya aL...L:smoke::coolhehe:

[yoga_b]

Pengen bljr bgt tp kok nggk bs. hehehe..... :toobad::wacko:
Maklum bkn bidangnya neh.. :D

[hernawanjr]

wah,,,, awamer mw gabung mohon bimbingan para suhu..

[tahara]

ajarin VB dong kakak ,,, :shy:

[irzan2010]

numpang... (pake VB.NET) hehehehe..

Console.WriteLine("Selamat datang di Forum ANSAV !")

[bezitsuper]

maaf klo pake vba (vb access) gimana?

gw lagi pusing cara input data, gw pengen pada saat teken comand button add ,tuh field text box langsung terisi angka langsung 3 digit!!!, contoh : 001 002 003 dst, ada yang tau listing programnya gak?? mohon pencerahan:-?

[Koza]

mungkin begini

____________________STARThere_________________
dim angka as integer
nol as string

private sub command1_click()
nol = "0"
angka = angka + 1
if angka < 9 then
text1.text = " " & nol & nol & angka
end if
if angka >9
text1.text = " " & nol & angka
end if
end sub
________________________eND HERE_________________
bisa diolah menggunakan case
mas mas silahkan dikoreksi, mungkin ada yang salah, soalnya g pke vb editor
trus maaf kalo ada yang salah

[jagot]

lieur uey..:wacko::wacko::wacko::wacko: