Visual Basic'ten Delphi'ye kod aktarımı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ToysunStory
Üye
Mesajlar: 8
Kayıt: 16 Kas 2005 11:45

Visual Basic'ten Delphi'ye kod aktarımı

Mesaj gönderen ToysunStory » 24 Ara 2005 05:38

Şu VB denen illetten gına geldi ama birşeyi anladım İtalya'da adamlar başka birşey kullanmıyorlar. Bu mevcut projem için İtalya'dan gelen 6. DLL (Altısı da ayrı firmalara ait) hepsinin de kitapçığı sadece VB anlatıyor. Elimden geldiğince Delphi'ye aktarmaya çalışıyorum ama nafile.

Acaba VB kodlarının Delphi karşılığını bulabileceğim bir yer var mıdır? (yada söylediğim çok mu saçmadır?)

Ve çok acil olarak aşağıda yer alan type şemasını Delphi'de nasıl dizerim beynim iyice sulandı :oops: (salakça bişey sorduğumun farkındayım, herkesten özür dilerim ama inanın sıkıntı bastı)

Kod: Tümünü seç

Public Type keytype
KEY As String * 16
End Type

Public Type TypeLista
Lista As String * 20000
End Type

Public Lista As TypeLista

Type Fans
Tipo As String * 18
wrn As String * 12
nrec As Long
Eta As Single
Pvol As Single
Ptot As Single
Pstat As Single
Pdin As Single
Ngiri As Single
w As Single
Wel As Single
vper As Single
Vel As Single
Lwam As Single
Lwaa As Single
Ro As Single
NB As Single
Ns As Single
Nmax As Single
Wmax As Single
diam As Single
miner As Single
fl1 As Single
fl2 As Single
fl3 As Single
fl4 As Single
fl5 As Single
NG As Single
Cw As Single
CN As Single
cps As Single
SPLm As Single
fr1m As Single
fr2m As Single
fr3m As Single
fr4m As Single
fr5m As Single
fr6m As Single
fr7m As Single
fr8m As Single
SPLa As Single
fr1a As Single
fr2a As Single
fr3a As Single
fr4a As Single
fr5a As Single
fr6a As Single
fr7a As Single
fr8a As Single
esp As Single
Q As Single
End Type

Type ArrayofFans
fan(0 To 30) As Fans
End Type

Type trasmiss
Pm As Long
Ngmot As Long
Ngole As Long
dmot As Long
dven As Long
NgventN As Long
Ngvent As Single
Wa As Single
Wr As Single
Wass As Single
Wmot As Single
heff As Single
Qn As Single
Ieff As Long
l As Long
Gamma As Long
Cl As Single
Cg As Single
u As Single
cbven As Long
cbmot As Long
damot As Long
daven As Long
heffm As Single
Ts As Single
depth As Single
fn As Single
Qst As Single
CradMot As Single
HMot As Single
EspMot As Single
End Type
Pag. 11/13

Type arrayoftrasm
tras(1 To 30) As trasmiss
End Type

Type BELT_type
belt As String * 30
End Type

Type ERRORMESSAGE_type
errormessage As String * 80
End Type

Kullanıcı avatarı
futbolcu
Üye
Mesajlar: 129
Kayıt: 02 Tem 2003 07:33
Konum: Ankara

Mesaj gönderen futbolcu » 24 Ara 2005 06:36

VB kodlarını Delphiye aktaran programlar var. VB2delphi diye aratısanız bulursunuz. Ancak bu kodda sadece değişken tanımı yapımış. Başka bişey de yok. Delphi ile onları zaten kolaylıkla yaparsınız.
Bilgi çoğaldıkça krallar ölür

ToysunStory
Üye
Mesajlar: 8
Kayıt: 16 Kas 2005 11:45

Mesaj gönderen ToysunStory » 24 Ara 2005 07:01

programın tamamı bu değil ama takıldığım esas noktalardan birisi bu. kod dönüştürücüleri denedim sonuç yok. buradaki type'ların ne şekilde tanımlanacağını bilmiyorum örneğin string * 18 nedir yada single nedir?

Kullanıcı avatarı
futbolcu
Üye
Mesajlar: 129
Kayıt: 02 Tem 2003 07:33
Konum: Ankara

Mesaj gönderen futbolcu » 24 Ara 2005 07:45

Arkadaşım biraz işin uzun gibi gözüküyor. Sana önerim Visual Basic de kullanılan temel yapıyı(veri tiplerini, karar yapılarını ve döngü tiplerini vs) öğrenmen olacak En basitinden VB de Single 4 bayt +/- 1E-45 to 3E38 olduğunu bilmek gerekiyor. Kusura bakma lütfen. Burada bir yol önerebilirim ancak. Çünkü yapılacak iş uzun. Öncelikle VB kodlarının ne yapmak istediğini ve ne yaptığını bilmek gerekiyor. Bunu yaptıktan sonra Delphiye katarmak çok kolay :wink:
Bilgi çoğaldıkça krallar ölür

Cevapla