RE: Re[2]: [Programmer-VB] bikin no urut pake huruf

Fri, 28 Apr 2006 01:16:04 -0700

Kalau anda sudah dapat idenya anda bisa mengembangkannya, seperti baca dulu record 'sudah berapa kali dikirim', jika ketemu dan akan mengirim lagi pasti 'jumlah kali terkirim' + 1, jadi nggak usah pake looping seperti contoh yang saya berikan. dan fungsi ToAlphabet pasti dipakai. anda pasti bisa menangkap maksud saya :)
 
vbPian
[zZzz]
 
 -----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]On Behalf Of ChipMunks
Sent: Friday, April 28, 2006 2:57 PM
To: Shopian Iskandar
Subject: Re[2]: [Programmer-VB] bikin no urut pake huruf

>

Dim NoKontrak as string


Private Sub .....()

  NoKontrak="6020"

  For I=1 To 3 '(misalkan dipecah jadi 3)

    NoKontrak=NoKontrak & ToAlphabet(I)

  Next I

End Sub


Private Function ToAlphabet(ByVal X as byte) as String

      ToAlphabet = Chr(X+64)

End Function


Catatan: Pemecahan Nomor Kontrak jangan lebih dari 26 (A-Z), saya yakin anda

paham maksud saya.


vbPian

[zZzz]



thanks before... untuk penomoran itu tidak pasti. 2,3, atau bisa aja jadi berapa saja. tergantung perintah dari shiping intructionnya mo dikirim brp kg / ton

jadi A,B,C,D itu hanya untuk tahu sudah brp kali n brp banyak barang tersebut itu diexport.


mungkin idenya mas shopian bisa dipake nih. tapi dengan seperti harus cek bolak-balik.

ada yg lebih simple ... ? hehehe....


Salam, 

ChipMunks (Copy Paste Programmer)

mailto: [EMAIL PROTECTED]

Yahoo : Henqy



Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke