Ups,.....
Maaf yah teman2, padahal pas di sending listingnya rapi loh.... OK lah aku
rapihkan lagi seperti di bawah ini, thanks.
Intinnya apakah DDE fuction yang ada di Access dan visual foxpro bisa
diterapkan di VB, terimakasih
Brgds,
Private Sub CmdBooking_Click( )
Dim i As Byte Dim Chan, Before, Complete
Dim CurVoy As String
Dim CurBkg As String
Chan = DDEInitiate( "R8WIN", "Control")
If InStr(1, DDERequest(Chan, "R3C14:R3C29" ), "INITIAL DISPLAY.") = 1 Then
DDEExecute Chan, "TransmitTerminalKey rcIbmPf9Key"
GoSub Wait2Ready
DDEPoke Chan, "R5C13:R5C13" , "1"
DDEExecute Chan, "TransmitTerminalKey rcIbmEnterKey"
GoSub Wait2Ready
Dim LogId, LogPass As String
LogId = InputBox("Your Login for APCA mainframe was Disconnected, Please
enter your Login ID...?")
LogPass = InputBox("Please enter your Password...? ")
DDEPoke Chan, "R18C33:R18C40" , LogId
DDEPoke Chan, "R18C54:R18C61" , LogPass
DDEPoke Chan, "R23C15:R23C22" , "123.8.55"
DDEExecute Chan, "TransmitTerminalKey rcIbmEnterKey"
GoSub Wait2Ready
ElseIf InStr(1, DDERequest(Chan, "R1C30:R1C50" ), "REPORT STATUS DISPLAY") =
1 Then
DDEPoke Chan, "R23C15:R23C23" , "123.8.55"
DDEExecute Chan, "TransmitTerminalKey rcIbmPf3Key"
GoSub Wait2Ready
ElseIf
InStr(1, DDERequest(Chan, "R1C27:R1C50" ), "REMOTE PRINTER CONTROL") = 1
Then
DDEExecute Chan, "TransmitTerminalKey rcIBMClearKey"
DDEExecute Chan, "TransmitTerminalKey rcIBMClearKey"
DDEPoke Chan, "R23C15:R23C23" , "123.8.55"
DDEExecute Chan, "TransmitTerminalKey rcIbmPf3Key"
GoSub Wait2Ready
Else
DDEPoke Chan, "R22C7:R22C70" , " "
DDEPoke Chan, "R23C15:R23C23" , "123.8.55"
DDEExecute Chan, "TransmitTerminalKe yrcIbmEnterKey"
GoSub Wait2Ready
End If
DDEExecute Chan, "TransmitTerminalKey rcIbmPf12Key"
GoSub Wait2Ready
Wait2Ready:
Do While Left$(DDERequest(Chan, "R26C9:R26C9"), 1) = Chr(246)
For i = 1 To 100
Next i
Loop
Return
Off:
DDETerminate Chan
For i = 1 To 200
Beep
Next i
MsgBox ("Already Create the Local Invoice number, please check")End Sub
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 7 Jul 2008 23:37:40
-0700Subject: Bls: [indoprog-vb] Tolong bantuannya.... tentang DDE
Recent Activity
3
New MembersVisit Your Group
Search Ads
Get new customers.
List your web site
in Yahoo! Search.
Yahoo! Groups
Special K ChallengeJoin others who
are losing pounds.
Find helpful tips
for Moderators
on the Yahoo!
Groups team blog.
.
mas Gunawan Indra, listingnya tolong dirapiin donk, jadinya kita semua gak bisa
lihat, betul gak temen2 yang expert, saya juga belajar jadi bingung nih bacanya
source code nya----- Pesan Asli ----Dari: Gunawan Indra <[EMAIL
PROTECTED]>Kepada: [EMAIL PROTECTED]: Senin, 7 Juli, 2008 15:39:44Topik:
[indoprog-vb] Tolong bantuannya.... tentang DDEHello temen2 yang lebih
expert....Saya ada buat program dari Microsoft Access dengan contoh listing
seperti di bawah....Saya sudah coba buat di VD dengan listing sama persis. tapi
program todak bisa di jalankan (maaf error message nya saya lupa)apakah
penyebabbya karena missing component yang tentang DDE. atau yang lainnya...
Mohon banytuannya dari teman2 yang lebih expert.quote:Private Sub
CmdBooking_Click( )
Dim i As Byte Dim Chan, Before, Complete
Dim CurVoy As String
Dim CurBkg As String
Chan = DDEInitiate( "R8WIN", "Control")
If InStr(1, DDERequest(Chan, "R3C14:R3C29" ), "INITIAL DISPLAY.") = 1 Then
DDEExecute Chan, "TransmitTerminalKe y rcIbmPf9Key" GoSub Wait2Ready DDEPoke
Chan, "R5C13:R5C13" , "1" DDEExecute Chan, "TransmitTerminalKe y rcIbmEnterKey"
GoSub Wait2Ready Dim LogId, LogPass As String LogId = InputBox("Your Login for
APCA mainframe was Disconnected, Please enter your Login ID...?") LogPass =
InputBox("Please enter your Password...? ") DDEPoke Chan, "R18C33:R18C40" ,
LogId DDEPoke Chan, "R18C54:R18C61" , LogPass DDEPoke Chan, "R23C15:R23C22" ,
"123.8.55" DDEExecute Chan, "TransmitTerminalKe y rcIbmEnterKey" GoSub
Wait2Ready ElseIfInStr(1, DDERequest(Chan, "R1C30:R1C50" ), "REPORT STATUS
DISPLAY") = 1 Then DDEPoke Chan, "R23C15:R23C23" , "123.8.55" DDEExecute Chan,
"TransmitTerminalKe y rcIbmPf3Key" GoSub Wait2Ready ElseIf InStr(1,
DDERequest(Chan, "R1C27:R1C50" ), "REMOTE PRINTER CONTROL") = 1 Then DDEExecute
Chan, "TransmitTerminalKe y rcIBMClearKey" DDEExecute Chan, "TransmitTerminalKe
y rcIBMClearKey" DDEPoke Chan, "R23C15:R23C23" , "123.8.55" DDEExecute Chan,
"TransmitTerminalKe y rcIbmPf3Key" GoSub Wait2Ready Else DDEPoke Chan,
"R22C7:R22C70" , " " DDEPoke Chan, "R23C15:R23C23" , "123.8.55" DDEExecute
Chan, "TransmitTerminalKe y rcIbmEnterKey" GoSub Wait2Ready End If DDEExecute
Chan, "TransmitTerminalKe y rcIbmPf12Key" GoSub Wait2Ready Wait2Ready: Do While
Left$(DDERequest( Chan, "R26C9:R26C9"), 1) = Chr(246) For i = 1 To 100 Next i
Loop ReturnOff:DDETerminate ChanFor i = 1 To 200 BeepNext i'LblInfo.Caption =
"Please remenber the above LI number"'LblInfo. Visible = TrueMsgBox ("Already
Create the Local Invoice number, please check")End Subend
quotethanks.Indra____________ _________ _________ _________ _________ _________
_NEW! Get Windows Live FREE.http://www.get. live.com/ wl/all[Non-text portions
of this message have been
removed]__________________________________________________________Yahoo!
sekarang memiliki alamat Email baru.Dapatkan nama yang selalu Anda inginkan di
domain baru @ymail dan @rocketmail. Cepat sebelum diambil orang
lain!http://mail.promotions.yahoo.com/newdomains/id/[Non-text portions of this
message have been removed]
_________________________________________________________________
Easily publish your photos to your Spaces with Photo Gallery.
http://get.live.com/photogallery/overview
[Non-text portions of this message have been removed]
