EntwicklerForum.org » RealBasic

Macintosh Entwicklung – Linkliste

Dennis Müller — Mon, 20 Aug 2007 15:25:39 +0000

Hier eine Übersicht von guten Mac Development Communitys,Blogs,Maillinglisten…

http://www.osxentwicklerforum.de/

Erste Anlaufstelle für Deutschsprachige Mac Entwickler

http://cocoadevcentral.com/
Super einstiegstutorials auf Englisch

http://cocoablogs.com/
Zusammengefasster Feed mehrerer Entwicklerblogs

http://cf.adiumx.com/
Englisches Forum rund um die OpenSource Projekte Adium, Growl, Cyberduck, Vienna und viele mehr

http://www.cocoabuilder.com
Super Mailingliste

http://developer.apple.com

ADC – Die erste Anlaufstelle für Offizielle Dokumentation von Apple

Man sollte sich bei fast allen Seiten auf Englisch einstellen. Was aber gar nicht so schlimm ist.

Wie man einen String splittet

Hannes Bischoff — Fri, 25 May 2007 12:35:54 +0000

Dim arrString(-1) As String
Dim strQuelle,strZiel1,strZiel2 As String //strQuelle = "Hello World"
arrString=Split(strQuelle," ")
strZiel1=arrString(0) //strZiel1 = "Hello"
strZiel2=arrString(1) //strZiel2 = "World"

Dictionary füllen

Hannes Bischoff — Fri, 25 May 2007 12:23:26 +0000

Im folgenden Codebeispiel wird beschrieben, wie ein Dictionary (dicTest) gefüllt wird.

Dim dicTest(10,6) As String
dicTest(0,0) = EditField1.Text
dicTest(0,1) = EditField2.Text
dicTest(0,2) = String
dicTest(0,3) = String
.
.
.

Datentypen konvertieren

Hannes Bischoff — Fri, 25 May 2007 12:04:23 +0000

String nach Double

double = CDbl(string)

String nach Integer (Wert nach dem Komma wird abgeschnitten)

double = Val(string)

Double/Integer nach String

string = Str(double)

Aus Listbox heraus drucken

Hannes Bischoff — Fri, 25 May 2007 11:58:34 +0000

Im folgenden Codebeispiel wird der Inhalt der Listbox “lstTest” ausgedruckt.

  dim g as Graphics
  dim page as PrinterSetup
  dim h,w,x,z,mw,mh as Integer
  page = new PrinterSetup
  g = OpenPrinterDialog(page)
  if g = Nil then
    return
  end if
  g.TextFont = "Arial"
  g.TextSize = 12
  w = g.Width/lstDruck.columnCount
  h = g.textHeight
  for x = 0 to lstTest.ListCount-1
    for z = 0 to lstTest.columnCount-1
      g.DrawString lstTest.cell(x,z), (z*w), (x*h)+h
    next
  next

Füllen einer Listbox aus einem Dictionary heraus

Hannes Bischoff — Fri, 25 May 2007 11:00:50 +0000

Im folgenden Codebeispiel wird eine Listbox, welche 2 Spalten hat, mit dem Inhalt eines mehrdimensionalen Dictionarys gefüllt.

"more-25">lstTest.DeleteAllRows
Dim intZaehler As Integer
Dim b As Integer
Dim a As Integer
Dim i,y,x As Integer
b = intZaehler // Anzahl der Zeilen des Dictionarys
x = 0
lstTest.columnCount=2
lstTest.columnWidths="66%,34%"
lstTest.AddRow ""
lstTest.Cell(x,0) = "Equitania Weight"
lstTest.CellBold(x,0) = true
lstTest.Cell(x,1) = "Überschrift"
x = x+1
lstTest.AddRow ""
lstTest.CellBorderBottom(x,0)=ListBox.BorderThinSolid //Fügt eine Trennlinie zwischen der Überschrift
lstTest.CellBorderBottom(x,1)=ListBox.BorderThinSolid //und dem 1. Eintrag ein.
x = x+1
lstTest.AddRow ""
x = x+1
do until a > b
    lstTest.AddRow ""
    lstTest.Cell(x,0) = dicTest(a,0)
    lstTest.Cell(x,1) = dicTest(a,7)
    x = x+1
    lstTest.AddRow ""
    x = x+1
    lstTest.AddRow ""
    lstTest.Cell(x,0) = "Beschreibung:"
    lstTest.Cell(x,1) = dicTest(a,1)
    x = x+1
    lstTest.AddRow ""
    lstTest.Cell(x,0) = "Größe:"
    lstTest.Cell(x,1) = dicTest(a,2)
    x = x+1
    lstTest.AddRow ""
    lstTest.Cell(x,0) = "Gewicht"
    lstTest.Cell(x,1) = dicTest(ia,3)
    x = x+1
    lstTest.AddRow ""
    lstTest.CellBorderBottom(x,0) = ListBox.BorderThinSolid //Fügt eine Trennlinie zwischen der Überschrift
    lstTest.CellBorderBottom(x,1) = ListBox.BorderThinSolid//und dem nächsten Eintrag ein.
    x = x+1
    lstTest.AddRow ""
    x = x+1
    a = a+1
  Loop

Neuen Ordner erstellen

Hannes Bischoff — Fri, 25 May 2007 10:34:16 +0000

Im nachstehenden Codebeispiel wird geprüft, ob der Ordner “Neuer Ordner” auf dem Desktop existiert und wenn dies nicht der Fall ist, wird er neu erstellt.

Dim folTest As FolderItem
folTest = DesktopFolder.Child("Neuer Ordner")
if folTest <> nil
  if not folTest.Exists then
    folTest.CreateAsFolder
  end if
end if

Webservice ansprechen mit Realbasic

Dennis Müller — Tue, 24 Apr 2007 16:49:20 +0000

Ich hab mich auf die suche gemacht nach einem echt einfachen Webservice um mal zu test wie man in Realbasic Webservices anspricht.
Hier ein kleiner beispielcode:

Dim sm as SOAPMethod
 
Dim sr as SoapResultProgressWheel1.Visible = true
 
sm = New SOAPMethod
 
sm.url = "http://webservices.iter.dk/calculator.asmx?WSDL"
 
sm.methodNamespace = "http://www.iter.dk/webservices/calculator.asmx"
 
sm.action ="http://www.iter.dk/webservices/calculator.asmx/Add"
 
sm.parameter("intA") = EditField2.Text
 
sm.parameter("intB") = EditField1.Text
 
sr= sm.invoke("Add")
 
if sr <> Nil then
 
StaticText1.Text = "=" + sr.Result("AddResult")
 
ProgressWheel1.Visible = false
 
end if
 
Exception err
 
ProgressWheel1.Visible = false
 
MsgBox "Exception: " + err.message

Mehr über den einfachen Webservice gibts hier:
http://webservices.iter.dk/calculator.asmx?op=Add