POST, Analise dan Share Code di sini - VBers

[handsgold]

Tweet

kok sepi ya nih trit

[imsoft]

Tweet

InputOnlyNumber
Block user input utk selain angka

Dengan menggunakan Function

'// No Message appear to user, but they will know what should they do
'// bila ingin user tidak dapat meng-inputkan angka, jgn beri pesan apa2
'// Just Block it ... ;) 
Function BLOCK_KEY(sAscii As Integer) As Integer
    Select Case sAscii
           Case 13
                BLOCK_KEY = sAscii '/ perbolehkan {ENTER}
           Case 32
                BLOCK_KEY = sAscii '/ perbolehkan {SPACE}
           Case 8
                BLOCK_KEY = sAscii '/ perbolehkan {BACKSPACE}
           Case 44
                BLOCK_KEY = sAscii '/ perbolehkan {,} Comma
           Case 46
                BLOCK_KEY = sAscii '/ perbolehkan {.} Titik
           Case 48 To 57
                BLOCK_KEY = sAscii '/ perbolehkan {NUMBER}
           Case Else
                BLOCK_KEY = 0      '/ Selain dr kriteria di atas block input
    End Select
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
'// cara penggunaan - usage
    KeyAscii = BLOCK_KEY(KeyAscii)
End Sub

Dengan menggunakan IsNumeric Function

'// ini akan sll menampilkan Pesan ke user utk menginputkan angka
'// this is do the job, but not user friendly ... thought ;) 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr$(KeyAscii)) = True Then
       MsgBox "Please input numerical values", 0 + 48, "Message"
       KeyAscii = 0
    End If
End Sub

Alternatif lainnya untuk yang tidak mau ribet dengan code.
Pakai saja control MaskEdBox

[belumwaktunya]

Tweet

Dim msg, sapi
msg=InputBox("Tulis kalimat dikolom, lalu klik OK","komputer akan ngomong")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

ini untuk munculin suara (komputer di suruh ngomong) tapi bisa di jelasin gak maksudnya (apa lagi kata "sapi") fungsinya buat apa aja? cz dapet dari forum tetangga

[positive+]

Tweet

Dim msg, sapi
msg=InputBox("Tulis kalimat dikolom, lalu klik OK","komputer akan ngomong")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

ini untuk munculin suara (komputer di suruh ngomong) tapi bisa di jelasin gak maksudnya (apa lagi kata "sapi") fungsinya buat apa aja? cz dapet dari forum tetangga

lam kenal,

Hmm .... nice questions, prepared to what u askin for
setelah sekian banyaknya yg udah ada di dalam system komputer, lalu mereka berpikir " aku mau komputer ngerti apa yang aku omongin dan berbuat sesuatu dengan itu ... " mimpi developer micros dan developer lain ( waktu awalnya ) dan sekarang ( walau masih dalam tahap pengembangan yg konsisten ) itu dapat tercapai ... salah satunya, dengan SAPI ( Speech API - MICROs punya ) gabungan konseptual ( yg sedang berkembang ) dengan Context-Free-Grammar ( bagaimana memberikan mesin kemampuan untuk dapat mengerti apa yang manusia tuliskan ---- development berlanjut hingga pada tahap INTERPRETER dalam compiler programming ( yg belum secara luas dikenalkan ) , gmana coding dapat digenerated automatic, dan user hanya menuliskan kata2 logic deskriptives dengan mempertahankan pattern tertentu untuk dapat digenerated dengan baik, lalu tinggal di compile saja ---- - atau bahkan lum banyak yg tau ini yah ... ) namun memiliki prospek jauh ke depan yg sangat ambisius, HUMAN MACHINE , mendeveloped mesin komputer AI ( artificial intellig ) dengan SUPPORT yang berimbang antara mesin dan manusia

BACK .... Speech API merupakan gabungan dari banyak module untuk dapat mendeteksi / mengenali / meng-interpretasikan SOUND / Suara ( baik dari suara ke TEXT atau sebaliknya, dari TEXT ke suara ) kalau dari TEXT ke suara, mereka menyebutnya TTS ( Text-To-Speech ), melalui input keyboard atau microphon3 ... baik secara synch/asynch ( background processing - real time thread ) ..

secara konseptual itu berpatok pada pengenalan TONE suara dari user ( untuk keduanya, baik TTS atau SPEECH ) .. sampling data suara yang unik, dibuat secara kustom / di-sintesiskan dalam bit-bit data yg pada akhirnya menjadi bentuk suara yg keluar lewat speaker komputer kita / text yg dicetak pada layar ( tp secara teknikalnya sangatlah rumit, krn menyangkut algoritma yg sangat panjang ,,, Hufffhh ). sampling suara tidak perlu juga banyak, yg perlu untuk dimaintain oleh module itu adl tone suara dari teks yang dibaca/diperintahkan untuk dibaca ( teks itu memaintain spelling dan suara kita IDENTIFIER bit-bit data suara pd modulenya ).

Hmm ... terlalu panjang ke teknis ya bro ... ($%^##^ BORED huh ^&%^)

FUNCTION ... kembali ke fungsi,

dari penjelasan awal dapat untuk kamu imajinasikan sendiri, untuk apa aja yang bisa dengan menggunakan SPEECH API.

- mau ngetik di WORD cuma tinggal pake microhone ... ?? bisa
- mau perintahkan system komputer untuk SHELL / jalanin aplikasi tertentu ??? bisa
- mau perintahin komputer untuk membaca buat kita ?? bisa ...
- mau perintahin komputer kita dari jauh cuma lewat phone, dengan audio connect ke compie ( oOPS ... ) .. ? bisa juga,
- etc,

namun dalam tahapan serius dan pertahanan ( yg pasti bukan sistem pertahanan negara kita :P SUCK$$ ), methode suara sudah banyak digunakan dalam sistem komputer dengan interaksinya terhadap manusia ( kayak di film2 )

[positive+]

Tweet

Dim msg, sapi AS OBJECT ' //// jgn kebanyakan VARIANTS yg jelas code, tipe datanya apa ??

msg=InputBox("Tulis kalimat dikolom, lalu klik OK","komputer akan ngomong")
Set sapi=CreateObject("sapi.spvoice")
IF( NOT SAPI IS NOTHING)THEN
     sapi.Speak msg
     SET SAPI = NOTHING
ELSE
     DEBUG.PRINT " CREATE OBJECT FAILED !!!! "
END IF
'// IF(NOT SAPI IS NOTHING)THEN SET SAPI = NOTHING  '// NIL, NULL, DISPOSING

[mnemonic1956]

Tweet

Gmana kalo thread ini jd code bank vb di chip forums ??
POST, Analise dan Share Code di sini

setubuh masbroooo
biar gak susah2 nyari thread VB

[positive+]

Tweet

class generic untuk menyimpan data pada table dalam database.
database context : ADO -- ADODB

'=========================================================================================
'  Class CTableAdd
'  GENERIC CLASS D.M.L
'=========================================================================================
'  Created By: A2L - {positive+}
'  Published Date: 29/12/2010
'  WebSite: anonyim
'  Legal Copyright: SH4RP © 29/12/2010
'=========================================================================================

Option Explicit

'// no need property in this class, just simply add attribute value direct from selection var name,,
Public strTable     As String
Public strCodeKey   As String, strCodeKeyValue As String

Private obj         As ADODB.Recordset
Private ctl         As Control

'// NO SQL INJECTIONS !!
Private Function RemoveInject(ByVal strData As String) As String
    RemoveInject = Replace(Replace(Replace(strData, "'", "`"), "[", modConstants.VbZlString), "]", modConstants.VbZlString)
End Function

'// adding and automatic updating if there's record in dataset
Public Function AddFromForm(ByRef Fm As Form) As Boolean
Dim success As Boolean
On Error GoTo ErrorTrap
    If (Len(strTable) = 0 Or Len(strCodeKey) = 0) Then GoTo ExitPoint
    If (modMain.mobjDataConnection.OpenStatus) Then
        modMain.mobjDataConnection.PreparedRecordset obj
        With obj
             .Open "SELECT * FROM [" & strTable & "] WHERE [" & strCodeKey & "]='" & RemoveInject(strCodeKeyValue) & "' "
             If (.EOF Or .BOF) Then
                 .AddNew
                 .Fields(strCodeKey).Value = strCodeKeyValue
             End If
             For Each ctl In Fm.Controls
                 If (TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox) Then
                 If (ctl.DataField <> modConstants.VbZlString) Then
                     If (TypeOf ctl Is TextBox) Then
                        If (ctl.Text = modConstants.VbZlString) Then
                            .Fields(ctl.DataField).Value = Null
                        Else
                            .Fields(ctl.DataField).Value = modAppFunctions.RemoveFormatNumber(ctl.Text)
                        End If
                     ElseIf (TypeOf ctl Is ComboBox) Then
                        If (ctl.ListCount) Then
                            If (ctl.Text = modConstants.VbZlString) Then
                                .Fields(ctl.DataField).Value = Null
                            Else
                                .Fields(ctl.DataField).Value = ctl.Text
                            End If
                        End If
                     End If
                 End If
                 End If
             Next ctl
             .UpdateBatch adAffectAllChapters
             success = True
        End With
        Set obj = Nothing
    End If
ExitPoint:
    AddFromForm = success
    Exit Function
ErrorTrap:
    success = False
    MsgBox "Error Number: " & Err.Number & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Debug Information:" & vbCrLf & _
           "vbpFinance.CTableAdd.AddFromForm" & IIf(Erl > 0, "." & Erl, ""), vbCritical, "Error Occurred"
    On Error GoTo 0
    Err.Clear
    GoTo ExitPoint
End Function

'//deleting data from table
Public Function DeleteFromForm() As Boolean
On Error GoTo ErrorTrap
    If (Len(strTable) = 0 Or Len(strCodeKey) = 0) Then Exit Function
    If (modMain.mobjDataConnection.OpenStatus) Then
        Dim sql As String
        sql = "DELETE FROM [" & strTable & "] WHERE [" & strCodeKey & "]='" & RemoveInject(strCodeKeyValue) & "' "
        modMain.mobjDataConnection.ConnectionObject.Execute sql
    End If
ExitPoint:
    Exit Function
ErrorTrap:
    MsgBox "Error Number: " & Err.Number & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Debug Information:" & vbCrLf & _
           "vbpFinance.CTableAdd.DeleteFromForm" & IIf(Erl > 0, "." & Erl, ""), vbCritical, "Error Occurred"
    On Error GoTo 0
    Err.Clear
    GoTo ExitPoint
End Function

beberapa LOC ( line of code ) merujuk pada beberapa class lain atau pada module yang berisikan function2 tertentu atau constant.

[ mobjDataConnection ] = object dari class wrapper ADO Connection ( ADO Connection )
[ modMain ] = module main
[ modAppFunctions ] = module fungsi2 rutin dari aplikasi
[ modConstants ] = module yg mendaftar semua constants yang dipakai selama aplikasi berjalan

sesuaikan dengan keperluan ....

[positive+]

Tweet

bagaimana cara meretas untuk membuat file dengan "." di depan filename'nya pada system windows ??
ampe pernah dosen2 malah bilang " itu gk bisa ! " ,,, bilang ma dosen2nya, " itu bisa ! " .... bagaimana ?

membuat tanpa mengetahui akan seperti makan tanpa ada rasanya, " HAMBAR " ... so,,,,,

begini ceritanya,
tiap apa yang kita lihat di depan layar itu kesemuanya adalah module2 terpisah yang saling terintegrasi via berbagai macam layer, comm server etc ( desktop, explorer, icons, files object etc ). tiap informasi yang digunakan oleh banyak module tersebut, terangkum dalam database system windows yang biasa kita sebut registry ( an ID , registered naming dan berbagai macam info ttg hardware terpasang dan software ) dan banyak virus yang senang bermain dengan registry sebagai HIDE OUT dari penetrasi mereka, .... hmmm, maka bila seperti itu,,tiap model object punya otonom masing2 untuk operasional mereka,,but always got a red line AN ALERT for not to go down deeper than user expected, except .... ( ............. cukup sekilas info nya , tho .. )

Hmm... dan begitu juga dalam pembuatan file name under windows, mereka menempatkan beberapa karakter terlarang dlm menamakan sebuah file, dan memilih titik ( . ) sebagai pemisah antara nama file dan ekstensi dari file ( ekstensi itu seperti totem, untuk mengelompokkan tiap file milik software yang mana di dalam system yang seperti jaring laba2 ... so,, there u are, kita juga dapat meng'ID sebuah file dengan gambar icon yang terpasang pd'nya ... ( here is another layer,,, EXTENTIONS ---- ICON HANDLE --- kesemuanya ada dalam structing dari tiap file terorganisir dalam module filing system,,, like micros punya,, FileSystemObject (FSO)...quiet charming,,while ago )

lanjut ... waktu kita ketikkan nama file, lalu ada muncul simple notification dari module, that \ / : ? * ? " < > | is not allowed ...karakter2 yang familiar bukan?? ( face it,,,ini hanya kulit ari dari apa yang tersembunyi ... ) mengapa ?? Hmm,,,butuh banyak penjelasan, sedang kadang gw gk tau batas kapan untuk berhenti menjelaskan,,so, i stop here, u got the hint as starting point if u wanna know more,,,,,so,,up to above level,,again,,

apa yang kita ketikkan sewaktu membuat nama file, semua itu di parsing oleh system,,tiap parser itu memiliki end-point, a fail safe, or disenganged ... memiliki kondisi2 antara 0 atau 1, true-false ... untuk berhenti dan membiarkan lewat, untuk kepentingan2 tertentu.

so, straight to the point,,,bagaimana melewatkannya ??
cukup dengan kombinasi character " \\?\ " itu saja ( well, there's a story behind it too ... tho )

how to test it ????

masuk command prompt, ketik langsung " cd\ " enter ( entering root path, entah root [ C ] atau [ D ] tergantung compie anda )
untuk test, ketikkan seperti di bawah ini :

DIR C: >\\?\C:\.text.text.text.text.string.log

lalu ketikkan :

START C:\

kamu akan temukan file dengan nama " .text.text.text.text.string.log " seperti yang kita ketikkan tadi, dengan berisikan sedikit informasi.

bila lewat coding VB, cukup gunakan cara dos mode untuk write file:

Private Sub Form_Load()
    Open "\\?\C:\.2text.text.text.text.string.log" For Binary Access Write As #1
        Put #1, , String(1000, Chr$(0))
    Close #1
End Sub

lalu cari pada drive C untuk file yang sudah kita buat tadi.......

lalu orang2 akan berkata,," segitu aja toh ... hehe " ,,, tapi mereka lupa, bagaimana rasanya mereka sebelumnya yang tidak mengetahui

cukup sekian,,( just releasing some scratch of my mind here )

regard,

[positive+]

Tweet

MULTICASTING TECHNIQUE

buat class module dengan nama : CFormUtil
add this code

'=========================================================================================
'  MULTICASTING TECHNIQUE
'  THINK WHAT U CAN DO WITH THIS ... :-)
'=========================================================================================
'  Created By: Positive+ ( A2L )
'  Published Date: 08/01/2011
'  Legal Copyright: SH4RP © 08/01/2011
'=========================================================================================

Option Explicit

Private WithEvents objForm     As Form

Public Property Set FormObject(ByRef Fm As Form)
    Set objForm = Fm
End Property

Private Sub objForm_Activate()
    objForm.Caption = objForm.Caption & " - INTO CLASS > MULTICASTING TECHNIQUE"
End Sub

Private Sub objForm_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyEscape) Then
        Unload objForm
    End If
End Sub

Private Sub objForm_Load()
    '//
End Sub

Private Sub objForm_Unload(Cancel As Integer)
Dim vMsg    As VbMsgBoxResult
    vMsg = MsgBox("Quit Program?", vbYesNo + vbQuestion, "Confirm")
    If (vMsg = vbYes) Then
        Cancel = 0
        Set objForm = Nothing
    Else
        Cancel = 1
    End If
End Sub

try it on your form :

Private mobjFormUtil    As CFormUtil

Private Sub Form_Activate()
    Me.Caption = "First Event thru the form first...then "
End Sub

Private Sub Form_Load()
    Set mobjFormUtil = New CFormUtil
    Set mobjFormUtil.FormObject = Me
End Sub

[FirMan]

Tweet

Cara manggil file kompresor 7za.exe

teman2 ada yg tau cara manggil aplikasi dgn parameter
Misal aku mw kompres file DBF menjadi 7z menggunakan
aplikasi bantu 7za.exe

Skrip d command line "7za a Database.7z *.dbf"

Pas d masukkin k dalam VB cuma muncul window prompt
aj tapi ga terbentuk file Database.7z